hg/stx-libtool2: comparison UIPainterView.st

equal deleted inserted replaced

-:d0b5a33e6df0
+:19e021c8f1ef
 other person.  No title to or ownership of the software is
 hereby transferred.
 "
 UIObjectView subclass:#UIPainterView
-	instanceVariableNames:'fontPanel code viewProperties superclassName className methodName
+	instanceVariableNames:'fontPanel viewProperties superclassName className methodName
 		categoryName'
 	classVariableNames:'HandCursor'
 	poolDictionaries:''
 	category:'Interface-UIPainter'
 !
 className := aString
 "Modified: 5.9.1995 / 18:47:17 / claus"
 !
+className:aClassName superclassName:aSuperclassName selector:aSelector
+className := aClassName.
+superclassName := aSuperclassName.
+methodName := aSelector.
+!
 methodName
 ^ methodName
 "Modified: 5.9.1995 / 18:41:34 / claus"
 !
 prop isNil ifTrue:[^ self unselect]
 ifFalse:[^ self select:(prop view)]
 ! !
-!UIPainterView methodsFor:'code manipulation'!
+!UIPainterView ignoredMethodsFor:'code manipulation'!
 changeClass
 |box classNameHolder superclassNameHolder|
 classNameHolder := (className ? 'MyClass') asValue.
 undoHistory transaction:#create text:(props name) do:[
 self undoCreate:(props identifier).
 ].
 ! !
-!UIPainterView methodsFor:'generating output'!
+!UIPainterView ignoredMethodsFor:'generating output'!
 generateClassDefinition
 |defCode|
 defCode := superclassName , ' subclass:#' , className , '\'.
 defCode := defCode , '  classVariableNames:''''\'.
 defCode := defCode , '  poolDictionaries:''''\'.
 defCode := defCode , '  category:''' , categoryName , '''\'.
 defCode := defCode , Character excla asString , '\\'.
-code := code , (defCode withCRs)
+^ defCode withCRs
-!
+! !
+!UIPainterView methodsFor:'generating output'!
 generateCode
+"generate code for the windowSpec method"
+|code|
 code := ''.
-(Smalltalk classNamed:className) isNil ifTrue:[
-self generateClassDefinition.
+"/    (Smalltalk classNamed:className asSymbol) isNil ifTrue:[
-].
+"/        code := code , self generateClassDefinition.
-"/    self generateInitMethod.
+"/    ].
-code := code , self generateWindowSpec.
+"/    code := code , self generateInitMethod.
-self generateOutlets.
+code := code , self generateWindowSpecMethodSource.
+"/    code := code , self generateAspectMethods.
 ^ code withCRs
 "Modified: 5.9.1995 / 20:57:53 / claus"
 ! !
 !UIPainterView ignoredMethodsFor:'generating output'!
 generateInitCodeForGroup:aGroup
-|c name p objects outlets moreCode sym typ val|
+|code c name p objects outlets moreCode sym typ val|
 " <name> := <GroupClass> in:<name-of-superview>"
+code := ''.
 p := self propertyOfGroup:aGroup.
 name := p at:#variableName.
 c := '  ' , name , ' := ' , (aGroup class name) , ' new.\'.
 " <name> <symbol>:<value>"
 objects := p at:#controlledObjects ifAbsent:[nil].
 objects notNil ifTrue:[
-	objects do:[:controlledObject |
+objects do:[:controlledObject |
-	    c := c , name , ' add:' , (self variableNameOf:controlledObject) , '.\'
+c := c , name , ' add:' , (self variableNameOf:controlledObject) , '.\'
-	]
+]
 ].
 code := code , c withCRs
 !
 generateInitCodeForOtherStuff
-|g c name p outlets moreCode sym typ val|
+|code g c name p outlets moreCode sym typ val|
+code := ''.
 "generate code for groups"
 viewProperties do:[:props |
-	g := props at:#group ifAbsent:[nil].
+g := props at:#group ifAbsent:[nil].
-	g notNil ifTrue:[
+g notNil ifTrue:[
-	    self generateInitCodeForGroup:g
+code := code , (self generateInitCodeForGroup:g)
-	]
+]
-]
+].
+^ code
 !
 generateInitCodeForView:aView
-|c name p outlets moreCode sym typ val|
+|code c name p outlets moreCode sym typ val|
 " <name> := <ViewClass> in:<name-of-superview>"
+code := ''.
 p := self propertyOfView:aView.
 name := p at:#variableName.
 c := '    ' , name , ' := ' ,
-	 (aView class name) , ' in:' , (self variableNameOf:(aView superView)) , '.\'.
+(aView class name) , ' in:' , (self variableNameOf:(aView superView)) , '.\'.
 " <name> origin:(...) extent:(...)"
 c := c , '    ' , name , ' origin:(', aView origin printString , ')'
-		    , ' extent:(', aView extent printString , ').\'.
+, ' extent:(', aView extent printString , ').\'.
 moreCode := p at:#initCode ifAbsent:nil.
 moreCode notNil ifTrue:[
-	c := c , moreCode , '\' withCRs
+c := c , moreCode , '\' withCRs
 ].
 code := code , c withCRs.
 " <name> <symbol>:<value>"
 outlets := p at:#outlets ifAbsent:[nil].
 outlets notNil ifTrue:[
-	outlets do:[:selectorOutlet |
+outlets do:[:selectorOutlet |
-	    sym := selectorOutlet at:#selector.
+sym := selectorOutlet at:#selector.
-	    typ := selectorOutlet at:#type.
+typ := selectorOutlet at:#type.
-	    val := selectorOutlet at:#value.
+val := selectorOutlet at:#value.
-	    c :=  '    ' , name , ' ' , sym.
+c :=  '    ' , name , ' ' , sym.
-	    (typ == #number) ifTrue:[
+(typ == #number) ifTrue:[
-		c := c , val printString
+c := c , val printString
-	    ].
+].
-	    (typ == #string) ifTrue:[
+(typ == #string) ifTrue:[
-		c := c , '''' , val , ''''
+c := c , '''' , val , ''''
-	    ].
+].
-	    (typ == #text) ifTrue:[
+(typ == #text) ifTrue:[
-		c := c , '''' , val asString , ''''
+c := c , '''' , val asString , ''''
-	    ].
+].
-	    (typ == #strings) ifTrue:[
+(typ == #strings) ifTrue:[
-		c := c , '#( '.
+c := c , '#( '.
-		val asText do:[:aString |
+val asText do:[:aString |
-		    c := c , '''' , aString , ''' '
+c := c , '''' , aString , ''' '
-		].
+].
-		c := c , ')'
+c := c , ')'
-	    ].
+].
-	    (typ == #block) ifTrue:[
+(typ == #block) ifTrue:[
-		c := c , val
+c := c , val
-	    ].
+].
-	    (typ == #color) ifTrue:[
+(typ == #color) ifTrue:[
-		c := c , '(Color name:''' , val , ''')'
+c := c , '(Color name:''' , val , ''')'
-	    ].
+].
-	    c := c , '.' , Character cr asString.
+c := c , '.' , Character cr asString.
-	    code := code , c
+code := code , c
-	]
+]
 ].
 self subviewsOf:aView do:[:v |
-	self generateInitCodeForView:v
+code := code , (self generateInitCodeForView:v)
-]
+].
+^ code.
 "Modified: 5.9.1995 / 20:06:07 / claus"
 !
 generateInitMethod
-|defCode|
+|defCode code|
 defCode := Character excla asString ,
-	       className , ' methodsFor:''initialization''' ,
+className , ' methodsFor:''initialization''' ,
-	       Character excla asString , '\\'.
+Character excla asString , '\\'.
 defCode := defCode , 'initialize\'.
 defCode := defCode , '    super initialize.\'.
 defCode := defCode , '    self setupSubViews.\'.
 defCode := defCode , '    self setupLocalStuff\'.
 defCode := defCode , Character excla asString , '\\'.
 defCode := defCode , 'setupSubViews\'.
-code := code , defCode withCRs.
+code := defCode withCRs.
 self subviewsOf:self do:[:v |
-	self generateInitCodeForView:v
+code := code , (self generateInitCodeForView:v)
 ].
-self generateInitCodeForOtherStuff.
+code := code , (self generateInitCodeForOtherStuff).
 code := code , '    ^ self\' withCRs.
 defCode := Character excla asString , '\\'.
 defCode := defCode , 'setupLocalStuff\'.
 defCode := defCode , '    ^ self\'.
 defCode := defCode , Character excla asString , ' ' ,
-			 Character excla asString , '\\'.
+Character excla asString , '\\'.
-code := code , defCode withCRs
+code := code , defCode withCRs.
+^ code.
-! !
+!
-!UIPainterView methodsFor:'generating output'!
 generateOutlets
 ^ self
-!
+! !
+!UIPainterView methodsFor:'generating output'!
 generateSpecFor:something
 "generate a spec for a view or collection of views
 "
 |spec views|
 ]
 ].
 ^ spec
 !
-generateWindowSpec
+generateWindowSpecMethodSource
-|spec specArray str|
+|spec specArray str code|
 subViews remove:inputView.
 [
 spec := FullSpec fromView:self callBack:[:newSpec :view | self stuffPropertiesFrom:view intoSpec:newSpec].
 ] valueNowOrOnUnwindDo:[
 subViews addFirst:inputView.
 ].
 specArray := spec literalArrayEncoding.
 str := WriteStream on:String new.
 self prettyPrintSpecArray:specArray on:str indent:5.
 code := Character excla asString
 , className , ' class methodsFor:''interface specs'''
 , '\\'.
 ^ code withCRs
 "Modified: 5.9.1995 / 21:01:35 / claus"
-!
+! !
+!UIPainterView ignoredMethodsFor:'generating output'!
 nameOfClass
 ^ 'NewView'
-!
+! !
+!UIPainterView methodsFor:'generating output'!
 outletValueOf:aSymbol for:aView
 "/    |c name p outlets moreCode sym typ val|
 "/
 "/    p := self propertyOfView:aView.
 ].
 (name := props name) notNil ifTrue:[
 newSpec name:name
 ].
-!
+! !
+!UIPainterView ignoredMethodsFor:'generating output'!
 subviewVariableNames
 |names|
 names := ''.
 viewProperties do:[:p| names := names , ' ' , (p name)].
 ^ names
-!
+! !
+!UIPainterView methodsFor:'generating output'!
 subviewsOf:aView do:aBlock
 |subs v|
 (subs := aView subViews) notNil ifTrue:[
 superclassName := 'ApplicationModel'.
 className      := 'NewApplication'.
 methodName     := 'windowSpec'.
 categoryName   := 'Applications'.
 viewProperties := OrderedCollection new.
 HandCursor     := Cursor leftHand.
 "Modified: 5.9.1995 / 19:58:06 / claus"
 ! !

changeset 55	19e021c8f1ef
parent 53	d03569a6ff03
child 57	5af567f52811