2
0

Helios-Commands-Browser.deploy.js 12 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422
  1. (function(smalltalk,nil,_st){
  2. smalltalk.addPackage('Helios-Commands-Browser');
  3. smalltalk.addClass('HLBrowserCommand', smalltalk.HLToolCommand, [], 'Helios-Commands-Browser');
  4. smalltalk.addMethod(
  5. smalltalk.method({
  6. selector: "isValidFor:",
  7. fn: function (aModel){
  8. var self=this;
  9. return smalltalk.withContext(function($ctx1) {
  10. var $1;
  11. $1=_st(aModel)._isBrowserModel();
  12. return $1;
  13. }, function($ctx1) {$ctx1.fill(self,"isValidFor:",{aModel:aModel},smalltalk.HLBrowserCommand.klass)})},
  14. messageSends: ["isBrowserModel"]}),
  15. smalltalk.HLBrowserCommand.klass);
  16. smalltalk.addClass('HLBrowserGoToCommand', smalltalk.HLBrowserCommand, [], 'Helios-Commands-Browser');
  17. smalltalk.addMethod(
  18. smalltalk.method({
  19. selector: "isValidFor:",
  20. fn: function (aModel){
  21. var self=this;
  22. return smalltalk.withContext(function($ctx1) {
  23. var $1;
  24. $1=_st(aModel)._isBrowserModel();
  25. return $1;
  26. }, function($ctx1) {$ctx1.fill(self,"isValidFor:",{aModel:aModel},smalltalk.HLBrowserGoToCommand.klass)})},
  27. messageSends: ["isBrowserModel"]}),
  28. smalltalk.HLBrowserGoToCommand.klass);
  29. smalltalk.addMethod(
  30. smalltalk.method({
  31. selector: "key",
  32. fn: function (){
  33. var self=this;
  34. return smalltalk.withContext(function($ctx1) {
  35. return "g";
  36. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLBrowserGoToCommand.klass)})},
  37. messageSends: []}),
  38. smalltalk.HLBrowserGoToCommand.klass);
  39. smalltalk.addMethod(
  40. smalltalk.method({
  41. selector: "label",
  42. fn: function (){
  43. var self=this;
  44. return smalltalk.withContext(function($ctx1) {
  45. return "Go to";
  46. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLBrowserGoToCommand.klass)})},
  47. messageSends: []}),
  48. smalltalk.HLBrowserGoToCommand.klass);
  49. smalltalk.addClass('HLGoToClassesCommand', smalltalk.HLBrowserGoToCommand, [], 'Helios-Commands-Browser');
  50. smalltalk.addMethod(
  51. smalltalk.method({
  52. selector: "execute",
  53. fn: function (){
  54. var self=this;
  55. return smalltalk.withContext(function($ctx1) {
  56. _st(self._model())._focusOnClasses();
  57. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLGoToClassesCommand)})},
  58. messageSends: ["focusOnClasses", "model"]}),
  59. smalltalk.HLGoToClassesCommand);
  60. smalltalk.addMethod(
  61. smalltalk.method({
  62. selector: "key",
  63. fn: function (){
  64. var self=this;
  65. return smalltalk.withContext(function($ctx1) {
  66. return "c";
  67. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLGoToClassesCommand.klass)})},
  68. messageSends: []}),
  69. smalltalk.HLGoToClassesCommand.klass);
  70. smalltalk.addMethod(
  71. smalltalk.method({
  72. selector: "label",
  73. fn: function (){
  74. var self=this;
  75. return smalltalk.withContext(function($ctx1) {
  76. return "Classes";
  77. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLGoToClassesCommand.klass)})},
  78. messageSends: []}),
  79. smalltalk.HLGoToClassesCommand.klass);
  80. smalltalk.addClass('HLGoToMethodsCommand', smalltalk.HLBrowserGoToCommand, [], 'Helios-Commands-Browser');
  81. smalltalk.addMethod(
  82. smalltalk.method({
  83. selector: "execute",
  84. fn: function (){
  85. var self=this;
  86. return smalltalk.withContext(function($ctx1) {
  87. _st(self._model())._focusOnMethods();
  88. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLGoToMethodsCommand)})},
  89. messageSends: ["focusOnMethods", "model"]}),
  90. smalltalk.HLGoToMethodsCommand);
  91. smalltalk.addMethod(
  92. smalltalk.method({
  93. selector: "key",
  94. fn: function (){
  95. var self=this;
  96. return smalltalk.withContext(function($ctx1) {
  97. return "m";
  98. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLGoToMethodsCommand.klass)})},
  99. messageSends: []}),
  100. smalltalk.HLGoToMethodsCommand.klass);
  101. smalltalk.addMethod(
  102. smalltalk.method({
  103. selector: "label",
  104. fn: function (){
  105. var self=this;
  106. return smalltalk.withContext(function($ctx1) {
  107. return "Methods";
  108. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLGoToMethodsCommand.klass)})},
  109. messageSends: []}),
  110. smalltalk.HLGoToMethodsCommand.klass);
  111. smalltalk.addClass('HLGoToPackagesCommand', smalltalk.HLBrowserGoToCommand, [], 'Helios-Commands-Browser');
  112. smalltalk.addMethod(
  113. smalltalk.method({
  114. selector: "execute",
  115. fn: function (){
  116. var self=this;
  117. return smalltalk.withContext(function($ctx1) {
  118. _st(self._model())._focusOnPackages();
  119. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLGoToPackagesCommand)})},
  120. messageSends: ["focusOnPackages", "model"]}),
  121. smalltalk.HLGoToPackagesCommand);
  122. smalltalk.addMethod(
  123. smalltalk.method({
  124. selector: "key",
  125. fn: function (){
  126. var self=this;
  127. return smalltalk.withContext(function($ctx1) {
  128. return "p";
  129. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLGoToPackagesCommand.klass)})},
  130. messageSends: []}),
  131. smalltalk.HLGoToPackagesCommand.klass);
  132. smalltalk.addMethod(
  133. smalltalk.method({
  134. selector: "label",
  135. fn: function (){
  136. var self=this;
  137. return smalltalk.withContext(function($ctx1) {
  138. return "Packages";
  139. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLGoToPackagesCommand.klass)})},
  140. messageSends: []}),
  141. smalltalk.HLGoToPackagesCommand.klass);
  142. smalltalk.addClass('HLGoToProtocolsCommand', smalltalk.HLBrowserGoToCommand, [], 'Helios-Commands-Browser');
  143. smalltalk.addMethod(
  144. smalltalk.method({
  145. selector: "execute",
  146. fn: function (){
  147. var self=this;
  148. return smalltalk.withContext(function($ctx1) {
  149. _st(self._model())._focusOnProtocols();
  150. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLGoToProtocolsCommand)})},
  151. messageSends: ["focusOnProtocols", "model"]}),
  152. smalltalk.HLGoToProtocolsCommand);
  153. smalltalk.addMethod(
  154. smalltalk.method({
  155. selector: "key",
  156. fn: function (){
  157. var self=this;
  158. return smalltalk.withContext(function($ctx1) {
  159. return "t";
  160. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLGoToProtocolsCommand.klass)})},
  161. messageSends: []}),
  162. smalltalk.HLGoToProtocolsCommand.klass);
  163. smalltalk.addMethod(
  164. smalltalk.method({
  165. selector: "label",
  166. fn: function (){
  167. var self=this;
  168. return smalltalk.withContext(function($ctx1) {
  169. return "Protocols";
  170. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLGoToProtocolsCommand.klass)})},
  171. messageSends: []}),
  172. smalltalk.HLGoToProtocolsCommand.klass);
  173. smalltalk.addClass('HLGoToSourceCodeCommand', smalltalk.HLBrowserGoToCommand, [], 'Helios-Commands-Browser');
  174. smalltalk.addMethod(
  175. smalltalk.method({
  176. selector: "execute",
  177. fn: function (){
  178. var self=this;
  179. return smalltalk.withContext(function($ctx1) {
  180. _st(self._model())._focusOnSourceCode();
  181. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLGoToSourceCodeCommand)})},
  182. messageSends: ["focusOnSourceCode", "model"]}),
  183. smalltalk.HLGoToSourceCodeCommand);
  184. smalltalk.addMethod(
  185. smalltalk.method({
  186. selector: "key",
  187. fn: function (){
  188. var self=this;
  189. return smalltalk.withContext(function($ctx1) {
  190. return "s";
  191. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLGoToSourceCodeCommand.klass)})},
  192. messageSends: []}),
  193. smalltalk.HLGoToSourceCodeCommand.klass);
  194. smalltalk.addMethod(
  195. smalltalk.method({
  196. selector: "label",
  197. fn: function (){
  198. var self=this;
  199. return smalltalk.withContext(function($ctx1) {
  200. return "Source code";
  201. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLGoToSourceCodeCommand.klass)})},
  202. messageSends: []}),
  203. smalltalk.HLGoToSourceCodeCommand.klass);
  204. smalltalk.addClass('HLEditCommentCommand', smalltalk.HLBrowserCommand, [], 'Helios-Commands-Browser');
  205. smalltalk.addMethod(
  206. smalltalk.method({
  207. selector: "execute",
  208. fn: function (){
  209. var self=this;
  210. return smalltalk.withContext(function($ctx1) {
  211. _st(self._model())._editComment();
  212. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLEditCommentCommand)})},
  213. messageSends: ["editComment", "model"]}),
  214. smalltalk.HLEditCommentCommand);
  215. smalltalk.addMethod(
  216. smalltalk.method({
  217. selector: "isActive",
  218. fn: function (){
  219. var self=this;
  220. return smalltalk.withContext(function($ctx1) {
  221. var $1;
  222. $1=_st(_st(self._model())._showComment())._and_((function(){
  223. return smalltalk.withContext(function($ctx2) {
  224. return _st(_st(self._model())._selectedClass())._notNil();
  225. }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
  226. return $1;
  227. }, function($ctx1) {$ctx1.fill(self,"isActive",{},smalltalk.HLEditCommentCommand)})},
  228. messageSends: ["and:", "notNil", "selectedClass", "model", "showComment"]}),
  229. smalltalk.HLEditCommentCommand);
  230. smalltalk.addMethod(
  231. smalltalk.method({
  232. selector: "key",
  233. fn: function (){
  234. var self=this;
  235. return smalltalk.withContext(function($ctx1) {
  236. return "d";
  237. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLEditCommentCommand.klass)})},
  238. messageSends: []}),
  239. smalltalk.HLEditCommentCommand.klass);
  240. smalltalk.addMethod(
  241. smalltalk.method({
  242. selector: "label",
  243. fn: function (){
  244. var self=this;
  245. return smalltalk.withContext(function($ctx1) {
  246. return "Edit documentation";
  247. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLEditCommentCommand.klass)})},
  248. messageSends: []}),
  249. smalltalk.HLEditCommentCommand.klass);
  250. smalltalk.addClass('HLToggleCommand', smalltalk.HLBrowserCommand, [], 'Helios-Commands-Browser');
  251. smalltalk.addMethod(
  252. smalltalk.method({
  253. selector: "key",
  254. fn: function (){
  255. var self=this;
  256. return smalltalk.withContext(function($ctx1) {
  257. return "t";
  258. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLToggleCommand.klass)})},
  259. messageSends: []}),
  260. smalltalk.HLToggleCommand.klass);
  261. smalltalk.addMethod(
  262. smalltalk.method({
  263. selector: "label",
  264. fn: function (){
  265. var self=this;
  266. return smalltalk.withContext(function($ctx1) {
  267. return "Toggle";
  268. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLToggleCommand.klass)})},
  269. messageSends: []}),
  270. smalltalk.HLToggleCommand.klass);
  271. smalltalk.addClass('HLToggleClassCommentCommand', smalltalk.HLToggleCommand, [], 'Helios-Commands-Browser');
  272. smalltalk.addMethod(
  273. smalltalk.method({
  274. selector: "execute",
  275. fn: function (){
  276. var self=this;
  277. return smalltalk.withContext(function($ctx1) {
  278. _st(self._model())._showComment_(_st(_st(self._model())._showComment())._not());
  279. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLToggleClassCommentCommand)})},
  280. messageSends: ["showComment:", "not", "showComment", "model"]}),
  281. smalltalk.HLToggleClassCommentCommand);
  282. smalltalk.addMethod(
  283. smalltalk.method({
  284. selector: "key",
  285. fn: function (){
  286. var self=this;
  287. return smalltalk.withContext(function($ctx1) {
  288. return "d";
  289. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLToggleClassCommentCommand.klass)})},
  290. messageSends: []}),
  291. smalltalk.HLToggleClassCommentCommand.klass);
  292. smalltalk.addMethod(
  293. smalltalk.method({
  294. selector: "label",
  295. fn: function (){
  296. var self=this;
  297. return smalltalk.withContext(function($ctx1) {
  298. return "Documentation";
  299. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLToggleClassCommentCommand.klass)})},
  300. messageSends: []}),
  301. smalltalk.HLToggleClassCommentCommand.klass);
  302. smalltalk.addClass('HLToggleClassSideCommand', smalltalk.HLToggleCommand, [], 'Helios-Commands-Browser');
  303. smalltalk.addMethod(
  304. smalltalk.method({
  305. selector: "execute",
  306. fn: function (){
  307. var self=this;
  308. return smalltalk.withContext(function($ctx1) {
  309. _st(self._model())._showInstance_(false);
  310. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLToggleClassSideCommand)})},
  311. messageSends: ["showInstance:", "model"]}),
  312. smalltalk.HLToggleClassSideCommand);
  313. smalltalk.addMethod(
  314. smalltalk.method({
  315. selector: "key",
  316. fn: function (){
  317. var self=this;
  318. return smalltalk.withContext(function($ctx1) {
  319. return "c";
  320. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLToggleClassSideCommand.klass)})},
  321. messageSends: []}),
  322. smalltalk.HLToggleClassSideCommand.klass);
  323. smalltalk.addMethod(
  324. smalltalk.method({
  325. selector: "label",
  326. fn: function (){
  327. var self=this;
  328. return smalltalk.withContext(function($ctx1) {
  329. return "Class side";
  330. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLToggleClassSideCommand.klass)})},
  331. messageSends: []}),
  332. smalltalk.HLToggleClassSideCommand.klass);
  333. smalltalk.addClass('HLToggleInstanceSideCommand', smalltalk.HLToggleCommand, [], 'Helios-Commands-Browser');
  334. smalltalk.addMethod(
  335. smalltalk.method({
  336. selector: "execute",
  337. fn: function (){
  338. var self=this;
  339. return smalltalk.withContext(function($ctx1) {
  340. _st(self._model())._showInstance_(true);
  341. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLToggleInstanceSideCommand)})},
  342. messageSends: ["showInstance:", "model"]}),
  343. smalltalk.HLToggleInstanceSideCommand);
  344. smalltalk.addMethod(
  345. smalltalk.method({
  346. selector: "key",
  347. fn: function (){
  348. var self=this;
  349. return smalltalk.withContext(function($ctx1) {
  350. return "i";
  351. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLToggleInstanceSideCommand.klass)})},
  352. messageSends: []}),
  353. smalltalk.HLToggleInstanceSideCommand.klass);
  354. smalltalk.addMethod(
  355. smalltalk.method({
  356. selector: "label",
  357. fn: function (){
  358. var self=this;
  359. return smalltalk.withContext(function($ctx1) {
  360. return "Instance side";
  361. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLToggleInstanceSideCommand.klass)})},
  362. messageSends: []}),
  363. smalltalk.HLToggleInstanceSideCommand.klass);
  364. })(global_smalltalk,global_nil,global__st);