--- a/DeviceWorkstation.st Thu Mar 06 02:34:31 1997 +0100
+++ b/DeviceWorkstation.st Thu Mar 06 02:40:12 1997 +0100
@@ -1826,6 +1826,23 @@
^ self subclassResponsibility
!
+createSubWindowFor:aView origin:org extent:ext borderWidth:bw subViewOf:sv inputOnly:inp cursor:cursor
+ ^ self
+ createWindowFor:aView
+ origin:org
+ extent:ext
+ minExtent:nil
+ maxExtent:nil
+ borderWidth:bw
+ subViewOf:sv
+ onTop:false
+ inputOnly:inp
+ label:nil
+ cursor:cursor
+ icon:nil iconMask:nil
+ iconView:nil
+!
+
createWindowFor:aView left:xpos top:ypos width:wwidth height:wheight
"will vanish - for compatibility with previous versions"
@@ -1847,23 +1864,6 @@
"Modified: 1.6.1996 / 13:22:48 / cg"
!
-createSubWindowFor:aView origin:org extent:ext borderWidth:bw subViewOf:sv inputOnly:inp cursor:cursor
- ^ self
- createWindowFor:aView
- origin:org
- extent:ext
- minExtent:nil
- maxExtent:nil
- borderWidth:bw
- subViewOf:sv
- onTop:false
- inputOnly:inp
- label:nil
- cursor:cursor
- icon:nil iconMask:nil
- iconView:nil
-!
-
createWindowFor:aView origin:org extent:ext minExtent:minE maxExtent:maxE borderWidth:bw subViewOf:sv onTop:onTop inputOnly:inp label:label cursor:curs icon:icn iconMask:icnM iconView:icnV
^ self subclassResponsibility
!
@@ -2019,19 +2019,6 @@
"Modified: 10.1.1997 / 15:40:10 / cg"
!
-colorNamed:aString
- "allocate a color with color name - return index.
- Colors should not be allocated by name, since most colors
- are X specific - get colors by rgb instead."
-
- "support some of them ..."
-
- self getRGBFromName:aString into:[:r :g :b |
- ^ self colorRed:r green:g blue:b
- ].
- ^ nil
-!
-
colorRed:redVal green:greenVal blue:blueVal
"allocate a color with rgb values (0..100) - return index"
@@ -5168,6 +5155,6 @@
!DeviceWorkstation class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.182 1997-03-05 13:11:36 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.183 1997-03-06 01:40:12 cg Exp $'
! !
DeviceWorkstation initialize!