Changeset 8456

Timestamp:

Feb 10, 2008, 10:48:22 PM (17 years ago)

Author:

Gary Byers

Message:

Replace #/toggleTypeout: with #/toggleConsole:; validate the menu item.

File:

• trunk/source/cocoa-ide/cocoa-window.lisp (modified) (2 diffs)

trunk/source/cocoa-ide/cocoa-window.lisp

@@ -118 +118 @@
   (#/show (#/sharedPanel lisp-preferences-panel)))
 
-(objc:defmethod (#/toggleTypeout: :void) ((self lisp-application) sender)
-  (declare (ignore sender))
-  (#/show (#/sharedPanel typeout-window)))
+(objc:defmethod (#/toggleConsole: :void) ((self lisp-application) sender)
+  (let* ((console (console self)))
+    (unless (%null-ptr-p console)
+      (if (#/isVisible console)
+        (#/orderOut: console sender)
+        (#/orderFront: console sender)))))
+
+(objc:defmethod (#/validateMenuItem: :<BOOL>) ((self lisp-application)
+                                               item)
+  (let* ((action (#/action item)))
+    (cond ((eql action (@selector #/toggleConsole:))
+           (let* ((console (console self)))
+             (unless (%null-ptr-p console)
+               (if (#/isVisible console)
+                 (#/setTitle: item #@"Hide Console")
+                 (#/setTitle: item #@"Show Console"))
+               t)))
+          (t (call-next-method item)))))
 
 (defmethod ccl::process-exit-application ((process appkit-process) thunk)
@@ -136 +151 @@
 
 (defun event-loop (&optional end-test)
-  (let ((app *NSApp*))
+  (let* ((app *NSApp*)
+         (ccl::*break-on-errors* nil))
     (loop
       (handler-case (let* ((*event-process-reported-conditions* nil))