1
0

Helios-Core.st 44 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496149714981499150015011502150315041505150615071508150915101511151215131514151515161517151815191520152115221523152415251526152715281529153015311532153315341535153615371538153915401541154215431544154515461547154815491550155115521553155415551556155715581559156015611562156315641565156615671568156915701571157215731574157515761577157815791580158115821583158415851586158715881589159015911592159315941595159615971598159916001601160216031604160516061607160816091610161116121613161416151616161716181619162016211622162316241625162616271628162916301631163216331634163516361637163816391640164116421643164416451646164716481649165016511652165316541655165616571658165916601661166216631664166516661667166816691670167116721673167416751676167716781679168016811682168316841685168616871688168916901691169216931694169516961697169816991700170117021703170417051706170717081709171017111712171317141715171617171718171917201721172217231724172517261727172817291730173117321733173417351736173717381739174017411742174317441745174617471748174917501751175217531754175517561757175817591760176117621763176417651766176717681769177017711772177317741775177617771778177917801781178217831784178517861787178817891790179117921793179417951796179717981799180018011802180318041805180618071808180918101811181218131814181518161817181818191820182118221823182418251826182718281829183018311832183318341835183618371838183918401841184218431844184518461847184818491850185118521853185418551856185718581859186018611862186318641865186618671868186918701871187218731874187518761877187818791880188118821883188418851886188718881889189018911892189318941895189618971898189919001901190219031904190519061907190819091910191119121913191419151916191719181919192019211922192319241925192619271928192919301931193219331934193519361937193819391940194119421943194419451946194719481949195019511952195319541955195619571958195919601961196219631964196519661967196819691970197119721973197419751976197719781979198019811982198319841985198619871988198919901991199219931994199519961997199819992000200120022003200420052006200720082009201020112012201320142015201620172018201920202021202220232024202520262027202820292030203120322033203420352036203720382039204020412042204320442045204620472048204920502051205220532054205520562057205820592060206120622063206420652066206720682069207020712072207320742075207620772078207920802081208220832084208520862087208820892090209120922093209420952096209720982099210021012102210321042105210621072108210921102111211221132114211521162117211821192120212121222123212421252126212721282129213021312132213321342135213621372138213921402141214221432144214521462147214821492150215121522153215421552156215721582159216021612162216321642165216621672168216921702171217221732174217521762177217821792180218121822183218421852186218721882189219021912192219321942195219621972198219922002201220222032204220522062207220822092210221122122213221422152216221722182219222022212222222322242225222622272228222922302231223222332234223522362237223822392240224122422243224422452246224722482249225022512252225322542255225622572258225922602261226222632264226522662267226822692270227122722273227422752276227722782279228022812282228322842285228622872288228922902291229222932294229522962297229822992300230123022303230423052306230723082309231023112312231323142315231623172318231923202321232223232324232523262327232823292330233123322333233423352336233723382339234023412342234323442345234623472348234923502351
  1. Smalltalk createPackage: 'Helios-Core'!
  2. InterfacingObject subclass: #HLModel
  3. instanceVariableNames: 'announcer environment'
  4. package: 'Helios-Core'!
  5. !HLModel commentStamp!
  6. I am the abstract superclass of all models of Helios.
  7. I am the "Model" part of the MVC pattern implementation in Helios.
  8. I provide access to an `Environment` object and both a local (model-specific) and global (system-specific) announcer.
  9. The `#withChangesDo:` method is handy for performing model changes ensuring that all widgets are aware of the change and can prevent it from happening.
  10. Modifications of the system should be done via commands (see `HLCommand` and subclasses).!
  11. !HLModel methodsFor: 'accessing'!
  12. announcer
  13. ^ announcer ifNil: [ announcer := Announcer new ]
  14. !
  15. environment
  16. ^ environment ifNil: [ self manager environment ]
  17. !
  18. environment: anEnvironment
  19. environment := anEnvironment
  20. !
  21. manager
  22. ^ HLManager current
  23. !
  24. systemAnnouncer
  25. ^ self environment systemAnnouncer
  26. ! !
  27. !HLModel methodsFor: 'error handling'!
  28. withChangesDo: aBlock
  29. [
  30. self announcer announce: (HLAboutToChange new
  31. actionBlock: aBlock;
  32. yourself).
  33. aBlock value.
  34. ]
  35. on: HLChangeForbidden
  36. do: [ :ex | ]
  37. ! !
  38. !HLModel methodsFor: 'testing'!
  39. isBrowserModel
  40. ^ false
  41. !
  42. isReferencesModel
  43. ^ false
  44. !
  45. isToolModel
  46. ^ false
  47. ! !
  48. HLModel subclass: #HLFinder
  49. instanceVariableNames: ''
  50. package: 'Helios-Core'!
  51. !HLFinder commentStamp!
  52. I am the `Finder` service handler of Helios.
  53. Finding a class will open a new class browser, while finding a method will open a references browser.!
  54. !HLFinder methodsFor: 'finding'!
  55. findClass: aClass
  56. HLBrowser openAsTab openClassNamed: aClass name
  57. !
  58. findMethod: aCompiledMethod
  59. HLBrowser openAsTab openMethod: aCompiledMethod
  60. !
  61. findString: aString
  62. | foundClass |
  63. foundClass := self environment classes
  64. detect: [ :each | each name = aString ]
  65. ifNone: [ nil ].
  66. foundClass
  67. ifNil: [ HLReferences openAsTab search: aString ]
  68. ifNotNil: [ self findClass: foundClass ]
  69. ! !
  70. HLModel subclass: #HLToolModel
  71. instanceVariableNames: 'selectedClass selectedPackage selectedProtocol selectedSelector'
  72. package: 'Helios-Core'!
  73. !HLToolModel commentStamp!
  74. I am a model specific to package and class manipulation. All browsers should either use me or a subclass as their model.
  75. I provide methods for package, class, protocol and method manipulation and access, forwarding to my environment.
  76. I also handle compilation of classes and methods as well as compilation and parsing errors.!
  77. !HLToolModel methodsFor: 'accessing'!
  78. allSelectors
  79. ^ self environment allSelectors
  80. !
  81. availableClassNames
  82. ^ self environment availableClassNames
  83. !
  84. availablePackageNames
  85. ^ self environment availablePackageNames
  86. !
  87. availablePackages
  88. ^ self environment availablePackageNames
  89. !
  90. availableProtocols
  91. ^ self environment availableProtocolsFor: self selectedClass
  92. !
  93. forceSelectedClass: aClass
  94. self withChangesDo: [
  95. self
  96. selectedClass: nil;
  97. selectedClass: aClass ]
  98. !
  99. forceSelectedMethod: aMethod
  100. self withChangesDo: [
  101. self
  102. selectedMethod: nil;
  103. selectedMethod: aMethod ]
  104. !
  105. forceSelectedPackage: aPackage
  106. self withChangesDo: [
  107. self
  108. selectedPackage: nil;
  109. selectedPackage: aPackage ]
  110. !
  111. forceSelectedProtocol: aProtocol
  112. self withChangesDo: [
  113. self
  114. selectedProtocol: nil;
  115. selectedProtocol: aProtocol ]
  116. !
  117. packageToCommit
  118. "Answer the package to commit depending on the context:
  119. - if a Method is selected, answer its package
  120. - else answer the `selectedPackage`"
  121. ^ self selectedMethod
  122. ifNil: [ self selectedPackage ]
  123. ifNotNil: [ :method | method package ]
  124. !
  125. packages
  126. ^ self environment packages
  127. !
  128. selectedClass
  129. ^ selectedClass
  130. !
  131. selectedClass: aClass
  132. (self selectedClass = aClass and: [ aClass isNil ])
  133. ifTrue: [ ^ self ].
  134. self withChangesDo: [
  135. selectedClass = aClass ifTrue: [
  136. self selectedProtocol: nil ].
  137. aClass
  138. ifNil: [ selectedClass := nil ]
  139. ifNotNil: [
  140. self selectedPackage: aClass theNonMetaClass package.
  141. self showInstance
  142. ifTrue: [ selectedClass := aClass theNonMetaClass ]
  143. ifFalse: [ selectedClass := aClass theMetaClass ] ].
  144. self selectedProtocol: nil.
  145. self announcer announce: (HLClassSelected on: self selectedClass) ]
  146. !
  147. selectedMethod
  148. ^ self selectedClass ifNotNil: [
  149. self selectedClass methodDictionary
  150. at: selectedSelector
  151. ifAbsent: [ nil ] ]
  152. !
  153. selectedMethod: aCompiledMethod
  154. selectedSelector = aCompiledMethod ifTrue: [ ^ self ].
  155. self withChangesDo: [
  156. aCompiledMethod
  157. ifNil: [ selectedSelector := nil ]
  158. ifNotNil: [
  159. selectedClass := aCompiledMethod methodClass.
  160. selectedPackage := selectedClass theNonMetaClass package.
  161. selectedSelector := aCompiledMethod selector ].
  162. self announcer announce: (HLMethodSelected on: aCompiledMethod) ]
  163. !
  164. selectedPackage
  165. ^ selectedPackage
  166. !
  167. selectedPackage: aPackage
  168. selectedPackage = aPackage ifTrue: [ ^ self ].
  169. self withChangesDo: [
  170. selectedPackage := aPackage.
  171. self selectedClass: nil.
  172. self announcer announce: (HLPackageSelected on: aPackage) ]
  173. !
  174. selectedProtocol
  175. ^ selectedProtocol
  176. !
  177. selectedProtocol: aString
  178. selectedProtocol = aString ifTrue: [ ^ self ].
  179. self withChangesDo: [
  180. selectedProtocol := aString.
  181. self selectedMethod: nil.
  182. self announcer announce: (HLProtocolSelected on: aString) ]
  183. ! !
  184. !HLToolModel methodsFor: 'actions'!
  185. addInstVarNamed: aString
  186. self environment addInstVarNamed: aString to: self selectedClass.
  187. self announcer announce: (HLInstVarAdded new
  188. theClass: self selectedClass;
  189. variableName: aString;
  190. yourself)
  191. !
  192. save: aString
  193. self announcer announce: HLSourceCodeSaved new.
  194. (self shouldCompileClassDefinition: aString)
  195. ifTrue: [ self compileClassDefinition: aString ]
  196. ifFalse: [ self compileMethod: aString ]
  197. !
  198. saveSourceCode
  199. self announcer announce: HLSaveSourceCode new
  200. ! !
  201. !HLToolModel methodsFor: 'commands actions'!
  202. commitPackageOnSuccess: aBlock onError: anotherBlock
  203. self environment
  204. commitPackage: self packageToCommit
  205. onSuccess: aBlock
  206. onError: anotherBlock
  207. !
  208. copyClassTo: aClassName
  209. self withChangesDo: [
  210. self environment
  211. copyClass: self selectedClass theNonMetaClass
  212. to: aClassName ]
  213. !
  214. moveClassToPackage: aPackageName
  215. self withChangesDo: [
  216. self environment
  217. moveClass: self selectedClass theNonMetaClass
  218. toPackage: aPackageName ]
  219. !
  220. moveMethodToClass: aClassName
  221. self withChangesDo: [
  222. self environment
  223. moveMethod: self selectedMethod
  224. toClass: aClassName ]
  225. !
  226. moveMethodToProtocol: aProtocol
  227. self withChangesDo: [
  228. self environment
  229. moveMethod: self selectedMethod
  230. toProtocol: aProtocol ]
  231. !
  232. openClassNamed: aString
  233. | class |
  234. self withChangesDo: [
  235. class := self environment classNamed: aString.
  236. self selectedPackage: class package.
  237. self selectedClass: class ]
  238. !
  239. removeClass
  240. self withChangesDo: [
  241. self manager
  242. confirm: 'Do you REALLY want to remove class ', self selectedClass theNonMetaClass name
  243. ifTrue: [ self environment removeClass: self selectedClass theNonMetaClass ] ]
  244. !
  245. removeMethod
  246. self withChangesDo: [
  247. self manager
  248. confirm: 'Do you REALLY want to remove method ', self selectedMethod methodClass name,' >> #', self selectedMethod selector
  249. ifTrue: [ self environment removeMethod: self selectedMethod ] ]
  250. !
  251. removeProtocol
  252. self withChangesDo: [
  253. self manager
  254. confirm: 'Do you REALLY want to remove protocol ', self selectedProtocol
  255. ifTrue: [ self environment
  256. removeProtocol: self selectedProtocol
  257. from: self selectedClass ] ]
  258. !
  259. renameClassTo: aClassName
  260. self withChangesDo: [
  261. self environment
  262. renameClass: self selectedClass theNonMetaClass
  263. to: aClassName ]
  264. !
  265. renameProtocolTo: aString
  266. self withChangesDo: [
  267. self environment
  268. renameProtocol: self selectedProtocol
  269. to: aString
  270. in: self selectedClass ]
  271. ! !
  272. !HLToolModel methodsFor: 'compiling'!
  273. compileClassComment: aString
  274. self environment
  275. compileClassComment: aString
  276. for: self selectedClass
  277. !
  278. compileClassDefinition: aString
  279. self environment compileClassDefinition: aString
  280. !
  281. compileMethod: aString
  282. | method |
  283. self withCompileErrorHandling: [
  284. method := self environment
  285. compileMethod: aString
  286. for: self selectedClass
  287. protocol: self compilationProtocol.
  288. self selectedMethod: method ]
  289. ! !
  290. !HLToolModel methodsFor: 'defaults'!
  291. allProtocol
  292. ^ '-- all --'
  293. !
  294. unclassifiedProtocol
  295. ^ 'as yet unclassified'
  296. ! !
  297. !HLToolModel methodsFor: 'error handling'!
  298. handleCompileError: anError
  299. self announcer announce: (HLCompileErrorRaised new
  300. error: anError;
  301. yourself)
  302. !
  303. handleParseError: anError
  304. | split line column messageToInsert |
  305. split := anError messageText tokenize: ' : '.
  306. messageToInsert := split second.
  307. "21 = 'Parse error on line ' size + 1"
  308. split := split first copyFrom: 21 to: split first size.
  309. split := split tokenize: ' column '.
  310. line := split first.
  311. column := split second.
  312. self announcer announce: (HLParseErrorRaised new
  313. line: line asNumber;
  314. column: column asNumber;
  315. message: messageToInsert;
  316. error: anError;
  317. yourself)
  318. !
  319. handleUnkownVariableError: anError
  320. self announcer announce: (HLUnknownVariableErrorRaised new
  321. error: anError;
  322. yourself)
  323. !
  324. withCompileErrorHandling: aBlock
  325. self environment
  326. evaluate: [
  327. self environment
  328. evaluate: [
  329. self environment
  330. evaluate: aBlock
  331. on: ParseError
  332. do: [ :ex | self handleParseError: ex ] ]
  333. on: UnknownVariableError
  334. do: [ :ex | self handleUnkownVariableError: ex ] ]
  335. on: CompilerError
  336. do: [ :ex | self handleCompileError: ex ]
  337. ! !
  338. !HLToolModel methodsFor: 'private'!
  339. compilationProtocol
  340. | currentProtocol |
  341. currentProtocol := self selectedProtocol.
  342. currentProtocol ifNil: [ currentProtocol := self unclassifiedProtocol ].
  343. self selectedMethod ifNotNil: [ currentProtocol := self selectedMethod protocol ].
  344. ^ currentProtocol = self allProtocol
  345. ifTrue: [ self unclassifiedProtocol ]
  346. ifFalse: [ currentProtocol ]
  347. !
  348. withHelperLabelled: aString do: aBlock
  349. "TODO: doesn't belong here"
  350. '#helper' asJQuery remove.
  351. [ :html |
  352. html div
  353. id: 'helper';
  354. with: aString ] appendToJQuery: 'body' asJQuery.
  355. [
  356. aBlock value.
  357. '#helper' asJQuery remove
  358. ]
  359. valueWithTimeout: 10
  360. ! !
  361. !HLToolModel methodsFor: 'testing'!
  362. isToolModel
  363. ^ true
  364. !
  365. shouldCompileClassDefinition: aString
  366. ^ self selectedClass isNil or: [
  367. aString match: '^\s*[A-Z]' ]
  368. ! !
  369. !HLToolModel class methodsFor: 'actions'!
  370. on: anEnvironment
  371. ^ self new
  372. environment: anEnvironment;
  373. yourself
  374. ! !
  375. Object subclass: #HLProgressHandler
  376. instanceVariableNames: ''
  377. package: 'Helios-Core'!
  378. !HLProgressHandler commentStamp!
  379. I am a specific progress handler for Helios, displaying progresses in a modal window.!
  380. !HLProgressHandler methodsFor: 'progress handling'!
  381. do: aBlock on: aCollection displaying: aString
  382. HLProgressWidget default
  383. do: aBlock
  384. on: aCollection
  385. displaying: aString
  386. ! !
  387. Widget subclass: #HLWidget
  388. instanceVariableNames: 'wrapper'
  389. package: 'Helios-Core'!
  390. !HLWidget commentStamp!
  391. I am the abstract superclass of all Helios widgets.
  392. I provide common methods, additional behavior to widgets useful for Helios, like dialog creation, command execution and tab creation.
  393. ## API
  394. 1. Rendering
  395. Instead of overriding `#renderOn:` as with other Widget subclasses, my subclasses should override `#renderContentOn:`.
  396. 2. Refreshing
  397. To re-render a widget, use `#refresh`.
  398. 3. Key bindings registration and tabs
  399. When displayed as a tab, the widget has a chance to register keybindings with the `#registerBindingsOn:` hook method.
  400. 4. Unregistration
  401. When a widget has subscribed to announcements or other actions that need to be cleared when closing the tab, the hook method `#unregister` will be called by helios.
  402. 5. Tabs
  403. To enable a widget class to be open as a tab, override the class-side `#canBeOpenAsTab` method to answer `true`. `#tabClass` and `#tabPriority` can be overridden too to respectively change the css class of the tab and the order of tabs in the main menu.
  404. 6. Command execution
  405. An helios command (instance of `HLCommand` or one of its subclass) can be executed with `#execute:`.!
  406. !HLWidget methodsFor: 'accessing'!
  407. cssClass
  408. ^ 'hl_widget'
  409. !
  410. manager
  411. ^ HLManager current
  412. !
  413. removeTab
  414. self manager removeTabForWidget: self
  415. !
  416. setTabLabel: aString
  417. self manager announcer announce: (HLTabLabelChanged new
  418. widget: self;
  419. label: aString;
  420. yourself)
  421. !
  422. tabClass
  423. ^ self class tabClass
  424. !
  425. wrapper
  426. ^ wrapper
  427. ! !
  428. !HLWidget methodsFor: 'actions'!
  429. confirm: aString ifTrue: aBlock
  430. self manager confirm: aString ifTrue: aBlock
  431. !
  432. confirm: aString ifTrue: aBlock ifFalse: anotherBlock
  433. self manager
  434. confirm: aString
  435. ifTrue: aBlock
  436. ifFalse: anotherBlock
  437. !
  438. execute: aCommand
  439. HLManager current keyBinder
  440. activate;
  441. applyBinding: aCommand asBinding
  442. !
  443. inform: aString
  444. self manager inform: aString
  445. !
  446. openAsTab
  447. (HLTabWidget on: self labelled: self defaultTabLabel)
  448. add
  449. !
  450. request: aString do: aBlock
  451. self manager request: aString do: aBlock
  452. !
  453. request: aString value: valueString do: aBlock
  454. self manager
  455. request: aString
  456. value: valueString
  457. do: aBlock
  458. !
  459. unregister
  460. "This method is called whenever the receiver is closed (as a tab).
  461. Widgets subscribing to announcements should unregister there"
  462. ! !
  463. !HLWidget methodsFor: 'defaults'!
  464. defaultTabLabel
  465. ^ self class tabLabel
  466. ! !
  467. !HLWidget methodsFor: 'keybindings'!
  468. bindKeyDown: keyDownBlock keyUp: keyUpBlock
  469. self wrapper asJQuery
  470. keydown: keyDownBlock;
  471. keyup: keyUpBlock
  472. !
  473. registerBindings
  474. self registerBindingsOn: self manager keyBinder bindings
  475. !
  476. registerBindingsOn: aBindingGroup
  477. !
  478. unbindKeyDownKeyUp
  479. self wrapper asJQuery
  480. unbind: 'keydown';
  481. unbind: 'keyup'
  482. ! !
  483. !HLWidget methodsFor: 'rendering'!
  484. renderContentOn: html
  485. !
  486. renderOn: html
  487. wrapper := html div
  488. class: self cssClass;
  489. yourself.
  490. [ :renderer | self renderContentOn: renderer ] appendToJQuery: wrapper asJQuery
  491. ! !
  492. !HLWidget methodsFor: 'testing'!
  493. canHaveFocus
  494. ^ false
  495. ! !
  496. !HLWidget methodsFor: 'updating'!
  497. refresh
  498. self wrapper ifNil: [ ^ self ].
  499. self wrapper asJQuery empty.
  500. [ :html | self renderContentOn: html ] appendToJQuery: self wrapper asJQuery
  501. ! !
  502. !HLWidget class methodsFor: 'accessing'!
  503. openAsTab
  504. | instance |
  505. instance := self new.
  506. (HLTabWidget
  507. on: instance
  508. labelled: instance defaultTabLabel) add.
  509. ^ instance
  510. !
  511. tabClass
  512. ^ ''
  513. !
  514. tabLabel
  515. ^ 'Tab'
  516. !
  517. tabPriority
  518. ^ 500
  519. ! !
  520. !HLWidget class methodsFor: 'testing'!
  521. canBeOpenAsTab
  522. ^ false
  523. ! !
  524. HLWidget subclass: #HLFocusableWidget
  525. instanceVariableNames: ''
  526. package: 'Helios-Core'!
  527. !HLFocusableWidget commentStamp!
  528. I am a widget that can be focused.
  529. ## API
  530. Instead of overriding `#renderOn:` as with other `Widget` subclasses, my subclasses should override `#renderContentOn:`.
  531. To bring the focus to the widget, use the `#focus` method.!
  532. !HLFocusableWidget methodsFor: 'accessing'!
  533. focusClass
  534. ^ 'focused'
  535. ! !
  536. !HLFocusableWidget methodsFor: 'events'!
  537. blur
  538. self wrapper asJQuery blur
  539. !
  540. focus
  541. self wrapper asJQuery focus
  542. ! !
  543. !HLFocusableWidget methodsFor: 'rendering'!
  544. renderContentOn: html
  545. !
  546. renderOn: html
  547. wrapper := html div
  548. class: self cssClass;
  549. yourself.
  550. wrapper with: [ self renderContentOn: html ].
  551. wrapper
  552. at: 'tabindex' put: '0';
  553. onBlur: [ self wrapper asJQuery removeClass: self focusClass ];
  554. onFocus: [ self wrapper asJQuery addClass: self focusClass ]
  555. ! !
  556. !HLFocusableWidget methodsFor: 'testing'!
  557. canHaveFocus
  558. ^ true
  559. !
  560. hasFocus
  561. ^ self wrapper notNil and: [ self wrapper asJQuery hasClass: self focusClass ]
  562. ! !
  563. HLFocusableWidget subclass: #HLListWidget
  564. instanceVariableNames: 'items selectedItem'
  565. package: 'Helios-Core'!
  566. !HLListWidget methodsFor: 'accessing'!
  567. activeItemCssClass
  568. ^'active'
  569. !
  570. buttonsDivCssClass
  571. ^ 'pane_actions form-actions'
  572. !
  573. cssClassForItem: anObject
  574. ^ ''
  575. !
  576. findListItemFor: anObject
  577. ^ (((wrapper asJQuery find: 'li')
  578. filter: [ :thisArg :otherArg | (thisArg asJQuery data: 'item') = anObject ] currySelf) eq: 0)
  579. !
  580. items
  581. ^ items ifNil: [ items := self defaultItems ]
  582. !
  583. items: aCollection
  584. items := aCollection
  585. !
  586. listCssClass
  587. ^'nav nav-pills nav-stacked'
  588. !
  589. listCssClassForItem: anObject
  590. ^ self selectedItem = anObject
  591. ifTrue: [ self activeItemCssClass ]
  592. ifFalse: [ 'inactive' ]
  593. !
  594. positionOf: aListItem
  595. <
  596. return aListItem.parent().children().get().indexOf(aListItem.get(0)) + 1
  597. >
  598. !
  599. selectedItem
  600. ^ selectedItem
  601. !
  602. selectedItem: anObject
  603. selectedItem := anObject
  604. ! !
  605. !HLListWidget methodsFor: 'actions'!
  606. activateFirstListItem
  607. self activateListItem: ((wrapper asJQuery find: 'li.inactive') eq: 0)
  608. !
  609. activateItem: anObject
  610. self activateListItem: (self findListItemFor: anObject)
  611. !
  612. activateListItem: aListItem
  613. | item |
  614. (aListItem get: 0) ifNil: [ ^ self ].
  615. aListItem parent children removeClass: self activeItemCssClass.
  616. aListItem addClass: self activeItemCssClass.
  617. self ensureVisible: aListItem.
  618. "Activate the corresponding item"
  619. item := aListItem data: 'item'.
  620. self selectedItem == item ifFalse: [
  621. self selectItem: item ]
  622. !
  623. activateNextListItem
  624. self activateListItem: (self wrapper asJQuery find: ('li.', self activeItemCssClass)) next.
  625. "select the first item if none is selected"
  626. (self wrapper asJQuery find: (' .', self activeItemCssClass)) get ifEmpty: [
  627. self activateFirstListItem ]
  628. !
  629. activatePreviousListItem
  630. self activateListItem: (self wrapper asJQuery find: ('li.', self activeItemCssClass)) prev
  631. !
  632. ensureVisible: aListItem
  633. "Move the scrollbar to show the active element"
  634. | parent position |
  635. (aListItem get: 0) ifNil: [ ^ self ].
  636. position := self positionOf: aListItem.
  637. parent := aListItem parent.
  638. aListItem position top < 0 ifTrue: [
  639. (parent get: 0) scrollTop: ((parent get: 0) scrollTop + aListItem position top - 10) ].
  640. aListItem position top + aListItem height > parent height ifTrue: [
  641. (parent get: 0) scrollTop: ((parent get: 0) scrollTop + aListItem height - (parent height - aListItem position top)) +10 ]
  642. !
  643. focus
  644. super focus.
  645. self items isEmpty ifFalse: [
  646. self selectedItem ifNil: [ self activateFirstListItem ] ]
  647. !
  648. reactivateListItem: aListItem
  649. self activateListItem: aListItem.
  650. self reselectItem: self selectedItem
  651. !
  652. refresh
  653. super refresh.
  654. self selectedItem ifNotNil: [self ensureVisible: (self findListItemFor: self selectedItem)].
  655. !
  656. reselectItem: anObject
  657. !
  658. selectItem: anObject
  659. self selectedItem: anObject
  660. ! !
  661. !HLListWidget methodsFor: 'defaults'!
  662. defaultItems
  663. ^ #()
  664. ! !
  665. !HLListWidget methodsFor: 'events'!
  666. setupKeyBindings
  667. (HLRepeatedKeyDownHandler on: self)
  668. whileKeyDown: 38 do: [ self activatePreviousListItem ];
  669. whileKeyDown: 40 do: [ self activateNextListItem ];
  670. rebindKeys.
  671. self wrapper asJQuery keydown: [ :e |
  672. e which = 13 ifTrue: [
  673. self reselectItem: self selectedItem ] ]
  674. ! !
  675. !HLListWidget methodsFor: 'rendering'!
  676. renderButtonsOn: html
  677. !
  678. renderContentOn: html
  679. html ul
  680. class: self listCssClass;
  681. with: [ self renderListOn: html ];
  682. onClick: [ self focus ].
  683. html div class: self buttonsDivCssClass; with: [
  684. self renderButtonsOn: html ].
  685. self setupKeyBindings
  686. !
  687. renderItem: anObject on: html
  688. | li |
  689. li := html li.
  690. li asJQuery data: 'item' put: anObject.
  691. li
  692. class: (self listCssClassForItem: anObject);
  693. with: [
  694. html a
  695. with: [
  696. (html tag: 'i') class: (self cssClassForItem: anObject).
  697. self renderItemLabel: anObject on: html ];
  698. onClick: [
  699. self reactivateListItem: li asJQuery ] ]
  700. !
  701. renderItemLabel: anObject on: html
  702. html with: anObject asString
  703. !
  704. renderListOn: html
  705. self items do: [ :each |
  706. self renderItem: each on: html ]
  707. ! !
  708. HLListWidget subclass: #HLNavigationListWidget
  709. instanceVariableNames: 'previous next'
  710. package: 'Helios-Core'!
  711. !HLNavigationListWidget methodsFor: 'accessing'!
  712. next
  713. ^ next
  714. !
  715. next: aWidget
  716. next := aWidget.
  717. aWidget previous = self ifFalse: [ aWidget previous: self ]
  718. !
  719. previous
  720. ^ previous
  721. !
  722. previous: aWidget
  723. previous := aWidget.
  724. aWidget next = self ifFalse: [ aWidget next: self ]
  725. ! !
  726. !HLNavigationListWidget methodsFor: 'actions'!
  727. nextFocus
  728. self next ifNotNil: [ self next focus ]
  729. !
  730. previousFocus
  731. self previous ifNotNil: [ self previous focus ]
  732. ! !
  733. !HLNavigationListWidget methodsFor: 'events'!
  734. setupKeyBindings
  735. super setupKeyBindings.
  736. self wrapper asJQuery keydown: [ :e |
  737. e which = 39 ifTrue: [
  738. self nextFocus ].
  739. e which = 37 ifTrue: [
  740. self previousFocus ] ]
  741. ! !
  742. HLNavigationListWidget subclass: #HLToolListWidget
  743. instanceVariableNames: 'model'
  744. package: 'Helios-Core'!
  745. !HLToolListWidget methodsFor: 'accessing'!
  746. commandCategory
  747. ^ self label
  748. !
  749. label
  750. ^ 'List'
  751. !
  752. menuCommands
  753. "Answer a collection of commands to be put in the cog menu"
  754. ^ ((HLToolCommand concreteClasses
  755. select: [ :each | each isValidFor: self model ])
  756. collect: [ :each | each for: self model ])
  757. select: [ :each |
  758. each category = self commandCategory and: [
  759. each isAction and: [ each isActive ] ] ]
  760. !
  761. model
  762. ^ model
  763. !
  764. model: aBrowserModel
  765. model := aBrowserModel.
  766. self
  767. observeSystem;
  768. observeModel
  769. !
  770. selectedItem: anItem
  771. "Selection changed, update the cog menu"
  772. super selectedItem: anItem.
  773. self updateMenu
  774. ! !
  775. !HLToolListWidget methodsFor: 'actions'!
  776. activateListItem: anItem
  777. self model withChangesDo: [ super activateListItem: anItem ]
  778. !
  779. activateNextListItem
  780. self model withChangesDo: [ super activateNextListItem ]
  781. !
  782. activatePreviousListItem
  783. self model withChangesDo: [ super activatePreviousListItem ]
  784. !
  785. observeModel
  786. !
  787. observeSystem
  788. !
  789. reactivateListItem: anItem
  790. self model withChangesDo: [ super reactivateListItem: anItem ]
  791. !
  792. unregister
  793. super unregister.
  794. self model announcer unsubscribe: self.
  795. self model systemAnnouncer unsubscribe: self
  796. ! !
  797. !HLToolListWidget methodsFor: 'rendering'!
  798. renderContentOn: html
  799. self renderHeadOn: html.
  800. super renderContentOn: html
  801. !
  802. renderHeadOn: html
  803. html div
  804. class: 'list-label';
  805. with: [
  806. html with: self label.
  807. self renderMenuOn: html ]
  808. !
  809. renderMenuOn: html
  810. | commands |
  811. commands := self menuCommands.
  812. commands isEmpty ifTrue: [ ^ self ].
  813. html div
  814. class: 'btn-group cog';
  815. with: [
  816. html a
  817. class: 'btn dropdown-toggle';
  818. at: 'data-toggle' put: 'dropdown';
  819. with: [ (html tag: 'i') class: 'icon-chevron-down' ].
  820. html ul
  821. class: 'dropdown-menu pull-right';
  822. with: [
  823. self menuCommands do: [ :each |
  824. html li with: [ html a
  825. with: each menuLabel;
  826. onClick: [ self execute: each ] ] ] ] ]
  827. ! !
  828. !HLToolListWidget methodsFor: 'updating'!
  829. updateMenu
  830. (self wrapper asJQuery find: '.cog') remove.
  831. [ :html | self renderMenuOn: html ]
  832. appendToJQuery: (self wrapper asJQuery find: '.list-label')
  833. ! !
  834. !HLToolListWidget class methodsFor: 'instance creation'!
  835. on: aModel
  836. ^ self new
  837. model: aModel;
  838. yourself
  839. ! !
  840. HLListWidget subclass: #HLTabListWidget
  841. instanceVariableNames: 'callback'
  842. package: 'Helios-Core'!
  843. !HLTabListWidget commentStamp!
  844. I am a widget used to display a list of helios tabs.
  845. When a tab is selected, `callback` is evaluated with the selected tab as argument.!
  846. !HLTabListWidget methodsFor: 'accessing'!
  847. callback
  848. ^ callback ifNil: [ [] ]
  849. !
  850. callback: aBlock
  851. callback := aBlock
  852. ! !
  853. !HLTabListWidget methodsFor: 'actions'!
  854. selectItem: aTab
  855. super selectItem: aTab.
  856. self callback value: aTab
  857. ! !
  858. !HLTabListWidget methodsFor: 'rendering'!
  859. renderItemLabel: aTab on: html
  860. html span
  861. class: aTab cssClass;
  862. with: aTab label
  863. ! !
  864. HLWidget subclass: #HLInformationWidget
  865. instanceVariableNames: 'informationString'
  866. package: 'Helios-Core'!
  867. !HLInformationWidget commentStamp!
  868. I display an information dialog.
  869. ## API
  870. `HLWidget >> #inform:` is a convenience method for creating information dialogs.!
  871. !HLInformationWidget methodsFor: 'accessing'!
  872. informationString
  873. ^ informationString ifNil: [ '' ]
  874. !
  875. informationString: anObject
  876. informationString := anObject
  877. ! !
  878. !HLInformationWidget methodsFor: 'actions'!
  879. remove
  880. [
  881. self wrapper asJQuery fadeOut: 100.
  882. [ self wrapper asJQuery remove ]
  883. valueWithTimeout: 400.
  884. ]
  885. valueWithTimeout: 1500
  886. !
  887. show
  888. self appendToJQuery: 'body' asJQuery
  889. ! !
  890. !HLInformationWidget methodsFor: 'rendering'!
  891. renderContentOn: html
  892. html div
  893. class: 'growl';
  894. with: self informationString.
  895. self remove
  896. ! !
  897. HLWidget subclass: #HLManager
  898. instanceVariableNames: 'tabsWidget environment history announcer'
  899. package: 'Helios-Core'!
  900. !HLManager methodsFor: 'accessing'!
  901. activeTab
  902. ^ self tabsWidget activeTab
  903. !
  904. announcer
  905. ^ announcer ifNil: [ announcer := Announcer new ]
  906. !
  907. environment
  908. "The default environment used by all Helios objects"
  909. ^ environment ifNil: [ environment := self defaultEnvironment ]
  910. !
  911. environment: anEnvironment
  912. environment := anEnvironment
  913. !
  914. history
  915. ^ history ifNil: [ history := OrderedCollection new ]
  916. !
  917. history: aCollection
  918. history := aCollection
  919. !
  920. keyBinder
  921. ^ HLKeyBinder current
  922. !
  923. setEditorTheme: aTheme
  924. 'helios.editorTheme' asSetting value: aTheme
  925. !
  926. setTheme: aTheme
  927. | currentTheme |
  928. currentTheme := 'helios.theme' asSettingIfAbsent: 'default'.
  929. 'body' asJQuery
  930. removeClass: currentTheme value;
  931. addClass: aTheme.
  932. 'helios.theme' asSetting value: aTheme
  933. !
  934. tabWidth
  935. ^ (window asJQuery width - 90) / self tabs size
  936. !
  937. tabs
  938. ^ self tabsWidget tabs
  939. !
  940. tabsWidget
  941. ^ tabsWidget ifNil: [ tabsWidget := HLTabsWidget new ]
  942. ! !
  943. !HLManager methodsFor: 'actions'!
  944. activate: aTab
  945. self tabsWidget activate: aTab
  946. !
  947. addTab: aTab
  948. self tabsWidget addTab: aTab
  949. !
  950. confirm: aString ifFalse: aBlock
  951. self
  952. confirm: aString
  953. ifTrue: []
  954. ifFalse: aBlock
  955. !
  956. confirm: aString ifTrue: aBlock
  957. self
  958. confirm: aString
  959. ifTrue: aBlock
  960. ifFalse: []
  961. !
  962. confirm: aString ifTrue: aBlock ifFalse: anotherBlock
  963. HLConfirmationWidget new
  964. confirmationString: aString;
  965. actionBlock: aBlock;
  966. cancelBlock: anotherBlock;
  967. show
  968. !
  969. inform: aString
  970. HLInformationWidget new
  971. informationString: aString;
  972. show
  973. !
  974. removeActiveTab
  975. self tabsWidget removeActiveTab
  976. !
  977. removeTabForWidget: aWidget
  978. self tabsWidget removeTabForWidget: aWidget
  979. !
  980. request: aString do: aBlock
  981. self
  982. request: aString
  983. value: ''
  984. do: aBlock
  985. !
  986. request: aString value: valueString do: aBlock
  987. HLRequestWidget new
  988. confirmationString: aString;
  989. actionBlock: aBlock;
  990. value: valueString;
  991. show
  992. ! !
  993. !HLManager methodsFor: 'defaults'!
  994. defaultEnvironment
  995. "If helios is loaded from within a frame, answer the parent window environment"
  996. | parent parentSmalltalkGlobals |
  997. parent := window opener ifNil: [ window parent ].
  998. parent ifNil: [ ^ Environment new ].
  999. [ parentSmalltalkGlobals := ((parent at: 'requirejs') value: 'amber/boot') at: 'globals' ]
  1000. on: Error do: [ parentSmalltalkGlobals := (parent at: 'requirejs') value: 'amber_vm/globals' ].
  1001. parentSmalltalkGlobals ifNil: [ ^ Environment new ].
  1002. ^ (parentSmalltalkGlobals at: 'Environment') new
  1003. ! !
  1004. !HLManager methodsFor: 'initialization'!
  1005. setup
  1006. self
  1007. registerServices;
  1008. setupEvents.
  1009. self keyBinder setupEvents.
  1010. self tabsWidget setupEvents.
  1011. self setupTheme.
  1012. '#helper' asJQuery fadeOut
  1013. ! !
  1014. !HLManager methodsFor: 'private'!
  1015. registerServices
  1016. self
  1017. registerInspector;
  1018. registerErrorHandler;
  1019. registerProgressHandler;
  1020. registerTranscript;
  1021. registerFinder
  1022. !
  1023. setupEvents
  1024. 'body' asJQuery keydown: [ :event |
  1025. "On ctrl keydown, adds a 'navigation' css class to <body>
  1026. for the CodeMirror navigation links. See `HLCodeWidget`."
  1027. event ctrlKey ifTrue: [
  1028. 'body' asJQuery addClass: 'navigation' ] ].
  1029. 'body' asJQuery keyup: [ :event |
  1030. 'body' asJQuery removeClass: 'navigation' ].
  1031. window asJQuery resize: [ :event |
  1032. self refresh ]
  1033. !
  1034. setupTheme
  1035. "self
  1036. setTheme: 'niflheim';
  1037. setEditorTheme: 'niflheim'."
  1038. self
  1039. setTheme: 'default';
  1040. setEditorTheme: 'default'.
  1041. ! !
  1042. !HLManager methodsFor: 'rendering'!
  1043. renderContentOn: html
  1044. html with: self tabsWidget.
  1045. html with: HLWelcomeWidget new
  1046. ! !
  1047. !HLManager methodsFor: 'services'!
  1048. registerErrorHandler
  1049. self environment registerErrorHandler: HLErrorHandler new.
  1050. ErrorHandler register: HLErrorHandler new
  1051. !
  1052. registerFinder
  1053. self environment registerFinder: HLFinder new.
  1054. Finder register: HLFinder new
  1055. !
  1056. registerInspector
  1057. self environment registerInspector: HLInspector.
  1058. Inspector register: HLInspector
  1059. !
  1060. registerProgressHandler
  1061. self environment registerProgressHandler: HLProgressHandler new.
  1062. ProgressHandler register: HLProgressHandler new
  1063. !
  1064. registerTranscript
  1065. self environment registerTranscript: HLTranscriptHandler
  1066. ! !
  1067. HLManager class instanceVariableNames: 'current'!
  1068. !HLManager class methodsFor: 'accessing'!
  1069. current
  1070. ^ current ifNil: [ current := self basicNew initialize ]
  1071. ! !
  1072. !HLManager class methodsFor: 'initialization'!
  1073. setup
  1074. self current
  1075. setup;
  1076. appendToJQuery: 'body' asJQuery
  1077. ! !
  1078. !HLManager class methodsFor: 'instance creation'!
  1079. new
  1080. "Use current instead"
  1081. self shouldNotImplement
  1082. ! !
  1083. HLWidget subclass: #HLModalWidget
  1084. instanceVariableNames: ''
  1085. package: 'Helios-Core'!
  1086. !HLModalWidget commentStamp!
  1087. I implement an abstract modal widget.!
  1088. !HLModalWidget methodsFor: 'actions'!
  1089. remove
  1090. '.dialog' asJQuery removeClass: 'active'.
  1091. [
  1092. '#overlay' asJQuery remove.
  1093. wrapper asJQuery remove
  1094. ] valueWithTimeout: 300
  1095. !
  1096. show
  1097. self appendToJQuery: 'body' asJQuery
  1098. ! !
  1099. !HLModalWidget methodsFor: 'private'!
  1100. giveFocusToButton: aButton
  1101. aButton asJQuery focus
  1102. ! !
  1103. !HLModalWidget methodsFor: 'rendering'!
  1104. hasButtons
  1105. ^ true
  1106. !
  1107. renderButtonsOn: html
  1108. !
  1109. renderContentOn: html
  1110. | confirmButton |
  1111. html div id: 'overlay'.
  1112. html div
  1113. class: 'dialog ', self cssClass;
  1114. with: [
  1115. self renderMainOn: html.
  1116. self hasButtons ifTrue: [
  1117. self renderButtonsOn: html ] ].
  1118. '.dialog' asJQuery addClass: 'active'.
  1119. self setupKeyBindings
  1120. !
  1121. renderMainOn: html
  1122. !
  1123. setupKeyBindings
  1124. '.dialog' asJQuery keyup: [ :e |
  1125. e keyCode = String esc asciiValue ifTrue: [ self cancel ] ]
  1126. ! !
  1127. HLModalWidget subclass: #HLConfirmationWidget
  1128. instanceVariableNames: 'cancelButtonLabel confirmButtonLabel confirmationString actionBlock cancelBlock'
  1129. package: 'Helios-Core'!
  1130. !HLConfirmationWidget commentStamp!
  1131. I display confirmation dialog.
  1132. ## API
  1133. HLWidget contains convenience methods like `HLWidget >> #confirm:ifTrue:` for creating confirmation dialogs.!
  1134. !HLConfirmationWidget methodsFor: 'accessing'!
  1135. actionBlock
  1136. ^ actionBlock ifNil: [ [] ]
  1137. !
  1138. actionBlock: aBlock
  1139. actionBlock := aBlock
  1140. !
  1141. cancelBlock
  1142. ^ cancelBlock ifNil: [ [] ]
  1143. !
  1144. cancelBlock: aBlock
  1145. cancelBlock := aBlock
  1146. !
  1147. cancelButtonLabel
  1148. ^ cancelButtonLabel ifNil: [ 'Cancel' ]
  1149. !
  1150. cancelButtonLabel: aString
  1151. ^ cancelButtonLabel := aString
  1152. !
  1153. confirmButtonLabel
  1154. ^ confirmButtonLabel ifNil: [ 'Confirm' ]
  1155. !
  1156. confirmButtonLabel: aString
  1157. ^ confirmButtonLabel := aString
  1158. !
  1159. confirmationString
  1160. ^ confirmationString ifNil: [ 'Confirm' ]
  1161. !
  1162. confirmationString: aString
  1163. confirmationString := aString
  1164. ! !
  1165. !HLConfirmationWidget methodsFor: 'actions'!
  1166. cancel
  1167. self cancelBlock value.
  1168. self remove
  1169. !
  1170. confirm
  1171. self remove.
  1172. self actionBlock value
  1173. ! !
  1174. !HLConfirmationWidget methodsFor: 'rendering'!
  1175. renderButtonsOn: html
  1176. | confirmButton |
  1177. html div
  1178. class: 'buttons';
  1179. with: [
  1180. html button
  1181. class: 'button';
  1182. with: self cancelButtonLabel;
  1183. onClick: [ self cancel ].
  1184. confirmButton := html button
  1185. class: 'button default';
  1186. with: self confirmButtonLabel;
  1187. onClick: [ self confirm ] ].
  1188. self giveFocusToButton:confirmButton
  1189. !
  1190. renderMainOn: html
  1191. html span
  1192. class: 'head';
  1193. with: self confirmationString
  1194. ! !
  1195. HLConfirmationWidget subclass: #HLRequestWidget
  1196. instanceVariableNames: 'input multiline value'
  1197. package: 'Helios-Core'!
  1198. !HLRequestWidget commentStamp!
  1199. I display a modal window requesting user input.
  1200. ## API
  1201. `HLWidget >> #request:do:` and `#request:value:do:` are convenience methods for creating modal request dialogs.!
  1202. !HLRequestWidget methodsFor: 'accessing'!
  1203. beMultiline
  1204. multiline := true
  1205. !
  1206. beSingleline
  1207. multiline := false
  1208. !
  1209. cssClass
  1210. ^ 'large'
  1211. !
  1212. value
  1213. ^ value ifNil: [ '' ]
  1214. !
  1215. value: aString
  1216. value := aString
  1217. ! !
  1218. !HLRequestWidget methodsFor: 'actions'!
  1219. confirm
  1220. | val |
  1221. val := input asJQuery val.
  1222. self remove.
  1223. self actionBlock value: val
  1224. ! !
  1225. !HLRequestWidget methodsFor: 'private'!
  1226. giveFocusToButton: aButton
  1227. ! !
  1228. !HLRequestWidget methodsFor: 'rendering'!
  1229. renderMainOn: html
  1230. super renderMainOn: html.
  1231. self isMultiline
  1232. ifTrue: [ input := html textarea ]
  1233. ifFalse: [ input := html input
  1234. type: 'text';
  1235. onKeyDown: [ :event |
  1236. event keyCode = 13 ifTrue: [
  1237. self confirm ] ];
  1238. yourself ].
  1239. input asJQuery
  1240. val: self value;
  1241. focus
  1242. ! !
  1243. !HLRequestWidget methodsFor: 'testing'!
  1244. isMultiline
  1245. ^ multiline ifNil: [ true ]
  1246. ! !
  1247. HLModalWidget subclass: #HLProgressWidget
  1248. instanceVariableNames: 'progressBars visible'
  1249. package: 'Helios-Core'!
  1250. !HLProgressWidget commentStamp!
  1251. I am a widget used to display progress modal dialogs.
  1252. My default instance is accessed with `HLProgressWidget class >> #default`.
  1253. See `HLProgressHandler` for usage.!
  1254. !HLProgressWidget methodsFor: 'accessing'!
  1255. progressBars
  1256. ^ progressBars ifNil: [ progressBars := OrderedCollection new ]
  1257. ! !
  1258. !HLProgressWidget methodsFor: 'actions'!
  1259. addProgressBar: aProgressBar
  1260. self show.
  1261. self progressBars add: aProgressBar.
  1262. aProgressBar appendToJQuery: (self wrapper asJQuery find: '.dialog')
  1263. !
  1264. do: aBlock on: aCollection displaying: aString
  1265. | progressBar |
  1266. progressBar := HLProgressBarWidget new
  1267. parent: self;
  1268. label: aString;
  1269. workBlock: aBlock;
  1270. collection: aCollection;
  1271. yourself.
  1272. self addProgressBar: progressBar.
  1273. progressBar start
  1274. !
  1275. flush
  1276. self progressBars do: [ :each |
  1277. self removeProgressBar: each ]
  1278. !
  1279. remove
  1280. self isVisible ifTrue: [
  1281. visible := false.
  1282. super remove ]
  1283. !
  1284. removeProgressBar: aProgressBar
  1285. self progressBars remove: aProgressBar ifAbsent: [].
  1286. aProgressBar wrapper asJQuery remove.
  1287. self progressBars ifEmpty: [ self remove ]
  1288. !
  1289. show
  1290. self isVisible ifFalse: [
  1291. visible := true.
  1292. super show ]
  1293. ! !
  1294. !HLProgressWidget methodsFor: 'rendering'!
  1295. renderMainOn: html
  1296. self progressBars do: [ :each |
  1297. html with: each ]
  1298. ! !
  1299. !HLProgressWidget methodsFor: 'testing'!
  1300. hasButtons
  1301. ^ false
  1302. !
  1303. isVisible
  1304. ^ visible ifNil: [ false ]
  1305. ! !
  1306. HLProgressWidget class instanceVariableNames: 'default'!
  1307. !HLProgressWidget class methodsFor: 'accessing'!
  1308. default
  1309. ^ default ifNil: [ default := self new ]
  1310. ! !
  1311. HLModalWidget subclass: #HLTabSelectionWidget
  1312. instanceVariableNames: 'tabs tabList selectedTab selectCallback cancelCallback confirmCallback'
  1313. package: 'Helios-Core'!
  1314. !HLTabSelectionWidget commentStamp!
  1315. I am a modal window used to select or create tabs.!
  1316. !HLTabSelectionWidget methodsFor: 'accessing'!
  1317. cancelCallback
  1318. ^ cancelCallback ifNil: [ [] ]
  1319. !
  1320. cancelCallback: aBlock
  1321. cancelCallback := aBlock
  1322. !
  1323. confirmCallback
  1324. ^ confirmCallback ifNil: [ [] ]
  1325. !
  1326. confirmCallback: aBlock
  1327. confirmCallback := aBlock
  1328. !
  1329. selectCallback
  1330. ^ selectCallback ifNil: [ [] ]
  1331. !
  1332. selectCallback: aBlock
  1333. selectCallback := aBlock
  1334. !
  1335. selectedTab
  1336. ^ selectedTab
  1337. !
  1338. selectedTab: aTab
  1339. selectedTab := aTab
  1340. !
  1341. tabs
  1342. ^ tabs ifNil: [ #() ]
  1343. !
  1344. tabs: aCollection
  1345. tabs := aCollection
  1346. ! !
  1347. !HLTabSelectionWidget methodsFor: 'actions'!
  1348. cancel
  1349. self remove.
  1350. self cancelCallback value
  1351. !
  1352. confirm
  1353. self remove.
  1354. self confirmCallback value: self selectedTab
  1355. !
  1356. selectTab: aTab
  1357. self selectedTab: aTab.
  1358. self selectCallback value: aTab
  1359. !
  1360. setupKeyBindings
  1361. super setupKeyBindings.
  1362. '.dialog' asJQuery keyup: [ :e |
  1363. e keyCode = String cr asciiValue ifTrue: [ self confirm ] ]
  1364. ! !
  1365. !HLTabSelectionWidget methodsFor: 'rendering'!
  1366. renderButtonsOn: html
  1367. | confirmButton |
  1368. html div
  1369. class: 'buttons';
  1370. with: [
  1371. html button
  1372. class: 'button';
  1373. with: 'Cancel';
  1374. onClick: [ self cancel ].
  1375. confirmButton := html button
  1376. class: 'button default';
  1377. with: 'Select tab';
  1378. onClick: [ self confirm ] ].
  1379. self giveFocusToButton:confirmButton
  1380. !
  1381. renderContentOn: html
  1382. super renderContentOn: html.
  1383. self tabList focus
  1384. !
  1385. renderMainOn: html
  1386. html div
  1387. class: 'title';
  1388. with: 'Tab selection'.
  1389. html with: self tabList
  1390. !
  1391. renderTab: aTab on: html
  1392. html
  1393. span
  1394. class: aTab cssClass;
  1395. with: aTab label
  1396. !
  1397. renderTabsOn: html
  1398. self tabs do: [ :each |
  1399. html li with: [
  1400. html a
  1401. with: [
  1402. self renderTab: each on: html ];
  1403. onClick: [ self selectTab: each ] ] ]
  1404. !
  1405. tabList
  1406. tabList ifNil: [
  1407. tabList := HLTabListWidget new.
  1408. tabList
  1409. callback: [ :tab | self selectTab: tab. tabList focus ];
  1410. selectedItem: self selectedTab;
  1411. items: self tabs ].
  1412. ^ tabList
  1413. ! !
  1414. HLWidget subclass: #HLProgressBarWidget
  1415. instanceVariableNames: 'label parent workBlock collection bar'
  1416. package: 'Helios-Core'!
  1417. !HLProgressBarWidget commentStamp!
  1418. I am a widget used to display a progress bar while iterating over a collection.!
  1419. !HLProgressBarWidget methodsFor: 'accessing'!
  1420. collection
  1421. ^ collection
  1422. !
  1423. collection: aCollection
  1424. collection := aCollection
  1425. !
  1426. label
  1427. ^ label
  1428. !
  1429. label: aString
  1430. label := aString
  1431. !
  1432. parent
  1433. ^ parent
  1434. !
  1435. parent: aProgress
  1436. parent := aProgress
  1437. !
  1438. workBlock
  1439. ^ workBlock
  1440. !
  1441. workBlock: aBlock
  1442. workBlock := aBlock
  1443. ! !
  1444. !HLProgressBarWidget methodsFor: 'actions'!
  1445. evaluateAt: anInteger
  1446. self updateProgress: (anInteger / self collection size) * 100.
  1447. anInteger <= self collection size
  1448. ifTrue: [
  1449. [
  1450. self workBlock value: (self collection at: anInteger).
  1451. self evaluateAt: anInteger + 1 ] valueWithTimeout: 10 ]
  1452. ifFalse: [ [ self remove ] valueWithTimeout: 500 ]
  1453. !
  1454. remove
  1455. self parent removeProgressBar: self
  1456. !
  1457. start
  1458. "Make sure the UI has some time to update itself between each iteration"
  1459. self evaluateAt: 1
  1460. !
  1461. updateProgress: anInteger
  1462. bar asJQuery css: 'width' put: anInteger asString, '%'
  1463. ! !
  1464. !HLProgressBarWidget methodsFor: 'rendering'!
  1465. renderContentOn: html
  1466. html span with: self label.
  1467. html div
  1468. class: 'progress';
  1469. with: [
  1470. bar := html div
  1471. class: 'bar';
  1472. style: 'width: 0%' ]
  1473. ! !
  1474. HLProgressBarWidget class instanceVariableNames: 'default'!
  1475. !HLProgressBarWidget class methodsFor: 'accessing'!
  1476. default
  1477. ^ default ifNil: [ default := self new ]
  1478. ! !
  1479. HLWidget subclass: #HLTabWidget
  1480. instanceVariableNames: 'widget label root'
  1481. package: 'Helios-Core'!
  1482. !HLTabWidget commentStamp!
  1483. I am a widget specialized into building another widget as an Helios tab.
  1484. I should not be used directly, `HLWidget class >> #openAsTab` should be used instead.
  1485. ## Example
  1486. HLWorkspace openAsTab!
  1487. !HLTabWidget methodsFor: 'accessing'!
  1488. activate
  1489. self manager activate: self
  1490. !
  1491. cssClass
  1492. ^ self widget tabClass
  1493. !
  1494. focus
  1495. self widget canHaveFocus ifTrue: [
  1496. self widget focus ]
  1497. !
  1498. label
  1499. ^ label ifNil: [ '' ]
  1500. !
  1501. label: aString
  1502. label := aString
  1503. !
  1504. manager
  1505. ^ HLManager current
  1506. !
  1507. widget
  1508. ^ widget
  1509. !
  1510. widget: aWidget
  1511. widget := aWidget
  1512. ! !
  1513. !HLTabWidget methodsFor: 'actions'!
  1514. add
  1515. self manager addTab: self.
  1516. self observeManager
  1517. !
  1518. hide
  1519. root ifNotNil: [ root asJQuery css: 'visibility' put: 'hidden' ]
  1520. !
  1521. observeManager
  1522. self manager announcer
  1523. on: HLTabLabelChanged
  1524. send: #onTabLabelChanged:
  1525. to: self
  1526. !
  1527. registerBindings
  1528. self widget registerBindings
  1529. !
  1530. remove
  1531. self unregister.
  1532. self widget unregister.
  1533. root ifNotNil: [ root asJQuery remove ]
  1534. !
  1535. show
  1536. root
  1537. ifNil: [ self appendToJQuery: 'body' asJQuery ]
  1538. ifNotNil: [ root asJQuery css: 'visibility' put: 'visible' ]
  1539. !
  1540. unregister
  1541. self manager announcer unsubscribe: self
  1542. ! !
  1543. !HLTabWidget methodsFor: 'reactions'!
  1544. onTabLabelChanged: anAnnouncement
  1545. anAnnouncement widget = self widget ifTrue: [
  1546. self label = anAnnouncement label ifFalse: [
  1547. self label: anAnnouncement label.
  1548. self manager refresh ] ]
  1549. ! !
  1550. !HLTabWidget methodsFor: 'rendering'!
  1551. renderOn: html
  1552. root := html div
  1553. class: 'tab';
  1554. yourself.
  1555. self renderTab
  1556. !
  1557. renderTab
  1558. root contents: [ :html |
  1559. html div
  1560. class: 'amber_box';
  1561. with: [ self widget renderOn: html ] ]
  1562. ! !
  1563. !HLTabWidget methodsFor: 'testing'!
  1564. isActive
  1565. ^ self manager activeTab = self
  1566. ! !
  1567. !HLTabWidget class methodsFor: 'instance creation'!
  1568. on: aWidget labelled: aString
  1569. ^ self new
  1570. widget: aWidget;
  1571. label: aString;
  1572. yourself
  1573. ! !
  1574. HLWidget subclass: #HLTabsWidget
  1575. instanceVariableNames: 'tabs activeTab history selectionDisabled'
  1576. package: 'Helios-Core'!
  1577. !HLTabsWidget methodsFor: 'accessing'!
  1578. activeTab
  1579. ^ activeTab
  1580. !
  1581. history
  1582. ^ history ifNil: [ history := OrderedCollection new ]
  1583. !
  1584. history: aCollection
  1585. history := aCollection
  1586. !
  1587. tabWidth
  1588. ^ (window asJQuery width - 90) / self tabs size
  1589. !
  1590. tabs
  1591. ^ tabs ifNil: [ tabs := OrderedCollection new ]
  1592. ! !
  1593. !HLTabsWidget methodsFor: 'actions'!
  1594. activate: aTab
  1595. self isSelectionDisabled ifTrue: [ ^ self ].
  1596. self manager keyBinder flushBindings.
  1597. aTab registerBindings.
  1598. activeTab := aTab.
  1599. self
  1600. refresh;
  1601. addToHistory: aTab;
  1602. show: aTab
  1603. !
  1604. activateNextTab
  1605. | nextTab |
  1606. self tabs ifEmpty: [ ^ self ].
  1607. nextTab := self tabs
  1608. at: (self tabs indexOf: self activeTab) + 1
  1609. ifAbsent: [ self tabs first ].
  1610. self activate: nextTab
  1611. !
  1612. activatePreviousTab
  1613. | previousTab |
  1614. self tabs ifEmpty: [ ^ self ].
  1615. previousTab := self tabs
  1616. at: (self tabs indexOf: self activeTab) - 1
  1617. ifAbsent: [ self tabs last ].
  1618. self activate: previousTab
  1619. !
  1620. addTab: aTab
  1621. self tabs add: aTab.
  1622. self activate: aTab
  1623. !
  1624. addToHistory: aTab
  1625. self removeFromHistory: aTab.
  1626. self history add: aTab
  1627. !
  1628. disableSelection
  1629. selectionDisabled := true
  1630. !
  1631. enableSelection
  1632. selectionDisabled := false
  1633. !
  1634. removeActiveTab
  1635. self removeTab: self activeTab
  1636. !
  1637. removeFromHistory: aTab
  1638. self history: (self history reject: [ :each | each == aTab ])
  1639. !
  1640. removeTab: aTab
  1641. (self tabs includes: aTab) ifFalse: [ ^ self ].
  1642. self removeFromHistory: aTab.
  1643. self tabs remove: aTab.
  1644. self manager keyBinder flushBindings.
  1645. aTab remove.
  1646. self refresh.
  1647. self history ifNotEmpty: [
  1648. self history last activate ]
  1649. !
  1650. removeTabForWidget: aWidget
  1651. self removeTab: (self tabs
  1652. detect: [ :each | each widget = aWidget ]
  1653. ifNone: [ ^ self ])
  1654. !
  1655. updateTabsOrder
  1656. tabs := '.main-tabs li' asJQuery toArray
  1657. collect: [ :each | each at: 'tab-data' ]
  1658. ! !
  1659. !HLTabsWidget methodsFor: 'private'!
  1660. setupEvents
  1661. 'body' asJQuery keydown: [ :event |
  1662. "ctrl+> and ctrl+<"
  1663. (event ctrlKey and: [ event which = 188 ]) ifTrue: [
  1664. self activatePreviousTab.
  1665. event preventDefault ].
  1666. (event ctrlKey and: [ event which = 190 ]) ifTrue: [
  1667. self activateNextTab.
  1668. event preventDefault ] ]
  1669. ! !
  1670. !HLTabsWidget methodsFor: 'rendering'!
  1671. renderAddOn: html
  1672. html div
  1673. class: 'dropdown new_tab';
  1674. with: [
  1675. html a
  1676. class: 'dropdown-toggle';
  1677. at: 'data-toggle' put: 'dropdown';
  1678. with: [
  1679. (html tag: 'b') class: 'caret' ].
  1680. html ul
  1681. class: 'dropdown-menu';
  1682. with: [
  1683. ((HLWidget withAllSubclasses
  1684. select: [ :each | each canBeOpenAsTab ])
  1685. sorted: [ :a :b | a tabPriority < b tabPriority ])
  1686. do: [ :each |
  1687. html li with: [
  1688. html a
  1689. with: each tabLabel;
  1690. onClick: [ each openAsTab ] ] ] ] ]
  1691. !
  1692. renderContentOn: html
  1693. html div
  1694. class: 'navbar navbar-fixed-top';
  1695. with: [ html div
  1696. class: 'navbar-inner';
  1697. with: [ self renderTabsOn: html ] ].
  1698. self renderAddOn: html
  1699. !
  1700. renderTab: aTab on: html
  1701. | li |
  1702. li := html li
  1703. style: 'width: ', self tabWidth asString, 'px';
  1704. class: (aTab isActive ifTrue: [ 'tab active' ] ifFalse: [ 'tab inactive' ]);
  1705. with: [
  1706. html a
  1707. with: [
  1708. ((html tag: 'i') class: 'close')
  1709. onClick: [ self removeTab: aTab ].
  1710. html span
  1711. class: aTab cssClass;
  1712. title: aTab label;
  1713. with: aTab label ] ];
  1714. onClick: [ aTab activate ].
  1715. (li asJQuery get: 0) at: 'tab-data' put: aTab
  1716. !
  1717. renderTabsOn: html
  1718. | ul |
  1719. ul := html ul
  1720. class: 'nav main-tabs';
  1721. with: [
  1722. self tabs do: [ :each |
  1723. self renderTab: each on: html ] ].
  1724. ul asJQuery sortable: #{
  1725. 'containment' -> 'parent'.
  1726. 'start' -> [ self disableSelection ].
  1727. 'stop' -> [ [ self enableSelection] valueWithTimeout: 300 ].
  1728. 'update' -> [ self updateTabsOrder ]
  1729. }
  1730. !
  1731. show: aTab
  1732. self tabs do: [ :each | each hide ].
  1733. aTab show; focus
  1734. ! !
  1735. !HLTabsWidget methodsFor: 'testing'!
  1736. isSelectionDisabled
  1737. ^ selectionDisabled ifNil: [ false ]
  1738. ! !
  1739. HLTabsWidget class instanceVariableNames: 'current'!
  1740. HLWidget subclass: #HLWelcomeWidget
  1741. instanceVariableNames: ''
  1742. package: 'Helios-Core'!
  1743. !HLWelcomeWidget methodsFor: 'accessing'!
  1744. cssClass
  1745. ^ 'welcome'
  1746. ! !
  1747. !HLWelcomeWidget methodsFor: 'actions'!
  1748. openClassBrowser
  1749. HLBrowser openAsTab
  1750. !
  1751. openHelp
  1752. !
  1753. openTestRunner
  1754. HLSUnit openAsTab
  1755. !
  1756. openWorkspace
  1757. HLWorkspace openAsTab
  1758. ! !
  1759. !HLWelcomeWidget methodsFor: 'rendering'!
  1760. renderButtonsOn: html
  1761. html button
  1762. class: 'button';
  1763. with: 'Class Browser';
  1764. onClick: [ self openClassBrowser ].
  1765. html button
  1766. class: 'button';
  1767. with: 'Workspace';
  1768. onClick: [ self openWorkspace ].
  1769. html button
  1770. class: 'button';
  1771. with: 'Test Runner';
  1772. onClick: [ self openTestRunner ].
  1773. "html button
  1774. class: 'button';
  1775. with: 'Help';
  1776. onClick: [ self openHelp ]"
  1777. !
  1778. renderContentOn: html
  1779. self
  1780. renderHelpOn: html;
  1781. renderButtonsOn: html
  1782. !
  1783. renderHelpOn: html
  1784. html h2 with: 'No tools are open'.
  1785. html ul with: [
  1786. html li with: 'Perform actions with ctrl + space'.
  1787. html li with: 'Open one of the common tools:' ]
  1788. ! !