Changeset 7477


Ignore:
Timestamp:
Oct 19, 2007, 3:48:49 PM (14 years ago)
Author:
rme
Message:

Add a Tools menu to the IDE, and put a Processes... menu item in it.

This menu item displays a utility window listing all the processes
(threads) running in the lisp. Double-click on a process to inspect
it, or use the toolbar items.

Location:
trunk/ccl/cocoa-ide
Files:
5 added
4 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/cocoa-ide/OpenMCL.app/Contents/Resources/English.lproj/MainMenu.nib/classes.nib

    r6728 r7477  
    1 {
    2     IBClasses = (
    3         {
    4             ACTIONS = {
    5                 backtrace = id;
    6                 continue = id;
    7                 exitBreak = id;
    8                 hyperSpecLookUp = id;
    9                 inspect = id;
    10                 interrupt = id;
    11                 newListener = id;
    12                 restarts = id;
    13             };
    14             CLASS = FirstResponder;
    15             LANGUAGE = ObjC;
    16             SUPERCLASS = NSObject;
    17         },
    18         {
    19             ACTIONS = {showPreferences = id; toggleTypeout = id; };
    20             CLASS = NSApplication;
    21             LANGUAGE = ObjC;
    22             SUPERCLASS = NSResponder;
    23         }
    24     );
    25     IBVersion = 1;
    26 }
     1<?xml version="1.0" encoding="UTF-8"?>
     2<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
     3<plist version="1.0">
     4<dict>
     5        <key>IBClasses</key>
     6        <array>
     7                <dict>
     8                        <key>ACTIONS</key>
     9                        <dict>
     10                                <key>showPreferences</key>
     11                                <string>id</string>
     12                                <key>toggleTypeout</key>
     13                                <string>id</string>
     14                        </dict>
     15                        <key>CLASS</key>
     16                        <string>NSApplication</string>
     17                        <key>LANGUAGE</key>
     18                        <string>ObjC</string>
     19                        <key>SUPERCLASS</key>
     20                        <string>NSResponder</string>
     21                </dict>
     22                <dict>
     23                        <key>ACTIONS</key>
     24                        <dict>
     25                                <key>backtrace</key>
     26                                <string>id</string>
     27                                <key>continue</key>
     28                                <string>id</string>
     29                                <key>exitBreak</key>
     30                                <string>id</string>
     31                                <key>hyperSpecLookUp</key>
     32                                <string>id</string>
     33                                <key>inspect</key>
     34                                <string>id</string>
     35                                <key>interrupt</key>
     36                                <string>id</string>
     37                                <key>newListener</key>
     38                                <string>id</string>
     39                                <key>restarts</key>
     40                                <string>id</string>
     41                                <key>showProcessesWindow</key>
     42                                <string>id</string>
     43                        </dict>
     44                        <key>CLASS</key>
     45                        <string>FirstResponder</string>
     46                        <key>LANGUAGE</key>
     47                        <string>ObjC</string>
     48                        <key>SUPERCLASS</key>
     49                        <string>NSObject</string>
     50                </dict>
     51        </array>
     52        <key>IBVersion</key>
     53        <string>1</string>
     54</dict>
     55</plist>
  • trunk/ccl/cocoa-ide/OpenMCL.app/Contents/Resources/English.lproj/MainMenu.nib/info.nib

    r6728 r7477  
    11<?xml version="1.0" encoding="UTF-8"?>
    2 <!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
     2<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
    33<plist version="1.0">
    44<dict>
    5         <key>IBDocumentLocation</key>
    6         <string>69 10 356 240 0 0 1280 1002 </string>
    75        <key>IBFramework Version</key>
    8         <string>446.1</string>
     6        <string>628</string>
    97        <key>IBOldestOS</key>
    108        <integer>5</integer>
     9        <key>IBOpenObjects</key>
     10        <array>
     11                <integer>29</integer>
     12        </array>
    1113        <key>IBSystem Version</key>
    12         <string>8P135</string>
    13         <key>IBUsesTextArchiving</key>
    14         <true/>
     14        <string>9A559</string>
    1515        <key>targetFramework</key>
    1616        <string>IBCocoaFramework</string>
  • trunk/ccl/cocoa-ide/OpenMCL.app/Contents/Resources/English.lproj/MainMenu.nib/keyedobjects.nib

    • Property svn:mime-type set to application/octet-stream
  • trunk/ccl/cocoa-ide/cocoa.lisp

    r7474 r7477  
    3030(require "COCOA-BACKTRACE")
    3131(require "COCOA-INSPECTOR")
     32(require "PROCESSES-WINDOW")
    3233
    3334(def-cocoa-default *ccl-directory* :string "" nil #'(lambda (old new)
     
    8687   t))
    8788
     89(defvar *processes-window-controller* nil)
     90
     91(objc:defmethod (#/showProcessesWindow: :void) ((self lisp-application-delegate)
     92                                                sender)
     93  (declare (ignore sender))
     94  (when (null *processes-window-controller*)
     95    (setf *processes-window-controller* (make-instance 'processes-window-controller)))
     96  (#/showWindow: *processes-window-controller* self))
     97
    8898(defvar *cocoa-application-finished-launching* (make-semaphore)
    8999  "Semaphore that's signaled when the application's finished launching ...")
Note: See TracChangeset for help on using the changeset viewer.