VarPanelC.st
changeset 1215 0d9e67bdfbe4
parent 872 3cdb211615e2
child 1333 56af09878b96
equal deleted inserted replaced
1214:fbcbebac06ec 1215:0d9e67bdfbe4
   114 	(pos > limitMax) ifTrue:[
   114 	(pos > limitMax) ifTrue:[
   115 	    pos := limitMax
   115 	    pos := limitMax
   116 	]
   116 	]
   117     ].
   117     ].
   118 
   118 
   119      view orientation ~~ #vertical ifTrue:[
   119     prevPos == pos ifTrue:[^ self].
       
   120 
       
   121     view orientation ~~ #vertical ifTrue:[
   120 	oldHx := prevPos. 
   122 	oldHx := prevPos. 
   121 	newHx := pos.
   123 	newHx := pos.
   122 	oldHy := newHy := 0.
   124 	oldHy := newHy := 0.
   123     ] ifFalse:[
   125     ] ifFalse:[
   124 	oldHy := prevPos.
   126 	oldHy := prevPos.
   245 ! !
   247 ! !
   246 
   248 
   247 !VariablePanelController class methodsFor:'documentation'!
   249 !VariablePanelController class methodsFor:'documentation'!
   248 
   250 
   249 version
   251 version
   250     ^ '$Header: /cvs/stx/stx/libwidg/Attic/VarPanelC.st,v 1.12 1996-11-07 14:06:02 ca Exp $'
   252     ^ '$Header: /cvs/stx/stx/libwidg/Attic/VarPanelC.st,v 1.13 1997-05-05 15:57:22 cg Exp $'
   251 ! !
   253 ! !