equal
deleted
inserted
replaced
7 inclusion of the above copyright notice. This software may not |
7 inclusion of the above copyright notice. This software may not |
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 |
|
13 'From Smalltalk/X, Version:3.1.10 on 21-sep-1997 at 12:08:04 am' ! |
|
14 |
12 |
15 Controller subclass:#VariablePanelController |
13 Controller subclass:#VariablePanelController |
16 instanceVariableNames:'movedHandle prevPos startPos' |
14 instanceVariableNames:'movedHandle prevPos startPos' |
17 classVariableNames:'' |
15 classVariableNames:'' |
18 poolDictionaries:'' |
16 poolDictionaries:'' |
246 view redrawHandlesFrom:aboveIndex to:belowIndex. |
244 view redrawHandlesFrom:aboveIndex to:belowIndex. |
247 view unlockRedraw. |
245 view unlockRedraw. |
248 ] ifFalse:[ |
246 ] ifFalse:[ |
249 super buttonRelease:button x:x y:y |
247 super buttonRelease:button x:x y:y |
250 ] |
248 ] |
|
249 ! |
|
250 |
|
251 pointerEnter:state x:x y:y |
|
252 state == 0 ifTrue:[ |
|
253 movedHandle notNil ifTrue:[self buttonRelease:1 x:x y:y] |
|
254 ] |
|
255 |
|
256 "Created: / 9.4.1998 / 12:34:22 / cg" |
|
257 "Modified: / 9.4.1998 / 12:35:05 / cg" |
251 ! ! |
258 ! ! |
252 |
259 |
253 !VariablePanelController class methodsFor:'documentation'! |
260 !VariablePanelController class methodsFor:'documentation'! |
254 |
261 |
255 version |
262 version |
256 ^ '$Header: /cvs/stx/stx/libwidg/VariablePanelController.st,v 1.14 1997-09-21 18:11:21 cg Exp $' |
263 ^ '$Header: /cvs/stx/stx/libwidg/VariablePanelController.st,v 1.15 1998-04-09 11:32:29 cg Exp $' |
257 ! ! |
264 ! ! |