Tools__Toolbox.st
changeset 14023 b3e220d2a1a0
parent 13995 ca1ec96850b5
child 15566 184cea584be5
equal deleted inserted replaced
14022:c494bb9d1516 14023:b3e220d2a1a0
    82 
    82 
    83 environment:env
    83 environment:env
    84     environment := env.
    84     environment := env.
    85 ! !
    85 ! !
    86 
    86 
       
    87 !Toolbox methodsFor:'accessing-methods'!
       
    88 
       
    89 globalsReferencedByMethods: methods
       
    90     "Returns a list of globals (classes) referenced by given methods"
       
    91 
       
    92     ^ self subclassResponsibility
       
    93 
       
    94     "Created: / 24-02-2014 / 16:19:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
       
    95 ! !
       
    96 
    87 !Toolbox methodsFor:'initialization'!
    97 !Toolbox methodsFor:'initialization'!
    88 
    98 
    89 initialize
    99 initialize
    90     "Invoked when a new instance is created."
   100     "Invoked when a new instance is created."
    91 
   101 
    96     "/ super initialize.   -- commented since inherited method does nothing
   106     "/ super initialize.   -- commented since inherited method does nothing
    97 
   107 
    98     "Modified: / 05-09-2013 / 12:46:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   108     "Modified: / 05-09-2013 / 12:46:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    99 ! !
   109 ! !
   100 
   110 
   101 !Toolbox methodsFor:'menus'!
   111 !Toolbox methodsFor:'menu-methods'!
   102 
   112 
   103 messagesMenuFor:actionSelector
   113 messagesMenuFor:actionSelector
   104     withMethods: methods
   114     withMethods: methods
   105     withMethodSelectors:withMethodSelectors
   115     withMethodSelectors:withMethodSelectors
   106     withSentSelectors: withSentSelectors
   116     withSentSelectors: withSentSelectors
   107     withSelfSelectorsOnly: withSelfSelectorsOnly 
   117     withSelfSelectorsOnly: withSelfSelectorsOnly 
   108 
   118 
   109     ^ Menu new
   119     ^ self subclassResponsibility.
   110             addItem: ((MenuItem label: 'Not supported') enabled: false);
       
   111             yourself.
       
   112 
   120 
   113     "Modified: / 24-02-2014 / 15:51:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   121     "Modified: / 24-02-2014 / 16:17:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   114 ! !
   122 ! !
   115 
   123 
   116 !Toolbox methodsFor:'private'!
   124 !Toolbox methodsFor:'private'!
   117 
   125 
   118 ensureBrowser
   126 ensureBrowser
   126 ! !
   134 ! !
   127 
   135 
   128 !Toolbox class methodsFor:'documentation'!
   136 !Toolbox class methodsFor:'documentation'!
   129 
   137 
   130 version
   138 version
   131     ^ '$Header: /cvs/stx/stx/libtool/Tools__Toolbox.st,v 1.2 2014-02-24 16:08:57 vrany Exp $'
   139     ^ '$Header: /cvs/stx/stx/libtool/Tools__Toolbox.st,v 1.3 2014-02-25 10:41:16 vrany Exp $'
   132 !
   140 !
   133 
   141 
   134 version_CVS
   142 version_CVS
   135     ^ '$Header: /cvs/stx/stx/libtool/Tools__Toolbox.st,v 1.2 2014-02-24 16:08:57 vrany Exp $'
   143     ^ '$Header: /cvs/stx/stx/libtool/Tools__Toolbox.st,v 1.3 2014-02-25 10:41:16 vrany Exp $'
   136 ! !
   144 ! !
   137 
   145