369.11

svn: r6085

original commit: e9bf34f1930103f62651e3ec5cbf35b791d097c6

collects/framework/private/group.ss

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

collects/mred/private/kernel.ss

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

collects/mred/private/mrtop.ss

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

collects/tests/mred/editor.ss

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

doc/release-notes/mred/HISTORY

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