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

     2 

     3 DeviceHandle subclass:#DeviceFormHandle

     4 	 instanceVariableNames:''

     5 	 classVariableNames:''

     6 	 poolDictionaries:''

     7 	 category:'Graphics-Support'

     8 !

     9 

    10 !DeviceFormHandle methodsFor:'finalization'!

    11 

    12 disposed

    13     "the Form for which I am a handle has been collected - tell it to the x-server"

    14 

    15     drawableId notNil ifTrue:[

    16         gcId notNil ifTrue:[

    17             device destroyGC:gcId.

    18             gcId := nil

    19         ].

    20         device destroyPixmap:drawableId.

    21         drawableId := nil

    22     ]

    23 ! !

    24