Changeset 8491


Ignore:
Timestamp:
Feb 14, 2008, 9:55:11 PM (12 years ago)
Author:
gz
Message:

Don't pop up the console window once it's been explicitly hidden by the user

Location:
trunk/source/cocoa-ide
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/cocoa-ide/cocoa-window.lisp

    r8456 r8491  
    121121  (let* ((console (console self)))
    122122    (unless (%null-ptr-p console)
    123       (if (#/isVisible console)
     123      (if (setf (console-window-hidden-by-user console) (#/isVisible console))
    124124        (#/orderOut: console sender)
    125125        (#/orderFront: console sender)))))
  • trunk/source/cocoa-ide/console-window.lisp

    r8457 r8491  
    1111   (nextra :foreign-type :int)
    1212   (translatebuf :foreign-type :address)
    13    (bufsize :foreign-type :int))
     13   (bufsize :foreign-type :int)
     14   (hidden-by-user :initform nil :accessor console-window-hidden-by-user))
    1415  (:metaclass ns:+ns-object))
    1516
     
    2021(objc:defmethod (#/insertString: :void) ((self console-window) string)
    2122  (with-slots ((tv typeout-view)) self
    22     (#/makeKeyAndOrderFront: self +null-ptr+)
     23    (unless (console-window-hidden-by-user self)
     24      (#/makeKeyAndOrderFront: self +null-ptr+))
    2325    (#/insertString: (typeout-view-text-view tv) string)))   
    2426
Note: See TracChangeset for help on using the changeset viewer.