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

DeviceHandle subclass:#DeviceViewHandle
	 instanceVariableNames:''
	 classVariableNames:''
	 poolDictionaries:''
	 category:'Graphics-Support'
!

!DeviceViewHandle methodsFor:'finalization'!

disposed
    "the view for which I am a handle was collected 
     - release system resources"

    drawableId notNil ifTrue:[
        gcId notNil ifTrue:[
            device destroyGC:gcId.
            gcId := nil.
        ].
        device destroyView:self withId:drawableId.
        drawableId := nil.
    ].


! !