[prev in list] [next in list] [prev in thread] [next in thread]
List: squeak-dev
Subject: [ENH]PaintBoxMorph shapes tab
From: Karl Ramberg <karl.ramberg () chello ! se>
Date: 2000-09-30 20:31:30
[Download RAW message or body]
The tab of the shapes got missaligned when pressed.
Karl
["PaintBoxMorph.kfr.1.cs" (text/plain)]
'From Squeak2.9alpha of 13 June 2000 [latest update: #2748] on 30 September 2000 at 10:20:08 pm'!
!PaintBoxMorph methodsFor: 'actions' stamp: 'kfr 9/30/2000 22:16'!
toggleShapes
| tab sh stamps |
"The sub panel that has the shape tools on it. Rect, line..."
stamps _ self submorphNamed: 'stamps'.
tab _ self submorphNamed: 'shapeTab'.
(sh _ self submorphNamed: 'shapes') visible
ifTrue: [sh hide. tab top: stamps bottom-1]
ifFalse: [sh comeToFront.tab comeToFront. sh top: stamps bottom-9.
sh show. tab top: sh bottom - tab height + 22].
self layoutChanged.
! !
!PaintBoxMorph methodsFor: 'actions' stamp: 'kfr 9/30/2000 22:12'!
toggleStamps
| tab otherTab st shapes |
"The sub panel that has the stamps in it. For saving and moving parts of an image."
shapes _ self submorphNamed: 'shapes'.
otherTab _ self submorphNamed: 'shapeTab'.
tab _ self submorphNamed: 'stampTab'.
(st _ self submorphNamed: 'stamps') visible
ifTrue: [st hide. st bottom: self bottom. tab top: self bottom-1.
shapes top: self bottom-9.
otherTab top: (shapes visible ifTrue: [shapes bottom - otherTab height + 22]
ifFalse: [self bottom-1])]
ifFalse: [st top: self bottom-10. st show. tab top: st bottom-0.
shapes top: st bottom-9.
otherTab top: (shapes visible ifTrue: [shapes bottom - otherTab height + 22]
ifFalse: [st bottom-0])].
self layoutChanged.! !
[prev in list] [next in list] [prev in thread] [next in thread]
Configure |
About |
News |
Add a list |
Sponsored by KoreLogic