369.11
svn: r6085 original commit: e9bf34f1930103f62651e3ec5cbf35b791d097c6
This commit is contained in:
parent
24e21e7404
commit
de957292f4
|
@ -94,7 +94,9 @@
|
|||
(new menu:can-restore-menu-item%
|
||||
[label (string-constant zoom)]
|
||||
[parent menu]
|
||||
[callback (λ (x y) (send (send (send menu get-parent) get-frame) maximize #t))])
|
||||
[callback (λ (x y)
|
||||
(let ([frame (send (send menu get-parent) get-frame)])
|
||||
(send frame maximize (not (send frame is-maximized?)))))])
|
||||
(make-object separator-menu-item% menu))
|
||||
(instantiate menu:can-restore-menu-item% ()
|
||||
(label (string-constant bring-frame-to-front...))
|
||||
|
|
|
@ -537,6 +537,7 @@
|
|||
system-menu
|
||||
set-modified
|
||||
create-status-line
|
||||
is-maximized?
|
||||
maximize
|
||||
status-line-exists?
|
||||
iconized?
|
||||
|
|
|
@ -174,6 +174,7 @@
|
|||
[(i b) (send wx set-icon i b)]
|
||||
[(i b l?) (send wx set-icon i b l?)])]
|
||||
[maximize (entry-point (lambda (on?) (send wx position-for-initial-show) (send wx maximize on?)))]
|
||||
[is-maximized? (entry-point (lambda () (send wx is-maximized?)))]
|
||||
[get-menu-bar (entry-point (lambda () (let ([mb (send wx get-the-menu-bar)])
|
||||
(and mb (wx->mred mb)))))]
|
||||
[modified (entry-point
|
||||
|
|
|
@ -486,6 +486,35 @@
|
|||
(st es pb find-first-snip)
|
||||
(st #t es is-owned?))
|
||||
|
||||
;; ----------------------------------------
|
||||
;; edit-sequences and undo
|
||||
|
||||
(let ([t (new text%)])
|
||||
(send t set-max-undo-history 100)
|
||||
(send t begin-edit-sequence)
|
||||
(send t begin-edit-sequence)
|
||||
(send t insert "abcd\n")
|
||||
(send t set-modified #f)
|
||||
(send t end-edit-sequence)
|
||||
(send t delete 0 1)
|
||||
(send t end-edit-sequence)
|
||||
(send t undo)
|
||||
(st "" t get-text))
|
||||
|
||||
(let ([t (new text%)])
|
||||
(send t set-max-undo-history 100)
|
||||
(send t begin-edit-sequence)
|
||||
(send t begin-edit-sequence)
|
||||
(send t insert "abcd\n")
|
||||
(send t end-edit-sequence)
|
||||
(send t set-position 0 1)
|
||||
(send t delete)
|
||||
(send t set-position 0 1)
|
||||
(send t delete)
|
||||
(send t end-edit-sequence)
|
||||
(send t undo)
|
||||
(st "" t get-text))
|
||||
|
||||
;; ----------------------------------------
|
||||
|
||||
(report-errs)
|
||||
|
|
|
@ -1,3 +1,8 @@
|
|||
Version 369.11
|
||||
|
||||
Added is-maximized? method to frame% (Windows, Mac OS X)
|
||||
|
||||
|
||||
Version 369.10
|
||||
|
||||
Improved the disabled appearance of some controls under Mac OS X
|
||||
|
|
Loading…
Reference in New Issue
Block a user