2
0

Helios-Core.st 35 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602160316041605160616071608160916101611161216131614161516161617161816191620162116221623162416251626162716281629163016311632163316341635163616371638163916401641164216431644164516461647164816491650165116521653165416551656165716581659166016611662166316641665166616671668166916701671167216731674167516761677167816791680168116821683168416851686168716881689169016911692169316941695169616971698169917001701170217031704170517061707170817091710171117121713171417151716171717181719172017211722172317241725172617271728172917301731173217331734173517361737173817391740174117421743174417451746174717481749175017511752175317541755175617571758175917601761176217631764176517661767176817691770177117721773177417751776177717781779178017811782178317841785178617871788178917901791179217931794179517961797179817991800180118021803180418051806180718081809181018111812181318141815181618171818181918201821182218231824182518261827182818291830183118321833
  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. aBlock value.
  33. ]
  34. on: HLChangeForbidden
  35. do: [ :ex | ]
  36. ! !
  37. !HLModel methodsFor: 'testing'!
  38. isBrowserModel
  39. ^ false
  40. !
  41. isReferencesModel
  42. ^ false
  43. !
  44. isToolModel
  45. ^ false
  46. ! !
  47. HLModel subclass: #HLToolModel
  48. instanceVariableNames: 'selectedClass selectedPackage selectedProtocol selectedSelector'
  49. package: 'Helios-Core'!
  50. !HLToolModel commentStamp!
  51. I am a model specific to package and class manipulation. All browsers should either use me or a subclass as their model.
  52. I provide methods for package, class, protocol and method manipulation and access, forwarding to my environment.
  53. I also handle compilation of classes and methods as well as compilation and parsing errors.!
  54. !HLToolModel methodsFor: 'accessing'!
  55. allSelectors
  56. ^ self environment allSelectors
  57. !
  58. availableClassNames
  59. ^ self environment availableClassNames
  60. !
  61. availablePackageNames
  62. ^ self environment availablePackageNames
  63. !
  64. availablePackages
  65. ^ self environment availablePackageNames
  66. !
  67. availableProtocols
  68. ^ self environment availableProtocolsFor: self selectedClass
  69. !
  70. packages
  71. ^ self environment packages
  72. !
  73. selectedClass
  74. ^ selectedClass
  75. !
  76. selectedClass: aClass
  77. (self selectedClass = aClass and: [ aClass isNil ])
  78. ifTrue: [ ^ self ].
  79. self withChangesDo: [
  80. selectedClass = aClass ifTrue: [
  81. self selectedProtocol: nil ].
  82. aClass
  83. ifNil: [ selectedClass := nil ]
  84. ifNotNil: [
  85. self selectedPackage: aClass theNonMetaClass package.
  86. self showInstance
  87. ifTrue: [ selectedClass := aClass theNonMetaClass ]
  88. ifFalse: [ selectedClass := aClass theMetaClass ] ].
  89. self selectedProtocol: nil.
  90. self announcer announce: (HLClassSelected on: self selectedClass) ]
  91. !
  92. selectedMethod
  93. ^ self selectedClass ifNotNil: [
  94. self selectedClass methodDictionary
  95. at: selectedSelector
  96. ifAbsent: [ nil ] ]
  97. !
  98. selectedMethod: aCompiledMethod
  99. selectedSelector = aCompiledMethod ifTrue: [ ^ self ].
  100. self withChangesDo: [
  101. aCompiledMethod
  102. ifNil: [ selectedSelector := nil ]
  103. ifNotNil: [
  104. selectedClass := aCompiledMethod methodClass.
  105. selectedPackage := selectedClass theNonMetaClass package.
  106. selectedSelector := aCompiledMethod selector ].
  107. self announcer announce: (HLMethodSelected on: aCompiledMethod) ]
  108. !
  109. selectedPackage
  110. ^ selectedPackage
  111. !
  112. selectedPackage: aPackage
  113. selectedPackage = aPackage ifTrue: [ ^ self ].
  114. self withChangesDo: [
  115. selectedPackage := aPackage.
  116. self selectedClass: nil.
  117. self announcer announce: (HLPackageSelected on: aPackage) ]
  118. !
  119. selectedProtocol
  120. ^ selectedProtocol
  121. !
  122. selectedProtocol: aString
  123. selectedProtocol = aString ifTrue: [ ^ self ].
  124. self withChangesDo: [
  125. selectedProtocol := aString.
  126. self selectedMethod: nil.
  127. self announcer announce: (HLProtocolSelected on: aString) ]
  128. ! !
  129. !HLToolModel methodsFor: 'actions'!
  130. addInstVarNamed: aString
  131. self environment addInstVarNamed: aString to: self selectedClass.
  132. self announcer announce: (HLInstVarAdded new
  133. theClass: self selectedClass;
  134. variableName: aString;
  135. yourself)
  136. !
  137. save: aString
  138. self announcer announce: HLSourceCodeSaved new.
  139. (self shouldCompileClassDefinition: aString)
  140. ifTrue: [ self compileClassDefinition: aString ]
  141. ifFalse: [ self compileMethod: aString ]
  142. !
  143. saveSourceCode
  144. self announcer announce: HLSaveSourceCode new
  145. ! !
  146. !HLToolModel methodsFor: 'commands actions'!
  147. commitPackage
  148. self environment commitPackage: self selectedPackage
  149. !
  150. copyClassTo: aClassName
  151. self withChangesDo: [
  152. self environment
  153. copyClass: self selectedClass theNonMetaClass
  154. to: aClassName ]
  155. !
  156. moveClassToPackage: aPackageName
  157. self withChangesDo: [
  158. self environment
  159. moveClass: self selectedClass theNonMetaClass
  160. toPackage: aPackageName ]
  161. !
  162. moveMethodToClass: aClassName
  163. self withChangesDo: [
  164. self environment
  165. moveMethod: self selectedMethod
  166. toClass: aClassName ]
  167. !
  168. moveMethodToProtocol: aProtocol
  169. self withChangesDo: [
  170. self environment
  171. moveMethod: self selectedMethod
  172. toProtocol: aProtocol ]
  173. !
  174. openClassNamed: aString
  175. | class |
  176. self withChangesDo: [
  177. class := self environment classNamed: aString.
  178. self selectedPackage: class package.
  179. self selectedClass: class ]
  180. !
  181. removeClass
  182. self withChangesDo: [
  183. self manager
  184. confirm: 'Do you REALLY want to remove class ', self selectedClass name
  185. ifTrue: [ self environment removeClass: self selectedClass ] ]
  186. !
  187. removeMethod
  188. self withChangesDo: [
  189. self manager
  190. confirm: 'Do you REALLY want to remove method ', self selectedMethod methodClass name,' >> #', self selectedMethod selector
  191. ifTrue: [ self environment removeMethod: self selectedMethod ] ]
  192. !
  193. removeProtocol
  194. self withChangesDo: [
  195. self manager
  196. confirm: 'Do you REALLY want to remove protocol ', self selectedProtocol
  197. ifTrue: [ self environment
  198. removeProtocol: self selectedProtocol
  199. from: self selectedClass ] ]
  200. !
  201. renameClassTo: aClassName
  202. self withChangesDo: [
  203. self environment
  204. renameClass: self selectedClass theNonMetaClass
  205. to: aClassName ]
  206. !
  207. renameProtocolTo: aString
  208. self withChangesDo: [
  209. self environment
  210. renameProtocol: self selectedProtocol
  211. to: aString
  212. in: self selectedClass ]
  213. ! !
  214. !HLToolModel methodsFor: 'compiling'!
  215. compileClassComment: aString
  216. self environment
  217. compileClassComment: aString
  218. for: self selectedClass
  219. !
  220. compileClassDefinition: aString
  221. self environment compileClassDefinition: aString
  222. !
  223. compileMethod: aString
  224. | method |
  225. self withCompileErrorHandling: [
  226. method := self environment
  227. compileMethod: aString
  228. for: self selectedClass
  229. protocol: self compilationProtocol.
  230. self selectedMethod: method ]
  231. ! !
  232. !HLToolModel methodsFor: 'defaults'!
  233. allProtocol
  234. ^ '-- all --'
  235. !
  236. unclassifiedProtocol
  237. ^ 'as yet unclassified'
  238. ! !
  239. !HLToolModel methodsFor: 'error handling'!
  240. handleCompileError: anError
  241. self announcer announce: (HLCompileErrorRaised new
  242. error: anError;
  243. yourself)
  244. !
  245. handleParseError: anError
  246. | split line column messageToInsert |
  247. split := anError messageText tokenize: ' : '.
  248. messageToInsert := split second.
  249. "21 = 'Parse error on line ' size + 1"
  250. split := split first copyFrom: 21 to: split first size.
  251. split := split tokenize: ' column '.
  252. line := split first.
  253. column := split second.
  254. self announcer announce: (HLParseErrorRaised new
  255. line: line asNumber;
  256. column: column asNumber;
  257. message: messageToInsert;
  258. error: anError;
  259. yourself)
  260. !
  261. handleUnkownVariableError: anError
  262. self announcer announce: (HLUnknownVariableErrorRaised new
  263. error: anError;
  264. yourself)
  265. !
  266. withCompileErrorHandling: aBlock
  267. self environment
  268. evaluate: [
  269. self environment
  270. evaluate: [
  271. self environment
  272. evaluate: aBlock
  273. on: ParseError
  274. do: [ :ex | self handleParseError: ex ] ]
  275. on: UnknownVariableError
  276. do: [ :ex | self handleUnkownVariableError: ex ] ]
  277. on: CompilerError
  278. do: [ :ex | self handleCompileError: ex ]
  279. ! !
  280. !HLToolModel methodsFor: 'private'!
  281. compilationProtocol
  282. | currentProtocol |
  283. currentProtocol := self selectedProtocol.
  284. currentProtocol ifNil: [ currentProtocol := self unclassifiedProtocol ].
  285. self selectedMethod ifNotNil: [ currentProtocol := self selectedMethod protocol ].
  286. ^ currentProtocol = self allProtocol
  287. ifTrue: [ self unclassifiedProtocol ]
  288. ifFalse: [ currentProtocol ]
  289. !
  290. withHelperLabelled: aString do: aBlock
  291. "TODO: doesn't belong here"
  292. '#helper' asJQuery remove.
  293. [ :html |
  294. html div
  295. id: 'helper';
  296. with: aString ] appendToJQuery: 'body' asJQuery.
  297. [
  298. aBlock value.
  299. '#helper' asJQuery remove
  300. ]
  301. valueWithTimeout: 10
  302. ! !
  303. !HLToolModel methodsFor: 'testing'!
  304. isToolModel
  305. ^ true
  306. !
  307. shouldCompileClassDefinition: aString
  308. ^ self selectedClass isNil or: [
  309. aString match: '^\s*[A-Z]' ]
  310. ! !
  311. !HLToolModel class methodsFor: 'actions'!
  312. on: anEnvironment
  313. ^ self new
  314. environment: anEnvironment;
  315. yourself
  316. ! !
  317. ProgressHandler subclass: #HLProgressHandler
  318. instanceVariableNames: ''
  319. package: 'Helios-Core'!
  320. !HLProgressHandler commentStamp!
  321. I am a specific progress handler for Helios, displaying progresses in a modal window.!
  322. !HLProgressHandler methodsFor: 'progress handling'!
  323. do: aBlock on: aCollection displaying: aString
  324. HLProgressWidget default
  325. do: aBlock
  326. on: aCollection
  327. displaying: aString
  328. ! !
  329. Widget subclass: #HLTabWidget
  330. instanceVariableNames: 'widget label root'
  331. package: 'Helios-Core'!
  332. !HLTabWidget commentStamp!
  333. I am a widget specialized into building another widget as an Helios tab.
  334. I should not be used directly, `HLWidget class >> #openAsTab` should be used instead.
  335. ## Example
  336. HLWorkspace openAsTab!
  337. !HLTabWidget methodsFor: 'accessing'!
  338. activate
  339. self manager activate: self
  340. !
  341. add
  342. self manager addTab: self
  343. !
  344. cssClass
  345. ^ self widget tabClass
  346. !
  347. displayLabel
  348. ^ self label size > 20
  349. ifTrue: [ (self label first: 20), '...' ]
  350. ifFalse: [ self label ]
  351. !
  352. focus
  353. self widget canHaveFocus ifTrue: [
  354. self widget focus ]
  355. !
  356. label
  357. ^ label ifNil: [ '' ]
  358. !
  359. label: aString
  360. label := aString
  361. !
  362. manager
  363. ^ HLManager current
  364. !
  365. widget
  366. ^ widget
  367. !
  368. widget: aWidget
  369. widget := aWidget
  370. ! !
  371. !HLTabWidget methodsFor: 'actions'!
  372. hide
  373. root ifNotNil: [ root asJQuery css: 'visibility' put: 'hidden' ]
  374. !
  375. registerBindings
  376. self widget registerBindings
  377. !
  378. remove
  379. self widget unregister.
  380. root ifNotNil: [ root asJQuery remove ]
  381. !
  382. show
  383. root
  384. ifNil: [ self appendToJQuery: 'body' asJQuery ]
  385. ifNotNil: [ root asJQuery css: 'visibility' put: 'visible' ]
  386. ! !
  387. !HLTabWidget methodsFor: 'rendering'!
  388. renderOn: html
  389. root := html div
  390. class: 'tab';
  391. yourself.
  392. self renderTab
  393. !
  394. renderTab
  395. root contents: [ :html |
  396. html div
  397. class: 'amber_box';
  398. with: [ self widget renderOn: html ] ]
  399. ! !
  400. !HLTabWidget methodsFor: 'testing'!
  401. isActive
  402. ^ self manager activeTab = self
  403. ! !
  404. !HLTabWidget class methodsFor: 'instance creation'!
  405. on: aWidget labelled: aString
  406. ^ self new
  407. widget: aWidget;
  408. label: aString;
  409. yourself
  410. ! !
  411. Widget subclass: #HLWidget
  412. instanceVariableNames: 'wrapper'
  413. package: 'Helios-Core'!
  414. !HLWidget commentStamp!
  415. I am the abstract superclass of all Helios widgets.
  416. I provide common methods, additional behavior to widgets useful for Helios, like dialog creation, command execution and tab creation.
  417. ## API
  418. 1. Rendering
  419. Instead of overriding `#renderOn:` as with other Widget subclasses, my subclasses should override `#renderContentOn:`.
  420. 2. Refreshing
  421. To re-render a widget, use `#refresh`.
  422. 3. Key bindings registration and tabs
  423. When displayed as a tab, the widget has a chance to register keybindings with the `#registerBindingsOn:` hook method.
  424. 4. Unregistration
  425. 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.
  426. 5. Tabs
  427. 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.
  428. 6. Command execution
  429. An helios command (instance of `HLCommand` or one of its subclass) can be executed with `#execute:`.!
  430. !HLWidget methodsFor: 'accessing'!
  431. manager
  432. ^ HLManager current
  433. !
  434. tabClass
  435. ^ self class tabClass
  436. !
  437. wrapper
  438. ^ wrapper
  439. ! !
  440. !HLWidget methodsFor: 'actions'!
  441. confirm: aString ifTrue: aBlock
  442. self manager confirm: aString ifTrue: aBlock
  443. !
  444. execute: aCommand
  445. HLManager current keyBinder
  446. activate;
  447. applyBinding: aCommand asBinding
  448. !
  449. openAsTab
  450. HLManager current addTab: (HLTabWidget on: self labelled: self class tabLabel)
  451. !
  452. request: aString do: aBlock
  453. self manager request: aString do: aBlock
  454. !
  455. request: aString value: valueString do: aBlock
  456. self manager
  457. request: aString
  458. value: valueString
  459. do: aBlock
  460. !
  461. unregister
  462. "This method is called whenever the receiver is closed (as a tab).
  463. Widgets subscribing to announcements should unregister there"
  464. ! !
  465. !HLWidget methodsFor: 'keybindings'!
  466. bindKeyDown: keyDownBlock keyUp: keyUpBlock
  467. self wrapper asJQuery
  468. keydown: keyDownBlock;
  469. keyup: keyUpBlock
  470. !
  471. registerBindings
  472. self registerBindingsOn: self manager keyBinder bindings
  473. !
  474. registerBindingsOn: aBindingGroup
  475. !
  476. unbindKeyDownKeyUp
  477. self wrapper asJQuery
  478. unbind: 'keydown';
  479. unbind: 'keyup'
  480. ! !
  481. !HLWidget methodsFor: 'rendering'!
  482. renderContentOn: html
  483. !
  484. renderOn: html
  485. wrapper := html div.
  486. [ :renderer | self renderContentOn: renderer ] appendToJQuery: wrapper asJQuery
  487. ! !
  488. !HLWidget methodsFor: 'testing'!
  489. canHaveFocus
  490. ^ false
  491. ! !
  492. !HLWidget methodsFor: 'updating'!
  493. refresh
  494. self wrapper ifNil: [ ^ self ].
  495. self wrapper asJQuery empty.
  496. [ :html | self renderContentOn: html ] appendToJQuery: self wrapper asJQuery
  497. ! !
  498. !HLWidget class methodsFor: 'accessing'!
  499. openAsTab
  500. HLManager current addTab: (HLTabWidget on: self new labelled: self tabLabel)
  501. !
  502. tabClass
  503. ^ ''
  504. !
  505. tabLabel
  506. ^ 'Tab'
  507. !
  508. tabPriority
  509. ^ 500
  510. ! !
  511. !HLWidget class methodsFor: 'testing'!
  512. canBeOpenAsTab
  513. ^ false
  514. ! !
  515. HLWidget subclass: #HLFocusableWidget
  516. instanceVariableNames: ''
  517. package: 'Helios-Core'!
  518. !HLFocusableWidget commentStamp!
  519. I am a widget that can be focused.
  520. ## API
  521. Instead of overriding `#renderOn:` as with other `Widget` subclasses, my subclasses should override `#renderContentOn:`.
  522. To bring the focus to the widget, use the `#focus` method.!
  523. !HLFocusableWidget methodsFor: 'accessing'!
  524. focusClass
  525. ^ 'focused'
  526. ! !
  527. !HLFocusableWidget methodsFor: 'events'!
  528. blur
  529. self wrapper asJQuery blur
  530. !
  531. focus
  532. self wrapper asJQuery focus
  533. ! !
  534. !HLFocusableWidget methodsFor: 'rendering'!
  535. renderContentOn: html
  536. !
  537. renderOn: html
  538. wrapper := html div
  539. class: 'hl_widget';
  540. yourself.
  541. wrapper with: [ self renderContentOn: html ].
  542. wrapper
  543. at: 'tabindex' put: '0';
  544. onBlur: [ self wrapper asJQuery removeClass: self focusClass ];
  545. onFocus: [ self wrapper asJQuery addClass: self focusClass ]
  546. ! !
  547. !HLFocusableWidget methodsFor: 'testing'!
  548. canHaveFocus
  549. ^ true
  550. !
  551. hasFocus
  552. ^ self wrapper notNil and: [ self wrapper asJQuery hasClass: self focusClass ]
  553. ! !
  554. HLFocusableWidget subclass: #HLListWidget
  555. instanceVariableNames: 'items selectedItem'
  556. package: 'Helios-Core'!
  557. !HLListWidget methodsFor: 'accessing'!
  558. cssClassForItem: anObject
  559. ^ ''
  560. !
  561. findListItemFor: anObject
  562. ^ (((wrapper asJQuery find: 'li')
  563. filter: [ :thisArg :otherArg | (thisArg asJQuery data: 'item') = anObject ] currySelf) eq: 0)
  564. !
  565. items
  566. ^ items ifNil: [ items := self defaultItems ]
  567. !
  568. items: aCollection
  569. items := aCollection
  570. !
  571. listCssClassForItem: anObject
  572. ^ self selectedItem = anObject
  573. ifTrue: [ 'active' ]
  574. ifFalse: [ 'inactive' ]
  575. !
  576. positionOf: aListItem
  577. <
  578. return aListItem.parent().children().get().indexOf(aListItem.get(0)) + 1
  579. >
  580. !
  581. selectedItem
  582. ^ selectedItem
  583. !
  584. selectedItem: anObject
  585. selectedItem := anObject
  586. ! !
  587. !HLListWidget methodsFor: 'actions'!
  588. activateFirstListItem
  589. self activateListItem: ((wrapper asJQuery find: 'li.inactive') eq: 0)
  590. !
  591. activateItem: anObject
  592. self activateListItem: (self findListItemFor: anObject)
  593. !
  594. activateListItem: aListItem
  595. | item |
  596. (aListItem get: 0) ifNil: [ ^ self ].
  597. aListItem parent children removeClass: 'active'.
  598. aListItem addClass: 'active'.
  599. self ensureVisible: aListItem.
  600. "Activate the corresponding item"
  601. item := aListItem data: 'item'.
  602. self selectedItem == item ifFalse: [
  603. self selectItem: item ]
  604. !
  605. activateNextListItem
  606. self activateListItem: (self wrapper asJQuery find: 'li.active') next.
  607. "select the first item if none is selected"
  608. (self wrapper asJQuery find: ' .active') get ifEmpty: [
  609. self activateFirstListItem ]
  610. !
  611. activatePreviousListItem
  612. self activateListItem: (self wrapper asJQuery find: 'li.active') prev
  613. !
  614. ensureVisible: aListItem
  615. "Move the scrollbar to show the active element"
  616. | parent position |
  617. (aListItem get: 0) ifNil: [ ^ self ].
  618. position := self positionOf: aListItem.
  619. parent := aListItem parent.
  620. aListItem position top < 0 ifTrue: [
  621. (parent get: 0) scrollTop: ((parent get: 0) scrollTop + aListItem position top - 10) ].
  622. aListItem position top + aListItem height > parent height ifTrue: [
  623. (parent get: 0) scrollTop: ((parent get: 0) scrollTop + aListItem height - (parent height - aListItem position top)) +10 ]
  624. !
  625. focus
  626. super focus.
  627. self items isEmpty ifFalse: [
  628. self selectedItem ifNil: [ self activateFirstListItem ] ]
  629. !
  630. refresh
  631. super refresh.
  632. self selectedItem ifNotNil: [self ensureVisible: (self findListItemFor: self selectedItem)].
  633. !
  634. selectItem: anObject
  635. self selectedItem: anObject
  636. ! !
  637. !HLListWidget methodsFor: 'defaults'!
  638. defaultItems
  639. ^ #()
  640. ! !
  641. !HLListWidget methodsFor: 'events'!
  642. setupKeyBindings
  643. (HLRepeatedKeyDownHandler on: self)
  644. whileKeyDown: 38 do: [ self activatePreviousListItem ];
  645. whileKeyDown: 40 do: [ self activateNextListItem ];
  646. rebindKeys
  647. ! !
  648. !HLListWidget methodsFor: 'rendering'!
  649. renderButtonsOn: html
  650. !
  651. renderContentOn: html
  652. html ul
  653. class: 'nav nav-pills nav-stacked';
  654. with: [ self renderListOn: html ].
  655. html div class: 'pane_actions form-actions'; with: [
  656. self renderButtonsOn: html ].
  657. self setupKeyBindings
  658. !
  659. renderItem: anObject on: html
  660. | li |
  661. li := html li.
  662. li asJQuery data: 'item' put: anObject.
  663. li
  664. class: (self listCssClassForItem: anObject);
  665. with: [
  666. html a
  667. with: [
  668. (html tag: 'i') class: (self cssClassForItem: anObject).
  669. self renderItemLabel: anObject on: html ];
  670. onClick: [
  671. self activateListItem: li asJQuery ] ]
  672. !
  673. renderItemLabel: anObject on: html
  674. html with: anObject asString
  675. !
  676. renderListOn: html
  677. self items do: [ :each |
  678. self renderItem: each on: html ]
  679. ! !
  680. HLListWidget subclass: #HLNavigationListWidget
  681. instanceVariableNames: 'previous next'
  682. package: 'Helios-Core'!
  683. !HLNavigationListWidget methodsFor: 'accessing'!
  684. next
  685. ^ next
  686. !
  687. next: aWidget
  688. next := aWidget.
  689. aWidget previous = self ifFalse: [ aWidget previous: self ]
  690. !
  691. previous
  692. ^ previous
  693. !
  694. previous: aWidget
  695. previous := aWidget.
  696. aWidget next = self ifFalse: [ aWidget next: self ]
  697. ! !
  698. !HLNavigationListWidget methodsFor: 'actions'!
  699. nextFocus
  700. self next ifNotNil: [ self next focus ]
  701. !
  702. previousFocus
  703. self previous ifNotNil: [ self previous focus ]
  704. ! !
  705. !HLNavigationListWidget methodsFor: 'events'!
  706. setupKeyBindings
  707. super setupKeyBindings.
  708. self wrapper asJQuery keydown: [ :e |
  709. e which = 39 ifTrue: [
  710. self nextFocus ].
  711. e which = 37 ifTrue: [
  712. self previousFocus ] ]
  713. ! !
  714. HLNavigationListWidget subclass: #HLToolListWidget
  715. instanceVariableNames: 'model'
  716. package: 'Helios-Core'!
  717. !HLToolListWidget methodsFor: 'accessing'!
  718. commandCategory
  719. ^ self label
  720. !
  721. label
  722. ^ 'List'
  723. !
  724. menuCommands
  725. "Answer a collection of commands to be put in the cog menu"
  726. ^ ((HLToolCommand concreteClasses
  727. select: [ :each | each isValidFor: self model ])
  728. collect: [ :each | each for: self model ])
  729. select: [ :each |
  730. each category = self commandCategory and: [
  731. each isAction and: [ each isActive ] ] ]
  732. !
  733. model
  734. ^ model
  735. !
  736. model: aBrowserModel
  737. model := aBrowserModel.
  738. self
  739. observeSystem;
  740. observeModel
  741. !
  742. selectedItem: anItem
  743. "Selection changed, update the cog menu"
  744. super selectedItem: anItem.
  745. self updateMenu
  746. ! !
  747. !HLToolListWidget methodsFor: 'actions'!
  748. activateListItem: anItem
  749. self model withChangesDo: [ super activateListItem: anItem ]
  750. !
  751. activateNextListItem
  752. self model withChangesDo: [ super activateNextListItem ]
  753. !
  754. activatePreviousListItem
  755. self model withChangesDo: [ super activatePreviousListItem ]
  756. !
  757. observeModel
  758. !
  759. observeSystem
  760. !
  761. unregister
  762. super unregister.
  763. self model announcer unsubscribe: self.
  764. self model systemAnnouncer unsubscribe: self
  765. ! !
  766. !HLToolListWidget methodsFor: 'rendering'!
  767. renderContentOn: html
  768. self renderHeadOn: html.
  769. super renderContentOn: html
  770. !
  771. renderHeadOn: html
  772. html div
  773. class: 'list-label';
  774. with: [
  775. html with: self label.
  776. self renderMenuOn: html ]
  777. !
  778. renderMenuOn: html
  779. | commands |
  780. commands := self menuCommands.
  781. commands isEmpty ifTrue: [ ^ self ].
  782. html div
  783. class: 'btn-group cog';
  784. with: [
  785. html a
  786. class: 'btn dropdown-toggle';
  787. at: 'data-toggle' put: 'dropdown';
  788. with: [ (html tag: 'i') class: 'icon-cog' ].
  789. html ul
  790. class: 'dropdown-menu pull-right';
  791. with: [
  792. self menuCommands do: [ :each |
  793. html li with: [ html a
  794. with: each menuLabel;
  795. onClick: [ self execute: each ] ] ] ] ]
  796. ! !
  797. !HLToolListWidget methodsFor: 'updating'!
  798. updateMenu
  799. (self wrapper asJQuery find: '.cog') remove.
  800. [ :html | self renderMenuOn: html ]
  801. appendToJQuery: (self wrapper asJQuery find: '.list-label')
  802. ! !
  803. !HLToolListWidget class methodsFor: 'instance creation'!
  804. on: aModel
  805. ^ self new
  806. model: aModel;
  807. yourself
  808. ! !
  809. HLListWidget subclass: #HLTabListWidget
  810. instanceVariableNames: 'callback'
  811. package: 'Helios-Core'!
  812. !HLTabListWidget commentStamp!
  813. I am a widget used to display a list of helios tabs.
  814. When a tab is selected, `callback` is evaluated with the selected tab as argument.!
  815. !HLTabListWidget methodsFor: 'accessing'!
  816. callback
  817. ^ callback ifNil: [ [] ]
  818. !
  819. callback: aBlock
  820. callback := aBlock
  821. ! !
  822. !HLTabListWidget methodsFor: 'actions'!
  823. selectItem: aTab
  824. super selectItem: aTab.
  825. self callback value: aTab
  826. ! !
  827. !HLTabListWidget methodsFor: 'rendering'!
  828. renderItemLabel: aTab on: html
  829. html span
  830. class: aTab cssClass;
  831. with: aTab label
  832. ! !
  833. HLWidget subclass: #HLManager
  834. instanceVariableNames: 'tabs activeTab environment history'
  835. package: 'Helios-Core'!
  836. !HLManager methodsFor: 'accessing'!
  837. activeTab
  838. ^ activeTab
  839. !
  840. environment
  841. "The default environment used by all Helios objects"
  842. ^ environment ifNil: [ environment := self defaultEnvironment ]
  843. !
  844. environment: anEnvironment
  845. environment := anEnvironment
  846. !
  847. history
  848. ^ history ifNil: [ history := OrderedCollection new ]
  849. !
  850. history: aCollection
  851. history := aCollection
  852. !
  853. keyBinder
  854. ^ HLKeyBinder current
  855. !
  856. tabs
  857. ^ tabs ifNil: [ tabs := OrderedCollection new ]
  858. ! !
  859. !HLManager methodsFor: 'actions'!
  860. activate: aTab
  861. self keyBinder flushBindings.
  862. aTab registerBindings.
  863. activeTab := aTab.
  864. self
  865. refresh;
  866. addToHistory: aTab;
  867. show: aTab
  868. !
  869. addTab: aTab
  870. self tabs add: aTab.
  871. self activate: aTab
  872. !
  873. addToHistory: aTab
  874. self removeFromHistory: aTab.
  875. self history add: aTab
  876. !
  877. confirm: aString ifFalse: aBlock
  878. HLConfirmationWidget new
  879. confirmationString: aString;
  880. cancelBlock: aBlock;
  881. show
  882. !
  883. confirm: aString ifTrue: aBlock
  884. HLConfirmationWidget new
  885. confirmationString: aString;
  886. actionBlock: aBlock;
  887. show
  888. !
  889. registerErrorHandler: anErrorHandler
  890. self environment registerErrorHandler: anErrorHandler
  891. !
  892. registerInspector: anInspector
  893. self environment registerInspector: anInspector
  894. !
  895. registerProgressHandler: aProgressHandler
  896. self environment registerProgressHandler: aProgressHandler
  897. !
  898. removeActiveTab
  899. self removeTab: self activeTab
  900. !
  901. removeFromHistory: aTab
  902. self history: (self history reject: [ :each | each == aTab ])
  903. !
  904. removeTab: aTab
  905. (self tabs includes: aTab) ifFalse: [ ^ self ].
  906. self removeFromHistory: aTab.
  907. self tabs remove: aTab.
  908. self keyBinder flushBindings.
  909. aTab remove.
  910. self refresh.
  911. self history ifNotEmpty: [
  912. self history last activate ]
  913. !
  914. request: aString do: aBlock
  915. self
  916. request: aString
  917. value: ''
  918. do: aBlock
  919. !
  920. request: aString value: valueString do: aBlock
  921. HLRequestWidget new
  922. confirmationString: aString;
  923. actionBlock: aBlock;
  924. value: valueString;
  925. show
  926. ! !
  927. !HLManager methodsFor: 'defaults'!
  928. defaultEnvironment
  929. "If helios is loaded from within a frame, answer the parent window environment"
  930. | parent parentSmalltalkGlobals |
  931. parent := window opener ifNil: [ window parent ].
  932. parent ifNil: [ ^ Environment new ].
  933. parentSmalltalkGlobals := ((parent at: 'requirejs') value: 'amber_vm/boot')
  934. ifNotNil: [ :boot | boot at: 'globals' ].
  935. parentSmalltalkGlobals ifNil: [ ^ Environment new ].
  936. ^ (parentSmalltalkGlobals at: 'Environment') new
  937. ! !
  938. !HLManager methodsFor: 'initialization'!
  939. initialize
  940. super initialize.
  941. HLErrorHandler register.
  942. HLProgressHandler register.
  943. self registerInspector: HLInspector.
  944. self registerErrorHandler: ErrorHandler current.
  945. self registerProgressHandler: ProgressHandler current.
  946. self keyBinder setupEvents
  947. ! !
  948. !HLManager methodsFor: 'rendering'!
  949. refresh
  950. '.navbar' asJQuery remove.
  951. self appendToJQuery: 'body' asJQuery
  952. !
  953. renderAddOn: html
  954. html li
  955. class: 'dropdown';
  956. with: [
  957. html a
  958. class: 'dropdown-toggle';
  959. at: 'data-toggle' put: 'dropdown';
  960. with: [
  961. html with: 'Open...'.
  962. (html tag: 'b') class: 'caret' ].
  963. html ul
  964. class: 'dropdown-menu';
  965. with: [
  966. ((HLWidget withAllSubclasses
  967. select: [ :each | each canBeOpenAsTab ])
  968. sorted: [ :a :b | a tabPriority < b tabPriority ])
  969. do: [ :each |
  970. html li with: [
  971. html a
  972. with: each tabLabel;
  973. onClick: [ each openAsTab ] ] ] ] ]
  974. !
  975. renderContentOn: html
  976. html div
  977. class: 'navbar navbar-fixed-top';
  978. with: [ html div
  979. class: 'navbar-inner';
  980. with: [ self renderTabsOn: html ] ]
  981. !
  982. renderTabsOn: html
  983. html ul
  984. class: 'nav';
  985. with: [
  986. self tabs do: [ :each |
  987. html li
  988. class: (each isActive ifTrue: [ 'active' ] ifFalse: [ 'inactive' ]);
  989. with: [
  990. html a
  991. with: [
  992. ((html tag: 'i') class: 'close')
  993. onClick: [ self removeTab: each ].
  994. html span
  995. class: each cssClass;
  996. with: each displayLabel ];
  997. onClick: [ each activate ] ] ].
  998. self renderAddOn: html ]
  999. !
  1000. show: aTab
  1001. self tabs do: [ :each | each hide ].
  1002. aTab show; focus
  1003. ! !
  1004. HLManager class instanceVariableNames: 'current'!
  1005. !HLManager class methodsFor: 'accessing'!
  1006. current
  1007. ^ current ifNil: [ current := self basicNew initialize ]
  1008. ! !
  1009. !HLManager class methodsFor: 'initialization'!
  1010. initialize
  1011. self current appendToJQuery: 'body' asJQuery
  1012. ! !
  1013. !HLManager class methodsFor: 'instance creation'!
  1014. new
  1015. "Use current instead"
  1016. self shouldNotImplement
  1017. ! !
  1018. HLWidget subclass: #HLModalWidget
  1019. instanceVariableNames: ''
  1020. package: 'Helios-Core'!
  1021. !HLModalWidget commentStamp!
  1022. I implement an abstract modal widget.!
  1023. !HLModalWidget methodsFor: 'accessing'!
  1024. cssClass
  1025. ^ ''
  1026. ! !
  1027. !HLModalWidget methodsFor: 'actions'!
  1028. cancel
  1029. self remove
  1030. !
  1031. confirm
  1032. "Override in subclasses"
  1033. self remove
  1034. !
  1035. remove
  1036. '.dialog' asJQuery removeClass: 'active'.
  1037. [
  1038. '#overlay' asJQuery remove.
  1039. '.dialog' asJQuery remove
  1040. ] valueWithTimeout: 300
  1041. !
  1042. show
  1043. self appendToJQuery: 'body' asJQuery
  1044. ! !
  1045. !HLModalWidget methodsFor: 'private'!
  1046. giveFocusToButton: aButton
  1047. aButton asJQuery focus
  1048. ! !
  1049. !HLModalWidget methodsFor: 'rendering'!
  1050. hasButtons
  1051. ^ true
  1052. !
  1053. renderButtonsOn: html
  1054. | confirmButton |
  1055. html div
  1056. class: 'buttons';
  1057. with: [
  1058. html button
  1059. class: 'button';
  1060. with: 'Cancel';
  1061. onClick: [ self cancel ].
  1062. confirmButton := html button
  1063. class: 'button default';
  1064. with: 'Confirm';
  1065. onClick: [ self confirm ] ].
  1066. self giveFocusToButton:confirmButton
  1067. !
  1068. renderContentOn: html
  1069. | confirmButton |
  1070. html div id: 'overlay'.
  1071. html div
  1072. class: 'dialog ', self cssClass;
  1073. with: [
  1074. self renderMainOn: html.
  1075. self hasButtons ifTrue: [
  1076. self renderButtonsOn: html ] ].
  1077. '.dialog' asJQuery addClass: 'active'.
  1078. self setupKeyBindings
  1079. !
  1080. renderMainOn: html
  1081. !
  1082. setupKeyBindings
  1083. '.dialog' asJQuery keyup: [ :e |
  1084. e keyCode = String esc asciiValue ifTrue: [ self cancel ] ]
  1085. ! !
  1086. HLModalWidget subclass: #HLConfirmationWidget
  1087. instanceVariableNames: 'confirmationString actionBlock cancelBlock'
  1088. package: 'Helios-Core'!
  1089. !HLConfirmationWidget commentStamp!
  1090. I display confirmation messages.
  1091. Instead of creating an instance directly, use `HLWidget >> #confirm:ifTrue:`.!
  1092. !HLConfirmationWidget methodsFor: 'accessing'!
  1093. actionBlock
  1094. ^ actionBlock ifNil: [ [] ]
  1095. !
  1096. actionBlock: aBlock
  1097. actionBlock := aBlock
  1098. !
  1099. cancelBlock
  1100. ^ cancelBlock ifNil: [ [] ]
  1101. !
  1102. cancelBlock: aBlock
  1103. cancelBlock := aBlock
  1104. !
  1105. confirmationString
  1106. ^ confirmationString ifNil: [ 'Confirm' ]
  1107. !
  1108. confirmationString: aString
  1109. confirmationString := aString
  1110. ! !
  1111. !HLConfirmationWidget methodsFor: 'actions'!
  1112. cancel
  1113. self cancelBlock value.
  1114. super cancel
  1115. !
  1116. confirm
  1117. super confirm.
  1118. self actionBlock value
  1119. ! !
  1120. !HLConfirmationWidget methodsFor: 'rendering'!
  1121. renderMainOn: html
  1122. html span with: self confirmationString
  1123. ! !
  1124. HLConfirmationWidget subclass: #HLRequestWidget
  1125. instanceVariableNames: 'input value'
  1126. package: 'Helios-Core'!
  1127. !HLRequestWidget commentStamp!
  1128. I display a modal window requesting user input.
  1129. Instead of creating instances manually, use `HLWidget >> #request:do:` and `#request:value:do:`.!
  1130. !HLRequestWidget methodsFor: 'accessing'!
  1131. cssClass
  1132. ^ 'large'
  1133. !
  1134. value
  1135. ^ value ifNil: [ '' ]
  1136. !
  1137. value: aString
  1138. value := aString
  1139. ! !
  1140. !HLRequestWidget methodsFor: 'actions'!
  1141. confirm
  1142. super confirm.
  1143. self actionBlock value: input asJQuery val
  1144. ! !
  1145. !HLRequestWidget methodsFor: 'private'!
  1146. giveFocusToButton: aButton
  1147. ! !
  1148. !HLRequestWidget methodsFor: 'rendering'!
  1149. renderMainOn: html
  1150. super renderMainOn: html.
  1151. input := html textarea.
  1152. input asJQuery
  1153. val: self value;
  1154. focus
  1155. ! !
  1156. HLModalWidget subclass: #HLProgressWidget
  1157. instanceVariableNames: 'progressBars visible'
  1158. package: 'Helios-Core'!
  1159. !HLProgressWidget commentStamp!
  1160. I am a widget used to display progress modal dialogs.
  1161. My default instance is accessed with `HLProgressWidget class >> #default`.
  1162. See `HLProgressHandler` for usage.!
  1163. !HLProgressWidget methodsFor: 'accessing'!
  1164. progressBars
  1165. ^ progressBars ifNil: [ progressBars := OrderedCollection new ]
  1166. ! !
  1167. !HLProgressWidget methodsFor: 'actions'!
  1168. addProgressBar: aProgressBar
  1169. self show.
  1170. self progressBars add: aProgressBar.
  1171. aProgressBar appendToJQuery: (self wrapper asJQuery find: '.dialog')
  1172. !
  1173. do: aBlock on: aCollection displaying: aString
  1174. | progressBar |
  1175. progressBar := HLProgressBarWidget new
  1176. parent: self;
  1177. label: aString;
  1178. workBlock: aBlock;
  1179. collection: aCollection;
  1180. yourself.
  1181. self addProgressBar: progressBar.
  1182. progressBar start
  1183. !
  1184. flush
  1185. self progressBars do: [ :each |
  1186. self removeProgressBar: each ]
  1187. !
  1188. remove
  1189. self isVisible ifTrue: [
  1190. visible := false.
  1191. super remove ]
  1192. !
  1193. removeProgressBar: aProgressBar
  1194. self progressBars remove: aProgressBar ifAbsent: [].
  1195. aProgressBar wrapper asJQuery remove.
  1196. self progressBars ifEmpty: [ self remove ]
  1197. !
  1198. show
  1199. self isVisible ifFalse: [
  1200. visible := true.
  1201. super show ]
  1202. ! !
  1203. !HLProgressWidget methodsFor: 'rendering'!
  1204. renderMainOn: html
  1205. self progressBars do: [ :each |
  1206. html with: each ]
  1207. ! !
  1208. !HLProgressWidget methodsFor: 'testing'!
  1209. hasButtons
  1210. ^ false
  1211. !
  1212. isVisible
  1213. ^ visible ifNil: [ false ]
  1214. ! !
  1215. HLProgressWidget class instanceVariableNames: 'default'!
  1216. !HLProgressWidget class methodsFor: 'accessing'!
  1217. default
  1218. ^ default ifNil: [ default := self new ]
  1219. ! !
  1220. HLModalWidget subclass: #HLTabSelectionWidget
  1221. instanceVariableNames: 'tabs tabList selectedTab selectCallback cancelCallback confirmCallback'
  1222. package: 'Helios-Core'!
  1223. !HLTabSelectionWidget commentStamp!
  1224. I am a modal window used to select or create tabs.!
  1225. !HLTabSelectionWidget methodsFor: 'accessing'!
  1226. cancelCallback
  1227. ^ cancelCallback ifNil: [ [] ]
  1228. !
  1229. cancelCallback: aBlock
  1230. cancelCallback := aBlock
  1231. !
  1232. confirmCallback
  1233. ^ confirmCallback ifNil: [ [] ]
  1234. !
  1235. confirmCallback: aBlock
  1236. confirmCallback := aBlock
  1237. !
  1238. selectCallback
  1239. ^ selectCallback ifNil: [ [] ]
  1240. !
  1241. selectCallback: aBlock
  1242. selectCallback := aBlock
  1243. !
  1244. selectedTab
  1245. ^ selectedTab
  1246. !
  1247. selectedTab: aTab
  1248. selectedTab := aTab
  1249. !
  1250. tabs
  1251. ^ tabs ifNil: [ #() ]
  1252. !
  1253. tabs: aCollection
  1254. tabs := aCollection
  1255. ! !
  1256. !HLTabSelectionWidget methodsFor: 'actions'!
  1257. cancel
  1258. super cancel.
  1259. self cancelCallback value
  1260. !
  1261. confirm
  1262. super confirm.
  1263. self confirmCallback value: self selectedTab
  1264. !
  1265. selectTab: aTab
  1266. self selectedTab: aTab.
  1267. self selectCallback value: aTab
  1268. !
  1269. setupKeyBindings
  1270. super setupKeyBindings.
  1271. '.dialog' asJQuery keyup: [ :e |
  1272. e keyCode = String cr asciiValue ifTrue: [ self confirm ] ]
  1273. ! !
  1274. !HLTabSelectionWidget methodsFor: 'rendering'!
  1275. renderContentOn: html
  1276. super renderContentOn: html.
  1277. self tabList focus
  1278. !
  1279. renderMainOn: html
  1280. html div
  1281. class: 'title';
  1282. with: 'Tab selection'.
  1283. html with: self tabList
  1284. !
  1285. renderTab: aTab on: html
  1286. html
  1287. span
  1288. class: aTab cssClass;
  1289. with: aTab label
  1290. !
  1291. renderTabsOn: html
  1292. self tabs do: [ :each |
  1293. html li with: [
  1294. html a
  1295. with: [
  1296. self renderTab: each on: html ];
  1297. onClick: [ self selectTab: each ] ] ]
  1298. !
  1299. tabList
  1300. tabList ifNil: [
  1301. tabList := HLTabListWidget new.
  1302. tabList
  1303. callback: [ :tab | self selectTab: tab. tabList focus ];
  1304. selectedItem: self selectedTab;
  1305. items: self tabs ].
  1306. ^ tabList
  1307. ! !
  1308. HLWidget subclass: #HLProgressBarWidget
  1309. instanceVariableNames: 'label parent workBlock collection bar'
  1310. package: 'Helios-Core'!
  1311. !HLProgressBarWidget commentStamp!
  1312. I am a widget used to display a progress bar while iterating over a collection.!
  1313. !HLProgressBarWidget methodsFor: 'accessing'!
  1314. collection
  1315. ^ collection
  1316. !
  1317. collection: aCollection
  1318. collection := aCollection
  1319. !
  1320. label
  1321. ^ label
  1322. !
  1323. label: aString
  1324. label := aString
  1325. !
  1326. parent
  1327. ^ parent
  1328. !
  1329. parent: aProgress
  1330. parent := aProgress
  1331. !
  1332. workBlock
  1333. ^ workBlock
  1334. !
  1335. workBlock: aBlock
  1336. workBlock := aBlock
  1337. ! !
  1338. !HLProgressBarWidget methodsFor: 'actions'!
  1339. evaluateAt: anInteger
  1340. self updateProgress: (anInteger / self collection size) * 100.
  1341. anInteger <= self collection size
  1342. ifTrue: [
  1343. [
  1344. self workBlock value: (self collection at: anInteger).
  1345. self evaluateAt: anInteger + 1 ] valueWithTimeout: 10 ]
  1346. ifFalse: [ [ self remove ] valueWithTimeout: 500 ]
  1347. !
  1348. remove
  1349. self parent removeProgressBar: self
  1350. !
  1351. start
  1352. "Make sure the UI has some time to update itself between each iteration"
  1353. self evaluateAt: 1
  1354. !
  1355. updateProgress: anInteger
  1356. bar asJQuery css: 'width' put: anInteger asString, '%'
  1357. ! !
  1358. !HLProgressBarWidget methodsFor: 'rendering'!
  1359. renderContentOn: html
  1360. html span with: self label.
  1361. html div
  1362. class: 'progress';
  1363. with: [
  1364. bar := html div
  1365. class: 'bar';
  1366. style: 'width: 0%' ]
  1367. ! !
  1368. HLProgressBarWidget class instanceVariableNames: 'default'!
  1369. !HLProgressBarWidget class methodsFor: 'accessing'!
  1370. default
  1371. ^ default ifNil: [ default := self new ]
  1372. ! !
  1373. HLWidget subclass: #HLSUnit
  1374. instanceVariableNames: ''
  1375. package: 'Helios-Core'!
  1376. !HLSUnit class methodsFor: 'accessing'!
  1377. tabClass
  1378. ^ 'sunit'
  1379. !
  1380. tabLabel
  1381. ^ 'SUnit'
  1382. !
  1383. tabPriority
  1384. ^ 1000
  1385. ! !
  1386. !HLSUnit class methodsFor: 'testing'!
  1387. canBeOpenAsTab
  1388. ^ true
  1389. ! !