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 |
12 |
13 'From Smalltalk/X, Version:2.10.5 on 25-may-1995 at 7:37:35 am'! |
|
14 |
|
15 Object subclass:#DeviceHandle |
13 Object subclass:#DeviceHandle |
16 instanceVariableNames:'device drawableId gcId' |
14 instanceVariableNames:'device drawableId gcId' |
17 classVariableNames:'' |
15 classVariableNames:'' |
18 poolDictionaries:'' |
16 poolDictionaries:'' |
19 category:'Graphics-Support' |
17 category:'Graphics-Support' |
20 ! |
18 ! |
21 |
19 |
22 !DeviceHandle class methodsFor:'documentation'! |
20 !DeviceHandle class methodsFor:'documentation'! |
23 |
21 |
24 copyright |
22 copyright |
42 frees an object which has created some system object. |
40 frees an object which has created some system object. |
43 Currently, these are forms and views (streams, cursors, colors and |
41 Currently, these are forms and views (streams, cursors, colors and |
44 fonts could also make use of this class - however, for historical reasons, |
42 fonts could also make use of this class - however, for historical reasons, |
45 they continue to use their own private finalization machanisms. This may |
43 they continue to use their own private finalization machanisms. This may |
46 change in future versions). |
44 change in future versions). |
|
45 |
|
46 [see also:] |
|
47 DeviceDrawable |
47 " |
48 " |
48 ! |
|
49 |
|
50 version |
|
51 ^ '$Header: /cvs/stx/stx/libview/DeviceHandle.st,v 1.4 1995-11-11 15:49:54 cg Exp $' |
|
52 ! ! |
49 ! ! |
53 |
50 |
54 !DeviceHandle methodsFor:'accessing'! |
51 !DeviceHandle methodsFor:'accessing'! |
55 |
52 |
56 setDevice:aDevice id:aDrawableId gcId:aGCId |
53 setDevice:aDevice id:aDrawableId gcId:aGCId |
57 device := aDevice. |
54 "set the handles contents" |
58 drawableId := aDrawableId. |
55 |
59 gcId := aGCId |
56 device := aDevice. |
|
57 drawableId := aDrawableId. |
|
58 gcId := aGCId |
|
59 |
|
60 "Modified: 23.4.1996 / 22:10:26 / cg" |
60 ! ! |
61 ! ! |
|
62 |
|
63 !DeviceHandle class methodsFor:'documentation'! |
|
64 |
|
65 version |
|
66 ^ '$Header: /cvs/stx/stx/libview/DeviceHandle.st,v 1.5 1996-04-23 20:11:40 cg Exp $' |
|
67 ! ! |