# HG changeset patch # User ca # Date 856030875 -3600 # Node ID 40a98a1507b4081a292394acf108922a01e64b3c # Parent 01d0c93949444c3a8d0daabc3d328cb93a05d3a2 *** empty log message *** diff -r 01d0c9394944 -r 40a98a1507b4 UIObjectView.st --- a/UIObjectView.st Sat Feb 15 19:19:32 1997 +0100 +++ b/UIObjectView.st Sat Feb 15 19:21:15 1997 +0100 @@ -1,17 +1,17 @@ ObjectView subclass:#UIObjectView - instanceVariableNames:'inputView testMode undoHistory copiedExtent resizedObject - resizeSelector createInWidget createFrame createdObject - createClass clipChildren' - classVariableNames:'' - poolDictionaries:'' - category:'Interface-UIPainter' + instanceVariableNames:'inputView testMode undoHistory copiedExtent resizedObject + resizeSelector createInWidget createFrame createdObject + createClass clipChildren' + classVariableNames:'' + poolDictionaries:'' + category:'Interface-UIPainter' ! Object subclass:#UndoHistory - instanceVariableNames:'history transaction enabled modifiedAction' - classVariableNames:'' - poolDictionaries:'' - privateIn:UIObjectView + instanceVariableNames:'history transaction enabled modifiedAction' + classVariableNames:'' + poolDictionaries:'' + privateIn:UIObjectView ! @@ -1568,12 +1568,6 @@ ! ! -!UIObjectView::UndoHistory class methodsFor:'documentation'! - -version - ^ '$Header$' -! ! - !UIObjectView::UndoHistory class methodsFor:'instance creation'! new @@ -1771,4 +1765,3 @@ version ^ '$Header$' ! ! - diff -r 01d0c9394944 -r 40a98a1507b4 UIPainterView.st --- 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)) , '.\'. " 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$' ! ! -