1 'From Smalltalk/X, Version:2.10.5 on 25-may-1995 at 7:37:35 am'!

     2 

     3 Object subclass:#DeviceHandle

     4 	 instanceVariableNames:'device drawableId gcId'

     5 	 classVariableNames:''

     6 	 poolDictionaries:''

     7 	 category:'Graphics-Support'

     8 !

     9 

    10 !DeviceHandle methodsFor:'accessing'!

    11 

    12 setDevice:aDevice id:aDrawableId gcId:aGCId

    13      device := aDevice.

    14      drawableId := aDrawableId.

    15      gcId := aGCId

    16 ! !