WorkspaceApplication.st
changeset 7866 122d1ea32cb4
parent 7865 ae5b649724dd
child 7876 3e9f6e7b9ff2
equal deleted inserted replaced
7865:ae5b649724dd 7866:122d1ea32cb4
    84           )
    84           )
    85          (MenuItem
    85          (MenuItem
    86             label: 'Add Buffer on MyWorkspace'
    86             label: 'Add Buffer on MyWorkspace'
    87             itemValue: addMyWorkspace
    87             itemValue: addMyWorkspace
    88             translateLabel: true
    88             translateLabel: true
       
    89             isVisible: thisIsASmalltalkWorkspace
    89           )
    90           )
    90          (MenuItem
    91          (MenuItem
    91             enabled: anyWorkspaceVariableIsDefined
    92             enabled: anyWorkspaceVariableIsDefined
    92             label: 'Add Buffer on Workspace Variables'
    93             label: 'Add Buffer on Workspace Variables'
    93             itemValue: addWorkspaceVariableInspector
    94             itemValue: addWorkspaceVariableInspector
    94             translateLabel: true
    95             translateLabel: true
       
    96             isVisible: thisIsASmalltalkWorkspace
    95           )
    97           )
    96          (MenuItem
    98          (MenuItem
    97             label: 'Add Buffer on Global Variables'
    99             label: 'Add Buffer on Global Variables'
    98             itemValue: addGlobalVariableInspector
   100             itemValue: addGlobalVariableInspector
    99             translateLabel: true
   101             translateLabel: true
       
   102             isVisible: thisIsASmalltalkWorkspace
   100           )
   103           )
   101          (MenuItem
   104          (MenuItem
   102             label: 'Add Buffer on Namespace...'
   105             label: 'Add Buffer on Namespace...'
   103             itemValue: addNamespaceInspector
   106             itemValue: addNamespaceInspector
   104             translateLabel: true
   107             translateLabel: true
       
   108             isVisible: thisIsASmalltalkWorkspace
   105           )
   109           )
   106          (MenuItem
   110          (MenuItem
   107             label: 'Add Buffer on Class Variables'
   111             label: 'Add Buffer on Class Variables'
   108             itemValue: addClassVariableInspector
   112             itemValue: addClassVariableInspector
   109             translateLabel: true
   113             translateLabel: true
   110           )
   114             isVisible: thisIsASmalltalkWorkspace
   111          (MenuItem
   115           )
   112             label: '-'
   116          (MenuItem
       
   117             label: '-'
       
   118             isVisible: thisIsASmalltalkWorkspace
   113           )
   119           )
   114          (MenuItem
   120          (MenuItem
   115             label: 'Add Evaluation Buffer'
   121             label: 'Add Evaluation Buffer'
   116             itemValue: addEvaluationWorkspace
   122             itemValue: addEvaluationWorkspace
   117             translateLabel: true
   123             translateLabel: true
       
   124             isVisible: thisIsASmalltalkWorkspace
   118           )
   125           )
   119          (MenuItem
   126          (MenuItem
   120             label: '-'
   127             label: '-'
   121           )
   128           )
   122          (MenuItem
   129          (MenuItem
   337           )
   344           )
   338          (MenuItem
   345          (MenuItem
   339             label: 'New SystemWorkspace'
   346             label: 'New SystemWorkspace'
   340             itemValue: newSystemWorkspace
   347             itemValue: newSystemWorkspace
   341             translateLabel: true
   348             translateLabel: true
       
   349             isVisible: thisIsASmalltalkWorkspace
   342           )
   350           )
   343          (MenuItem
   351          (MenuItem
   344             label: 'New EvaluationWorkspace'
   352             label: 'New EvaluationWorkspace'
   345             itemValue: newEvaluationWorkspace
   353             itemValue: newEvaluationWorkspace
   346             translateLabel: true
   354             translateLabel: true
       
   355             isVisible: thisIsASmalltalkWorkspace
   347           )
   356           )
   348          (MenuItem
   357          (MenuItem
   349             label: '-'
   358             label: '-'
   350           )
   359           )
   351          (MenuItem
   360          (MenuItem
   469          (MenuItem
   478          (MenuItem
   470             label: 'Workspace'
   479             label: 'Workspace'
   471             translateLabel: true
   480             translateLabel: true
   472             submenuChannel: workspaceMenu
   481             submenuChannel: workspaceMenu
   473             keepLinkedMenu: true
   482             keepLinkedMenu: true
       
   483             isVisible: thisIsASmalltalkWorkspace
   474           )
   484           )
   475          (MenuItem
   485          (MenuItem
   476             label: 'Smalltalk'
   486             label: 'Smalltalk'
   477             translateLabel: true
   487             translateLabel: true
   478             submenuChannel: smalltalkMenu
   488             submenuChannel: smalltalkMenu
   479             keepLinkedMenu: true
   489             keepLinkedMenu: true
       
   490             isVisible: thisIsASmalltalkWorkspace
   480           )
   491           )
   481          (MenuItem
   492          (MenuItem
   482             label: 'MENU_Help'
   493             label: 'MENU_Help'
   483             translateLabel: true
   494             translateLabel: true
   484             submenuChannel: helpMenu
   495             submenuChannel: helpMenu
  1010 
  1021 
  1011 defaultPatternLoad
  1022 defaultPatternLoad
  1012    ^ '*.wsp'
  1023    ^ '*.wsp'
  1013 
  1024 
  1014     "Created: / 25-10-2006 / 14:57:25 / cg"
  1025     "Created: / 25-10-2006 / 14:57:25 / cg"
       
  1026 !
       
  1027 
       
  1028 thisIsASmalltalkWorkspace
       
  1029     "can be redefined in a subclass to disable smalltalk-specific menu items"
       
  1030 
       
  1031     ^ true
  1015 ! !
  1032 ! !
  1016 
  1033 
  1017 !WorkspaceApplication methodsFor:'initialization & release'!
  1034 !WorkspaceApplication methodsFor:'initialization & release'!
  1018 
  1035 
  1019 closeRequest
  1036 closeRequest
  1856 ! !
  1873 ! !
  1857 
  1874 
  1858 !WorkspaceApplication class methodsFor:'documentation'!
  1875 !WorkspaceApplication class methodsFor:'documentation'!
  1859 
  1876 
  1860 version
  1877 version
  1861     ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.141 2007-10-19 13:27:50 cg Exp $'
  1878     ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.142 2007-10-19 13:50:59 cg Exp $'
  1862 ! !
  1879 ! !