svn: r6085

original commit: e9bf34f1930103f62651e3ec5cbf35b791d097c6
This commit is contained in:
Matthew Flatt 2007-04-29 02:08:24 +00:00
parent 24e21e7404
commit de957292f4
5 changed files with 39 additions and 1 deletions

View File

@ -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...))

View File

@ -537,6 +537,7 @@
system-menu
set-modified
create-status-line
is-maximized?
maximize
status-line-exists?
iconized?

View File

@ -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

View File

@ -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)

View File

@ -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