Changeset 11991


Ignore:
Timestamp:
May 1, 2009, 8:12:49 AM (10 years ago)
Author:
rme
Message:

Add an Experiments menu. The idea is that this menu will include,
er, experimental stuff.

The first experiment: a redesigned and simplified apropos dialog.

At the moment, this code won't work on Tiger. Tiger users will
get an error if they to pick anything from the Experiments menu.
(The IDE should still load, though, thanks to a kludge in the
BUILD-IDE function.)

Location:
trunk/source/cocoa-ide
Files:
4 added
4 edited

Legend:

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

    r11960 r11991  
    7777    (setf *apropos-window-controller*
    7878          (make-instance 'apropos-window-controller)))
     79  (#/showWindow: *apropos-window-controller* self))
     80
     81(defvar *xapropos-window-controller* nil)
     82
     83(objc:defmethod (#/showXaproposWindow: :void) ((self lisp-application-delegate)
     84                                                sender)
     85  (declare (ignore sender))
     86  (when (null *xapropos-window-controller*)
     87    (setf *apropos-window-controller*
     88          (make-instance 'xapropos-window-controller)))
    7989  (#/showWindow: *apropos-window-controller* self))
    8090
  • trunk/source/cocoa-ide/defsystem.lisp

    r11885 r11991  
    8282    ))
    8383
     84(defparameter *experimental-ide-files*
     85  '("xapropos"))
     86
    8487(defun load-ide (&optional force-compile)
    8588  (declare (special *hemlock-files*)) ;; kludge
     
    8790        (bin-dir "ccl:cocoa-ide;fasls;"))
    8891    (ensure-directories-exist bin-dir)
     92    ;; kludge to limit experimental files to Leopard
     93    (rlet ((p :int))
     94      (#_Gestalt #$gestaltSystemVersion p)
     95      (when (>= (%get-long p) #x1050)
     96        (format t "~&;Running on Leopard.  Will load experimental files.")
     97        (setq *ide-files* (append *ide-files* *experimental-ide-files*))))
    8998    (with-compilation-unit ()
    9099      (dolist (name *ide-files*)
  • trunk/source/cocoa-ide/ide-contents/Resources/English.lproj/MainMenu.nib/classes.nib

    r11898 r11991  
    6161                                <key>showSearchFiles</key>
    6262                                <string>id</string>
     63                                <key>showXaproposWindow</key>
     64                                <string>id</string>
    6365                                <key>updateCCL</key>
    6466                                <string>id</string>
Note: See TracChangeset for help on using the changeset viewer.