Iliad or Seaside ?

第20回Smalltalk勉強会資料．IliadとSeasideについて

Transcript

1. Smalltalkษڧձ - Iliad ٢ా ᠳ 2010-05-27 2010-06-01 վྑ൛ Iliad or Seaside ? 1 2010೥6݄3೔໦༵೔
2. Smalltalkษڧձ - Iliad IliadͷΠϯετʔϧ •iliad-8.1-Squeak4.1-ja-all-in-one.zip iliad-8.1, ೔ຊޠύονద༻ࡁΈ •iliad-8.1-Squeak4.1-ja-all-in-one-Demo.zip iliad-8.1, ೔ຊޠύονద༻ࡁΈ, αϯϓϧίʔυ 2 2010೥6݄3೔໦༵೔
3. Smalltalkษڧձ - Iliad ͜ͷεϥΠυิ଍ MyTestApplication.st iliad-8.1-Squeak4.1-ja-all-in-one-Demo.zip಺ͷ ./demosource/ ʹιʔείʔυ͕͋Γ·͢ 3 2010೥6݄3೔໦༵೔
4. Smalltalkษڧձ - Iliad IliadνϡʔτϦΞϧ SwazooIliad startOn: 9090. αʔόͷىಈ SwazooIliad stop. αʔόͷఀࢭ WorkspaceͰҎԼͷίʔυΛdo it 4 2010೥6݄3೔໦༵೔
5. Smalltalkษڧձ - Iliad Iliadىಈ֬ೝ Webϒϥ΢βͰ http://localhost:9090/browseʹΞΫηε 5 2010೥6݄3೔໦༵೔
6. Smalltalkษڧձ - Iliad IliadͰHello World Hello Worldͱදࣔ͢ΔWeb AppΛ࡞੒͢Δ 6 2010೥6݄3೔໦༵೔
7. Smalltalkษڧձ - Iliad IliadͷXHTMLϨϯμϦϯά •ςϯϓϨʔτํࣜͰ͸ͳ͍ •ϨϯμϥΦϒδΣΫτʹϝοηʔδΛૹΔ͜ͱͰ XHTML͕ੜ੒͞ΕΔ 7 2010೥6݄3೔໦༵೔
8. Smalltalkษڧձ - Iliad ίϯτϩʔϥʔͷ࡞੒ ίϯτϩʔϥͰ͋ΔILApplicationͷαϒΫϥεΛ࡞੒ ʢMyTestApplicationͱͯ͠ఆٛʣ MyTestApplication>>(class)path ! ^'myTestApp' ΞϓϦέʔγϣϯΛݺͼग़ͨ͢ΊͷύεΛࢦఆ͢Δ Webϒϥ΢βͰ http://localhost:9090/myTestAppʹ ΞΫηε ਅͬനͳը໘͕දࣔ͞ΕΔ 8 2010೥6݄3೔໦༵೔
9. Smalltalkษڧձ - Iliad XHTMLϨϯμϦϯά index ^ [:e | ! ! e text: 'Hello World'. ]. MyTestApplication ϝιουΧςΰϦ͸controllersʹ͢Δ͜ͱ σϑΥϧτίϯτϩʔϥͱͯ͠ݺͼग़͞ΕΔindexʹ ҎԼͷίʔυΛهड़ e ͸ILXHTMLElementͷΠϯελϯε MyTestApplication.st 9 2010೥6݄3೔໦༵೔
10. Smalltalkษڧձ - Iliad IliadͱSeasideͷൺֱ •Seasideͱͷҧ͍ •ͲͪΒΛબ୒͢΂͖͔ SmalltalkͷWeb Framework 10 2010೥6݄3೔໦༵೔
11. Smalltalkษڧձ - Iliad IliadͱSeasideͷൺֱ߲໨ •XHTMLͷϨϯμϦϯά •CSS, JavaScript •ϑϩʔ੍ޚ •SessionͱResponseʢࢀߟʣ •։ൃ؀ڥͱରԠSmalltalk 11 2010೥6݄3೔໦༵೔
12. Smalltalkษڧձ - Iliad XHTMLͷϨϯμϦϯά (1) ݟग़͠ <h1>I love Squeak</h1> 12 2010೥6݄3೔໦༵೔
13. Smalltalkษڧձ - Iliad XHTMLͷϨϯμϦϯά (1) ݟग़͠ <h1>I love Squeak</h1> index ^ [:e | ! ! e h1: 'I love Squeak'. ]. renderContentOn:html html heading:'I love Squeak.' level:1. ILApplication subclass WAComponent subclass 13 2010೥6݄3೔໦༵೔
14. Smalltalkษڧձ - Iliad XHTMLͷϨϯμϦϯά (2) Ϧετ <ul> <li>Apple</li> <li>Banana</li> <li>Orange</li> </ul> 14 2010೥6݄3೔໦༵೔
15. Smalltalkษڧձ - Iliad XHTMLͷϨϯμϦϯά (2) Ϧετ <ul><li>...</li></ul> index ^ [:e | | ul | ! ! ul := e ul. ! ! #('Apple' 'Banana' 'Orange') do:[:v | | li | ! ! ! li := ul li. ! ! ! li text: v ]]. DomʹΑΔXMLॲཧͱಉ͡Πϝʔδ 15 2010೥6݄3೔໦༵೔
16. Smalltalkษڧձ - Iliad XHTMLͷϨϯμϦϯά (2) Ϧετ <ul><li>...</li></ul> renderContentOn:html ! html unorderedList:[ ! ! #('Apple' 'Banana' 'Orange') do:[:v | ! ! html listItem:v ]]. 16 2010೥6݄3೔໦༵೔
17. Smalltalkษڧձ - Iliad XHTMLͷϨϯμϦϯά (3) ςʔϒϧ <table border="1"> <tr> <td>Apple</td> <td>Banana</td> <td>Orange</td> </tr> </table> 17 2010೥6݄3೔໦༵೔
18. Smalltalkษڧձ - Iliad XHTMLͷϨϯμϦϯά (3) ςʔϒϧ index ! ^ [:e | | table row | ! ! table := e table border:1. ! ! row := table tr. ! ! #('Apple' 'Banana' 'Orange') do:[:v | | td | ! ! ! td := row td. ! ! ! td text: v ]]. ILApplication subclass 18 2010೥6݄3೔໦༵೔
19. Smalltalkษڧձ - Iliad XHTMLͷϨϯμϦϯά (3) ςʔϒϧ renderContentOn:html ! html table border:1; with:[ ! ! html tableRow:[ ! ! #('Apple' 'Banana' 'Orange') do:[:v | ! ! html tableData:v ]]]. WAComponent subclass 19 2010೥6݄3೔໦༵೔
20. Smalltalkษڧձ - Iliad XHTMLϨϯμϦϯά Raw data index ^ [:e | ! ! e html: '<h1>aaa</h1>'. ]. renderContentOn:html html html:'<h1>aaa</h1>'. WAComponent subclass ILApplication subclass HTMLΛͦͷ··ग़ྗ 20 2010೥6݄3೔໦༵೔
21. Smalltalkษڧձ - Iliad XHTMLͷϨϯμϦϯάҧ͍ BlockΛreturn͢Δهड़ํ๏ tagΛͦͷ··ΠϝʔδͰར༻Ͱ͖Δ tagͷਖ਼໊ࣜΛ஌Βͳ͍ͱϝοηʔδΛૹΕͳ͍ 21 2010೥6݄3೔໦༵೔
22. Smalltalkษڧձ - Iliad JavaScript,CSSͷಋೖ 1.Iliad, Seasideͱ΋ʹSqueak imageʹιʔεΛಡΈࠐΈ 2.ΞϓϦέʔγϣϯଆͰϥΠϒϥϦͷબ୒ ҎԼͷखॱ͕ඞཁ 22 2010೥6݄3೔໦༵೔
23. Smalltalkษڧձ - Iliad ֎෦ιʔε(CSS,JavaScirpt)ͷಡΈࠐΈ ILMemoryDirectoryͷsubclassΛ࡞੒ MyMemoryDirectory addFileAt:'./css/main.css' MyMemoryDirectory addAllFilesIn:'./css/' ·ͨ͸ Workspace্ͰҎԼͷίʔυΛ࣮ߦ 23 2010೥6݄3೔໦༵೔
24. Smalltalkษڧձ - Iliad CSS,JavaScriptͷಋೖ४උ MyMemoryDirectory >> path ! ^'stylesheets' MyMemoryDirectory(class)>>initialize ! "self initialize" ! ILFileHandler addDirectory: self new MyMemoryDirectory.st Library.ws ΞϓϦέʔγϣϯΛݺͼग़ͨ͢ΊͷύεΛࢦఆ͢Δ ILFileHandlerʹొ࿥ 24 2010೥6݄3೔໦༵೔
25. Smalltalkษڧձ - Iliad CSS,JavaScriptͷಋೖ imageʹಡΈࠐΜͩCSS 25 2010೥6݄3೔໦༵೔
26. Smalltalkษڧձ - Iliad ϥΠϒϥϦͷબ୒ styles ! ^#('/stylesheets/main.css') updatePage: aPage ! super updatePage: aPage. ! aPage head stylesheet href: '/stylesheet/main.css' ILApplication subclass ILWidget subclass 26 2010೥6݄3೔໦༵೔
27. Smalltalkษڧձ - Iliad ILWidgetͱ͸ •ILApplicationͷࢠཁૉʹͳΔΫϥε •ΠϯλʔϑΣʔεͷߏ੒ͱ஋ͷอ͕࣋Մೳ sample http://localhost:9090/examples/counters/ 27 2010೥6݄3೔໦༵೔
28. Smalltalkษڧձ - Iliad JavaScript HTMLϨϯμϦϯάʹϝοηʔδΛૹΔ͚ͩͰੜ੒͞ΕΔ JavaScript contents ! ^[:e | ! ! e p onClick:(...); text:'1+1?'.]. ILWidget subclass 28 2010೥6݄3೔໦༵೔
29. Smalltalkษڧձ - Iliad JavaScript,CSSͷಋೖ४උ WAFileLibraryͷsubclassΛ࡞੒ MyFileLibrary addFileAt:'./css/main.css'. MyFileLibrary addAllFilesIn: './css/'. ·ͨ͸ Workspace্ͰҎԼͷίʔυΛ࣮ߦ 29 2010೥6݄3೔໦༵೔
30. Smalltalkษڧձ - Iliad JavaScript,CSSͷಋೖํ๏ >>updateRoot:anHtmlRoot super updateRoot: anHtmlRoot. anHtmlRoot stylesheet url: MyFileLibrary / #mainCss. >>(class) initialize ! |app| ! app := (WAAdmin register: self asApplicationAt: '...') ! ! addLibrary: MyFileLibrary. WAComponent subclass WAComponent subclass ϥΠϒϥϦͷબ୒ 30 2010೥6݄3೔໦༵೔
31. Smalltalkษڧձ - Iliad Ajax JQuery script.aculo.us JQueryʢSeaside 3.0ΑΓར༻Մೳʣ ඪ४AjaxϥΠϒϥϦ 31 2010೥6݄3೔໦༵೔
32. Smalltalkษڧձ - Iliad ϑϩʔ੍ޚ ྫ: ϩάΠϯ࣌ͷϑϩʔ Web։ൃͰ೰Ήॲཧ ೝূ੒ޭ ొ࿥ ೝূࣦഊ Login main page User register 32 2010೥6݄3೔໦༵೔
33. Smalltalkษڧձ - Iliad login user register main ೝূ੒ޭ ొ࿥ ೝূࣦഊ 33 2010೥6݄3೔໦༵೔
34. Smalltalkษڧձ - Iliad ϑϩʔ੍ޚ MyTask>>go ! | user | ! loginAnswer:= self call:(MyLoginComponent new). ! loginAnswer = #registerUser ! ! ifTrue:[ user := self call: (MyUserRegisterComponent new) ] ifFalse:[ user := loginAnswer ]. ! user ifNotNil:[ ! ! self session login: user.]. self call:(MyMainComponent new). WATask subclass:#MyTask 34 2010೥6݄3೔໦༵೔
35. Smalltalkษڧձ - Iliad ϑϩʔ੍ޚ(Seaside) WATask>>goͰϑϩʔશମΛهड़ MyLoginComponent MyUserRegisterComponent MyMainComponent MyTask call: answer: ೝূࣦഊ ೝূ੒ޭ ॊೈͳϑϩʔ੍ޚ͕هड़Մೳ 35 2010೥6݄3೔໦༵೔
36. Smalltalkษڧձ - Iliad ϑϩʔ੍ޚ MyIliad-Login.st ControllerͰ͋ΔILApplicationͰϑϩʔΛ؅ཧ ҰൠతͳWeb Frameworkͱಉ༷ͳߟ͑ํ Ruby on Rails, Zend Framework MyIliad-Login.stΛfile inͯ֬͠ೝ͍ͯͩ͘͠͞ 36 2010೥6݄3೔໦༵೔
37. Smalltalkษڧձ - Iliad ϑϩʔ੍ޚ(Iliad - 1) ILApplication subclass: #MyFlowApplication ! instanceVariableNames: 'flow' ! classVariableNames: '' ! poolDictionaries: '' ! category: 'MyIliad-Login' MyIliad-Login.st index ! ^ [:e | ! ! e build: self flow.] login ! flow := MyLoginWidget new main ! flow := MyMainWidget new. register ! flow := MyUserRegisterWidget new. flow ! ^ flow ifNil:[ flow := MyLoginWidget new ] flow: anObject ! flow := anObject ίϯτϩʔϥ͕ࢠཁૉʢWidgetʣΛஔ͖׵͑Δ 37 2010೥6݄3೔໦༵೔
38. Smalltalkษڧձ - Iliad ϑϩʔ੍ޚ(Iliad - 2) ILWidget subclass: #MyLoginWidget ! instanceVariableNames: 'user' ! classVariableNames: '' ! poolDictionaries: '' ! category: 'MyIliad-Login' login ! ((user user = 'admin') and:[ user password = 'admin']) ! ! ifTrue:[ self application main. ] ! ! ifFalse:[ ! ! ! self application register. ]. MyIliad-Login.st ίϯτϩʔϥʹ೚ͤΔ contents ^[:e | e form build: [:form | form text:'User ID'. form input action:[:v | user user: v. ]. form text:'Password'. form password action:[:v | user password: v. ]. form button text: 'create'; action: [ self login ]]] 38 2010೥6݄3೔໦༵೔
39. Smalltalkษڧձ - Iliad ϑϩʔ੍ޚ(Iliad - 3) ILWidget subclass: #MyUserRegisterWidget ! instanceVariableNames: 'user' ! classVariableNames: '' ! poolDictionaries: '' ! category: 'MyIliad-Login' addUser ! "͜͜ʹϢʔβ௥Ճॲཧ" ! self application main. MyIliad-Login.st contents ^[:e | e form build: [:form | form text:'User ID'. form input action:[:v | user user: v. ]. form text:'Password'. form password action:[:v | user password: v. ]. form button text: 'create'; action: [ self addUser ]]] ίϯτϩʔϥʹ೚ͤΔ 39 2010೥6݄3೔໦༵೔
40. Smalltalkษڧձ - Iliad ϑϩʔ੍ޚ •Controller͕ભҠॲཧΛߦͳΘͳ͚Ε͹ͳΒͳ͍ •Seasideͱ͸ҧ͍ϒϥ΢βͷόοΫϘλϯΛ࣮ߦ͞ΕΔ ͱ੔߹ੑ͕औΕͳ͍ʢैདྷͷWeb Frameworkͱಉ͡ʣ •Iliad͸ILWidget͕ར༻Ͱ͖Δ఺ͰैདྷΑΓྑ͍ 40 2010೥6݄3೔໦༵೔
41. Smalltalkษڧձ - Iliad Advance •Session •Response ࢀߟ SmalltalkͰWebαΠτΛ࡞Γ͍ͨਓ΁ 41 2010೥6݄3೔໦༵೔
42. Smalltalkษڧձ - Iliad Session SessionManager sessionClass: MySession ݱ࣌఺Ͱ෼͔ͬͨํ๏ ILSessionͷαϒΫϥεΛ࡞੒ 42 2010೥6݄3೔໦༵೔
43. Smalltalkษڧձ - Iliad Session >>(class) initialize app := MyTask registerAsApplication: 'myTask'. app preferenceAt: #sessionClass put: MySession. WASessionͷαϒΫϥεΛ࡞੒ WAComponent subclass 43 2010೥6݄3೔໦༵೔
44. Smalltalkษڧձ - Iliad Response (1) ࣗಈੜ੒͞ΕΔXHMTMLҎ֎ͷ৘ใͷग़ྗ XML, RSS,SVG... ը૾ϑΝΠϧ౳ͷμ΢ϯϩʔμ 44 2010೥6݄3೔໦༵೔
45. Smalltalkษڧձ - Iliad Response (2) respondOn: aResponse aResponse contentType:'text/xml'; contents: self svg. ILApplication subclass MySVGApplication.st self svg ͸SVGͷςΩετΛฦ͢ϝιου respondOn:ΛΦʔόϥΠυ͢Δ 45 2010೥6݄3೔໦༵೔
46. Smalltalkษڧձ - Iliad Response (3) 2.8ܥ renderContentOn:html self session returnResponse: (WAResponse new !! contentType: 'text/xml'; ! ! nextPutAll: self makeSVG; ! ! yourself) WAComponent subclass 46 2010೥6݄3೔໦༵೔
47. Smalltalkษڧձ - Iliad Response (4) renderContentOn: html ! self requestContext respond: [:response | ! ! response ! ! initializeOn: self svg ; contentType: 'text/xml'] 3.0ܥ WAComponent subclass 47 2010೥6݄3೔໦༵೔
48. Smalltalkษڧձ - Iliad Response (5) ResponseΛ༻͍ͨsvgͷग़ྗ 48 2010೥6݄3೔໦༵೔
49. Smalltalkษڧձ - Iliad ։ൃ؀ڥ ϒϥ΢β্Ͱͷ ։ൃ ೔ຊޠ Documents গͳ͍ ଟ͍ 49 2010೥6݄3೔໦༵೔
50. Smalltalkษڧձ - Iliad ϒϥ΢β্Ͱͷ։ൃ •Browser •Halo •Stylesheet •Debugger Iliadʹ͸࣮૷͞Ε͍ͯͳ͍ 50 2010೥6݄3೔໦༵೔
51. Smalltalkษڧձ - Iliad ೔ຊޠ΁ͷରԠํ๏ കᖒ͞ΜΑΓ೔ຊޠԽύονఏڙ ʢPharoͰ΋ར༻Մೳʣ GRUtf8SqCodec.st ILSite default codec: (GRUtf8SqCodec new). GRUtf8SqCodec.st Λfile in͢Δ WorkspaceͰҎԼͷίʔυΛdo it 51 2010೥6݄3೔໦༵೔
52. Smalltalkษڧձ - Iliad ରԠSmalltalk Squeak Pharo VisualWorks GNU Smalltalk GemStone Dolphin Smalltalk VASmalltalk Squeak Pharo GNU Smalltalk VisualWorksʢରԠ༧ఆʣ 52 2010೥6݄3೔໦༵೔
53. Smalltalkษڧձ - Iliad Iliadͷݸਓతײ૝ •SmalltalkҎ֎ͷWebϓϩάϥϚ͕Ҡߦ͢Δʹ͸͍͍͔΋ •·ͩ·ͩDocuments͕଍Γͳ͍ •Web্Ͱͷ։ൃ͕Ͱ͖ΔͱΑ͍ •ඇৗʹܰྔͰ୳ࡧ͠΍͍͢ 53 2010೥6݄3೔໦༵೔
54. Smalltalkษڧձ - Iliad ࢀߟ৘ใ • Iliad http://www.iliadproject.org/index • Seaside http://www.seaside.st/ • GNU Smalltalk http://smalltalk.gnu.org/ Iliad ϝʔϦϯάϦετ http://groups.google.fr/group/iliad 54 2010೥6݄3೔໦༵೔
55. Smalltalkษڧձ - Iliad Έͳ͞Μ͸Ͳ͏ࢥ͍·͔ͨ͠ʁ 55 2010೥6݄3೔໦༵೔