1
0

Helios-Browser.deploy.js 37 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443
  1. smalltalk.addPackage('Helios-Browser', {});
  2. smalltalk.addClass('HLBrowser', smalltalk.HLWidget, ['model', 'packagesListWidget', 'classesListWidget', 'protocolsListWidget', 'methodsListWidget', 'sourceWidget'], 'Helios-Browser');
  3. smalltalk.addMethod(
  4. "_announcer",
  5. smalltalk.method({
  6. selector: "announcer",
  7. fn: function (){
  8. var self=this;
  9. var $1;
  10. $1=smalltalk.send(smalltalk.send(self,"_model",[]),"_announcer",[]);
  11. return $1;
  12. }
  13. }),
  14. smalltalk.HLBrowser);
  15. smalltalk.addMethod(
  16. "_classesListWidget",
  17. smalltalk.method({
  18. selector: "classesListWidget",
  19. fn: function (){
  20. var self=this;
  21. var $1;
  22. if(($receiver = self["@classesListWidget"]) == nil || $receiver == undefined){
  23. self["@classesListWidget"]=smalltalk.send((smalltalk.HLClassesListWidget || HLClassesListWidget),"_on_",[smalltalk.send(self,"_model",[])]);
  24. self["@classesListWidget"];
  25. $1=smalltalk.send(self["@classesListWidget"],"_next_",[smalltalk.send(self,"_protocolsListWidget",[])]);
  26. } else {
  27. $1=self["@classesListWidget"];
  28. };
  29. return $1;
  30. }
  31. }),
  32. smalltalk.HLBrowser);
  33. smalltalk.addMethod(
  34. "_environment",
  35. smalltalk.method({
  36. selector: "environment",
  37. fn: function (){
  38. var self=this;
  39. var $1;
  40. $1=smalltalk.send(smalltalk.send(self,"_model",[]),"_environment",[]);
  41. return $1;
  42. }
  43. }),
  44. smalltalk.HLBrowser);
  45. smalltalk.addMethod(
  46. "_methodsListWidget",
  47. smalltalk.method({
  48. selector: "methodsListWidget",
  49. fn: function (){
  50. var self=this;
  51. var $1;
  52. if(($receiver = self["@methodsListWidget"]) == nil || $receiver == undefined){
  53. self["@methodsListWidget"]=smalltalk.send((smalltalk.HLMethodsListWidget || HLMethodsListWidget),"_on_",[smalltalk.send(self,"_model",[])]);
  54. $1=self["@methodsListWidget"];
  55. } else {
  56. $1=self["@methodsListWidget"];
  57. };
  58. return $1;
  59. }
  60. }),
  61. smalltalk.HLBrowser);
  62. smalltalk.addMethod(
  63. "_model",
  64. smalltalk.method({
  65. selector: "model",
  66. fn: function (){
  67. var self=this;
  68. var $1;
  69. if(($receiver = self["@model"]) == nil || $receiver == undefined){
  70. self["@model"]=smalltalk.send((smalltalk.HLBrowserModel || HLBrowserModel),"_new",[]);
  71. $1=self["@model"];
  72. } else {
  73. $1=self["@model"];
  74. };
  75. return $1;
  76. }
  77. }),
  78. smalltalk.HLBrowser);
  79. smalltalk.addMethod(
  80. "_model_",
  81. smalltalk.method({
  82. selector: "model:",
  83. fn: function (aModel){
  84. var self=this;
  85. self["@model"]=aModel;
  86. return self}
  87. }),
  88. smalltalk.HLBrowser);
  89. smalltalk.addMethod(
  90. "_packagesListWidget",
  91. smalltalk.method({
  92. selector: "packagesListWidget",
  93. fn: function (){
  94. var self=this;
  95. var $1;
  96. if(($receiver = self["@packagesListWidget"]) == nil || $receiver == undefined){
  97. self["@packagesListWidget"]=smalltalk.send((smalltalk.HLPackagesListWidget || HLPackagesListWidget),"_on_",[smalltalk.send(self,"_model",[])]);
  98. self["@packagesListWidget"];
  99. $1=smalltalk.send(self["@packagesListWidget"],"_next_",[smalltalk.send(self,"_classesListWidget",[])]);
  100. } else {
  101. $1=self["@packagesListWidget"];
  102. };
  103. return $1;
  104. }
  105. }),
  106. smalltalk.HLBrowser);
  107. smalltalk.addMethod(
  108. "_protocolsListWidget",
  109. smalltalk.method({
  110. selector: "protocolsListWidget",
  111. fn: function (){
  112. var self=this;
  113. var $1;
  114. if(($receiver = self["@protocolsListWidget"]) == nil || $receiver == undefined){
  115. self["@protocolsListWidget"]=smalltalk.send((smalltalk.HLProtocolsListWidget || HLProtocolsListWidget),"_on_",[smalltalk.send(self,"_model",[])]);
  116. self["@protocolsListWidget"];
  117. $1=smalltalk.send(self["@protocolsListWidget"],"_next_",[smalltalk.send(self,"_methodsListWidget",[])]);
  118. } else {
  119. $1=self["@protocolsListWidget"];
  120. };
  121. return $1;
  122. }
  123. }),
  124. smalltalk.HLBrowser);
  125. smalltalk.addMethod(
  126. "_registerBindingsOn_",
  127. smalltalk.method({
  128. selector: "registerBindingsOn:",
  129. fn: function (aBindingGroup){
  130. var self=this;
  131. var $1;
  132. smalltalk.send(aBindingGroup,"_addGroupKey_labelled_",[(66),"Browse"]);
  133. $1=smalltalk.send(aBindingGroup,"_addGroupKey_labelled_",[(71),"Go to"]);
  134. return self}
  135. }),
  136. smalltalk.HLBrowser);
  137. smalltalk.addMethod(
  138. "_renderContentOn_",
  139. smalltalk.method({
  140. selector: "renderContentOn:",
  141. fn: function (html){
  142. var self=this;
  143. smalltalk.send(html,"_with_",[smalltalk.send((smalltalk.HLContainer || HLContainer),"_with_",[smalltalk.send((smalltalk.HLHorizontalSplitter || HLHorizontalSplitter),"_with_with_",[smalltalk.send((smalltalk.HLVerticalSplitter || HLVerticalSplitter),"_with_with_",[smalltalk.send((smalltalk.HLVerticalSplitter || HLVerticalSplitter),"_with_with_",[smalltalk.send(self,"_packagesListWidget",[]),smalltalk.send(self,"_classesListWidget",[])]),smalltalk.send((smalltalk.HLVerticalSplitter || HLVerticalSplitter),"_with_with_",[smalltalk.send(self,"_protocolsListWidget",[]),smalltalk.send(self,"_methodsListWidget",[])])]),smalltalk.send(self,"_sourceWidget",[])])])]);
  144. return self}
  145. }),
  146. smalltalk.HLBrowser);
  147. smalltalk.addMethod(
  148. "_sourceWidget",
  149. smalltalk.method({
  150. selector: "sourceWidget",
  151. fn: function (){
  152. var self=this;
  153. var $1;
  154. if(($receiver = self["@sourceWidget"]) == nil || $receiver == undefined){
  155. self["@sourceWidget"]=smalltalk.send((smalltalk.HLBrowserSourceWidget || HLBrowserSourceWidget),"_on_",[smalltalk.send(self,"_model",[])]);
  156. $1=self["@sourceWidget"];
  157. } else {
  158. $1=self["@sourceWidget"];
  159. };
  160. return $1;
  161. }
  162. }),
  163. smalltalk.HLBrowser);
  164. smalltalk.HLBrowser.klass.iVarNames = ['nextId'];
  165. smalltalk.addMethod(
  166. "_canBeOpenAsTab",
  167. smalltalk.method({
  168. selector: "canBeOpenAsTab",
  169. fn: function () {
  170. var self = this;
  171. return true;
  172. }
  173. }),
  174. smalltalk.HLBrowser.klass);
  175. smalltalk.addMethod(
  176. "_nextId",
  177. smalltalk.method({
  178. selector: "nextId",
  179. fn: function () {
  180. var self = this;
  181. var $1;
  182. if (($receiver = self['@nextId']) == nil || $receiver == undefined) {
  183. self['@nextId'] = 0;
  184. self['@nextId'];
  185. } else {
  186. self['@nextId'];
  187. }
  188. $1 = smalltalk.send("browser_", "__comma", [smalltalk.send(smalltalk.send(self['@nextId'], "__plus", [1]), "_asString", [])]);
  189. return $1;
  190. }
  191. }),
  192. smalltalk.HLBrowser.klass);
  193. smalltalk.addMethod(
  194. "_tabLabel",
  195. smalltalk.method({
  196. selector: "tabLabel",
  197. fn: function () {
  198. var self = this;
  199. return "Browser";
  200. }
  201. }),
  202. smalltalk.HLBrowser.klass);
  203. smalltalk.addMethod(
  204. "_tabPriority",
  205. smalltalk.method({
  206. selector: "tabPriority",
  207. fn: function () {
  208. var self = this;
  209. return 0;
  210. }
  211. }),
  212. smalltalk.HLBrowser.klass);
  213. smalltalk.addClass('HLBrowserListWidget', smalltalk.HLNavigationListWidget, ['model'], 'Helios-Browser');
  214. smalltalk.addMethod(
  215. "_ensureSelection",
  216. smalltalk.method({
  217. selector: "ensureSelection",
  218. fn: function (){
  219. var self=this;
  220. var $1;
  221. $1=smalltalk.send(self,"_selectedItem",[]);
  222. if(($receiver = $1) == nil || $receiver == undefined){
  223. smalltalk.send(smalltalk.send(self,"_items",[]),"_ifNotEmpty_",[(function(){
  224. smalltalk.send(self,"_selectItem_",[smalltalk.send(smalltalk.send(self,"_items",[]),"_first",[])]);
  225. return smalltalk.send(self,"_refresh",[]);
  226. })]);
  227. } else {
  228. smalltalk.send(self,"_selectItem_",[smalltalk.send(self,"_selectedItem",[])]);
  229. };
  230. return self}
  231. }),
  232. smalltalk.HLBrowserListWidget);
  233. smalltalk.addMethod(
  234. "_focus",
  235. smalltalk.method({
  236. selector: "focus",
  237. fn: function (){
  238. var self=this;
  239. smalltalk.send(self,"_focus",[],smalltalk.HLNavigationListWidget);
  240. smalltalk.send(self,"_ensureSelection",[]);
  241. return self}
  242. }),
  243. smalltalk.HLBrowserListWidget);
  244. smalltalk.addMethod(
  245. "_model",
  246. smalltalk.method({
  247. selector: "model",
  248. fn: function (){
  249. var self=this;
  250. return self["@model"];
  251. }
  252. }),
  253. smalltalk.HLBrowserListWidget);
  254. smalltalk.addMethod(
  255. "_model_",
  256. smalltalk.method({
  257. selector: "model:",
  258. fn: function (aBrowserModel){
  259. var self=this;
  260. self["@model"]=aBrowserModel;
  261. smalltalk.send(self["@model"],"_subscribe_",[self]);
  262. return self}
  263. }),
  264. smalltalk.HLBrowserListWidget);
  265. smalltalk.addMethod(
  266. "_on_",
  267. smalltalk.method({
  268. selector: "on:",
  269. fn: function (aModel){
  270. var self=this;
  271. var $2,$3,$1;
  272. $2=smalltalk.send(self,"_new",[]);
  273. smalltalk.send($2,"_model_",[aModel]);
  274. $3=smalltalk.send($2,"_yourself",[]);
  275. $1=$3;
  276. return $1;
  277. }
  278. }),
  279. smalltalk.HLBrowserListWidget.klass);
  280. smalltalk.addClass('HLClassesListWidget', smalltalk.HLBrowserListWidget, [], 'Helios-Browser');
  281. smalltalk.addMethod(
  282. "_focusMethodsListWidget",
  283. smalltalk.method({
  284. selector: "focusMethodsListWidget",
  285. fn: function (){
  286. var self=this;
  287. smalltalk.send(smalltalk.send(smalltalk.send(self,"_model",[]),"_announcer",[]),"_announce_",[smalltalk.send((smalltalk.HLMethodsListFocus || HLMethodsListFocus),"_new",[])]);
  288. return self}
  289. }),
  290. smalltalk.HLClassesListWidget);
  291. smalltalk.addMethod(
  292. "_focusProtocolsListWidget",
  293. smalltalk.method({
  294. selector: "focusProtocolsListWidget",
  295. fn: function (){
  296. var self=this;
  297. smalltalk.send(smalltalk.send(smalltalk.send(self,"_model",[]),"_announcer",[]),"_announce_",[smalltalk.send((smalltalk.HLProtocolsListFocus || HLProtocolsListFocus),"_new",[])]);
  298. return self}
  299. }),
  300. smalltalk.HLClassesListWidget);
  301. smalltalk.addMethod(
  302. "_getChildrenOf_",
  303. smalltalk.method({
  304. selector: "getChildrenOf:",
  305. fn: function (aClass){
  306. var self=this;
  307. var $1;
  308. $1=smalltalk.send(smalltalk.send(self,"_items",[]),"_select_",[(function(each){
  309. return smalltalk.send(smalltalk.send(each,"_superclass",[]),"__eq",[aClass]);
  310. })]);
  311. return $1;
  312. }
  313. }),
  314. smalltalk.HLClassesListWidget);
  315. smalltalk.addMethod(
  316. "_getRootClassesOf_",
  317. smalltalk.method({
  318. selector: "getRootClassesOf:",
  319. fn: function (aCollection){
  320. var self=this;
  321. var $1;
  322. $1=smalltalk.send(aCollection,"_select_",[(function(each){
  323. return smalltalk.send(smalltalk.send(smalltalk.send(each,"_allSuperclasses",[]),"_intersection_",[aCollection]),"_isEmpty",[]);
  324. })]);
  325. return $1;
  326. }
  327. }),
  328. smalltalk.HLClassesListWidget);
  329. smalltalk.addMethod(
  330. "_iconForItem_",
  331. smalltalk.method({
  332. selector: "iconForItem:",
  333. fn: function (aClass){
  334. var self=this;
  335. var $2,$1;
  336. $2=smalltalk.send(smalltalk.send(smalltalk.send(aClass,"_theNonMetaClass",[]),"_comment",[]),"_isEmpty",[]);
  337. if(smalltalk.assert($2)){
  338. $1="icon-question-sign";
  339. } else {
  340. $1="icon-none";
  341. };
  342. return $1;
  343. }
  344. }),
  345. smalltalk.HLClassesListWidget);
  346. smalltalk.addMethod(
  347. "_packageSelected_",
  348. smalltalk.method({
  349. selector: "packageSelected:",
  350. fn: function (aPackage){
  351. var self=this;
  352. var $1;
  353. smalltalk.send(self,"_selectedItem_",[nil]);
  354. if(($receiver = aPackage) == nil || $receiver == undefined){
  355. $1=[];
  356. } else {
  357. $1=smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(aPackage,"_classes",[]),"_collect_",[(function(each){
  358. return smalltalk.send(each,"_theNonMetaClass",[]);
  359. })]),"_asSet",[]),"_asArray",[]);
  360. };
  361. smalltalk.send(self,"_items_",[$1]);
  362. smalltalk.send(self,"_refresh",[]);
  363. return self}
  364. }),
  365. smalltalk.HLClassesListWidget);
  366. smalltalk.addMethod(
  367. "_renderButtonsOn_",
  368. smalltalk.method({
  369. selector: "renderButtonsOn:",
  370. fn: function (html){
  371. var self=this;
  372. var $1,$3,$4,$5,$6,$7,$8,$2,$9,$10;
  373. $1=smalltalk.send(html,"_div",[]);
  374. smalltalk.send($1,"_class_",["btn-group"]);
  375. smalltalk.send($1,"_at_put_",["data-toggle","buttons-radio"]);
  376. $2=smalltalk.send($1,"_with_",[(function(){
  377. $3=smalltalk.send(html,"_button",[]);
  378. smalltalk.send($3,"_class_",[smalltalk.send((smalltalk.String || String),"_streamContents_",[(function(str){
  379. smalltalk.send(str,"_nextPutAll_",["btn"]);
  380. $4=smalltalk.send(smalltalk.send(self,"_model",[]),"_showInstance",[]);
  381. if(smalltalk.assert($4)){
  382. return smalltalk.send(str,"_nextPutAll_",[" active"]);
  383. };
  384. })])]);
  385. smalltalk.send($3,"_with_",["Instance"]);
  386. $5=smalltalk.send($3,"_onClick_",[(function(){
  387. return smalltalk.send(smalltalk.send(self,"_model",[]),"_showInstance_",[true]);
  388. })]);
  389. $5;
  390. $6=smalltalk.send(html,"_button",[]);
  391. smalltalk.send($6,"_class_",[smalltalk.send((smalltalk.String || String),"_streamContents_",[(function(str){
  392. smalltalk.send(str,"_nextPutAll_",["btn"]);
  393. $7=smalltalk.send(smalltalk.send(self,"_model",[]),"_showInstance",[]);
  394. if(! smalltalk.assert($7)){
  395. return smalltalk.send(str,"_nextPutAll_",[" active"]);
  396. };
  397. })])]);
  398. smalltalk.send($6,"_with_",["Class"]);
  399. $8=smalltalk.send($6,"_onClick_",[(function(){
  400. return smalltalk.send(smalltalk.send(self,"_model",[]),"_showInstance_",[false]);
  401. })]);
  402. return $8;
  403. })]);
  404. $9=smalltalk.send(html,"_button",[]);
  405. smalltalk.send($9,"_class_",["btn"]);
  406. smalltalk.send($9,"_at_put_",["data-toggle","button"]);
  407. $10=smalltalk.send($9,"_with_",["Comment"]);
  408. return self}
  409. }),
  410. smalltalk.HLClassesListWidget);
  411. smalltalk.addMethod(
  412. "_renderItem_level_on_",
  413. smalltalk.method({
  414. selector: "renderItem:level:on:",
  415. fn: function (aClass,anInteger,html){
  416. var self=this;
  417. var $2,$3,$1;
  418. var li;
  419. li=smalltalk.send(html,"_li",[]);
  420. smalltalk.send(li,"_at_put_",["list-data",smalltalk.send(smalltalk.send(self,"_items",[]),"_indexOf_",[aClass])]);
  421. smalltalk.send(li,"_class_",[smalltalk.send(self,"_cssClassForItem_",[aClass])]);
  422. $1=smalltalk.send(li,"_with_",[(function(){
  423. $2=smalltalk.send(html,"_a",[]);
  424. smalltalk.send($2,"_with_",[(function(){
  425. smalltalk.send(smalltalk.send(html,"_tag_",["i"]),"_class_",[smalltalk.send(self,"_iconForItem_",[aClass])]);
  426. return smalltalk.send(self,"_renderItemLabel_level_on_",[aClass,anInteger,html]);
  427. })]);
  428. $3=smalltalk.send($2,"_onClick_",[(function(){
  429. return smalltalk.send(self,"_activateListItem_",[smalltalk.send(li,"_asJQuery",[])]);
  430. })]);
  431. return $3;
  432. })]);
  433. smalltalk.send(smalltalk.send(self,"_getChildrenOf_",[aClass]),"_do_",[(function(each){
  434. return smalltalk.send(self,"_renderItem_level_on_",[each,smalltalk.send(anInteger,"__plus",[(1)]),html]);
  435. })]);
  436. return self}
  437. }),
  438. smalltalk.HLClassesListWidget);
  439. smalltalk.addMethod(
  440. "_renderItem_on_",
  441. smalltalk.method({
  442. selector: "renderItem:on:",
  443. fn: function (aClass,html){
  444. var self=this;
  445. smalltalk.send(self,"_renderItem_on_",[aClass,html],smalltalk.HLBrowserListWidget);
  446. smalltalk.send(smalltalk.send(self,"_getChildrenOf_",[aClass]),"_do_",[(function(each){
  447. return smalltalk.send(self,"_renderItem_level_on_",[each,(1),html]);
  448. })]);
  449. return self}
  450. }),
  451. smalltalk.HLClassesListWidget);
  452. smalltalk.addMethod(
  453. "_renderItemLabel_level_on_",
  454. smalltalk.method({
  455. selector: "renderItemLabel:level:on:",
  456. fn: function (aClass,anInteger,html){
  457. var self=this;
  458. smalltalk.send(smalltalk.send(smalltalk.send(html,"_span",[]),"_asJQuery",[]),"_html_",[smalltalk.send((smalltalk.String || String),"_streamContents_",[(function(str){
  459. smalltalk.send(anInteger,"_timesRepeat_",[(function(){
  460. return smalltalk.send(str,"_nextPutAll_",["    "]);
  461. })]);
  462. return smalltalk.send(str,"_nextPutAll_",[smalltalk.send(aClass,"_name",[])]);
  463. })])]);
  464. return self}
  465. }),
  466. smalltalk.HLClassesListWidget);
  467. smalltalk.addMethod(
  468. "_renderItemLabel_on_",
  469. smalltalk.method({
  470. selector: "renderItemLabel:on:",
  471. fn: function (aClass,html){
  472. var self=this;
  473. smalltalk.send(self,"_renderItemLabel_level_on_",[aClass,(0),html]);
  474. return self}
  475. }),
  476. smalltalk.HLClassesListWidget);
  477. smalltalk.addMethod(
  478. "_renderListOn_",
  479. smalltalk.method({
  480. selector: "renderListOn:",
  481. fn: function (html){
  482. var self=this;
  483. smalltalk.send(smalltalk.send(self,"_getRootClassesOf_",[smalltalk.send(self,"_items",[])]),"_do_",[(function(each){
  484. return smalltalk.send(self,"_renderItem_on_",[each,html]);
  485. })]);
  486. return self}
  487. }),
  488. smalltalk.HLClassesListWidget);
  489. smalltalk.addMethod(
  490. "_selectItem_",
  491. smalltalk.method({
  492. selector: "selectItem:",
  493. fn: function (aClass){
  494. var self=this;
  495. smalltalk.send(self,"_selectItem_",[aClass],smalltalk.HLBrowserListWidget);
  496. smalltalk.send(smalltalk.send(self,"_model",[]),"_selectedClass_",[aClass]);
  497. return self}
  498. }),
  499. smalltalk.HLClassesListWidget);
  500. smalltalk.addMethod(
  501. "_showInstance_",
  502. smalltalk.method({
  503. selector: "showInstance:",
  504. fn: function (aBoolean){
  505. var self=this;
  506. var $1;
  507. $1=smalltalk.send(aBoolean,"__eq",[smalltalk.send(smalltalk.send(self,"_browser",[]),"_showInstance",[])]);
  508. if(! smalltalk.assert($1)){
  509. smalltalk.send(smalltalk.send(self,"_browser",[]),"_showInstance_",[aBoolean]);
  510. };
  511. return self}
  512. }),
  513. smalltalk.HLClassesListWidget);
  514. smalltalk.addMethod(
  515. "_subscribeTo_",
  516. smalltalk.method({
  517. selector: "subscribeTo:",
  518. fn: function (anAnnouncer){
  519. var self=this;
  520. smalltalk.send(anAnnouncer,"_on_do_",[(smalltalk.HLPackageSelected || HLPackageSelected),(function(ann){
  521. return smalltalk.send(self,"_packageSelected_",[smalltalk.send(ann,"_item",[])]);
  522. })]);
  523. return self}
  524. }),
  525. smalltalk.HLClassesListWidget);
  526. smalltalk.addClass('HLMethodsListWidget', smalltalk.HLBrowserListWidget, ['selectorsCache'], 'Helios-Browser');
  527. smalltalk.addMethod(
  528. "_allProtocol",
  529. smalltalk.method({
  530. selector: "allProtocol",
  531. fn: function (){
  532. var self=this;
  533. var $1;
  534. $1=smalltalk.send(smalltalk.send(self,"_model",[]),"_allProtocol",[]);
  535. return $1;
  536. }
  537. }),
  538. smalltalk.HLMethodsListWidget);
  539. smalltalk.addMethod(
  540. "_flushSelectorsCache",
  541. smalltalk.method({
  542. selector: "flushSelectorsCache",
  543. fn: function (){
  544. var self=this;
  545. self["@selectorsCache"]=smalltalk.send((smalltalk.Dictionary || Dictionary),"_new",[]);
  546. return self}
  547. }),
  548. smalltalk.HLMethodsListWidget);
  549. smalltalk.addMethod(
  550. "_iconForItem_",
  551. smalltalk.method({
  552. selector: "iconForItem:",
  553. fn: function (aCompiledMethod){
  554. var self=this;
  555. var $1;
  556. var override;
  557. var overriden;
  558. override=smalltalk.send(self,"_isOverride_",[aCompiledMethod]);
  559. overriden=smalltalk.send(self,"_isOverriden_",[aCompiledMethod]);
  560. if(smalltalk.assert(override)){
  561. if(smalltalk.assert(overriden)){
  562. $1="icon-resize-vertical";
  563. } else {
  564. $1="icon-arrow-up";
  565. };
  566. } else {
  567. if(smalltalk.assert(overriden)){
  568. $1="icon-arrow-down";
  569. } else {
  570. $1="icon-none";
  571. };
  572. };
  573. return $1;
  574. }
  575. }),
  576. smalltalk.HLMethodsListWidget);
  577. smalltalk.addMethod(
  578. "_initialize",
  579. smalltalk.method({
  580. selector: "initialize",
  581. fn: function (){
  582. var self=this;
  583. smalltalk.send(self,"_initialize",[],smalltalk.HLBrowserListWidget);
  584. smalltalk.send(self,"_flushSelectorsCache",[]);
  585. return self}
  586. }),
  587. smalltalk.HLMethodsListWidget);
  588. smalltalk.addMethod(
  589. "_isOverride_",
  590. smalltalk.method({
  591. selector: "isOverride:",
  592. fn: function (aMethod){
  593. var self=this;
  594. var $1;
  595. $1=smalltalk.send(smalltalk.send(self,"_overrideSelectors",[]),"_includes_",[smalltalk.send(aMethod,"_selector",[])]);
  596. return $1;
  597. }
  598. }),
  599. smalltalk.HLMethodsListWidget);
  600. smalltalk.addMethod(
  601. "_isOverriden_",
  602. smalltalk.method({
  603. selector: "isOverriden:",
  604. fn: function (aMethod){
  605. var self=this;
  606. var $1;
  607. $1=smalltalk.send(smalltalk.send(self,"_overridenSelectors",[]),"_includes_",[smalltalk.send(aMethod,"_selector",[])]);
  608. return $1;
  609. }
  610. }),
  611. smalltalk.HLMethodsListWidget);
  612. smalltalk.addMethod(
  613. "_methodsInProtocol_",
  614. smalltalk.method({
  615. selector: "methodsInProtocol:",
  616. fn: function (aString){
  617. var self=this;
  618. var $2,$1;
  619. $2=smalltalk.send(aString,"__eq",[smalltalk.send(self,"_allProtocol",[])]);
  620. if(smalltalk.assert($2)){
  621. $1=smalltalk.send(smalltalk.send(smalltalk.send(self,"_model",[]),"_selectedClass",[]),"_methods",[]);
  622. } else {
  623. $1=smalltalk.send(smalltalk.send(smalltalk.send(self,"_model",[]),"_selectedClass",[]),"_methodsInProtocol_",[aString]);
  624. };
  625. return $1;
  626. }
  627. }),
  628. smalltalk.HLMethodsListWidget);
  629. smalltalk.addMethod(
  630. "_overrideSelectors",
  631. smalltalk.method({
  632. selector: "overrideSelectors",
  633. fn: function (){
  634. var self=this;
  635. var $2,$1;
  636. $1=smalltalk.send(smalltalk.send(self,"_selectorsCache",[]),"_at_ifAbsentPut_",["override",(function(){
  637. return smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(self,"_model",[]),"_selectedClass",[]),"_allSuperclasses",[]),"_inject_into_",[smalltalk.send((smalltalk.Set || Set),"_new",[]),(function(acc,each){
  638. smalltalk.send(acc,"_addAll_",[smalltalk.send(each,"_selectors",[])]);
  639. $2=smalltalk.send(acc,"_yourself",[]);
  640. return $2;
  641. })]);
  642. })]);
  643. return $1;
  644. }
  645. }),
  646. smalltalk.HLMethodsListWidget);
  647. smalltalk.addMethod(
  648. "_overridenSelectors",
  649. smalltalk.method({
  650. selector: "overridenSelectors",
  651. fn: function (){
  652. var self=this;
  653. var $2,$1;
  654. $1=smalltalk.send(smalltalk.send(self,"_selectorsCache",[]),"_at_ifAbsentPut_",["overriden",(function(){
  655. return smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(self,"_model",[]),"_selectedClass",[]),"_allSubclasses",[]),"_inject_into_",[smalltalk.send((smalltalk.Set || Set),"_new",[]),(function(acc,each){
  656. smalltalk.send(acc,"_addAll_",[smalltalk.send(each,"_selectors",[])]);
  657. $2=smalltalk.send(acc,"_yourself",[]);
  658. return $2;
  659. })]);
  660. })]);
  661. return $1;
  662. }
  663. }),
  664. smalltalk.HLMethodsListWidget);
  665. smalltalk.addMethod(
  666. "_protocolSelected_",
  667. smalltalk.method({
  668. selector: "protocolSelected:",
  669. fn: function (aString){
  670. var self=this;
  671. var $2,$1;
  672. smalltalk.send(self,"_selectedItem_",[nil]);
  673. $2=smalltalk.send(smalltalk.send(self,"_model",[]),"_selectedClass",[]);
  674. if(($receiver = $2) == nil || $receiver == undefined){
  675. $1=[];
  676. } else {
  677. if(($receiver = aString) == nil || $receiver == undefined){
  678. $1=smalltalk.send(smalltalk.send(smalltalk.send(self,"_model",[]),"_selectedClass",[]),"_methods",[]);
  679. } else {
  680. $1=smalltalk.send(self,"_methodsInProtocol_",[aString]);
  681. };
  682. };
  683. smalltalk.send(self,"_items_",[$1]);
  684. smalltalk.send(self,"_refresh",[]);
  685. return self}
  686. }),
  687. smalltalk.HLMethodsListWidget);
  688. smalltalk.addMethod(
  689. "_renderContentOn_",
  690. smalltalk.method({
  691. selector: "renderContentOn:",
  692. fn: function (html){
  693. var self=this;
  694. var $1,$2,$3;
  695. $1=smalltalk.send(smalltalk.send(self,"_model",[]),"_showInstance",[]);
  696. if(smalltalk.assert($1)){
  697. smalltalk.send(self,"_renderContentOn_",[html],smalltalk.HLBrowserListWidget);
  698. } else {
  699. $2=smalltalk.send(html,"_div",[]);
  700. smalltalk.send($2,"_class_",["class_side"]);
  701. $3=smalltalk.send($2,"_with_",[(function(){
  702. return smalltalk.send(self,"_renderContentOn_",[html],smalltalk.HLBrowserListWidget);
  703. })]);
  704. $3;
  705. };
  706. smalltalk.send(self,"_flushSelectorsCache",[]);
  707. return self}
  708. }),
  709. smalltalk.HLMethodsListWidget);
  710. smalltalk.addMethod(
  711. "_renderItemLabel_on_",
  712. smalltalk.method({
  713. selector: "renderItemLabel:on:",
  714. fn: function (aCompiledMethod,html){
  715. var self=this;
  716. smalltalk.send(html,"_with_",[smalltalk.send(aCompiledMethod,"_selector",[])]);
  717. return self}
  718. }),
  719. smalltalk.HLMethodsListWidget);
  720. smalltalk.addMethod(
  721. "_selectItem_",
  722. smalltalk.method({
  723. selector: "selectItem:",
  724. fn: function (aCompiledMethod){
  725. var self=this;
  726. smalltalk.send(self,"_selectItem_",[aCompiledMethod],smalltalk.HLBrowserListWidget);
  727. smalltalk.send(smalltalk.send(self,"_model",[]),"_selectedMethod_",[aCompiledMethod]);
  728. return self}
  729. }),
  730. smalltalk.HLMethodsListWidget);
  731. smalltalk.addMethod(
  732. "_selectorsCache",
  733. smalltalk.method({
  734. selector: "selectorsCache",
  735. fn: function (){
  736. var self=this;
  737. return self["@selectorsCache"];
  738. }
  739. }),
  740. smalltalk.HLMethodsListWidget);
  741. smalltalk.addMethod(
  742. "_subscribeTo_",
  743. smalltalk.method({
  744. selector: "subscribeTo:",
  745. fn: function (anAnnouncer){
  746. var self=this;
  747. smalltalk.send(anAnnouncer,"_on_do_",[(smalltalk.HLProtocolSelected || HLProtocolSelected),(function(ann){
  748. return smalltalk.send(self,"_protocolSelected_",[smalltalk.send(ann,"_item",[])]);
  749. })]);
  750. smalltalk.send(anAnnouncer,"_on_do_",[(smalltalk.HLShowInstanceToggled || HLShowInstanceToggled),(function(ann){
  751. return smalltalk.send(self,"_protocolSelected_",[nil]);
  752. })]);
  753. return self}
  754. }),
  755. smalltalk.HLMethodsListWidget);
  756. smalltalk.addClass('HLPackagesListWidget', smalltalk.HLBrowserListWidget, [], 'Helios-Browser');
  757. smalltalk.addMethod(
  758. "_focusClassesListWidget",
  759. smalltalk.method({
  760. selector: "focusClassesListWidget",
  761. fn: function (){
  762. var self=this;
  763. smalltalk.send(smalltalk.send(smalltalk.send(self,"_model",[]),"_announcer",[]),"_announce_",[smalltalk.send((smalltalk.HLClassesListFocus || HLClassesListFocus),"_new",[])]);
  764. return self}
  765. }),
  766. smalltalk.HLPackagesListWidget);
  767. smalltalk.addMethod(
  768. "_items",
  769. smalltalk.method({
  770. selector: "items",
  771. fn: function (){
  772. var self=this;
  773. var $1;
  774. if(($receiver = self["@items"]) == nil || $receiver == undefined){
  775. self["@items"]=smalltalk.send(smalltalk.send(self,"_model",[]),"_packages",[]);
  776. $1=self["@items"];
  777. } else {
  778. $1=self["@items"];
  779. };
  780. return $1;
  781. }
  782. }),
  783. smalltalk.HLPackagesListWidget);
  784. smalltalk.addMethod(
  785. "_registerBindingsOn_",
  786. smalltalk.method({
  787. selector: "registerBindingsOn:",
  788. fn: function (aBindingGroup){
  789. var self=this;
  790. smalltalk.send(smalltalk.send(aBindingGroup,"_at_",["Go to"]),"_addActionKey_labelled_callback_",[(67),"Packages",(function(){
  791. return smalltalk.send(self,"_focus",[]);
  792. })]);
  793. return self}
  794. }),
  795. smalltalk.HLPackagesListWidget);
  796. smalltalk.addMethod(
  797. "_renderButtonsOn_",
  798. smalltalk.method({
  799. selector: "renderButtonsOn:",
  800. fn: function (html){
  801. var self=this;
  802. var $1,$2,$3,$5,$6,$7,$8,$4,$9,$10;
  803. $1=smalltalk.send(html,"_span",[]);
  804. smalltalk.send($1,"_class_",["info"]);
  805. $2=smalltalk.send($1,"_with_",["Auto commit is"]);
  806. $3=smalltalk.send(html,"_div",[]);
  807. smalltalk.send($3,"_class_",["btn-group switch"]);
  808. smalltalk.send($3,"_at_put_",["data-toggle","buttons-radio"]);
  809. $4=smalltalk.send($3,"_with_",[(function(){
  810. $5=smalltalk.send(html,"_button",[]);
  811. smalltalk.send($5,"_class_",[smalltalk.send((smalltalk.String || String),"_streamContents_",[(function(str){
  812. return smalltalk.send(str,"_nextPutAll_",["btn"]);
  813. })])]);
  814. $6=smalltalk.send($5,"_with_",["On"]);
  815. $6;
  816. $7=smalltalk.send(html,"_button",[]);
  817. smalltalk.send($7,"_class_",[smalltalk.send((smalltalk.String || String),"_streamContents_",[(function(str){
  818. return smalltalk.send(str,"_nextPutAll_",["btn active"]);
  819. })])]);
  820. $8=smalltalk.send($7,"_with_",["Off"]);
  821. return $8;
  822. })]);
  823. $9=smalltalk.send(html,"_a",[]);
  824. smalltalk.send($9,"_class_",["btn"]);
  825. $10=smalltalk.send($9,"_with_",["Commit now"]);
  826. return self}
  827. }),
  828. smalltalk.HLPackagesListWidget);
  829. smalltalk.addMethod(
  830. "_selectItem_",
  831. smalltalk.method({
  832. selector: "selectItem:",
  833. fn: function (aPackage){
  834. var self=this;
  835. smalltalk.send(self,"_selectItem_",[aPackage],smalltalk.HLBrowserListWidget);
  836. smalltalk.send(smalltalk.send(self,"_model",[]),"_selectedPackage_",[aPackage]);
  837. return self}
  838. }),
  839. smalltalk.HLPackagesListWidget);
  840. smalltalk.addClass('HLProtocolsListWidget', smalltalk.HLBrowserListWidget, [], 'Helios-Browser');
  841. smalltalk.addMethod(
  842. "_allProtocol",
  843. smalltalk.method({
  844. selector: "allProtocol",
  845. fn: function (){
  846. var self=this;
  847. var $1;
  848. $1=smalltalk.send(smalltalk.send(self,"_model",[]),"_allProtocol",[]);
  849. return $1;
  850. }
  851. }),
  852. smalltalk.HLProtocolsListWidget);
  853. smalltalk.addMethod(
  854. "_classSelected_",
  855. smalltalk.method({
  856. selector: "classSelected:",
  857. fn: function (aClass){
  858. var self=this;
  859. var $2,$3,$1;
  860. smalltalk.send(self,"_selectedItem_",[nil]);
  861. if(($receiver = aClass) == nil || $receiver == undefined){
  862. $1=smalltalk.send((smalltalk.Array || Array),"_with_",[smalltalk.send(self,"_allProtocol",[])]);
  863. } else {
  864. $2=smalltalk.send((smalltalk.Array || Array),"_with_",[smalltalk.send(self,"_allProtocol",[])]);
  865. smalltalk.send($2,"_addAll_",[smalltalk.send(aClass,"_protocols",[])]);
  866. $3=smalltalk.send($2,"_yourself",[]);
  867. $1=$3;
  868. };
  869. smalltalk.send(self,"_items_",[$1]);
  870. smalltalk.send(self,"_refresh",[]);
  871. return self}
  872. }),
  873. smalltalk.HLProtocolsListWidget);
  874. smalltalk.addMethod(
  875. "_renderContentOn_",
  876. smalltalk.method({
  877. selector: "renderContentOn:",
  878. fn: function (html){
  879. var self=this;
  880. var $1,$2,$3;
  881. $1=smalltalk.send(smalltalk.send(self,"_model",[]),"_showInstance",[]);
  882. if(smalltalk.assert($1)){
  883. smalltalk.send(self,"_renderContentOn_",[html],smalltalk.HLBrowserListWidget);
  884. } else {
  885. $2=smalltalk.send(html,"_div",[]);
  886. smalltalk.send($2,"_class_",["class_side"]);
  887. $3=smalltalk.send($2,"_with_",[(function(){
  888. return smalltalk.send(self,"_renderContentOn_",[html],smalltalk.HLBrowserListWidget);
  889. })]);
  890. $3;
  891. };
  892. return self}
  893. }),
  894. smalltalk.HLProtocolsListWidget);
  895. smalltalk.addMethod(
  896. "_selectItem_",
  897. smalltalk.method({
  898. selector: "selectItem:",
  899. fn: function (aString){
  900. var self=this;
  901. smalltalk.send(self,"_selectItem_",[aString],smalltalk.HLBrowserListWidget);
  902. smalltalk.send(smalltalk.send(self,"_model",[]),"_selectedProtocol_",[aString]);
  903. return self}
  904. }),
  905. smalltalk.HLProtocolsListWidget);
  906. smalltalk.addMethod(
  907. "_selectedItem",
  908. smalltalk.method({
  909. selector: "selectedItem",
  910. fn: function (){
  911. var self=this;
  912. var $2,$1;
  913. $2=smalltalk.send(self,"_selectedItem",[],smalltalk.HLBrowserListWidget);
  914. if(($receiver = $2) == nil || $receiver == undefined){
  915. $1=smalltalk.send(self,"_allProtocol",[]);
  916. } else {
  917. $1=$2;
  918. };
  919. return $1;
  920. }
  921. }),
  922. smalltalk.HLProtocolsListWidget);
  923. smalltalk.addMethod(
  924. "_subscribeTo_",
  925. smalltalk.method({
  926. selector: "subscribeTo:",
  927. fn: function (anAnnouncer){
  928. var self=this;
  929. smalltalk.send(anAnnouncer,"_on_do_",[(smalltalk.HLClassSelected || HLClassSelected),(function(ann){
  930. return smalltalk.send(self,"_classSelected_",[smalltalk.send(ann,"_item",[])]);
  931. })]);
  932. smalltalk.send(anAnnouncer,"_on_do_",[(smalltalk.HLShowInstanceToggled || HLShowInstanceToggled),(function(ann){
  933. return smalltalk.send(self,"_classSelected_",[smalltalk.send(smalltalk.send(self,"_model",[]),"_selectedClass",[])]);
  934. })]);
  935. return self}
  936. }),
  937. smalltalk.HLProtocolsListWidget);
  938. smalltalk.addClass('HLBrowserModel', smalltalk.Object, ['announcer', 'environment', 'selectedPackage', 'selectedClass', 'selectedProtocol', 'selectedMethod', 'showInstance', 'showComment'], 'Helios-Browser');
  939. smalltalk.addMethod(
  940. "_allProtocol",
  941. smalltalk.method({
  942. selector: "allProtocol",
  943. fn: function (){
  944. var self=this;
  945. return "-- All --";
  946. }
  947. }),
  948. smalltalk.HLBrowserModel);
  949. smalltalk.addMethod(
  950. "_announcer",
  951. smalltalk.method({
  952. selector: "announcer",
  953. fn: function (){
  954. var self=this;
  955. var $1;
  956. if(($receiver = self["@announcer"]) == nil || $receiver == undefined){
  957. self["@announcer"]=smalltalk.send((smalltalk.Announcer || Announcer),"_new",[]);
  958. $1=self["@announcer"];
  959. } else {
  960. $1=self["@announcer"];
  961. };
  962. return $1;
  963. }
  964. }),
  965. smalltalk.HLBrowserModel);
  966. smalltalk.addMethod(
  967. "_environment",
  968. smalltalk.method({
  969. selector: "environment",
  970. fn: function (){
  971. var self=this;
  972. var $1;
  973. if(($receiver = self["@environment"]) == nil || $receiver == undefined){
  974. self["@environment"]=smalltalk.send((smalltalk.Smalltalk || Smalltalk),"_current",[]);
  975. $1=self["@environment"];
  976. } else {
  977. $1=self["@environment"];
  978. };
  979. return $1;
  980. }
  981. }),
  982. smalltalk.HLBrowserModel);
  983. smalltalk.addMethod(
  984. "_environment_",
  985. smalltalk.method({
  986. selector: "environment:",
  987. fn: function (anEnvironment){
  988. var self=this;
  989. self["@environment"]=anEnvironment;
  990. return self}
  991. }),
  992. smalltalk.HLBrowserModel);
  993. smalltalk.addMethod(
  994. "_packages",
  995. smalltalk.method({
  996. selector: "packages",
  997. fn: function (){
  998. var self=this;
  999. var $1;
  1000. $1=smalltalk.send(smalltalk.send(self,"_environment",[]),"_packages",[]);
  1001. return $1;
  1002. }
  1003. }),
  1004. smalltalk.HLBrowserModel);
  1005. smalltalk.addMethod(
  1006. "_selectedClass",
  1007. smalltalk.method({
  1008. selector: "selectedClass",
  1009. fn: function (){
  1010. var self=this;
  1011. return self["@selectedClass"];
  1012. }
  1013. }),
  1014. smalltalk.HLBrowserModel);
  1015. smalltalk.addMethod(
  1016. "_selectedClass_",
  1017. smalltalk.method({
  1018. selector: "selectedClass:",
  1019. fn: function (aClass){
  1020. var self=this;
  1021. var $1,$2;
  1022. if(($receiver = aClass) == nil || $receiver == undefined){
  1023. self["@selectedClass"]=nil;
  1024. self["@selectedClass"];
  1025. } else {
  1026. $1=smalltalk.send(self,"_showInstance",[]);
  1027. if(smalltalk.assert($1)){
  1028. self["@selectedClass"]=smalltalk.send(aClass,"_theNonMetaClass",[]);
  1029. self["@selectedClass"];
  1030. } else {
  1031. self["@selectedClass"]=smalltalk.send(aClass,"_theMetaClass",[]);
  1032. self["@selectedClass"];
  1033. };
  1034. };
  1035. smalltalk.send(self,"_selectedMethod_",[nil]);
  1036. $2=smalltalk.send(self,"_selectedProtocol_",[nil]);
  1037. smalltalk.send(smalltalk.send(self,"_announcer",[]),"_announce_",[smalltalk.send((smalltalk.HLClassSelected || HLClassSelected),"_on_",[smalltalk.send(self,"_selectedClass",[])])]);
  1038. return self}
  1039. }),
  1040. smalltalk.HLBrowserModel);
  1041. smalltalk.addMethod(
  1042. "_selectedMethod",
  1043. smalltalk.method({
  1044. selector: "selectedMethod",
  1045. fn: function (){
  1046. var self=this;
  1047. return self["@selectedMethod"];
  1048. }
  1049. }),
  1050. smalltalk.HLBrowserModel);
  1051. smalltalk.addMethod(
  1052. "_selectedMethod_",
  1053. smalltalk.method({
  1054. selector: "selectedMethod:",
  1055. fn: function (aCompiledMethod){
  1056. var self=this;
  1057. self["@selectedMethod"]=aCompiledMethod;
  1058. smalltalk.send(smalltalk.send(self,"_announcer",[]),"_announce_",[smalltalk.send((smalltalk.HLMethodSelected || HLMethodSelected),"_on_",[aCompiledMethod])]);
  1059. return self}
  1060. }),
  1061. smalltalk.HLBrowserModel);
  1062. smalltalk.addMethod(
  1063. "_selectedPackage",
  1064. smalltalk.method({
  1065. selector: "selectedPackage",
  1066. fn: function (){
  1067. var self=this;
  1068. return self["@selectedPackage"];
  1069. }
  1070. }),
  1071. smalltalk.HLBrowserModel);
  1072. smalltalk.addMethod(
  1073. "_selectedPackage_",
  1074. smalltalk.method({
  1075. selector: "selectedPackage:",
  1076. fn: function (aPackage){
  1077. var self=this;
  1078. self["@selectedPackage"]=aPackage;
  1079. smalltalk.send(self,"_selectedClass_",[nil]);
  1080. smalltalk.send(smalltalk.send(self,"_announcer",[]),"_announce_",[smalltalk.send((smalltalk.HLPackageSelected || HLPackageSelected),"_on_",[aPackage])]);
  1081. return self}
  1082. }),
  1083. smalltalk.HLBrowserModel);
  1084. smalltalk.addMethod(
  1085. "_selectedProtocol",
  1086. smalltalk.method({
  1087. selector: "selectedProtocol",
  1088. fn: function (){
  1089. var self=this;
  1090. return self["@selectedProtocol"];
  1091. }
  1092. }),
  1093. smalltalk.HLBrowserModel);
  1094. smalltalk.addMethod(
  1095. "_selectedProtocol_",
  1096. smalltalk.method({
  1097. selector: "selectedProtocol:",
  1098. fn: function (aString){
  1099. var self=this;
  1100. self["@selectedProtocol"]=aString;
  1101. smalltalk.send(self,"_selectedMethod_",[nil]);
  1102. smalltalk.send(smalltalk.send(self,"_announcer",[]),"_announce_",[smalltalk.send((smalltalk.HLProtocolSelected || HLProtocolSelected),"_on_",[aString])]);
  1103. return self}
  1104. }),
  1105. smalltalk.HLBrowserModel);
  1106. smalltalk.addMethod(
  1107. "_showComment",
  1108. smalltalk.method({
  1109. selector: "showComment",
  1110. fn: function (){
  1111. var self=this;
  1112. var $1;
  1113. if(($receiver = self["@showComment"]) == nil || $receiver == undefined){
  1114. $1=false;
  1115. } else {
  1116. $1=self["@showComment"];
  1117. };
  1118. return $1;
  1119. }
  1120. }),
  1121. smalltalk.HLBrowserModel);
  1122. smalltalk.addMethod(
  1123. "_showComment_",
  1124. smalltalk.method({
  1125. selector: "showComment:",
  1126. fn: function (aBoolean){
  1127. var self=this;
  1128. self["@showComment"]=aBoolean;
  1129. smalltalk.send(smalltalk.send(self,"_announcer",[]),"_announce_",[smalltalk.send((smalltalk.HLShowCommentToggled || HLShowCommentToggled),"_new",[])]);
  1130. return self}
  1131. }),
  1132. smalltalk.HLBrowserModel);
  1133. smalltalk.addMethod(
  1134. "_showInstance",
  1135. smalltalk.method({
  1136. selector: "showInstance",
  1137. fn: function (){
  1138. var self=this;
  1139. var $1;
  1140. if(($receiver = self["@showInstance"]) == nil || $receiver == undefined){
  1141. $1=true;
  1142. } else {
  1143. $1=self["@showInstance"];
  1144. };
  1145. return $1;
  1146. }
  1147. }),
  1148. smalltalk.HLBrowserModel);
  1149. smalltalk.addMethod(
  1150. "_showInstance_",
  1151. smalltalk.method({
  1152. selector: "showInstance:",
  1153. fn: function (aBoolean){
  1154. var self=this;
  1155. var $1,$2;
  1156. self["@showInstance"]=aBoolean;
  1157. $1=smalltalk.send(self,"_selectedClass",[]);
  1158. if(($receiver = $1) == nil || $receiver == undefined){
  1159. $1;
  1160. } else {
  1161. if(smalltalk.assert(aBoolean)){
  1162. $2=smalltalk.send(smalltalk.send(self,"_selectedClass",[]),"_theNonMetaClass",[]);
  1163. } else {
  1164. $2=smalltalk.send(smalltalk.send(self,"_selectedClass",[]),"_theMetaClass",[]);
  1165. };
  1166. smalltalk.send(self,"_selectedClass_",[$2]);
  1167. };
  1168. smalltalk.send(smalltalk.send(self,"_announcer",[]),"_announce_",[smalltalk.send((smalltalk.HLShowInstanceToggled || HLShowInstanceToggled),"_new",[])]);
  1169. return self}
  1170. }),
  1171. smalltalk.HLBrowserModel);
  1172. smalltalk.addMethod(
  1173. "_subscribe_",
  1174. smalltalk.method({
  1175. selector: "subscribe:",
  1176. fn: function (aWidget){
  1177. var self=this;
  1178. smalltalk.send(aWidget,"_subscribeTo_",[smalltalk.send(self,"_announcer",[])]);
  1179. return self}
  1180. }),
  1181. smalltalk.HLBrowserModel);
  1182. smalltalk.addClass('HLBrowserSourceWidget', smalltalk.HLWidget, ['model', 'sourceArea'], 'Helios-Browser');
  1183. smalltalk.addMethod(
  1184. "_classSelected_",
  1185. smalltalk.method({
  1186. selector: "classSelected:",
  1187. fn: function (aClass){
  1188. var self=this;
  1189. var $1;
  1190. if(($receiver = aClass) == nil || $receiver == undefined){
  1191. $1=smalltalk.send(self,"_contents_",[""]);
  1192. return $1;
  1193. } else {
  1194. aClass;
  1195. };
  1196. smalltalk.send(self,"_contents_",[smalltalk.send(aClass,"_definition",[])]);
  1197. return self}
  1198. }),
  1199. smalltalk.HLBrowserSourceWidget);
  1200. smalltalk.addMethod(
  1201. "_contents",
  1202. smalltalk.method({
  1203. selector: "contents",
  1204. fn: function (){
  1205. var self=this;
  1206. var $1;
  1207. $1=smalltalk.send(smalltalk.send(self,"_sourceArea",[]),"_contents",[]);
  1208. return $1;
  1209. }
  1210. }),
  1211. smalltalk.HLBrowserSourceWidget);
  1212. smalltalk.addMethod(
  1213. "_contents_",
  1214. smalltalk.method({
  1215. selector: "contents:",
  1216. fn: function (aString){
  1217. var self=this;
  1218. smalltalk.send(smalltalk.send(self,"_sourceArea",[]),"_contents_",[aString]);
  1219. return self}
  1220. }),
  1221. smalltalk.HLBrowserSourceWidget);
  1222. smalltalk.addMethod(
  1223. "_methodSelected_",
  1224. smalltalk.method({
  1225. selector: "methodSelected:",
  1226. fn: function (aCompiledMethod){
  1227. var self=this;
  1228. var $1;
  1229. if(($receiver = aCompiledMethod) == nil || $receiver == undefined){
  1230. $1=smalltalk.send(self,"_contents_",[""]);
  1231. return $1;
  1232. } else {
  1233. aCompiledMethod;
  1234. };
  1235. smalltalk.send(self,"_contents_",[smalltalk.send(aCompiledMethod,"_source",[])]);
  1236. return self}
  1237. }),
  1238. smalltalk.HLBrowserSourceWidget);
  1239. smalltalk.addMethod(
  1240. "_model",
  1241. smalltalk.method({
  1242. selector: "model",
  1243. fn: function (){
  1244. var self=this;
  1245. return self["@model"];
  1246. }
  1247. }),
  1248. smalltalk.HLBrowserSourceWidget);
  1249. smalltalk.addMethod(
  1250. "_model_",
  1251. smalltalk.method({
  1252. selector: "model:",
  1253. fn: function (aBrowserModel){
  1254. var self=this;
  1255. self["@model"]=aBrowserModel;
  1256. smalltalk.send(self["@model"],"_subscribe_",[self]);
  1257. return self}
  1258. }),
  1259. smalltalk.HLBrowserSourceWidget);
  1260. smalltalk.addMethod(
  1261. "_protocolSelected_",
  1262. smalltalk.method({
  1263. selector: "protocolSelected:",
  1264. fn: function (aString){
  1265. var self=this;
  1266. var $1,$2;
  1267. $1=smalltalk.send(smalltalk.send(self,"_model",[]),"_selectedClass",[]);
  1268. if(($receiver = $1) == nil || $receiver == undefined){
  1269. $2=smalltalk.send(self,"_contents_",[""]);
  1270. return $2;
  1271. } else {
  1272. $1;
  1273. };
  1274. smalltalk.send(self,"_contents_",[smalltalk.send(smalltalk.send(smalltalk.send(self,"_model",[]),"_selectedClass",[]),"_definition",[])]);
  1275. return self}
  1276. }),
  1277. smalltalk.HLBrowserSourceWidget);
  1278. smalltalk.addMethod(
  1279. "_renderContentOn_",
  1280. smalltalk.method({
  1281. selector: "renderContentOn:",
  1282. fn: function (html){
  1283. var self=this;
  1284. smalltalk.send(smalltalk.send(self,"_sourceArea",[]),"_renderOn_",[html]);
  1285. return self}
  1286. }),
  1287. smalltalk.HLBrowserSourceWidget);
  1288. smalltalk.addMethod(
  1289. "_sourceArea",
  1290. smalltalk.method({
  1291. selector: "sourceArea",
  1292. fn: function (){
  1293. var self=this;
  1294. var $1;
  1295. if(($receiver = self["@sourceArea"]) == nil || $receiver == undefined){
  1296. self["@sourceArea"]=smalltalk.send((smalltalk.HLSourceArea || HLSourceArea),"_new",[]);
  1297. $1=self["@sourceArea"];
  1298. } else {
  1299. $1=self["@sourceArea"];
  1300. };
  1301. return $1;
  1302. }
  1303. }),
  1304. smalltalk.HLBrowserSourceWidget);
  1305. smalltalk.addMethod(
  1306. "_subscribeTo_",
  1307. smalltalk.method({
  1308. selector: "subscribeTo:",
  1309. fn: function (anAnnouncer){
  1310. var self=this;
  1311. smalltalk.send(anAnnouncer,"_on_do_",[(smalltalk.HLMethodSelected || HLMethodSelected),(function(ann){
  1312. return smalltalk.send(self,"_methodSelected_",[smalltalk.send(ann,"_item",[])]);
  1313. })]);
  1314. smalltalk.send(anAnnouncer,"_on_do_",[(smalltalk.HLClassSelected || HLClassSelected),(function(ann){
  1315. return smalltalk.send(self,"_classSelected_",[smalltalk.send(ann,"_item",[])]);
  1316. })]);
  1317. smalltalk.send(anAnnouncer,"_on_do_",[(smalltalk.HLProtocolSelected || HLProtocolSelected),(function(ann){
  1318. return smalltalk.send(self,"_protocolSelected_",[smalltalk.send(ann,"_item",[])]);
  1319. })]);
  1320. return self}
  1321. }),
  1322. smalltalk.HLBrowserSourceWidget);
  1323. smalltalk.addMethod(
  1324. "_on_",
  1325. smalltalk.method({
  1326. selector: "on:",
  1327. fn: function (aBrowserModel){
  1328. var self=this;
  1329. var $2,$3,$1;
  1330. $2=smalltalk.send(self,"_new",[]);
  1331. smalltalk.send($2,"_model_",[aBrowserModel]);
  1332. $3=smalltalk.send($2,"_yourself",[]);
  1333. $1=$3;
  1334. return $1;
  1335. }
  1336. }),
  1337. smalltalk.HLBrowserSourceWidget.klass);