2
0

Helios-Commands-Browser.deploy.js 13 KB

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