--- a/DeviceHandle.st Wed Jun 04 22:33:42 2014 +0100
+++ b/DeviceHandle.st Thu Jun 05 08:23:01 2014 +0100
@@ -9,11 +9,10 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libview' }"
Object subclass:#DeviceHandle
- instanceVariableNames:'device parentId drawableId gcId'
+ instanceVariableNames:'device drawableId gcId'
classVariableNames:''
poolDictionaries:''
category:'Graphics-Support'
@@ -66,10 +65,6 @@
^ drawableId
"Modified: 20.3.1997 / 16:34:00 / cg"
-!
-
-parentId
- ^ parentId
! !
!DeviceHandle methodsFor:'finalization'!
@@ -92,19 +87,11 @@
gcId := aGCId
"Modified: 23.4.1996 / 22:10:26 / cg"
-!
-
-setDevice:aDevice id:aDrawableId gcId:aGCId parentId:parentIdArg
- "set the handles contents"
-
- device := aDevice.
- drawableId := aDrawableId.
- gcId := aGCId.
- parentId := parentIdArg.
! !
!DeviceHandle class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/DeviceHandle.st,v 1.16 2014-03-20 09:53:38 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/DeviceHandle.st,v 1.16.2.1 2014-05-08 08:27:50 stefan Exp $'
! !
+