Helios-Commands-Browser.deploy.js 12 KB

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