changeset 151 | 8123ec03c52f |
child 164 | 87eadeed8776 |
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/DevHandle.st Tue Jun 06 06:09:07 1995 +0200 @@ -0,0 +1,16 @@ +'From Smalltalk/X, Version:2.10.5 on 25-may-1995 at 7:37:35 am'! + +Object subclass:#DeviceHandle + instanceVariableNames:'device drawableId gcId' + classVariableNames:'' + poolDictionaries:'' + category:'Graphics-Support' +! + +!DeviceHandle methodsFor:'accessing'! + +setDevice:aDevice id:aDrawableId gcId:aGCId + device := aDevice. + drawableId := aDrawableId. + gcId := aGCId +! !