hg/stx-libwidg: comparison VariablePanel.st

equal deleted inserted replaced

-:4a01084cf643
+:3f297a438fec
 self setupSubviews
 ].
 shown ifTrue:[
 self cursor:cursor.
 self sizeChanged:nil.
-self redraw.
+self invalidate.
 ]
 ]
-"Modified: 6.3.1996 / 18:09:22 / cg"
+"Modified: 29.5.1996 / 16:22:35 / cg"
 !
 removeSubView:aView
 "a view is removed; adjust other subviews sizes"
 anything else to draw scrollBars handleForm.
 Normally, this is defined via styleSheet files, but this entry allows
 individual views to be manipulated."
 (styleSymbol ~~ handleStyle) ifTrue:[
-	handleStyle := styleSymbol.
+handleStyle := styleSymbol.
-	handleStyle == #next ifTrue:[
+handleStyle == #next ifTrue:[
-	    shadowForm := self class shadowFormOn:device.
+shadowForm := self class shadowFormOn:device.
-	    lightForm := self class lightFormOn:device.
+lightForm := self class lightFormOn:device.
-	] ifFalse:[
+] ifFalse:[
-	    shadowForm := lightForm := nil
+shadowForm := lightForm := nil
-	].
+].
-	shadowForm notNil ifTrue:[
+shadowForm notNil ifTrue:[
-	    (self is3D and:[handleStyle ~~ #motif]) ifTrue:[
+(self is3D and:[handleStyle ~~ #motif]) ifTrue:[
-		self barHeight:(shadowForm height + 2).
+self barHeight:(shadowForm height + 2).
-		barWidth := shadowForm width
+barWidth := shadowForm width
-	    ]
+]
-	].
+].
-	shown ifTrue:[
+shown ifTrue:[
-	    self resizeSubviews.
+self resizeSubviews.
-	    self redraw
+self invalidate
-	]
+]
 ]
 "Created: 24.2.1996 / 19:04:07 / cg"
+"Modified: 29.5.1996 / 16:22:24 / cg"
 !
 style:styleSymbol
 "define the style of the handle;
 styleSymbol may be #motif to draw a little knob or
 ! !
 !VariablePanel class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.11 1996-04-27 18:20:20 cg Exp $'
+^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.12 1996-05-29 14:40:41 cg Exp $'
 ! !

changeset 722	3f297a438fec
parent 593	86dd024ed773
child 826	138bc07c873b