Helios-Commands-Browser.st 4.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285
  1. Smalltalk current createPackage: 'Helios-Commands-Browser'!
  2. HLModelCommand subclass: #HLBrowserCommand
  3. instanceVariableNames: ''
  4. package: 'Helios-Commands-Browser'!
  5. !HLBrowserCommand class methodsFor: 'instance creation'!
  6. for: aBrowserModel
  7. ^ self new
  8. model: aBrowserModel;
  9. yourself
  10. ! !
  11. HLBrowserCommand subclass: #HLBrowserGoToCommand
  12. instanceVariableNames: ''
  13. package: 'Helios-Commands-Browser'!
  14. !HLBrowserGoToCommand class methodsFor: 'accessing'!
  15. key
  16. ^ 71
  17. !
  18. label
  19. ^ 'Go to'
  20. ! !
  21. HLBrowserGoToCommand subclass: #HLGoToClassesCommand
  22. instanceVariableNames: ''
  23. package: 'Helios-Commands-Browser'!
  24. !HLGoToClassesCommand methodsFor: 'executing'!
  25. execute
  26. self model focusOnClasses
  27. ! !
  28. !HLGoToClassesCommand class methodsFor: 'accessing'!
  29. key
  30. "c"
  31. ^ 67
  32. !
  33. label
  34. ^ 'Classes'
  35. ! !
  36. HLBrowserGoToCommand subclass: #HLGoToMethodsCommand
  37. instanceVariableNames: ''
  38. package: 'Helios-Commands-Browser'!
  39. !HLGoToMethodsCommand methodsFor: 'executing'!
  40. execute
  41. self model focusOnMethods
  42. ! !
  43. !HLGoToMethodsCommand class methodsFor: 'accessing'!
  44. key
  45. "m"
  46. ^ 77
  47. !
  48. label
  49. ^ 'Methods'
  50. ! !
  51. HLBrowserGoToCommand subclass: #HLGoToPackagesCommand
  52. instanceVariableNames: ''
  53. package: 'Helios-Commands-Browser'!
  54. !HLGoToPackagesCommand methodsFor: 'executing'!
  55. execute
  56. self model focusOnPackages
  57. ! !
  58. !HLGoToPackagesCommand class methodsFor: 'accessing'!
  59. key
  60. "p"
  61. ^ 80
  62. !
  63. label
  64. ^ 'Packages'
  65. ! !
  66. HLBrowserGoToCommand subclass: #HLGoToProtocolsCommand
  67. instanceVariableNames: ''
  68. package: 'Helios-Commands-Browser'!
  69. !HLGoToProtocolsCommand methodsFor: 'executing'!
  70. execute
  71. self model focusOnProtocols
  72. ! !
  73. !HLGoToProtocolsCommand class methodsFor: 'accessing'!
  74. key
  75. "p"
  76. ^ 84
  77. !
  78. label
  79. ^ 'Protocols'
  80. ! !
  81. HLBrowserGoToCommand subclass: #HLGoToSourceCodeCommand
  82. instanceVariableNames: ''
  83. package: 'Helios-Commands-Browser'!
  84. !HLGoToSourceCodeCommand methodsFor: 'executing'!
  85. execute
  86. self model focusOnSourceCode
  87. ! !
  88. !HLGoToSourceCodeCommand class methodsFor: 'accessing'!
  89. key
  90. "s"
  91. ^ 83
  92. !
  93. label
  94. ^ 'Source code'
  95. ! !
  96. HLBrowserCommand subclass: #HLMoveToCommand
  97. instanceVariableNames: ''
  98. package: 'Helios-Commands-Browser'!
  99. !HLMoveToCommand class methodsFor: 'accessing'!
  100. key
  101. ^ 77
  102. !
  103. label
  104. ^ 'Move'
  105. ! !
  106. HLMoveToCommand subclass: #HLMoveMethodToCommand
  107. instanceVariableNames: ''
  108. package: 'Helios-Commands-Browser'!
  109. !HLMoveMethodToCommand methodsFor: 'testing'!
  110. isActive
  111. ^ self model selectedMethod notNil
  112. ! !
  113. !HLMoveMethodToCommand class methodsFor: 'accessing'!
  114. key
  115. ^ 77
  116. !
  117. label
  118. ^ 'Method'
  119. ! !
  120. HLMoveMethodToCommand subclass: #HLMoveMethodToClassCommand
  121. instanceVariableNames: ''
  122. package: 'Helios-Commands-Browser'!
  123. !HLMoveMethodToClassCommand methodsFor: 'accessing'!
  124. displayLabel
  125. ^ 'select a class'
  126. !
  127. inputLabel
  128. ^ 'Move method to class:'
  129. ! !
  130. !HLMoveMethodToClassCommand methodsFor: 'executing'!
  131. execute
  132. self model moveMethodToClass: self input ifAbsent: self errorBlock
  133. ! !
  134. !HLMoveMethodToClassCommand methodsFor: 'testing'!
  135. isInputRequired
  136. ^ true
  137. ! !
  138. !HLMoveMethodToClassCommand class methodsFor: 'accessing'!
  139. key
  140. ^ 67
  141. !
  142. label
  143. ^ 'to class'
  144. ! !
  145. HLMoveMethodToCommand subclass: #HLMoveMethodToProtocolCommand
  146. instanceVariableNames: ''
  147. package: 'Helios-Commands-Browser'!
  148. !HLMoveMethodToProtocolCommand methodsFor: 'executing'!
  149. execute
  150. self model moveMethodToProtocol
  151. ! !
  152. !HLMoveMethodToProtocolCommand class methodsFor: 'accessing'!
  153. key
  154. ^ 84
  155. !
  156. label
  157. ^ 'to protocol'
  158. ! !
  159. HLBrowserCommand subclass: #HLToggleCommand
  160. instanceVariableNames: ''
  161. package: 'Helios-Commands-Browser'!
  162. !HLToggleCommand class methodsFor: 'accessing'!
  163. key
  164. ^ 84
  165. !
  166. label
  167. ^ 'Toggle'
  168. ! !
  169. HLToggleCommand subclass: #HLToggleClassSideCommand
  170. instanceVariableNames: ''
  171. package: 'Helios-Commands-Browser'!
  172. !HLToggleClassSideCommand methodsFor: 'executing'!
  173. execute
  174. self model showInstance: false
  175. ! !
  176. !HLToggleClassSideCommand class methodsFor: 'accessing'!
  177. key
  178. "c"
  179. ^ 67
  180. !
  181. label
  182. ^ 'Class side'
  183. ! !
  184. HLToggleCommand subclass: #HLToggleInstanceSideCommand
  185. instanceVariableNames: ''
  186. package: 'Helios-Commands-Browser'!
  187. !HLToggleInstanceSideCommand methodsFor: 'executing'!
  188. execute
  189. self model showInstance: true
  190. ! !
  191. !HLToggleInstanceSideCommand class methodsFor: 'accessing'!
  192. key
  193. "i"
  194. ^ 73
  195. !
  196. label
  197. ^ 'Instance side'
  198. ! !