TabItem.st
changeset 3268 cdc4a1749cb9
parent 3191 a5bb500a135a
child 3296 cbd5655f3905
equal deleted inserted replaced
3267:ee55a3b2f6fc 3268:cdc4a1749cb9
   379     ].
   379     ].
   380     ^ nil
   380     ^ nil
   381 !
   381 !
   382 
   382 
   383 destroyCanvas
   383 destroyCanvas
       
   384     |canvasView|
   384 
   385 
   385     canvas notNil ifTrue:[
   386     canvas notNil ifTrue:[
   386         self isCanvasApplicationModel ifTrue:[
   387         self isCanvasApplicationModel ifTrue:[
   387             canvas releaseAsSubCanvas.
   388             canvas releaseAsSubCanvas.
   388         ].
   389         ].
   389         self canvasView destroy.
   390         (canvasView := self canvasView) notNil ifTrue:[
       
   391             canvasView destroy.
       
   392         ].
   390         canvas := nil
   393         canvas := nil
   391     ].
   394     ].
       
   395 
       
   396     "Modified: / 02-11-2007 / 14:54:47 / cg"
   392 !
   397 !
   393 
   398 
   394 majorKey
   399 majorKey
   395     ^ majorKey
   400     ^ majorKey
   396 
   401 
   753 ! !
   758 ! !
   754 
   759 
   755 !TabItem class methodsFor:'documentation'!
   760 !TabItem class methodsFor:'documentation'!
   756 
   761 
   757 version
   762 version
   758     ^ '$Header: /cvs/stx/stx/libwidg2/TabItem.st,v 1.22 2007-03-05 08:08:56 ca Exp $'
   763     ^ '$Header: /cvs/stx/stx/libwidg2/TabItem.st,v 1.23 2007-11-02 14:16:58 cg Exp $'
   759 ! !
   764 ! !