--- a/UIPainterView.st Sat Feb 15 19:19:32 1997 +0100
+++ b/UIPainterView.st Sat Feb 15 19:21:15 1997 +0100
@@ -1,6 +1,6 @@
"
COPYRIGHT (c) 1995 by Claus Gittinger
- All Rights Reserved
+ All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
@@ -11,26 +11,26 @@
"
UIObjectView subclass:#UIPainterView
- instanceVariableNames:'fontPanel code viewProperties superclassName className methodName
- categoryName'
- classVariableNames:'HandCursor'
- poolDictionaries:''
- category:'Interface-UIPainter'
+ instanceVariableNames:'fontPanel code viewProperties superclassName className methodName
+ categoryName'
+ classVariableNames:'HandCursor'
+ poolDictionaries:''
+ category:'Interface-UIPainter'
!
Object subclass:#ViewProperty
- instanceVariableNames:'aspectSelector changeSelector name nameIndex view elementClass
- labelSelector identifier'
- classVariableNames:'Identifier'
- poolDictionaries:''
- privateIn:UIPainterView
+ instanceVariableNames:'aspectSelector changeSelector name nameIndex view elementClass
+ labelSelector identifier'
+ classVariableNames:'Identifier'
+ poolDictionaries:''
+ privateIn:UIPainterView
!
UIPainterView::ViewProperty subclass:#GroupProperties
- instanceVariableNames:'controlledObjects group'
- classVariableNames:''
- poolDictionaries:''
- privateIn:UIPainterView
+ instanceVariableNames:'controlledObjects group'
+ classVariableNames:''
+ poolDictionaries:''
+ privateIn:UIPainterView
!
!UIPainterView class methodsFor:'documentation'!
@@ -38,7 +38,7 @@
copyright
"
COPYRIGHT (c) 1995 by Claus Gittinger
- All Rights Reserved
+ All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
@@ -352,9 +352,9 @@
objects := p at:#controlledObjects ifAbsent:[nil].
objects notNil ifTrue:[
- objects do:[:controlledObject |
- c := c , name , ' add:' , (self variableNameOf:controlledObject) , '.\'
- ]
+ objects do:[:controlledObject |
+ c := c , name , ' add:' , (self variableNameOf:controlledObject) , '.\'
+ ]
].
code := code , c withCRs
@@ -371,10 +371,10 @@
"generate code for groups"
viewProperties do:[:props |
- g := props at:#group ifAbsent:[nil].
- g notNil ifTrue:[
- self generateInitCodeForGroup:g
- ]
+ g := props at:#group ifAbsent:[nil].
+ g notNil ifTrue:[
+ self generateInitCodeForGroup:g
+ ]
]
@@ -388,16 +388,16 @@
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.
@@ -406,40 +406,40 @@
outlets := p at:#outlets ifAbsent:[nil].
outlets notNil ifTrue:[
- outlets do:[:selectorOutlet |
- sym := selectorOutlet at:#selector.
- typ := selectorOutlet at:#type.
- val := selectorOutlet at:#value.
- c := ' ' , name , ' ' , sym.
- (typ == #number) ifTrue:[
- c := c , val printString
- ].
- (typ == #string) ifTrue:[
- c := c , '''' , val , ''''
- ].
- (typ == #text) ifTrue:[
- c := c , '''' , val asString , ''''
- ].
- (typ == #strings) ifTrue:[
- c := c , '#( '.
- val asText do:[:aString |
- c := c , '''' , aString , ''' '
- ].
- c := c , ')'
- ].
- (typ == #block) ifTrue:[
- c := c , val
- ].
- (typ == #color) ifTrue:[
- c := c , '(Color name:''' , val , ''')'
- ].
- c := c , '.' , Character cr asString.
- code := code , c
- ]
+ outlets do:[:selectorOutlet |
+ sym := selectorOutlet at:#selector.
+ typ := selectorOutlet at:#type.
+ val := selectorOutlet at:#value.
+ c := ' ' , name , ' ' , sym.
+ (typ == #number) ifTrue:[
+ c := c , val printString
+ ].
+ (typ == #string) ifTrue:[
+ c := c , '''' , val , ''''
+ ].
+ (typ == #text) ifTrue:[
+ c := c , '''' , val asString , ''''
+ ].
+ (typ == #strings) ifTrue:[
+ c := c , '#( '.
+ val asText do:[:aString |
+ c := c , '''' , aString , ''' '
+ ].
+ c := c , ')'
+ ].
+ (typ == #block) ifTrue:[
+ c := c , val
+ ].
+ (typ == #color) ifTrue:[
+ c := c , '(Color name:''' , val , ''')'
+ ].
+ c := c , '.' , Character cr asString.
+ code := code , c
+ ]
].
self subviewsOf:aView do:[:v |
- self generateInitCodeForView:v
+ self generateInitCodeForView:v
]
"Modified: 5.9.1995 / 20:06:07 / claus"
@@ -449,8 +449,8 @@
|defCode|
defCode := Character excla asString ,
- className , ' methodsFor:''initialization''' ,
- Character excla asString , '\\'.
+ className , ' methodsFor:''initialization''' ,
+ Character excla asString , '\\'.
defCode := defCode , 'initialize\'.
defCode := defCode , ' super initialize.\'.
@@ -462,7 +462,7 @@
code := code , defCode withCRs.
self subviewsOf:self do:[:v |
- self generateInitCodeForView:v
+ self generateInitCodeForView:v
].
self generateInitCodeForOtherStuff.
@@ -473,7 +473,7 @@
defCode := defCode , 'setupLocalStuff\'.
defCode := defCode , ' ^ self\'.
defCode := defCode , Character excla asString , ' ' ,
- Character excla asString , '\\'.
+ Character excla asString , '\\'.
code := code , defCode withCRs
@@ -776,30 +776,30 @@
|labels|
labels := resources array:#(
- 'copy'
- 'cut'
- 'paste'
- '-'
- 'save'
- 'print'
- '-'
- 'inspect'
- ).
+ 'copy'
+ 'cut'
+ 'paste'
+ '-'
+ 'save'
+ 'print'
+ '-'
+ 'inspect'
+ ).
self middleButtonMenu:(PopUpMenu
- labels:labels
- selectors:#(
- copySelection
- deleteSelection
- pasteBuffer
- nil
- save
- print
- nil
- inspectSelection
- )
- receiver:self
- for:self)
+ labels:labels
+ selectors:#(
+ copySelection
+ deleteSelection
+ pasteBuffer
+ nil
+ save
+ print
+ nil
+ inspectSelection
+ )
+ receiver:self
+ for:self)
! !
@@ -947,16 +947,16 @@
|action|
fontPanel isNil ifTrue:[
- fontPanel := FontPanel new
+ fontPanel := FontPanel new
].
selection notNil ifTrue:[
- action := [:family :face :style :size |
- self changeFontFamily:family face:face
- style:style size:size
- ].
- fontPanel action:action.
- fontPanel showAtPointer
+ action := [:family :face :style :size |
+ self changeFontFamily:family face:face
+ style:style size:size
+ ].
+ fontPanel action:action.
+ fontPanel showAtPointer
]
! !
@@ -1110,7 +1110,7 @@
do redraw"
self forEach:something do:[:anObject |
- self removeObject:anObject
+ self removeObject:anObject
]
@@ -1395,12 +1395,6 @@
identifier := Identifier
! !
-!UIPainterView::GroupProperties class methodsFor:'documentation'!
-
-version
- ^ '$Header$'
-! !
-
!UIPainterView::GroupProperties methodsFor:'accessing'!
controlledObjects
@@ -1428,4 +1422,3 @@
version
^ '$Header$'
! !
-