extensions.st
branchjv
changeset 13170 c9b815af5777
parent 12819 0ce340e972c4
parent 12852 bbe17cc4f9aa
child 13173 e9da2324940d
equal deleted inserted replaced
12819:0ce340e972c4 13170:c9b815af5777
   145      of '*break*' or '*disabled*'.
   145      of '*break*' or '*disabled*'.
   146      I will not find anything useful and have to single step if methods are named
   146      I will not find anything useful and have to single step if methods are named
   147      cryptically."
   147      cryptically."
   148 
   148 
   149     condition isNil ifTrue:[
   149     condition isNil ifTrue:[
   150         state == #enabled ifTrue:[^ ToolbarIconLibrary breakpointRedEnabled16x16].
   150         state == #enabled ifTrue:[^ ToolbarIconLibrary breakpointRedEnabled].
   151         state == #disabled ifTrue:[^ ToolbarIconLibrary breakpointRedDisabled16x16].
   151         state == #disabled ifTrue:[^ ToolbarIconLibrary breakpointRedDisabled].
   152         state == #tracing ifTrue:[^ ToolbarIconLibrary tracepointBlue16x16].
   152         state == #tracing ifTrue:[^ ToolbarIconLibrary tracepointBlue].
   153     ] ifFalse:[
   153     ] ifFalse:[
   154         state == #enabled ifTrue:[^ ToolbarIconLibrary breakpointBlueEnabled16x16].
   154         state == #enabled ifTrue:[^ ToolbarIconLibrary breakpointBlueEnabled].
   155         state == #disabled ifTrue:[^ ToolbarIconLibrary breakpointBlueDisabled16x16].
   155         state == #disabled ifTrue:[^ ToolbarIconLibrary breakpointBlueDisabled].
   156     ].
   156     ].
   157 
   157 
   158     ^nil
   158     ^nil
   159 
   159 
   160     "Created: / 28-06-2011 / 08:29:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   160     "Created: / 28-06-2011 / 08:29:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  1098     ^ selector
  1098     ^ selector
  1099 ! !
  1099 ! !
  1100 !Method methodsFor:'printing & storing'!
  1100 !Method methodsFor:'printing & storing'!
  1101 
  1101 
  1102 selectorPrintStringInBrowserFor:selector class:aClass
  1102 selectorPrintStringInBrowserFor:selector class:aClass
  1103     |nsPart selPart idx ns|
  1103     |selPart idx|
  1104 
  1104 
  1105     selector isNameSpaceSelector ifFalse:[^ selector].
  1105     selector isNameSpaceSelector ifFalse:[^ selector].
  1106 
  1106 
  1107     idx := selector indexOf:$: startingAt:3.
  1107     idx := selector indexOf:$: startingAt:3.
  1108     "
  1108     "
  2103     "Created: / 07-06-2011 / 14:31:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  2103     "Created: / 07-06-2011 / 14:31:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  2104 ! !
  2104 ! !
  2105 !stx_libtool class methodsFor:'documentation'!
  2105 !stx_libtool class methodsFor:'documentation'!
  2106 
  2106 
  2107 extensionsVersion_CVS
  2107 extensionsVersion_CVS
  2108     ^ '$Header: /cvs/stx/stx/libtool/extensions.st,v 1.110 2013-06-03 12:09:19 stefan Exp $'
  2108     ^ '$Header: /cvs/stx/stx/libtool/extensions.st,v 1.113 2013-06-05 13:51:56 stefan Exp $'
  2109 ! !
  2109 ! !
  2110 !stx_libtool class methodsFor:'documentation'!
  2110 !stx_libtool class methodsFor:'documentation'!
  2111 
  2111 
  2112 extensionsVersion_HG
  2112 extensionsVersion_HG
  2113 
  2113