'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
! !