diff --git a/packages/HTML.package/DHtmlFormatter.class/instance/cssPrefixMap.st b/packages/HTML.package/DHtmlFormatter.class/instance/cssPrefixMap.st index 21972837..525bbf76 100644 --- a/packages/HTML.package/DHtmlFormatter.class/instance/cssPrefixMap.st +++ b/packages/HTML.package/DHtmlFormatter.class/instance/cssPrefixMap.st @@ -1,7 +1,7 @@ accessing cssPrefixMap ^ cssPrefixMap ifNil: [ - Dictionary newFrom: { + cssPrefixMap := Dictionary newFrom: { 'font' -> CSSFontFormatter new. 'color' -> CSSColorFormatter new }] \ No newline at end of file diff --git a/packages/HTML.package/DHtmlFormatter.class/methodProperties.json b/packages/HTML.package/DHtmlFormatter.class/methodProperties.json index d43d1186..37376ee8 100644 --- a/packages/HTML.package/DHtmlFormatter.class/methodProperties.json +++ b/packages/HTML.package/DHtmlFormatter.class/methodProperties.json @@ -2,7 +2,7 @@ "class" : { }, "instance" : { - "cssPrefixMap" : "pf 5/25/2014 13:57", + "cssPrefixMap" : "rs 5/30/2014 16:12:55.942", "decreaseFontBy:" : "bolot 5/18/2000 11:55", "endFont:" : "bolot 5/18/2000 11:23", "endHeader:" : "rs 5/18/2014 14:16:30.63", diff --git a/packages/HTML.package/FormInputSet.class/class/forForm..st b/packages/HTML.package/FormInputSet.class/class/forForm..st new file mode 100644 index 00000000..62ee38bc --- /dev/null +++ b/packages/HTML.package/FormInputSet.class/class/forForm..st @@ -0,0 +1,4 @@ +instance creation +forForm: form + "create a FormData for the given form" + ^self new form: form \ No newline at end of file diff --git a/packages/HTML.package/FormInputSet.class/class/forForm.andBrowser..st b/packages/HTML.package/FormInputSet.class/class/forForm.andBrowser..st deleted file mode 100644 index 6ebddeb2..00000000 --- a/packages/HTML.package/FormInputSet.class/class/forForm.andBrowser..st +++ /dev/null @@ -1,4 +0,0 @@ -instance creation -forForm: form andBrowser: browser - "create a FormData for the given form and browser" - ^super new form: form browser: browser \ No newline at end of file diff --git a/packages/HTML.package/FormInputSet.class/instance/browser.st b/packages/HTML.package/FormInputSet.class/instance/browser.st new file mode 100644 index 00000000..d1a8de0c --- /dev/null +++ b/packages/HTML.package/FormInputSet.class/instance/browser.st @@ -0,0 +1,8 @@ +accessing +browser + "get the browser object TextURL-style" + htmlMorph ifNotNil: [ :m | + [ m ~= nil ] whileTrue: [ + (m hasProperty: #webBrowserView) ifTrue: [ ^ m model ]. + m := m owner ]]. + ^ nil \ No newline at end of file diff --git a/packages/HTML.package/FormInputSet.class/instance/form..st b/packages/HTML.package/FormInputSet.class/instance/form..st new file mode 100644 index 00000000..a4dc3cb6 --- /dev/null +++ b/packages/HTML.package/FormInputSet.class/instance/form..st @@ -0,0 +1,3 @@ +accessing +form: aForm + form := aForm \ No newline at end of file diff --git a/packages/HTML.package/FormInputSet.class/instance/form.browser..st b/packages/HTML.package/FormInputSet.class/instance/form.browser..st deleted file mode 100644 index c0d2164c..00000000 --- a/packages/HTML.package/FormInputSet.class/instance/form.browser..st +++ /dev/null @@ -1,5 +0,0 @@ -private-initialization -form: f browser: b - inputs := OrderedCollection new. - form := f. - browser := b. \ No newline at end of file diff --git a/packages/HTML.package/FormInputSet.class/instance/initialize.st b/packages/HTML.package/FormInputSet.class/instance/initialize.st new file mode 100644 index 00000000..21ed2a74 --- /dev/null +++ b/packages/HTML.package/FormInputSet.class/instance/initialize.st @@ -0,0 +1,4 @@ +initialize-release +initialize + super initialize. + inputs := OrderedCollection new. \ No newline at end of file diff --git a/packages/HTML.package/FormInputSet.class/instance/morph..st b/packages/HTML.package/FormInputSet.class/instance/morph..st new file mode 100644 index 00000000..9cd69a4e --- /dev/null +++ b/packages/HTML.package/FormInputSet.class/instance/morph..st @@ -0,0 +1,3 @@ +accessing +morph: aHtmlMorph + htmlMorph := aHtmlMorph \ No newline at end of file diff --git a/packages/HTML.package/FormInputSet.class/instance/submit.st b/packages/HTML.package/FormInputSet.class/instance/submit.st deleted file mode 100644 index 471bbc58..00000000 --- a/packages/HTML.package/FormInputSet.class/instance/submit.st +++ /dev/null @@ -1,14 +0,0 @@ -action -submit - "collect inputs and instruct the browser to do a submission" - | inputValues | - inputValues := Dictionary new. - - inputs do: [ :input | - input active ifTrue: [ - (inputValues includesKey: input name) ifFalse: [ - inputValues at: input name put: (OrderedCollection new: 1) ]. - (inputValues at: input name) add: input value ] ]. - browser submitFormWithInputsAsync: inputValues url: form url - method: form method encoding: form encoding. - ^true \ No newline at end of file diff --git a/packages/HTML.package/FormInputSet.class/instance/submitAsync.st b/packages/HTML.package/FormInputSet.class/instance/submitAsync.st index 46cf7c89..80a23cda 100644 --- a/packages/HTML.package/FormInputSet.class/instance/submitAsync.st +++ b/packages/HTML.package/FormInputSet.class/instance/submitAsync.st @@ -9,5 +9,5 @@ submitAsync (inputValues includesKey: input name) ifFalse: [ inputValues at: input name put: (OrderedCollection new: 1) ]. (inputValues at: input name) add: input value ] ]. - ^ browser submitFormWithInputsAsync: inputValues url: form url + ^ self browser submitFormWithInputsAsync: inputValues url: form url method: form method encoding: form encoding \ No newline at end of file diff --git a/packages/HTML.package/FormInputSet.class/methodProperties.json b/packages/HTML.package/FormInputSet.class/methodProperties.json index e44837ae..5cedbcef 100644 --- a/packages/HTML.package/FormInputSet.class/methodProperties.json +++ b/packages/HTML.package/FormInputSet.class/methodProperties.json @@ -1,10 +1,12 @@ { "class" : { - "forForm:andBrowser:" : "ls 7/16/1998 22:01" }, + "forForm:" : "rs 5/30/2014 15:25:00.848" }, "instance" : { "addInput:" : "ls 8/5/1998 03:57", - "form:browser:" : "LaurentLaffont 2/26/2010 23:13", + "browser" : "rs 5/30/2014 15:22:38.872", + "form:" : "rs 5/30/2014 15:25:36.328", + "initialize" : "rs 5/30/2014 15:25:47.98", "inputs" : "ls 8/11/1998 03:30", + "morph:" : "rs 5/30/2014 15:26:08.476", "reset" : "ls 8/5/1998 03:58", - "submit" : "rs 5/19/2014 22:54:44.798", - "submitAsync" : "rs 5/19/2014 22:54:35.618" } } + "submitAsync" : "rs 5/30/2014 15:41:41.972" } } diff --git a/packages/HTML.package/FormInputSet.class/properties.json b/packages/HTML.package/FormInputSet.class/properties.json index 529e1cec..4d18e780 100644 --- a/packages/HTML.package/FormInputSet.class/properties.json +++ b/packages/HTML.package/FormInputSet.class/properties.json @@ -8,7 +8,8 @@ "instvars" : [ "inputs", "browser", - "form" ], + "form", + "htmlMorph" ], "name" : "FormInputSet", "pools" : [ ], diff --git a/packages/HTML.package/HtmlDIVNode.class/instance/isInline.st b/packages/HTML.package/HtmlDIVNode.class/instance/isInline.st new file mode 100644 index 00000000..9e9707e1 --- /dev/null +++ b/packages/HTML.package/HtmlDIVNode.class/instance/isInline.st @@ -0,0 +1,3 @@ +as yet unclassified +isInline + ^ false \ No newline at end of file diff --git a/packages/HTML.package/HtmlDIVNode.class/methodProperties.json b/packages/HTML.package/HtmlDIVNode.class/methodProperties.json index 88d7363f..7ceac5aa 100644 --- a/packages/HTML.package/HtmlDIVNode.class/methodProperties.json +++ b/packages/HTML.package/HtmlDIVNode.class/methodProperties.json @@ -2,4 +2,5 @@ "class" : { }, "instance" : { + "isInline" : "rs 5/28/2014 12:28:24.18", "tag" : "" } } diff --git a/packages/HTML.package/HtmlDOMNode.class/instance/addToHtmlMorph..st b/packages/HTML.package/HtmlDOMNode.class/instance/addToHtmlMorph..st new file mode 100644 index 00000000..e601f14f --- /dev/null +++ b/packages/HTML.package/HtmlDOMNode.class/instance/addToHtmlMorph..st @@ -0,0 +1,15 @@ +as yet unclassified +addToHtmlMorph: aHtmlBlockMorph + | inlineNodes | + + inlineNodes := OrderedCollection new. + htmlMorph := HtmlBlockMorph newFor: self. + + self children do: [ :child | child isInline + ifTrue: [ inlineNodes add: child ] + ifFalse: [ self flushInlineNodes: inlineNodes to: htmlMorph; + flushBlockNode: child to: htmlMorph] + ]. + self flushInlineNodes: inlineNodes to: htmlMorph. + + aHtmlBlockMorph addChild: htmlMorph. \ No newline at end of file diff --git a/packages/HTML.package/HtmlDOMNode.class/instance/associatedForm.st b/packages/HTML.package/HtmlDOMNode.class/instance/associatedForm.st new file mode 100644 index 00000000..924ebfa4 --- /dev/null +++ b/packages/HTML.package/HtmlDOMNode.class/instance/associatedForm.st @@ -0,0 +1,3 @@ +accessing +associatedForm + ^ associatedForm ifNil: [ associatedForm := self parent associatedForm ] \ No newline at end of file diff --git a/packages/HTML.package/HtmlDOMNode.class/instance/flushBlockNode.to..st b/packages/HTML.package/HtmlDOMNode.class/instance/flushBlockNode.to..st new file mode 100644 index 00000000..f6e7261b --- /dev/null +++ b/packages/HTML.package/HtmlDOMNode.class/instance/flushBlockNode.to..st @@ -0,0 +1,3 @@ +as yet unclassified +flushBlockNode: blockNode to: aHtmlMorph + blockNode addToHtmlMorph: aHtmlMorph. \ No newline at end of file diff --git a/packages/HTML.package/HtmlDOMNode.class/instance/flushInlineNodes.to..st b/packages/HTML.package/HtmlDOMNode.class/instance/flushInlineNodes.to..st new file mode 100644 index 00000000..79ebcef5 --- /dev/null +++ b/packages/HTML.package/HtmlDOMNode.class/instance/flushInlineNodes.to..st @@ -0,0 +1,10 @@ +as yet unclassified +flushInlineNodes: inlineNodes to: aHtmlBlockMorph + | formatter htmlInlineMorph | + inlineNodes ifNotEmpty: [ + formatter := HtmlFormatter preferredFormatterClass new. + inlineNodes do: [ :node | node addToFormatter: formatter ]. + htmlInlineMorph := formatter htmlInlineMorph. + htmlInlineMorph text ifNotEmpty: [ + htmlInlineMorph nodes: inlineNodes. + aHtmlBlockMorph addChild: htmlInlineMorph ] ] \ No newline at end of file diff --git a/packages/HTML.package/HtmlDOMNode.class/instance/isInline.st b/packages/HTML.package/HtmlDOMNode.class/instance/isInline.st new file mode 100644 index 00000000..d89e5a2f --- /dev/null +++ b/packages/HTML.package/HtmlDOMNode.class/instance/isInline.st @@ -0,0 +1,4 @@ +as yet unclassified +isInline + ^ isInline ifNil: [ isInline := self children ifEmpty: [ true ] + ifNotEmpty: [ self children allSatisfy: [ :child | child isInline ]]] \ No newline at end of file diff --git a/packages/HTML.package/HtmlDOMNode.class/methodProperties.json b/packages/HTML.package/HtmlDOMNode.class/methodProperties.json index a96d05ce..44a686a3 100644 --- a/packages/HTML.package/HtmlDOMNode.class/methodProperties.json +++ b/packages/HTML.package/HtmlDOMNode.class/methodProperties.json @@ -6,6 +6,8 @@ "instance" : { "addStyle:" : "j.c 6/14/2007 12:24", "addToFormatter:" : "rs 5/18/2014 15:33:20.542", + "addToHtmlMorph:" : "rs 5/28/2014 12:40:28.418", + "associatedForm" : "rs 5/29/2014 23:10:34.728", "attributes" : "tb 11/30/2005 12:26", "attributes:" : "tb 7/12/2007 11:04", "childDTDTags" : "tb 12/1/2005 09:11", @@ -21,6 +23,8 @@ "endStyles:" : "rs 5/18/2014 15:33:59.432", "endTagMissing" : "tb 12/5/2005 12:02", "endTagMissing:" : "sebastian.sastre 9/20/2010 11:53", + "flushBlockNode:to:" : "SN 5/25/2014 15:38", + "flushInlineNodes:to:" : "rs 5/29/2014 22:59:26.474", "hasTrailingSlash" : "tb 1/3/2006 17:29", "hasTrailingSlash:" : "sebastian.sastre 9/20/2010 11:53", "id" : "tb 7/12/2007 11:07", @@ -30,6 +34,7 @@ "isDocument" : "tb 12/2/2005 12:26", "isImplied" : "tb 11/30/2005 12:21", "isImplied:" : "tb 11/30/2005 12:21", + "isInline" : "rs 5/28/2014 13:02:59.494", "isSelfContained" : "tb 12/2/2005 09:34", "isStyleSheet" : "tb 12/17/2005 22:26", "loader" : "tb 1/8/2006 10:03", diff --git a/packages/HTML.package/HtmlDOMNode.class/properties.json b/packages/HTML.package/HtmlDOMNode.class/properties.json index eb33183a..2ab9b0a6 100644 --- a/packages/HTML.package/HtmlDOMNode.class/properties.json +++ b/packages/HTML.package/HtmlDOMNode.class/properties.json @@ -15,7 +15,10 @@ "endTagMissing", "styles", "id", - "classes" ], + "classes", + "htmlMorph", + "isInline", + "associatedForm" ], "name" : "HtmlDOMNode", "pools" : [ ], diff --git a/packages/HTML.package/HtmlDocument.class/instance/associatedForm.st b/packages/HTML.package/HtmlDocument.class/instance/associatedForm.st new file mode 100644 index 00000000..1405d9d8 --- /dev/null +++ b/packages/HTML.package/HtmlDocument.class/instance/associatedForm.st @@ -0,0 +1,3 @@ +accessing +associatedForm + ^ nil \ No newline at end of file diff --git a/packages/HTML.package/HtmlDocument.class/methodProperties.json b/packages/HTML.package/HtmlDocument.class/methodProperties.json index add7b274..1b813ad8 100644 --- a/packages/HTML.package/HtmlDocument.class/methodProperties.json +++ b/packages/HTML.package/HtmlDocument.class/methodProperties.json @@ -4,6 +4,7 @@ "instance" : { "allStyles" : "tb 12/30/2005 20:49", "applyStyles" : "tb 7/12/2007 12:55", + "associatedForm" : "rs 5/29/2014 23:11:28.394", "content" : "tb 12/2/2005 20:38", "content:" : "PK 10/18/2010 22:31", "createImpliedNodes" : "tb 12/1/2005 00:24", diff --git a/packages/HTML.package/HtmlFORMNode.class/instance/addToHtmlMorph..st b/packages/HTML.package/HtmlFORMNode.class/instance/addToHtmlMorph..st new file mode 100644 index 00000000..d72f57c0 --- /dev/null +++ b/packages/HTML.package/HtmlFORMNode.class/instance/addToHtmlMorph..st @@ -0,0 +1,6 @@ +as yet unclassified +addToHtmlMorph: aHtmlBlockMorph + super addToHtmlMorph: aHtmlBlockMorph. + + associatedForm morph: htmlMorph. + associatedForm reset \ No newline at end of file diff --git a/packages/HTML.package/HtmlFORMNode.class/instance/associatedForm.st b/packages/HTML.package/HtmlFORMNode.class/instance/associatedForm.st new file mode 100644 index 00000000..8349be9b --- /dev/null +++ b/packages/HTML.package/HtmlFORMNode.class/instance/associatedForm.st @@ -0,0 +1,3 @@ +accessing +associatedForm + ^ associatedForm \ No newline at end of file diff --git a/packages/HTML.package/HtmlFORMNode.class/instance/endStyles..st b/packages/HTML.package/HtmlFORMNode.class/instance/endStyles..st deleted file mode 100644 index 1d5d0eb7..00000000 --- a/packages/HTML.package/HtmlFORMNode.class/instance/endStyles..st +++ /dev/null @@ -1,4 +0,0 @@ -as yet unclassified -endStyles: aFormatter - aFormatter currentFormData reset. - aFormatter endForm \ No newline at end of file diff --git a/packages/HTML.package/HtmlFORMNode.class/instance/initialize.st b/packages/HTML.package/HtmlFORMNode.class/instance/initialize.st new file mode 100644 index 00000000..2ca55e6c --- /dev/null +++ b/packages/HTML.package/HtmlFORMNode.class/instance/initialize.st @@ -0,0 +1,4 @@ +as yet unclassified +initialize + super initialize. + associatedForm := FormInputSet forForm: self \ No newline at end of file diff --git a/packages/HTML.package/HtmlFORMNode.class/instance/isInline.st b/packages/HTML.package/HtmlFORMNode.class/instance/isInline.st new file mode 100644 index 00000000..9e9707e1 --- /dev/null +++ b/packages/HTML.package/HtmlFORMNode.class/instance/isInline.st @@ -0,0 +1,3 @@ +as yet unclassified +isInline + ^ false \ No newline at end of file diff --git a/packages/HTML.package/HtmlFORMNode.class/instance/startStyles..st b/packages/HTML.package/HtmlFORMNode.class/instance/startStyles..st deleted file mode 100644 index 0ac18f98..00000000 --- a/packages/HTML.package/HtmlFORMNode.class/instance/startStyles..st +++ /dev/null @@ -1,3 +0,0 @@ -as yet unclassified -startStyles: aFormatter - aFormatter startForm: self \ No newline at end of file diff --git a/packages/HTML.package/HtmlFORMNode.class/methodProperties.json b/packages/HTML.package/HtmlFORMNode.class/methodProperties.json index 0f660ed4..a1972c5f 100644 --- a/packages/HTML.package/HtmlFORMNode.class/methodProperties.json +++ b/packages/HTML.package/HtmlFORMNode.class/methodProperties.json @@ -2,9 +2,11 @@ "class" : { }, "instance" : { + "addToHtmlMorph:" : "rs 5/30/2014 16:30:08.608", + "associatedForm" : "rs 5/29/2014 23:11:52.896", "encoding" : "pf 5/18/2014 14:31", - "endStyles:" : "rs 5/18/2014 15:24:37.044", + "initialize" : "rs 5/30/2014 15:24:27.908", + "isInline" : "rs 5/30/2014 16:03:29.766", "method" : "pf 5/18/2014 14:31", - "startStyles:" : "rs 5/18/2014 15:24:15.682", "tag" : "", "url" : "pf 5/18/2014 14:30" } } diff --git a/packages/HTML.package/HtmlFormatter.class/instance/currentFormData.st b/packages/HTML.package/HtmlFormatter.class/instance/currentFormData.st deleted file mode 100644 index c10e3b7a..00000000 --- a/packages/HTML.package/HtmlFormatter.class/instance/currentFormData.st +++ /dev/null @@ -1,6 +0,0 @@ -forms -currentFormData - "return the current form data, or nil if we aren't inside a form" - formDatas size > 0 - ifTrue: [ ^formDatas last ] - ifFalse: [ ^nil ]. \ No newline at end of file diff --git a/packages/HTML.package/HtmlFormatter.class/instance/endForm.st b/packages/HTML.package/HtmlFormatter.class/instance/endForm.st deleted file mode 100644 index 7fe98681..00000000 --- a/packages/HTML.package/HtmlFormatter.class/instance/endForm.st +++ /dev/null @@ -1,6 +0,0 @@ -forms -endForm - formDatas size > 0 ifTrue: [ - formDatas removeLast. ] - ifFalse: [ self halt: 'HtmlFormatter: ended more forms that started!?' ]. - self ensureNewlines: 1. \ No newline at end of file diff --git a/packages/HTML.package/HtmlFormatter.class/instance/htmlInlineMorph.st b/packages/HTML.package/HtmlFormatter.class/instance/htmlInlineMorph.st new file mode 100644 index 00000000..6dfc7652 --- /dev/null +++ b/packages/HTML.package/HtmlFormatter.class/instance/htmlInlineMorph.st @@ -0,0 +1,8 @@ +formatting +htmlInlineMorph + | text htmlInlineMorph | + text := outputStream contents. + htmlInlineMorph := HtmlInlineMorph new contents: text. + morphsToEmbed do:[ :m | htmlInlineMorph addMorph: m ]. + htmlInlineMorph incompleteMorphs: self incompleteMorphs. + ^htmlInlineMorph \ No newline at end of file diff --git a/packages/HTML.package/HtmlFormatter.class/instance/initialize.st b/packages/HTML.package/HtmlFormatter.class/instance/initialize.st index 3f3295ba..d1e54138 100644 --- a/packages/HTML.package/HtmlFormatter.class/instance/initialize.st +++ b/packages/HTML.package/HtmlFormatter.class/instance/initialize.st @@ -5,7 +5,6 @@ initialize indentLevel := boldLevel := italicsLevel := underlineLevel := strikeLevel := centerLevel := 0. listLengths := OrderedCollection new. listTypes := OrderedCollection new. - formDatas := OrderedCollection new. precedingSpaces := 0. precedingNewlines := 1000. "more than will ever be asked for" morphsToEmbed := OrderedCollection new. diff --git a/packages/HTML.package/HtmlFormatter.class/instance/startForm..st b/packages/HTML.package/HtmlFormatter.class/instance/startForm..st deleted file mode 100644 index 9619248c..00000000 --- a/packages/HTML.package/HtmlFormatter.class/instance/startForm..st +++ /dev/null @@ -1,5 +0,0 @@ -forms -startForm: form - "a form is beginning" - self ensureNewlines: 1. - formDatas addLast: (FormInputSet forForm: form andBrowser: browser). \ No newline at end of file diff --git a/packages/HTML.package/HtmlFormatter.class/methodProperties.json b/packages/HTML.package/HtmlFormatter.class/methodProperties.json index e6bbcbae..02578984 100644 --- a/packages/HTML.package/HtmlFormatter.class/methodProperties.json +++ b/packages/HTML.package/HtmlFormatter.class/methodProperties.json @@ -16,14 +16,12 @@ "baseUrl:" : "LaurentLaffont 2/26/2010 23:13", "browser" : "ls 7/16/1998 22:07", "browser:" : "LaurentLaffont 2/26/2010 23:13", - "currentFormData" : "ls 7/16/1998 22:07", "decreaseBold" : "LaurentLaffont 2/26/2010 23:13", "decreaseIndent" : "LaurentLaffont 2/26/2010 23:13", "decreaseItalics" : "LaurentLaffont 2/26/2010 23:13", "decreasePreformatted" : "LaurentLaffont 2/26/2010 23:13", "decreaseStrike" : "LaurentLaffont 2/26/2010 23:13", "decreaseUnderline" : "LaurentLaffont 2/26/2010 23:13", - "endForm" : "bolot 8/29/1999 18:40", "endHeader:" : "bolot 5/18/2000 12:02", "endLink:" : "LaurentLaffont 2/26/2010 23:13", "endListItem" : "ls 8/20/1998 11:34", @@ -32,6 +30,7 @@ "ensureNewlines:" : "ls 6/25/1998 17:21", "ensureSpaces:" : "ls 8/16/1998 11:34", "hr" : "LaurentLaffont 2/26/2010 23:13", + "htmlInlineMorph" : "SN 5/25/2014 15:34", "imageMapNamed:" : "bolot 11/4/1999 00:37", "incompleteMorphs" : "ls 9/5/1998 18:08", "increaseBold" : "LaurentLaffont 2/26/2010 23:13", @@ -40,10 +39,9 @@ "increasePreformatted" : "LaurentLaffont 2/26/2010 23:13", "increaseStrike" : "LaurentLaffont 2/26/2010 23:13", "increaseUnderline" : "LaurentLaffont 2/26/2010 23:13", - "initialize" : "LaurentLaffont 5/31/2010 21:10", + "initialize" : "rs 5/30/2014 15:30:30.404", "noteAnchorStart:" : "ls 9/10/1998 03:26", "setAttributes" : "LaurentLaffont 2/26/2010 23:13", - "startForm:" : "bolot 8/29/1999 18:40", "startHeader:" : "bolot 5/18/2000 12:02", "startLink:" : "LaurentLaffont 2/26/2010 23:13", "startListItem" : "bf 11/4/1999 22:23", diff --git a/packages/HTML.package/HtmlFormatter.class/properties.json b/packages/HTML.package/HtmlFormatter.class/properties.json index fb62ff0d..9e66c814 100644 --- a/packages/HTML.package/HtmlFormatter.class/properties.json +++ b/packages/HTML.package/HtmlFormatter.class/properties.json @@ -9,7 +9,6 @@ "instvars" : [ "browser", "baseUrl", - "formDatas", "outputStream", "preformattedLevel", "indentLevel", diff --git a/packages/HTML.package/HtmlIMGNode.class/instance/addToFormatter..st b/packages/HTML.package/HtmlIMGNode.class/instance/addToFormatter..st index 6f318778..54a00a5b 100644 --- a/packages/HTML.package/HtmlIMGNode.class/instance/addToFormatter..st +++ b/packages/HTML.package/HtmlIMGNode.class/instance/addToFormatter..st @@ -3,10 +3,7 @@ addToFormatter: formatter | morph url | self src isNil ifTrue: [ ^self ]. url := self src. - formatter baseUrl ifNotNil: [ - url := url asUrlRelativeTo: formatter baseUrl asUrl]. - - + url := url asUrlRelativeTo: self document url asUrl. morph := DownloadingImageMorph new. morph defaultExtent: self imageExtent. morph altText: self alt. diff --git a/packages/HTML.package/HtmlIMGNode.class/methodProperties.json b/packages/HTML.package/HtmlIMGNode.class/methodProperties.json index ea652147..ad9ffd8c 100644 --- a/packages/HTML.package/HtmlIMGNode.class/methodProperties.json +++ b/packages/HTML.package/HtmlIMGNode.class/methodProperties.json @@ -2,7 +2,7 @@ "class" : { }, "instance" : { - "addToFormatter:" : "pf 5/18/2014 13:53", + "addToFormatter:" : "SN 5/25/2014 15:55", "alt" : "pf 5/18/2014 13:54", "imageExtent" : "pf 5/18/2014 13:52", "src" : "pf 5/18/2014 13:53", diff --git a/packages/HTML.package/HtmlINPUTNode.class/instance/addCheckBoxButtonToFormatter..st b/packages/HTML.package/HtmlINPUTNode.class/instance/addCheckBoxButtonToFormatter..st index 0690275b..c57dfc5f 100644 --- a/packages/HTML.package/HtmlINPUTNode.class/instance/addCheckBoxButtonToFormatter..st +++ b/packages/HTML.package/HtmlINPUTNode.class/instance/addCheckBoxButtonToFormatter..st @@ -8,7 +8,7 @@ addCheckBoxButtonToFormatter: formatter value := self attributes at: 'value' ifAbsent: [nil]. value ifNil: [ ^value ]. - formData := formatter currentFormData. + formData := self associatedForm. formData ifNil: [ ^self ]. checked := (self attributes at: 'checked' ifAbsent: [nil]) isNil not. diff --git a/packages/HTML.package/HtmlINPUTNode.class/instance/addFileInputToFormatter..st b/packages/HTML.package/HtmlINPUTNode.class/instance/addFileInputToFormatter..st index 5746d214..28e01a2d 100644 --- a/packages/HTML.package/HtmlINPUTNode.class/instance/addFileInputToFormatter..st +++ b/packages/HTML.package/HtmlINPUTNode.class/instance/addFileInputToFormatter..st @@ -9,4 +9,4 @@ addFileInputToFormatter: formatter formatter addMorph: inputMorph; addMorph: ((PluggableButtonMorph on: fileInput getState: nil action: #browse) label: 'Browse'). - formatter currentFormData addInput: fileInput \ No newline at end of file + self associatedForm addInput: fileInput \ No newline at end of file diff --git a/packages/HTML.package/HtmlINPUTNode.class/instance/addImageButtonToFormatter..st b/packages/HTML.package/HtmlINPUTNode.class/instance/addImageButtonToFormatter..st index 804915af..044b4c0a 100644 --- a/packages/HTML.package/HtmlINPUTNode.class/instance/addImageButtonToFormatter..st +++ b/packages/HTML.package/HtmlINPUTNode.class/instance/addImageButtonToFormatter..st @@ -12,7 +12,7 @@ addImageButtonToFormatter: formatter morph url: imageUrl. value := self attributes at: 'name' ifAbsent: ['Submit']. - formData := formatter currentFormData. + formData := self associatedForm. morph on: #mouseUp send: #mouseUpFormData:event:linkMorph: diff --git a/packages/HTML.package/HtmlINPUTNode.class/instance/addRadioButtonToFormatter..st b/packages/HTML.package/HtmlINPUTNode.class/instance/addRadioButtonToFormatter..st index 28cc3091..b9161b5c 100644 --- a/packages/HTML.package/HtmlINPUTNode.class/instance/addRadioButtonToFormatter..st +++ b/packages/HTML.package/HtmlINPUTNode.class/instance/addRadioButtonToFormatter..st @@ -8,7 +8,7 @@ addRadioButtonToFormatter: formatter value := self attributes at: 'value' ifAbsent: [nil]. value ifNil: [ ^value ]. - formData := formatter currentFormData. + formData := self associatedForm. formData ifNil: [ ^self ]. checked := self attributes at: 'checked' ifAbsent: [nil]. diff --git a/packages/HTML.package/HtmlINPUTNode.class/instance/addTextInputToFormatter..st b/packages/HTML.package/HtmlINPUTNode.class/instance/addTextInputToFormatter..st index d4c79a80..3eda638f 100644 --- a/packages/HTML.package/HtmlINPUTNode.class/instance/addTextInputToFormatter..st +++ b/packages/HTML.package/HtmlINPUTNode.class/instance/addTextInputToFormatter..st @@ -8,5 +8,5 @@ addTextInputToFormatter: formatter size := (self attributes at: 'size' ifAbsent: ['12']) asNumber. inputMorph extent: (size*10@20). formatter addMorph: inputMorph. - formatter currentFormData addInput: + self associatedForm addInput: (TextInput name: self name defaultValue: self defaultValue textMorph: inputMorph). \ No newline at end of file diff --git a/packages/HTML.package/HtmlINPUTNode.class/instance/addToFormatter..st b/packages/HTML.package/HtmlINPUTNode.class/instance/addToFormatter..st index f0e8add2..4d541777 100644 --- a/packages/HTML.package/HtmlINPUTNode.class/instance/addToFormatter..st +++ b/packages/HTML.package/HtmlINPUTNode.class/instance/addToFormatter..st @@ -1,12 +1,14 @@ as yet unclassified addToFormatter: formatter - formatter currentFormData ifNil: [ + | form | + form := self associatedForm. + form ifNil: [ "not in a form. It's bogus HTML but try to survive" ^self ]. "is it a submit button?" self type = 'submit' ifTrue: [ - formatter addMorph: ((PluggableButtonMorph on: formatter currentFormData getState: nil action: #submit) label: (self attributes at: 'value' ifAbsent: ['Submit'])). + formatter addMorph: ((PluggableButtonMorph on: form getState: nil action: #submitAsync) label: (self attributes at: 'value' ifAbsent: ['Submit'])). ^self ]. self type = 'image' @@ -16,7 +18,7 @@ addToFormatter: formatter ifTrue: [^self addTextInputToFormatter: formatter]. self type = 'hidden' ifTrue: [ - formatter currentFormData addInput: (HiddenInput name: self name value: self defaultValue). + form addInput: (HiddenInput name: self name value: self defaultValue). ^self ]. self type = 'radio' ifTrue: [ diff --git a/packages/HTML.package/HtmlINPUTNode.class/instance/mouseUpFormData.event.linkMorph..st b/packages/HTML.package/HtmlINPUTNode.class/instance/mouseUpFormData.event.linkMorph..st index 34d313d5..a741f7e9 100644 --- a/packages/HTML.package/HtmlINPUTNode.class/instance/mouseUpFormData.event.linkMorph..st +++ b/packages/HTML.package/HtmlINPUTNode.class/instance/mouseUpFormData.event.linkMorph..st @@ -4,4 +4,4 @@ mouseUpFormData: formData event: event linkMorph: linkMorph aPoint := event cursorPoint - linkMorph topLeft. formData addInput: (HiddenInput name: (value, '.x') value: aPoint x asInteger asString). formData addInput: (HiddenInput name: (value, '.y') value: aPoint y asInteger asString). - formData submit \ No newline at end of file + formData submitAsync \ No newline at end of file diff --git a/packages/HTML.package/HtmlINPUTNode.class/methodProperties.json b/packages/HTML.package/HtmlINPUTNode.class/methodProperties.json index 1104421d..75b9dec9 100644 --- a/packages/HTML.package/HtmlINPUTNode.class/methodProperties.json +++ b/packages/HTML.package/HtmlINPUTNode.class/methodProperties.json @@ -2,17 +2,17 @@ "class" : { }, "instance" : { - "addCheckBoxButtonToFormatter:" : "pf 5/18/2014 14:28", - "addFileInputToFormatter:" : "pf 5/18/2014 14:29", - "addImageButtonToFormatter:" : "pf 5/18/2014 14:22", - "addRadioButtonToFormatter:" : "pf 5/18/2014 14:27", - "addTextInputToFormatter:" : "pf 5/18/2014 14:25", - "addToFormatter:" : "pf 5/18/2014 14:16", + "addCheckBoxButtonToFormatter:" : "rs 5/29/2014 23:19:20.856", + "addFileInputToFormatter:" : "rs 5/29/2014 23:19:04.282", + "addImageButtonToFormatter:" : "rs 5/29/2014 23:18:49.476", + "addRadioButtonToFormatter:" : "rs 5/29/2014 23:18:42.71", + "addTextInputToFormatter:" : "rs 5/29/2014 23:18:32.39", + "addToFormatter:" : "rs 5/30/2014 16:38:10.784", "alt" : "SN 5/22/2014 11:49", "defaultValue" : "SS 5/27/2014 20:35", "imageExtent" : "pf 5/18/2014 14:25", "mouseUpEvent:linkMorph:formData:" : "pf 5/18/2014 14:29", - "mouseUpFormData:event:linkMorph:" : "pf 5/18/2014 14:29", + "mouseUpFormData:event:linkMorph:" : "rs 5/30/2014 16:11:59.28", "name" : "pf 5/18/2014 14:40", "tag" : "", "type" : "pf 5/18/2014 14:10" } } diff --git a/packages/HTML.package/HtmlTEXTAREANode.class/instance/addToFormatter..st b/packages/HTML.package/HtmlTEXTAREANode.class/instance/addToFormatter..st index 55a26b2b..2d31f7ee 100644 --- a/packages/HTML.package/HtmlTEXTAREANode.class/instance/addToFormatter..st +++ b/packages/HTML.package/HtmlTEXTAREANode.class/instance/addToFormatter..st @@ -1,7 +1,7 @@ accessing addToFormatter: formatter | inputMorph | - formatter currentFormData ifNil: [ + self associatedForm ifNil: [ "not in a form. It's bogus HTML but try to survive" ^self ]. @@ -10,5 +10,5 @@ addToFormatter: formatter inputMorph extent: (self columns * 5) @ (self rows * inputMorph scrollDeltaHeight). inputMorph retractable: false. formatter addMorph: inputMorph. - formatter currentFormData addInput: (TextInput name: self name defaultValue: self innerContents textMorph: inputMorph). + self associatedForm addInput: (TextInput name: self name defaultValue: self innerContents textMorph: inputMorph). formatter ensureNewlines: 1. \ No newline at end of file diff --git a/packages/HTML.package/HtmlTEXTAREANode.class/methodProperties.json b/packages/HTML.package/HtmlTEXTAREANode.class/methodProperties.json index 13a56d45..562180ca 100644 --- a/packages/HTML.package/HtmlTEXTAREANode.class/methodProperties.json +++ b/packages/HTML.package/HtmlTEXTAREANode.class/methodProperties.json @@ -2,7 +2,7 @@ "class" : { }, "instance" : { - "addToFormatter:" : "pf 5/18/2014 14:47", + "addToFormatter:" : "rs 5/30/2014 15:29:50.274", "columns" : "pf 5/18/2014 14:45", "name" : "pf 5/18/2014 14:46", "rows" : "pf 5/18/2014 14:45", diff --git a/packages/HTML.package/monticello.meta/version b/packages/HTML.package/monticello.meta/version index 43e623d5..9330d02e 100644 --- a/packages/HTML.package/monticello.meta/version +++ b/packages/HTML.package/monticello.meta/version @@ -1 +1 @@ -1d84afc6-c0ac-48ac-a577-d3299e218d7c \ No newline at end of file +395d3b09-0758-43c6-b996-b0bde1577d11 \ No newline at end of file diff --git a/packages/HTML.package/monticello.meta/version.d/HTML-SN.65_83655281-8e0a-4f4d-a2da-b8e801b9707a b/packages/HTML.package/monticello.meta/version.d/HTML-SN.65_83655281-8e0a-4f4d-a2da-b8e801b9707a new file mode 100644 index 00000000..0565ee2a --- /dev/null +++ b/packages/HTML.package/monticello.meta/version.d/HTML-SN.65_83655281-8e0a-4f4d-a2da-b8e801b9707a @@ -0,0 +1 @@ +(name 'HTML-SN.65' message 'Add basic structure for new rendering pipeline.' id '83655281-8e0a-4f4d-a2da-b8e801b9707a' date '25 May 2014' time '3:58:27.101 pm' author 'SN' ancestors ((id '73fd8de8-4803-2148-a226-16833fb14a26')) stepChildren ()) \ No newline at end of file diff --git a/packages/HTML.package/monticello.meta/version.d/HTML-rs.66_d0b54045-26b1-4a1b-844a-76a06b51eeff b/packages/HTML.package/monticello.meta/version.d/HTML-rs.66_d0b54045-26b1-4a1b-844a-76a06b51eeff new file mode 100644 index 00000000..e0b1daa7 --- /dev/null +++ b/packages/HTML.package/monticello.meta/version.d/HTML-rs.66_d0b54045-26b1-4a1b-844a-76a06b51eeff @@ -0,0 +1 @@ +(name 'HTML-rs.66' message 'Make divs render as HTMLBlockMorphs' id 'd0b54045-26b1-4a1b-844a-76a06b51eeff' date '28 May 2014' time '5:05:55.32 pm' author 'rs' ancestors ((id '83655281-8e0a-4f4d-a2da-b8e801b9707a')) stepChildren ()) \ No newline at end of file diff --git a/packages/HTML.package/monticello.meta/version.d/HTML-rs.67_8e6fc2a1-920e-4710-8ea0-26f49833aaf9 b/packages/HTML.package/monticello.meta/version.d/HTML-rs.67_8e6fc2a1-920e-4710-8ea0-26f49833aaf9 new file mode 100644 index 00000000..2f857e0f --- /dev/null +++ b/packages/HTML.package/monticello.meta/version.d/HTML-rs.67_8e6fc2a1-920e-4710-8ea0-26f49833aaf9 @@ -0,0 +1 @@ +(name 'HTML-rs.67' message 'Fix forms' id '8e6fc2a1-920e-4710-8ea0-26f49833aaf9' date '30 May 2014' time '3:32:55.122 pm' author 'rs' ancestors ((id 'd0b54045-26b1-4a1b-844a-76a06b51eeff')) stepChildren ()) \ No newline at end of file diff --git a/packages/HTML.package/monticello.meta/version.d/HTML-rs.71_192ded49-3b26-42e4-b6d3-f61fb294a065 b/packages/HTML.package/monticello.meta/version.d/HTML-rs.71_192ded49-3b26-42e4-b6d3-f61fb294a065 new file mode 100644 index 00000000..2cae4ce9 --- /dev/null +++ b/packages/HTML.package/monticello.meta/version.d/HTML-rs.71_192ded49-3b26-42e4-b6d3-f61fb294a065 @@ -0,0 +1 @@ +(name 'HTML-rs.71' message 'Merge branch ''master'' into rendering/new-rendering-pipeline' id '192ded49-3b26-42e4-b6d3-f61fb294a065' date '30 May 2014' time '3:47:49.206 pm' author 'rs' ancestors ((id '8e6fc2a1-920e-4710-8ea0-26f49833aaf9') (id '1d84afc6-c0ac-48ac-a577-d3299e218d7c')) stepChildren ()) \ No newline at end of file diff --git a/packages/HTML.package/monticello.meta/version.d/HTML-rs.72_395d3b09-0758-43c6-b996-b0bde1577d11 b/packages/HTML.package/monticello.meta/version.d/HTML-rs.72_395d3b09-0758-43c6-b996-b0bde1577d11 new file mode 100644 index 00000000..a5217d37 --- /dev/null +++ b/packages/HTML.package/monticello.meta/version.d/HTML-rs.72_395d3b09-0758-43c6-b996-b0bde1577d11 @@ -0,0 +1 @@ +(name 'HTML-rs.72' message 'Fix form submit test' id '395d3b09-0758-43c6-b996-b0bde1577d11' date '30 May 2014' time '4:40:08.186 pm' author 'rs' ancestors ((id '192ded49-3b26-42e4-b6d3-f61fb294a065')) stepChildren ()) \ No newline at end of file diff --git a/packages/Scamper.package/HtmlBlockMorph.class/README.md b/packages/Scamper.package/HtmlBlockMorph.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/packages/Scamper.package/HtmlBlockMorph.class/class/newFor..st b/packages/Scamper.package/HtmlBlockMorph.class/class/newFor..st new file mode 100644 index 00000000..5289750f --- /dev/null +++ b/packages/Scamper.package/HtmlBlockMorph.class/class/newFor..st @@ -0,0 +1,5 @@ +as yet unclassified +newFor: aHtmlNode + ^self new + node: aHtmlNode; + yourself. \ No newline at end of file diff --git a/packages/Scamper.package/HtmlBlockMorph.class/instance/addChild..st b/packages/Scamper.package/HtmlBlockMorph.class/instance/addChild..st new file mode 100644 index 00000000..9c4afd05 --- /dev/null +++ b/packages/Scamper.package/HtmlBlockMorph.class/instance/addChild..st @@ -0,0 +1,4 @@ +accessing +addChild: aHtmlMorph + self addMorphBack: aHtmlMorph. + self children addLast: aHtmlMorph \ No newline at end of file diff --git a/packages/Scamper.package/HtmlBlockMorph.class/instance/children..st b/packages/Scamper.package/HtmlBlockMorph.class/instance/children..st new file mode 100644 index 00000000..570da532 --- /dev/null +++ b/packages/Scamper.package/HtmlBlockMorph.class/instance/children..st @@ -0,0 +1,4 @@ +accessing +children: anObject + + children := anObject \ No newline at end of file diff --git a/packages/Scamper.package/HtmlBlockMorph.class/instance/children.st b/packages/Scamper.package/HtmlBlockMorph.class/instance/children.st new file mode 100644 index 00000000..a4017eb2 --- /dev/null +++ b/packages/Scamper.package/HtmlBlockMorph.class/instance/children.st @@ -0,0 +1,4 @@ +accessing +children + + ^ children \ No newline at end of file diff --git a/packages/Scamper.package/HtmlBlockMorph.class/instance/defaultBounds.st b/packages/Scamper.package/HtmlBlockMorph.class/instance/defaultBounds.st new file mode 100644 index 00000000..c3314065 --- /dev/null +++ b/packages/Scamper.package/HtmlBlockMorph.class/instance/defaultBounds.st @@ -0,0 +1,4 @@ +initialization +defaultBounds +"answer the default bounds for the receiver" + ^ 0 @ 0 corner: 0 @ 0 \ No newline at end of file diff --git a/packages/Scamper.package/HtmlBlockMorph.class/instance/defaultColor.st b/packages/Scamper.package/HtmlBlockMorph.class/instance/defaultColor.st new file mode 100644 index 00000000..64c14423 --- /dev/null +++ b/packages/Scamper.package/HtmlBlockMorph.class/instance/defaultColor.st @@ -0,0 +1,3 @@ +accessing +defaultColor + ^Color transparent \ No newline at end of file diff --git a/packages/Scamper.package/HtmlBlockMorph.class/instance/incompleteMorphs.st b/packages/Scamper.package/HtmlBlockMorph.class/instance/incompleteMorphs.st new file mode 100644 index 00000000..7c052bd9 --- /dev/null +++ b/packages/Scamper.package/HtmlBlockMorph.class/instance/incompleteMorphs.st @@ -0,0 +1,6 @@ +accessing +incompleteMorphs + | incompleteMorphs | + incompleteMorphs := OrderedCollection new. + self children do: [:child | incompleteMorphs addAll: child incompleteMorphs ]. + ^incompleteMorphs. \ No newline at end of file diff --git a/packages/Scamper.package/HtmlBlockMorph.class/instance/initialize.st b/packages/Scamper.package/HtmlBlockMorph.class/instance/initialize.st new file mode 100644 index 00000000..b04efd5a --- /dev/null +++ b/packages/Scamper.package/HtmlBlockMorph.class/instance/initialize.st @@ -0,0 +1,12 @@ +initialization +initialize + super initialize. + children := OrderedCollection new. + self layoutPolicy: TableLayout new; + listDirection: #topToBottom; + wrapDirection: #none; + listCentering: #topLeft; + wrapCentering: #topLeft; + vResizing: #rigid; + hResizing: #spaceFill; + cellPositioning: #topLeft \ No newline at end of file diff --git a/packages/Scamper.package/HtmlBlockMorph.class/instance/layoutChanged.st b/packages/Scamper.package/HtmlBlockMorph.class/instance/layoutChanged.st new file mode 100644 index 00000000..0af4d9db --- /dev/null +++ b/packages/Scamper.package/HtmlBlockMorph.class/instance/layoutChanged.st @@ -0,0 +1,8 @@ +layout +layoutChanged + | delta submorphCorner | + submorphCorner := (self defaultBounds quickMerge: self submorphBounds) corner asIntegerPoint. + delta := submorphCorner - self bounds corner. + (delta x ~= 0 or: [ delta y ~= 0]) + ifTrue: [ self extent: submorphCorner - self position ] + ifFalse: [ super layoutChanged ] \ No newline at end of file diff --git a/packages/Scamper.package/HtmlBlockMorph.class/instance/node..st b/packages/Scamper.package/HtmlBlockMorph.class/instance/node..st new file mode 100644 index 00000000..1f4b5e03 --- /dev/null +++ b/packages/Scamper.package/HtmlBlockMorph.class/instance/node..st @@ -0,0 +1,4 @@ +accessing +node: anObject + + node := anObject \ No newline at end of file diff --git a/packages/Scamper.package/HtmlBlockMorph.class/instance/node.st b/packages/Scamper.package/HtmlBlockMorph.class/instance/node.st new file mode 100644 index 00000000..c765b4be --- /dev/null +++ b/packages/Scamper.package/HtmlBlockMorph.class/instance/node.st @@ -0,0 +1,4 @@ +accessing +node + + ^ node \ No newline at end of file diff --git a/packages/Scamper.package/HtmlBlockMorph.class/methodProperties.json b/packages/Scamper.package/HtmlBlockMorph.class/methodProperties.json new file mode 100644 index 00000000..f66fe3fc --- /dev/null +++ b/packages/Scamper.package/HtmlBlockMorph.class/methodProperties.json @@ -0,0 +1,14 @@ +{ + "class" : { + "newFor:" : "SN 5/25/2014 14:54" }, + "instance" : { + "addChild:" : "rs 5/28/2014 16:04:49.114", + "children" : "SN 5/25/2014 15:35", + "children:" : "SN 5/25/2014 15:35", + "defaultBounds" : "rs 5/31/2014 12:55:49.474", + "defaultColor" : "SN 5/25/2014 15:22", + "incompleteMorphs" : "SN 5/25/2014 15:32", + "initialize" : "rs 5/30/2014 20:52:25.558", + "layoutChanged" : "rs 6/3/2014 23:40:44.166", + "node" : "SN 5/25/2014 14:50", + "node:" : "SN 5/25/2014 14:50" } } diff --git a/packages/Scamper.package/HtmlBlockMorph.class/properties.json b/packages/Scamper.package/HtmlBlockMorph.class/properties.json new file mode 100644 index 00000000..e8504ff6 --- /dev/null +++ b/packages/Scamper.package/HtmlBlockMorph.class/properties.json @@ -0,0 +1,15 @@ +{ + "category" : "Scamper-HTML-Morphs", + "classinstvars" : [ + ], + "classvars" : [ + ], + "commentStamp" : "", + "instvars" : [ + "node", + "children" ], + "name" : "HtmlBlockMorph", + "pools" : [ + ], + "super" : "Morph", + "type" : "normal" } diff --git a/packages/Scamper.package/HtmlDocumentMorph.class/README.md b/packages/Scamper.package/HtmlDocumentMorph.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/packages/Scamper.package/HtmlDocumentMorph.class/class/newFor..st b/packages/Scamper.package/HtmlDocumentMorph.class/class/newFor..st new file mode 100644 index 00000000..db4cc7b2 --- /dev/null +++ b/packages/Scamper.package/HtmlDocumentMorph.class/class/newFor..st @@ -0,0 +1,5 @@ +instance creation +newFor: aHtmlDocument + ^self new + renderDocument: aHtmlDocument; + yourself. \ No newline at end of file diff --git a/packages/Scamper.package/HtmlDocumentMorph.class/instance/clear.st b/packages/Scamper.package/HtmlDocumentMorph.class/instance/clear.st new file mode 100644 index 00000000..56cd80d7 --- /dev/null +++ b/packages/Scamper.package/HtmlDocumentMorph.class/instance/clear.st @@ -0,0 +1,3 @@ +rendering +clear + self removeAllMorphs. \ No newline at end of file diff --git a/packages/Scamper.package/HtmlDocumentMorph.class/instance/document..st b/packages/Scamper.package/HtmlDocumentMorph.class/instance/document..st new file mode 100644 index 00000000..67af5459 --- /dev/null +++ b/packages/Scamper.package/HtmlDocumentMorph.class/instance/document..st @@ -0,0 +1,4 @@ +accessing +document: aHtmlDocument + + self node: aHtmlDocument \ No newline at end of file diff --git a/packages/Scamper.package/HtmlDocumentMorph.class/instance/document.st b/packages/Scamper.package/HtmlDocumentMorph.class/instance/document.st new file mode 100644 index 00000000..57406cf3 --- /dev/null +++ b/packages/Scamper.package/HtmlDocumentMorph.class/instance/document.st @@ -0,0 +1,4 @@ +accessing +document + + ^ self node. \ No newline at end of file diff --git a/packages/Scamper.package/HtmlDocumentMorph.class/instance/render.st b/packages/Scamper.package/HtmlDocumentMorph.class/instance/render.st new file mode 100644 index 00000000..646e5f8a --- /dev/null +++ b/packages/Scamper.package/HtmlDocumentMorph.class/instance/render.st @@ -0,0 +1,3 @@ +rendering +render + self document addToHtmlMorph: self. \ No newline at end of file diff --git a/packages/Scamper.package/HtmlDocumentMorph.class/instance/renderDocument..st b/packages/Scamper.package/HtmlDocumentMorph.class/instance/renderDocument..st new file mode 100644 index 00000000..1210dece --- /dev/null +++ b/packages/Scamper.package/HtmlDocumentMorph.class/instance/renderDocument..st @@ -0,0 +1,5 @@ +rendering +renderDocument: aHtmlDocument + self clear. + self document: aHtmlDocument. + self render \ No newline at end of file diff --git a/packages/Scamper.package/HtmlDocumentMorph.class/methodProperties.json b/packages/Scamper.package/HtmlDocumentMorph.class/methodProperties.json new file mode 100644 index 00000000..4259251b --- /dev/null +++ b/packages/Scamper.package/HtmlDocumentMorph.class/methodProperties.json @@ -0,0 +1,9 @@ +{ + "class" : { + "newFor:" : "SN 5/25/2014 14:08" }, + "instance" : { + "clear" : "SN 5/25/2014 14:28", + "document" : "SN 5/25/2014 14:50", + "document:" : "SN 5/25/2014 14:50", + "render" : "SN 5/25/2014 14:15", + "renderDocument:" : "rs 6/4/2014 00:07:08.87" } } diff --git a/packages/Scamper.package/HtmlDocumentMorph.class/properties.json b/packages/Scamper.package/HtmlDocumentMorph.class/properties.json new file mode 100644 index 00000000..76c04cdf --- /dev/null +++ b/packages/Scamper.package/HtmlDocumentMorph.class/properties.json @@ -0,0 +1,14 @@ +{ + "category" : "Scamper-HTML-Morphs", + "classinstvars" : [ + ], + "classvars" : [ + ], + "commentStamp" : "", + "instvars" : [ + ], + "name" : "HtmlDocumentMorph", + "pools" : [ + ], + "super" : "HtmlBlockMorph", + "type" : "normal" } diff --git a/packages/Scamper.package/HtmlInlineMorph.class/README.md b/packages/Scamper.package/HtmlInlineMorph.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/packages/Scamper.package/HtmlInlineMorph.class/instance/incompleteMorphs..st b/packages/Scamper.package/HtmlInlineMorph.class/instance/incompleteMorphs..st new file mode 100644 index 00000000..8ad18ee3 --- /dev/null +++ b/packages/Scamper.package/HtmlInlineMorph.class/instance/incompleteMorphs..st @@ -0,0 +1,4 @@ +accessing +incompleteMorphs: anObject + + incompleteMorphs := anObject \ No newline at end of file diff --git a/packages/Scamper.package/HtmlInlineMorph.class/instance/incompleteMorphs.st b/packages/Scamper.package/HtmlInlineMorph.class/instance/incompleteMorphs.st new file mode 100644 index 00000000..5d5e96c9 --- /dev/null +++ b/packages/Scamper.package/HtmlInlineMorph.class/instance/incompleteMorphs.st @@ -0,0 +1,4 @@ +accessing +incompleteMorphs + + ^ incompleteMorphs \ No newline at end of file diff --git a/packages/Scamper.package/HtmlInlineMorph.class/instance/initialize.st b/packages/Scamper.package/HtmlInlineMorph.class/instance/initialize.st new file mode 100644 index 00000000..1ce51c22 --- /dev/null +++ b/packages/Scamper.package/HtmlInlineMorph.class/instance/initialize.st @@ -0,0 +1,4 @@ +initialization +initialize + super initialize. + self nodes: OrderedCollection new. \ No newline at end of file diff --git a/packages/Scamper.package/HtmlInlineMorph.class/instance/nodes..st b/packages/Scamper.package/HtmlInlineMorph.class/instance/nodes..st new file mode 100644 index 00000000..267657d3 --- /dev/null +++ b/packages/Scamper.package/HtmlInlineMorph.class/instance/nodes..st @@ -0,0 +1,4 @@ +accessing +nodes: anObject + + nodes := anObject \ No newline at end of file diff --git a/packages/Scamper.package/HtmlInlineMorph.class/instance/nodes.st b/packages/Scamper.package/HtmlInlineMorph.class/instance/nodes.st new file mode 100644 index 00000000..7b370acd --- /dev/null +++ b/packages/Scamper.package/HtmlInlineMorph.class/instance/nodes.st @@ -0,0 +1,4 @@ +accessing +nodes + + ^ nodes \ No newline at end of file diff --git a/packages/Scamper.package/HtmlInlineMorph.class/methodProperties.json b/packages/Scamper.package/HtmlInlineMorph.class/methodProperties.json new file mode 100644 index 00000000..ae7523f9 --- /dev/null +++ b/packages/Scamper.package/HtmlInlineMorph.class/methodProperties.json @@ -0,0 +1,9 @@ +{ + "class" : { + }, + "instance" : { + "incompleteMorphs" : "SN 5/25/2014 15:34", + "incompleteMorphs:" : "SN 5/25/2014 15:34", + "initialize" : "rs 5/28/2014 16:36:11.768", + "nodes" : "SN 5/25/2014 14:49", + "nodes:" : "SN 5/25/2014 14:49" } } diff --git a/packages/Scamper.package/HtmlInlineMorph.class/properties.json b/packages/Scamper.package/HtmlInlineMorph.class/properties.json new file mode 100644 index 00000000..3477c746 --- /dev/null +++ b/packages/Scamper.package/HtmlInlineMorph.class/properties.json @@ -0,0 +1,15 @@ +{ + "category" : "Scamper-HTML-Morphs", + "classinstvars" : [ + ], + "classvars" : [ + ], + "commentStamp" : "", + "instvars" : [ + "nodes", + "incompleteMorphs" ], + "name" : "HtmlInlineMorph", + "pools" : [ + ], + "super" : "TextMorph", + "type" : "normal" } diff --git a/packages/Scamper.package/Scamper.class/instance/backgroundColor.st b/packages/Scamper.package/Scamper.class/instance/backgroundColor.st index 1254e948..34608161 100644 --- a/packages/Scamper.package/Scamper.class/instance/backgroundColor.st +++ b/packages/Scamper.package/Scamper.class/instance/backgroundColor.st @@ -1,4 +1,3 @@ access backgroundColor - ^backgroundColor ifNil: - [self defaultBackgroundColor] \ No newline at end of file + ^self defaultBackgroundColor \ No newline at end of file diff --git a/packages/Scamper.package/Scamper.class/instance/displayTextHtmlPage..st b/packages/Scamper.package/Scamper.class/instance/displayTextHtmlPage..st index 257dc2f4..21fb4bad 100644 --- a/packages/Scamper.package/Scamper.class/instance/displayTextHtmlPage..st +++ b/packages/Scamper.package/Scamper.class/instance/displayTextHtmlPage..st @@ -1,29 +1,17 @@ document handling displayTextHtmlPage: newSource "HTML page--format it" - | formatter | currentUrl := newSource url. pageSource := newSource content. self status: 'parsing...' translated. document := (HtmlDocument new parseContents: (ReadStream on: pageSource)). - self status: 'laying out...' translated. + document requestUrl: currentUrl; + responseUrl: currentUrl. + self status: 'appling styles...' translated. document applyStyles. - formatter := HtmlFormatter preferredFormatterClass new. - formatter browser: self. - formatter baseUrl: currentUrl. - document addToFormatter: formatter. - - formattedPage := formatter text. - - currentUrl asUrl fragment - ifNil: [ currentAnchorLocation := nil ] - ifNotNil: [ currentAnchorLocation := - formatter anchorLocations - at: currentUrl asUrl fragment asLowercase - ifAbsent: [ nil ] ]. - - self startDownloadingMorphState: (formatter incompleteMorphs). + self status: 'laying out...' translated. + self webContentsPane show: document. - self changeAll: #(currentUrl relabel hasLint lint backgroundColor formattedPage formattedPageSelection). + self changeAll: #(currentUrl relabel). self status: 'done.' translated. ^true \ No newline at end of file diff --git a/packages/Scamper.package/Scamper.class/instance/webContentsPane.st b/packages/Scamper.package/Scamper.class/instance/webContentsPane.st index b03f2a9a..edaaa3f9 100644 --- a/packages/Scamper.package/Scamper.class/instance/webContentsPane.st +++ b/packages/Scamper.package/Scamper.class/instance/webContentsPane.st @@ -1,10 +1,5 @@ window definition webContentsPane - "Create and return the web page pane." + "Return the web page pane." - ^WebPageMorph - on: self - bg: #backgroundColor - text: #formattedPage - readSelection: #formattedPageSelection - menu: #menu:shifted: \ No newline at end of file + ^webPageMorph ifNil: [webPageMorph := WebPageMorph on: self.] \ No newline at end of file diff --git a/packages/Scamper.package/Scamper.class/methodProperties.json b/packages/Scamper.package/Scamper.class/methodProperties.json index d4a214fc..93cc68f6 100644 --- a/packages/Scamper.package/Scamper.class/methodProperties.json +++ b/packages/Scamper.package/Scamper.class/methodProperties.json @@ -39,7 +39,7 @@ "displayHistory" : "LaurentLaffont 2/26/2010 23:08", "displayImagePage:" : "LaurentLaffont 2/26/2010 23:08", "displayPlainTextPage:" : "LaurentLaffont 2/26/2010 23:08", - "displayTextHtmlPage:" : "rs 5/18/2014 12:54:58.778", + "displayTextHtmlPage:" : "SN 5/25/2014 15:52", "doItContext" : "ls 9/14/1998 20:15", "doItReceiver" : "ls 9/14/1998 20:15", "document" : "ls 7/14/1998 02:47", @@ -80,7 +80,6 @@ "reloadButtonText" : "dgd 10/28/2003 13:20", "showLint" : "ls 7/29/1998 00:07", "simpleButtonNamed:action:text:" : "ccn 6/28/2000 20:53", - "startDownloadingMorphState:" : "LaurentLaffont 2/26/2010 23:08", "startDownloadingStateIn:url:" : "LaurentLaffont 2/26/2010 23:08", "startPage" : "LaurentLaffont 2/26/2010 23:08", "startPage:" : "LaurentLaffont 2/26/2010 23:08", @@ -97,5 +96,5 @@ "viewSource" : "dgd 10/28/2003 13:46", "visitStartPage" : "rs 5/9/2014 18:11:59.138", "wantsSteps" : "di 1/14/1999 09:00", - "webContentsPane" : "ccn 6/28/2000 21:00", + "webContentsPane" : "SN 5/25/2014 14:27", "workerCount" : "js 5/6/2014 15:57" } } diff --git a/packages/Scamper.package/Scamper.class/properties.json b/packages/Scamper.package/Scamper.class/properties.json index 145ebcc3..b8fa02b9 100644 --- a/packages/Scamper.package/Scamper.class/properties.json +++ b/packages/Scamper.package/Scamper.class/properties.json @@ -10,15 +10,13 @@ "currentUrl", "pageSource", "document", - "formattedPage", + "downloadingProcess", "documentQueue", "recentDocuments", - "currentAnchorLocation", "currentUrlIndex", - "backgroundColor", "bookmark", "bookDir", - "downloadingProcess" ], + "webPageMorph" ], "name" : "Scamper", "pools" : [ ], diff --git a/packages/Scamper.package/ScamperTest.class/instance/test02submitForm.st b/packages/Scamper.package/ScamperTest.class/instance/test02submitForm.st index 8cb859ea..545edc6a 100644 --- a/packages/Scamper.package/ScamperTest.class/instance/test02submitForm.st +++ b/packages/Scamper.package/ScamperTest.class/instance/test02submitForm.st @@ -1,17 +1,18 @@ initialize-release test02submitForm - | scamper website button form | + | scamper button form resultText | scamper := Scamper openOnUrl: 'http://swt-scamper.azurewebsites.net/Scamper-Tests/test02submitForm/request.html'. scamper owner runStepMethods. - website := (((scamper submorphs at: 4) submorphs last) submorphs first). - button := (website submorphs reject: [:Morph | Morph isTextView]) first. + button := scamper model webContentsPane allMorphs detect: + [:morph | (morph respondsTo: #label) and: [ morph label = ' Absenden ']]. form := button model. "accessor added by extension to PluggableButtonMorph" form submitAsync wait. scamper owner runStepMethods. - self assert: scamper model formattedPage withSqueakLineEndings equals: ' + resultText := (scamper model webContentsPane allMorphs detect: [:morph | morph isTextMorph ]) text. + self assert: resultText withSqueakLineEndings equals: ' Scamper4ever! aString /aString/ diff --git a/packages/Scamper.package/ScamperTest.class/methodProperties.json b/packages/Scamper.package/ScamperTest.class/methodProperties.json index 3d9def33..47fb2f71 100644 --- a/packages/Scamper.package/ScamperTest.class/methodProperties.json +++ b/packages/Scamper.package/ScamperTest.class/methodProperties.json @@ -3,5 +3,5 @@ }, "instance" : { "test01jumpToRelativeUrl" : "rs 5/26/2014 12:18:20.388", - "test02submitForm" : "rs 5/26/2014 15:10:49.91", + "test02submitForm" : "rs 5/30/2014 16:36:44.408", "testOpen" : "md 4/16/2003 15:08" } } diff --git a/packages/Scamper.package/WebPageMorph.class/class/on..st b/packages/Scamper.package/WebPageMorph.class/class/on..st new file mode 100644 index 00000000..620fab70 --- /dev/null +++ b/packages/Scamper.package/WebPageMorph.class/class/on..st @@ -0,0 +1,5 @@ +as yet unclassified +on: aScamper + ^self new + scamper: aScamper; + yourself. \ No newline at end of file diff --git a/packages/Scamper.package/WebPageMorph.class/class/on.bg.text.readSelection.menu..st b/packages/Scamper.package/WebPageMorph.class/class/on.bg.text.readSelection.menu..st deleted file mode 100644 index e2ee5567..00000000 --- a/packages/Scamper.package/WebPageMorph.class/class/on.bg.text.readSelection.menu..st +++ /dev/null @@ -1,7 +0,0 @@ -instance creation -on: model bg: getBgSel text: getTextSel readSelection: getSelectionSel menu: getMenuSel - ^self new on: model - bg: getBgSel - text: getTextSel - readSelection: getSelectionSel - menu: getMenuSel \ No newline at end of file diff --git a/packages/Scamper.package/WebPageMorph.class/instance/document..st b/packages/Scamper.package/WebPageMorph.class/instance/document..st new file mode 100644 index 00000000..7f83347a --- /dev/null +++ b/packages/Scamper.package/WebPageMorph.class/instance/document..st @@ -0,0 +1,4 @@ +accessing +document: aHtmlDocument + + document := aHtmlDocument \ No newline at end of file diff --git a/packages/Scamper.package/WebPageMorph.class/instance/document.st b/packages/Scamper.package/WebPageMorph.class/instance/document.st new file mode 100644 index 00000000..c1594b68 --- /dev/null +++ b/packages/Scamper.package/WebPageMorph.class/instance/document.st @@ -0,0 +1,4 @@ +accessing +document + + ^ document \ No newline at end of file diff --git a/packages/Scamper.package/WebPageMorph.class/instance/documentMorph..st b/packages/Scamper.package/WebPageMorph.class/instance/documentMorph..st new file mode 100644 index 00000000..40bc7d4a --- /dev/null +++ b/packages/Scamper.package/WebPageMorph.class/instance/documentMorph..st @@ -0,0 +1,5 @@ +accessing +documentMorph: aHtmlDocumentMorph + self scroller removeAllMorphs. + documentMorph := aHtmlDocumentMorph. + self scroller addMorph: documentMorph. \ No newline at end of file diff --git a/packages/Scamper.package/WebPageMorph.class/instance/documentMorph.st b/packages/Scamper.package/WebPageMorph.class/instance/documentMorph.st new file mode 100644 index 00000000..c651608b --- /dev/null +++ b/packages/Scamper.package/WebPageMorph.class/instance/documentMorph.st @@ -0,0 +1,4 @@ +accessing +documentMorph + + ^ documentMorph \ No newline at end of file diff --git a/packages/Scamper.package/WebPageMorph.class/instance/drawImage..st b/packages/Scamper.package/WebPageMorph.class/instance/drawImage..st deleted file mode 100644 index ab4442e6..00000000 --- a/packages/Scamper.package/WebPageMorph.class/instance/drawImage..st +++ /dev/null @@ -1,12 +0,0 @@ -other -drawImage: aForm - | aImage patternBox targetBox map | - aImage := Form extent: self extent depth: Display depth. - patternBox := aForm boundingBox. - targetBox := aImage boundingBox. - map := aForm colormapIfNeededFor: aImage. - targetBox left to: targetBox right - 1 by: patternBox width do: - [:x | - targetBox top to: targetBox bottom - 1 by: patternBox height do: - [:y | aImage copyBits: patternBox from: aForm at: x @ y colorMap: map ]]. - ^aImage \ No newline at end of file diff --git a/packages/Scamper.package/WebPageMorph.class/instance/drawOn..st b/packages/Scamper.package/WebPageMorph.class/instance/drawOn..st deleted file mode 100644 index caed5006..00000000 --- a/packages/Scamper.package/WebPageMorph.class/instance/drawOn..st +++ /dev/null @@ -1,4 +0,0 @@ -drawing -drawOn: aCanvas - super drawOn: aCanvas. - image isNil ifFalse: [aCanvas image: image at: bounds origin] \ No newline at end of file diff --git a/packages/Scamper.package/WebPageMorph.class/instance/getBg.st b/packages/Scamper.package/WebPageMorph.class/instance/getBg.st deleted file mode 100644 index e1cc8231..00000000 --- a/packages/Scamper.package/WebPageMorph.class/instance/getBg.st +++ /dev/null @@ -1,6 +0,0 @@ -model access -getBg - "Retrieve the current model background color/image" - - getBgSelector isNil ifTrue: [^Color white]. - ^(model perform: getBgSelector) ifNil: [Color white] \ No newline at end of file diff --git a/packages/Scamper.package/WebPageMorph.class/instance/isImage..st b/packages/Scamper.package/WebPageMorph.class/instance/isImage..st deleted file mode 100644 index 27c9e532..00000000 --- a/packages/Scamper.package/WebPageMorph.class/instance/isImage..st +++ /dev/null @@ -1,4 +0,0 @@ -other -isImage: aForm - (aForm isForm) ifFalse: [^false]. - ^true \ No newline at end of file diff --git a/packages/Scamper.package/WebPageMorph.class/instance/layoutChanged.st b/packages/Scamper.package/WebPageMorph.class/instance/layoutChanged.st index 59fc89e5..95f00da2 100644 --- a/packages/Scamper.package/WebPageMorph.class/instance/layoutChanged.st +++ b/packages/Scamper.package/WebPageMorph.class/instance/layoutChanged.st @@ -1,7 +1,6 @@ layout layoutChanged - "Udate the image and compute new bounds" + "compute new bounds" self changed. - self update: getBgSelector. super layoutChanged. self changed. \ No newline at end of file diff --git a/packages/Scamper.package/WebPageMorph.class/instance/on.bg.text.readSelection.menu..st b/packages/Scamper.package/WebPageMorph.class/instance/on.bg.text.readSelection.menu..st deleted file mode 100644 index 139b5881..00000000 --- a/packages/Scamper.package/WebPageMorph.class/instance/on.bg.text.readSelection.menu..st +++ /dev/null @@ -1,7 +0,0 @@ -initialization -on: aModel bg: getBgSel text: getTextSel readSelection: getSelectionSel menu: getMenuSel - - self on: aModel text: getTextSel accept: nil readSelection: getSelectionSel menu: getMenuSel. - getBgSelector := getBgSel. - - \ No newline at end of file diff --git a/packages/Scamper.package/WebPageMorph.class/instance/resetExtent.st b/packages/Scamper.package/WebPageMorph.class/instance/resetExtent.st new file mode 100644 index 00000000..a6e533cb --- /dev/null +++ b/packages/Scamper.package/WebPageMorph.class/instance/resetExtent.st @@ -0,0 +1,8 @@ +layout +resetExtent + super resetExtent. + "inspired by ScrollPane>>extent:" + self resizeScrollBars; + hideOrShowScrollBars; + vSetScrollDelta; + hSetScrollDelta \ No newline at end of file diff --git a/packages/Scamper.package/WebPageMorph.class/instance/scamper..st b/packages/Scamper.package/WebPageMorph.class/instance/scamper..st new file mode 100644 index 00000000..090b5539 --- /dev/null +++ b/packages/Scamper.package/WebPageMorph.class/instance/scamper..st @@ -0,0 +1,4 @@ +accessing +scamper: anObject + + scamper := anObject \ No newline at end of file diff --git a/packages/Scamper.package/WebPageMorph.class/instance/scamper.st b/packages/Scamper.package/WebPageMorph.class/instance/scamper.st new file mode 100644 index 00000000..94d41541 --- /dev/null +++ b/packages/Scamper.package/WebPageMorph.class/instance/scamper.st @@ -0,0 +1,4 @@ +accessing +scamper + + ^ scamper \ No newline at end of file diff --git a/packages/Scamper.package/WebPageMorph.class/instance/setText..st b/packages/Scamper.package/WebPageMorph.class/instance/setText..st deleted file mode 100644 index 262d2fe4..00000000 --- a/packages/Scamper.package/WebPageMorph.class/instance/setText..st +++ /dev/null @@ -1,4 +0,0 @@ -model access -setText: aText - super setText:aText. - textMorph wrapFlag: true. diff --git a/packages/Scamper.package/WebPageMorph.class/instance/show..st b/packages/Scamper.package/WebPageMorph.class/instance/show..st new file mode 100644 index 00000000..7f4003e0 --- /dev/null +++ b/packages/Scamper.package/WebPageMorph.class/instance/show..st @@ -0,0 +1,6 @@ +layout +show: aHtmlDocument + self document: aHtmlDocument; + documentMorph: (HtmlDocumentMorph newFor: aHtmlDocument); + startDownloadingMorphState: documentMorph incompleteMorphs; + resetExtent. \ No newline at end of file diff --git a/packages/Scamper.package/Scamper.class/instance/startDownloadingMorphState..st b/packages/Scamper.package/WebPageMorph.class/instance/startDownloadingMorphState..st similarity index 63% rename from packages/Scamper.package/Scamper.class/instance/startDownloadingMorphState..st rename to packages/Scamper.package/WebPageMorph.class/instance/startDownloadingMorphState..st index b295493c..079e014f 100644 --- a/packages/Scamper.package/Scamper.class/instance/startDownloadingMorphState..st +++ b/packages/Scamper.package/WebPageMorph.class/instance/startDownloadingMorphState..st @@ -1,12 +1,12 @@ -changing page +layout startDownloadingMorphState: morphs | count | - count := self workerCount min: morphs size. + count := self scamper workerCount min: morphs size. count <= 0 ifTrue: [^self]. 1 to: count do: [:start | | worker | - worker := ScamperWorker + worker := ScamperWorker task: (morphs atAll: (start to: morphs size by: count)) - from: self. + from: self scamper. worker start] diff --git a/packages/Scamper.package/WebPageMorph.class/instance/update..st b/packages/Scamper.package/WebPageMorph.class/instance/update..st deleted file mode 100644 index e835ef82..00000000 --- a/packages/Scamper.package/WebPageMorph.class/instance/update..st +++ /dev/null @@ -1,8 +0,0 @@ -updating -update: aSymbol - - super update: aSymbol. - aSymbol == getBgSelector ifTrue: - [ (self isImage: self getBg) ifTrue:[image := self drawImage: self getBg] - ifFalse:[ image := nil. - self color: self getBg]] \ No newline at end of file diff --git a/packages/Scamper.package/WebPageMorph.class/methodProperties.json b/packages/Scamper.package/WebPageMorph.class/methodProperties.json index 87816e5c..8d45eaec 100644 --- a/packages/Scamper.package/WebPageMorph.class/methodProperties.json +++ b/packages/Scamper.package/WebPageMorph.class/methodProperties.json @@ -1,12 +1,14 @@ { "class" : { - "on:bg:text:readSelection:menu:" : "AK 12/4/1999 02:50" }, + "on:" : "SN 5/25/2014 14:26" }, "instance" : { - "drawImage:" : "LaurentLaffont 2/26/2010 23:08", - "drawOn:" : "dgd 2/21/2003 23:18", - "getBg" : "dgd 2/21/2003 23:18", - "isImage:" : "gm 2/22/2003 13:11", - "layoutChanged" : "AK 12/7/1999 01:31", - "on:bg:text:readSelection:menu:" : "LaurentLaffont 2/26/2010 23:08", - "setText:" : "jmck 3/27/2010 10:28", - "update:" : "LaurentLaffont 2/26/2010 23:08" } } + "document" : "SN 5/25/2014 14:01", + "document:" : "SN 5/25/2014 14:10", + "documentMorph" : "SN 5/25/2014 14:01", + "documentMorph:" : "SN 5/25/2014 15:01", + "layoutChanged" : "SN 5/25/2014 13:56", + "resetExtent" : "SN 5/25/2014 16:09", + "scamper" : "SN 5/25/2014 14:25", + "scamper:" : "SN 5/25/2014 14:25", + "show:" : "SN 5/25/2014 16:10", + "startDownloadingMorphState:" : "SN 5/25/2014 15:41" } } diff --git a/packages/Scamper.package/WebPageMorph.class/properties.json b/packages/Scamper.package/WebPageMorph.class/properties.json index 94992143..91c7e85f 100644 --- a/packages/Scamper.package/WebPageMorph.class/properties.json +++ b/packages/Scamper.package/WebPageMorph.class/properties.json @@ -6,11 +6,11 @@ ], "commentStamp" : "", "instvars" : [ - "getBgSelector", - "asColor", - "image" ], + "scamper", + "document", + "documentMorph" ], "name" : "WebPageMorph", "pools" : [ ], - "super" : "PluggableTextMorph", + "super" : "ScrollPane", "type" : "normal" } diff --git a/packages/Scamper.package/monticello.meta/categories.st b/packages/Scamper.package/monticello.meta/categories.st index cb9a28db..d4ae7ccc 100644 --- a/packages/Scamper.package/monticello.meta/categories.st +++ b/packages/Scamper.package/monticello.meta/categories.st @@ -1,2 +1,3 @@ +SystemOrganization addCategory: #'Scamper-HTML-Morphs'! SystemOrganization addCategory: #'Scamper-Core'! SystemOrganization addCategory: #'Scamper-Tests'! diff --git a/packages/Scamper.package/monticello.meta/version b/packages/Scamper.package/monticello.meta/version index 3e798752..4b23f620 100644 --- a/packages/Scamper.package/monticello.meta/version +++ b/packages/Scamper.package/monticello.meta/version @@ -1 +1 @@ -173e5752-681e-43d8-8403-5f3a06bee531 \ No newline at end of file +30206626-5c3d-41e8-b091-4eb701db8865 \ No newline at end of file diff --git a/packages/Scamper.package/monticello.meta/version.d/Scamper-SN.2_62d20799-fbf3-a449-b821-5187491f163b b/packages/Scamper.package/monticello.meta/version.d/Scamper-SN.2_62d20799-fbf3-a449-b821-5187491f163b new file mode 100644 index 00000000..b2764e8b --- /dev/null +++ b/packages/Scamper.package/monticello.meta/version.d/Scamper-SN.2_62d20799-fbf3-a449-b821-5187491f163b @@ -0,0 +1 @@ +(name 'Scamper-SN.2' message 'Add basic structure for new rendering pipeline.' id '62d20799-fbf3-a449-b821-5187491f163b' date '25 May 2014' time '3:59:05.961 pm' author 'SN' ancestors ((id '08b04327-4862-2044-879f-09abf79a6981')) stepChildren ()) \ No newline at end of file diff --git a/packages/Scamper.package/monticello.meta/version.d/Scamper-SN.3_29a69c86-248c-b84e-84b7-7cda70273788 b/packages/Scamper.package/monticello.meta/version.d/Scamper-SN.3_29a69c86-248c-b84e-84b7-7cda70273788 new file mode 100644 index 00000000..1d031bea --- /dev/null +++ b/packages/Scamper.package/monticello.meta/version.d/Scamper-SN.3_29a69c86-248c-b84e-84b7-7cda70273788 @@ -0,0 +1 @@ +(name 'Scamper-SN.3' message 'Fix Scrollbars.' id '29a69c86-248c-b84e-84b7-7cda70273788' date '25 May 2014' time '4:11:34.333 pm' author 'SN' ancestors ((id '62d20799-fbf3-a449-b821-5187491f163b')) stepChildren ()) \ No newline at end of file diff --git a/packages/Scamper.package/monticello.meta/version.d/Scamper-rs.4_fd2e5658-0733-4f23-9eb6-91d3279aa311 b/packages/Scamper.package/monticello.meta/version.d/Scamper-rs.4_fd2e5658-0733-4f23-9eb6-91d3279aa311 new file mode 100644 index 00000000..796eecbd --- /dev/null +++ b/packages/Scamper.package/monticello.meta/version.d/Scamper-rs.4_fd2e5658-0733-4f23-9eb6-91d3279aa311 @@ -0,0 +1 @@ +(name 'Scamper-rs.4' message 'Make divs render as HTMLBlockMorphs' id 'fd2e5658-0733-4f23-9eb6-91d3279aa311' date '28 May 2014' time '5:06:28.14 pm' author 'rs' ancestors ((id '29a69c86-248c-b84e-84b7-7cda70273788')) stepChildren ()) \ No newline at end of file diff --git a/packages/Scamper.package/monticello.meta/version.d/Scamper-rs.5_87bb692b-22f0-430e-b5a2-3112ef7c30d5 b/packages/Scamper.package/monticello.meta/version.d/Scamper-rs.5_87bb692b-22f0-430e-b5a2-3112ef7c30d5 new file mode 100644 index 00000000..8d41a4cc --- /dev/null +++ b/packages/Scamper.package/monticello.meta/version.d/Scamper-rs.5_87bb692b-22f0-430e-b5a2-3112ef7c30d5 @@ -0,0 +1 @@ +(name 'Scamper-rs.5' message 'Merge branch ''master'' into rendering/new-rendering-pipeline' id '87bb692b-22f0-430e-b5a2-3112ef7c30d5' date '30 May 2014' time '3:48:03.762 pm' author 'rs' ancestors ((id 'fd2e5658-0733-4f23-9eb6-91d3279aa311') (id '173e5752-681e-43d8-8403-5f3a06bee531')) stepChildren ()) \ No newline at end of file diff --git a/packages/Scamper.package/monticello.meta/version.d/Scamper-rs.6_ce375d9b-9925-4d0a-a4d7-7ee23aa909ca b/packages/Scamper.package/monticello.meta/version.d/Scamper-rs.6_ce375d9b-9925-4d0a-a4d7-7ee23aa909ca new file mode 100644 index 00000000..d49e10a3 --- /dev/null +++ b/packages/Scamper.package/monticello.meta/version.d/Scamper-rs.6_ce375d9b-9925-4d0a-a4d7-7ee23aa909ca @@ -0,0 +1 @@ +(name 'Scamper-rs.6' message 'Fix form submit test' id 'ce375d9b-9925-4d0a-a4d7-7ee23aa909ca' date '30 May 2014' time '4:40:26.822 pm' author 'rs' ancestors ((id '87bb692b-22f0-430e-b5a2-3112ef7c30d5')) stepChildren ()) \ No newline at end of file diff --git a/packages/Scamper.package/monticello.meta/version.d/Scamper-rs.7_0d3cde47-d5e9-41c0-8b28-550c82835bdb b/packages/Scamper.package/monticello.meta/version.d/Scamper-rs.7_0d3cde47-d5e9-41c0-8b28-550c82835bdb new file mode 100644 index 00000000..b045892f --- /dev/null +++ b/packages/Scamper.package/monticello.meta/version.d/Scamper-rs.7_0d3cde47-d5e9-41c0-8b28-550c82835bdb @@ -0,0 +1 @@ +(name 'Scamper-rs.7' message 'Fix bounds... almost (except Tanzmaus)' id '0d3cde47-d5e9-41c0-8b28-550c82835bdb' date '1 June 2014' time '1:29:36.707 pm' author 'rs' ancestors ((id 'ce375d9b-9925-4d0a-a4d7-7ee23aa909ca')) stepChildren ()) \ No newline at end of file diff --git a/packages/Scamper.package/monticello.meta/version.d/Scamper-rs.8_30206626-5c3d-41e8-b091-4eb701db8865 b/packages/Scamper.package/monticello.meta/version.d/Scamper-rs.8_30206626-5c3d-41e8-b091-4eb701db8865 new file mode 100644 index 00000000..04193d10 --- /dev/null +++ b/packages/Scamper.package/monticello.meta/version.d/Scamper-rs.8_30206626-5c3d-41e8-b091-4eb701db8865 @@ -0,0 +1 @@ +(name 'Scamper-rs.8' message 'Fix the right thing' id '30206626-5c3d-41e8-b091-4eb701db8865' date '4 June 2014' time '12:10:32.641 am' author 'rs' ancestors ((id '0d3cde47-d5e9-41c0-8b28-550c82835bdb')) stepChildren ()) \ No newline at end of file