Helios-Browser.deploy.js 39 KB

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