hg/stx-libtool2: comparison UIPainterView.st

equal deleted inserted replaced

-:ca492fc8390a
+:5bf234e0e451
 "
 UIObjectView subclass:#UIPainterView
 	instanceVariableNames:'treeView listHolder superclassName className methodName
 		categoryName'
-	classVariableNames:'HandCursor'
+	classVariableNames:'HandCursor RedefineMethods'
 	poolDictionaries:''
 	category:'Interface-UIPainter'
 !
 Object subclass:#ViewProperty
 Claus Gittinger
 Claus Atzkern
 "
 ! !
+!UIPainterView class methodsFor:'code generation mode'!
+redefineMethods
+"redefine methods yes or no. If a method is defined in super class
+should the message be reinstalled ?
+"
+^ RedefineMethods ? false
+!
+redefineMethods:aBool
+"redefine methods yes or no. If a method is defined in super class
+should the message be reinstalled ?
+"
+RedefineMethods := aBool
+! !
 !UIPainterView class methodsFor:'defaults'!
 defaultMenuMessage
 "This message is the default yo be sent to the menuHolder to get a menu
 "
 !UIPainterView methodsFor:'copy & cut & paste'!
 copySelection
 "copy the selection into the cut&paste-buffer
 "
-|specs coll|
+|specs coll sel|
+sel := treeView selection.
 coll := self minSetOfSuperViews:(self selection).
 coll notNil ifTrue:[
 self select:nil.
 specs := coll collect:[:aView| self fullSpecFor:aView ].
-self setSelection:specs
+self setSelection:specs.
-].
+treeView selection: sel
+].
-!
+!
-deleteSelection
-"delete the selection; copy the selection into the cut&paste-buffer
+cutSelection
+"cut the selection into the cut&paste-buffer
 and open a transaction
 "
 |specs coll|
 coll := self minSetOfSuperViews:(self selection).
 self createUndoRemove:aView.
 self remove:aView
 ]
 ].
 self setSelection:specs.
+treeView selection: (Array with: 1)
+]
+]
+!
+deleteSelection
+"delete the selection; copy the selection into the cut&paste-buffer
+and open a transaction
+"
+|specs coll|
+coll := self minSetOfSuperViews:(self selection).
+coll notNil ifTrue:[
+treeView cvsEventsDisabledDo:[
+self select:nil.
+specs := coll collect:[:aView| self fullSpecFor:aView ].
+self withinTransaction:#cut objects:coll do:[
+coll reverseDo:[:aView|
+self remove:aView
+]
+].
+treeView selection: (Array with: 1)
 ]
 ]
 !
 pasteBuffer
 !UIPainterView methodsFor:'drag & drop'!
 canDrop:something
 "returns true if something can be droped
 "
 (something size == 1 and:[self enabled and:[self numberOfSelections <= 1]]) ifTrue:[
 ^ something first theObject isKindOf:UISpecification
 ].
 ^ false
 !
 size == 1 ifTrue:[
 ^ self canPasteInto:(self singleSelection)
 ].
 ^ true
 !
 canPasteInto:aView
 "can paste into a view
 "
 |cls code skip menuSelector protoSpec thisCode|
 code := ''.
 className isNil ifTrue:[
-self warn:'set the class first'.
+self warn:'Set first the class!!'.
 ^ code
 ].
-cls := self resolveName:className.
+(cls := self resolveName:className) isNil ifTrue:[
+self warn:'Class ', className asString, ' does not exist!!'.
+^ code
+].
 treeView propertiesDo:[:aProp|
 |modelSelector menuSelector|
 protoSpec := aProp spec.
 (modelSelector := aProp model) notNil ifTrue:[
-(modelSelector isArray not) ifTrue:[
+self generateCodeFrom:(Array with:modelSelector) in:cls
-(cls implements:modelSelector asSymbol) ifFalse:[
+do:[:aSel|
 skip := false.
 (cls isSubclassOf:SimpleDialog) ifTrue:[
-skip := SimpleDialog implements:modelSelector asSymbol
+skip := SimpleDialog implements:aSel asSymbol
 ].
 skip ifFalse:[
 "/ kludge ..
 (protoSpec isKindOf:ActionButtonSpec) ifTrue:[
-thisCode := (self generateActionMethodFor:modelSelector spec:protoSpec inClass:cls).
+thisCode := (self generateActionMethodFor:aSel spec:protoSpec inClass:cls).
 ] ifFalse:[
-thisCode := (self generateAspectMethodFor:modelSelector spec:protoSpec inClass:cls).
+thisCode := (self generateAspectMethodFor:aSel spec:protoSpec inClass:cls).
 ].
-code := code , thisCode
+code := code, thisCode
-].
+]
-].
+]
 ].
-].
+self generateCodeFrom:(aProp spec aspectSelectors) in:cls
-aProp spec aspectSelectors do:[:aSel|
+do:[:aSel|
-(aSel isArray not) ifTrue:[
-(cls implements:aSel asSymbol) ifFalse:[
 thisCode := (self generateAspectMethodFor:aSel spec:protoSpec inClass:cls).
 code := code , thisCode
-]
+].
-]
-].
+self generateCodeFrom:(aProp spec actionSelectors) in:cls
-aProp spec actionSelectors do:[:aSel|
+do:[:aSel|
-(aSel isArray not) ifTrue:[
-(cls implements:aSel asSymbol) ifFalse:[
 thisCode := (self generateActionMethodFor:aSel spec:protoSpec inClass:cls).
 code := code , thisCode
-]
+].
-]
-].
+self generateCodeFrom:(aProp spec valueSelectors) in:cls
-aProp spec valueSelectors do:[:aSel|
+do:[:aSel|
-(aSel isArray not) ifTrue:[
+"/ uppercase: - assume its a globals name.
-"/ uppercase: - assume its a globals name.
+aSel first isUppercase ifFalse:[
-aSel first isUppercase ifFalse:[
-(cls implements:aSel asSymbol) ifFalse:[
 thisCode := (self generateValueMethodFor:aSel spec:protoSpec inClass:cls).
 code := code , thisCode
 ]
-]
+].
+].
+^ code
+!
+generateCodeFrom:aListOfSelectors in:aClass do:aBlock
+self class redefineMethods ifTrue:[
+aListOfSelectors do:[:aSelector|
+(aSelector isArray or:[aClass implements:aSelector]) ifFalse:[
+aBlock value:aSelector
 ]
 ]
-].
+] ifFalse:[
+aListOfSelectors do:[:aSelector|
-^ code
+(aSelector isArray or:[aClass canUnderstand:aSelector]) ifFalse:[
+aBlock value:aSelector
+]
+]
+]
 !
 generateHookMethodFor:selectorSpec comment:commentWhen note:noteOrNil defaultCode:defaultCode inClass:targetClass
 ^ ('!!' , targetClass name , ' methodsFor:''hooks''!!\\' ,
 selectorSpec , '\' ,
 className      := 'NewApplication'.
 methodName     := 'windowSpec'.
 categoryName   := 'Applications'.
 HandCursor     := Cursor leftHand.
+self backgroundColor: self class defaultViewBackgroundColor
 !
 setupFromSpec:specOrSpecArray
 |spec builder|
 "update current selected view from specification
 "
 |props name builder|
 aSpec class == WindowSpec ifTrue:[
 ^ treeView canvasSpec:aSpec
 ].
 self singleSelection notNil ifTrue:[
 self withSelectionHiddenDo:[
 self transaction:#specification selectionDo:[:aView|

changeset 698	5bf234e0e451
parent 662	28d6cac7968b
child 708	b5f3169a0ba7