1
0

Canvas.st 6.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493
  1. Object subclass: #HTMLCanvas
  2. instanceVariableNames: 'root'
  3. category: 'Canvas'!
  4. !HTMLCanvas methodsFor: 'accessing'!
  5. root: aTagBrush
  6. root := aTagBrush
  7. !
  8. root
  9. ^root
  10. ! !
  11. !HTMLCanvas methodsFor: 'adding'!
  12. with: anObject
  13. ^self root with: anObject
  14. ! !
  15. !HTMLCanvas methodsFor: 'initialization'!
  16. initialize
  17. super initialize.
  18. root ifNil: [root := TagBrush fromString: 'div' canvas: self]
  19. !
  20. initializeFromJQuery: aJQuery
  21. root := TagBrush fromJQuery: aJQuery canvas: self
  22. ! !
  23. !HTMLCanvas methodsFor: 'tags'!
  24. newTag: aString
  25. ^TagBrush fromString: aString canvas: self
  26. !
  27. tag: aString
  28. ^root addBrush: (self newTag: aString)
  29. !
  30. h1
  31. ^self tag: 'h1'
  32. !
  33. h2
  34. ^self tag: 'h2'
  35. !
  36. h3
  37. ^self tag: 'h3'
  38. !
  39. h4
  40. ^self tag: 'h4'
  41. !
  42. h5
  43. ^self tag: 'h5'
  44. !
  45. h6
  46. ^self tag: 'h6'
  47. !
  48. p
  49. ^self tag: 'p'
  50. !
  51. div
  52. ^self tag: 'div'
  53. !
  54. span
  55. ^self tag: 'span'
  56. !
  57. img
  58. ^self tag: 'img'
  59. !
  60. ul
  61. ^self tag: 'ul'
  62. !
  63. ol
  64. ^self tag: 'ol'
  65. !
  66. li
  67. ^self tag: 'li'
  68. !
  69. table
  70. ^self tag: 'table'
  71. !
  72. tr
  73. ^self tag: 'tr'
  74. !
  75. td
  76. ^self tag: 'td'
  77. !
  78. th
  79. ^self tag: 'th'
  80. !
  81. form
  82. ^self tag: 'form'
  83. !
  84. input
  85. ^self tag: 'input'
  86. !
  87. button
  88. ^self tag: 'button'
  89. !
  90. select
  91. ^self tag: 'select'
  92. !
  93. option
  94. ^self tag: 'option'
  95. !
  96. textarea
  97. ^self tag: 'textarea'
  98. !
  99. a
  100. ^self tag: 'a'
  101. !
  102. canvas
  103. ^self tag: 'canvas'
  104. !
  105. pre
  106. ^self tag: 'pre'
  107. !
  108. code
  109. ^self tag: 'code'
  110. !
  111. br
  112. ^self tag: 'br'
  113. !
  114. script
  115. ^self tag: 'script'
  116. !
  117. link
  118. ^self tag: 'link'
  119. !
  120. style
  121. ^self tag: 'style'
  122. !
  123. p: anObject
  124. ^self p with: anObject
  125. !
  126. h1: anObject
  127. ^self h1 with: anObject
  128. !
  129. iframe
  130. ^self tag: 'iframe'
  131. !
  132. iframe: aString
  133. ^self iframe src: aString
  134. !
  135. h2: anObject
  136. ^ self h2 with: anObject
  137. !
  138. h3: anObject
  139. ^self h3 with: anObject
  140. !
  141. h4: anObject
  142. ^self h4 with: anObject
  143. !
  144. h5: anObject
  145. ^self h5 with: anObject
  146. !
  147. h6: anObject
  148. ^self h6 with: anObject
  149. !
  150. img: aString
  151. ^self img src: aString
  152. !
  153. ol: anObject
  154. ^self ol with: anObject
  155. !
  156. li: anObject
  157. ^self li with: anObject
  158. !
  159. ul: anObject
  160. ^self ul with: anObject
  161. !
  162. span: anObject
  163. ^self span with: anObject
  164. ! !
  165. !HTMLCanvas class methodsFor: 'instance creation'!
  166. onJQuery: aJQuery
  167. ^self basicNew
  168. initializeFromJQuery: aJQuery;
  169. initialize;
  170. yourself
  171. ! !
  172. Object subclass: #TagBrush
  173. instanceVariableNames: 'canvas element'
  174. category: 'Canvas'!
  175. !TagBrush methodsFor: 'accessing'!
  176. element
  177. ^element
  178. ! !
  179. !TagBrush methodsFor: 'adding'!
  180. contents: anObject
  181. self
  182. empty;
  183. append: anObject
  184. !
  185. addBrush: aTagBrush
  186. self appendChild: aTagBrush element.
  187. ^aTagBrush
  188. !
  189. with: anObject
  190. self append: anObject
  191. !
  192. append: anObject
  193. anObject appendToBrush: self
  194. !
  195. appendToBrush: aTagBrush
  196. aTagBrush addBrush: self
  197. !
  198. appendBlock: aBlock
  199. | root |
  200. root := canvas root.
  201. canvas root: self.
  202. aBlock value: canvas.
  203. canvas root: root
  204. !
  205. appendChild: anElement
  206. "In IE7 and IE8 appendChild fails on several node types. So we need to check"
  207. <var element=self['@element'];
  208. if (null == element.canHaveChildren || element.canHaveChildren) {
  209. element.appendChild(anElement);
  210. } else {
  211. element.text = String(element.text) + anElement.innerHTML;
  212. } >
  213. !
  214. appendString: aString
  215. self appendChild: (self createTextNodeFor: aString)
  216. !
  217. empty
  218. self asJQuery empty
  219. ! !
  220. !TagBrush methodsFor: 'attributes'!
  221. at: aString put: aValue
  222. <self['@element'].setAttribute(aString, aValue)>
  223. !
  224. removeAt: aString
  225. <self['@element'].removeAttribute(aString)>
  226. !
  227. class: aString
  228. self at: 'class' put: aString
  229. !
  230. id: aString
  231. self at: 'id' put: aString
  232. !
  233. src: aString
  234. self at: 'src' put: aString
  235. !
  236. href: aString
  237. self at: 'href' put: aString
  238. !
  239. title: aString
  240. self at: 'title' put: aString
  241. !
  242. style: aString
  243. self at: 'style' put: aString
  244. !
  245. type: aString
  246. self at: 'type' put: aString
  247. !
  248. media: aString
  249. self at: 'media' put: aString
  250. !
  251. rel: aString
  252. self at: 'rel' put: aString
  253. !
  254. width: aString
  255. self at: 'width' put: aString
  256. !
  257. height: aString
  258. self at: 'height' put: aString
  259. !
  260. value: aString
  261. self at: 'value' put: aString
  262. ! !
  263. !TagBrush methodsFor: 'converting'!
  264. asJQuery
  265. ^window jQuery: self element
  266. ! !
  267. !TagBrush methodsFor: 'events'!
  268. onKeyDown: aBlock
  269. self asJQuery bind: 'keydown' do: aBlock
  270. !
  271. onKeyPress: aBlock
  272. self asJQuery bind: 'keypress' do: aBlock
  273. !
  274. onKeyUp: aBlock
  275. self asJQuery bind: 'keyup' do: aBlock
  276. !
  277. onFocus: aBlock
  278. self asJQuery bind: 'focus' do: aBlock
  279. !
  280. onBlur: aBlock
  281. self asJQuery bind: 'blur' do: aBlock
  282. !
  283. onChange: aBlock
  284. self asJQuery bind: 'change' do: aBlock
  285. !
  286. onClick: aBlock
  287. self asJQuery bind: 'click' do: aBlock
  288. ! !
  289. !TagBrush methodsFor: 'initialization'!
  290. initializeFromString: aString canvas: aCanvas
  291. element := self createElementFor: aString.
  292. canvas := aCanvas
  293. !
  294. initializeFromJQuery: aJQuery canvas: aCanvas
  295. element := aJQuery get: 0.
  296. canvas := aCanvas
  297. ! !
  298. !TagBrush methodsFor: 'private'!
  299. createElementFor: aString
  300. <return document.createElement(String(aString))>
  301. !
  302. createTextNodeFor: aString
  303. <return document.createTextNode(String(aString))>
  304. ! !
  305. !TagBrush class methodsFor: 'instance creation'!
  306. fromString: aString canvas: aCanvas
  307. ^self new
  308. initializeFromString: aString canvas: aCanvas;
  309. yourself
  310. !
  311. fromJQuery: aJQuery canvas: aCanvas
  312. ^self new
  313. initializeFromJQuery: aJQuery canvas: aCanvas;
  314. yourself
  315. ! !
  316. Object subclass: #Widget
  317. instanceVariableNames: ''
  318. category: 'Canvas'!
  319. !Widget methodsFor: 'actions'!
  320. alert: aString
  321. <alert(aString)>
  322. !
  323. confirm: aString
  324. <return window.confirm(aString)>
  325. !
  326. prompt: aString
  327. ^self prompt: aString default: ''
  328. !
  329. prompt: aString default: anotherString
  330. <return window.prompt(aString, anotherString)>
  331. ! !
  332. !Widget methodsFor: 'adding'!
  333. appendToBrush: aTagBrush
  334. self appendToJQuery: aTagBrush asJQuery
  335. !
  336. appendToJQuery: aJQuery
  337. self renderOn: (HTMLCanvas onJQuery: aJQuery)
  338. ! !
  339. !Widget methodsFor: 'rendering'!
  340. renderOn: html
  341. self
  342. ! !
  343. !Object methodsFor: '*Canvas'!
  344. appendToJQuery: aJQuery
  345. aJQuery append: self asString
  346. !
  347. appendToBrush: aTagBrush
  348. aTagBrush append: self asString
  349. ! !
  350. !BlockClosure methodsFor: '*Canvas'!
  351. appendToJQuery: aJQuery
  352. self value: (HTMLCanvas onJQuery: aJQuery)
  353. !
  354. appendToBrush: aTagBrush
  355. aTagBrush appendBlock: self
  356. ! !
  357. !String methodsFor: '*Canvas'!
  358. asJQuery
  359. <return jQuery(String(self))>
  360. !
  361. appendToJQuery: aJQuery
  362. aJQuery append: self
  363. !
  364. appendToBrush: aTagBrush
  365. aTagBrush appendString: self
  366. ! !