--- a/DeviceWorkstation.st Thu May 06 15:58:59 1999 +0200
+++ b/DeviceWorkstation.st Thu May 06 15:59:24 1999 +0200
@@ -652,21 +652,21 @@
"/ take that ... it ought to be display
"/
AllScreens size <= 1 ifTrue:[
- ^ Display
+ ^ Display
].
"/
"/ someone willing to tell me ?
"/
(dev := CurrentScreenQuerySignal query) notNil ifTrue:[
- ^ dev
+ ^ dev
].
thisProcess := Processor activeProcess.
LastActiveScreen notNil ifTrue:[
- LastActiveProcess == thisProcess ifTrue:[
- ^ LastActiveScreen
- ]
+ LastActiveProcess == thisProcess ifTrue:[
+ ^ LastActiveScreen
+ ]
].
"/
@@ -676,14 +676,14 @@
"/ the current windowGroup got corrupted somehow ...
(wg := WindowGroup activeGroup) notNil ifTrue:[
- "/
- "/ ok, not a background process or scheduler ...
- "/
- (dev := wg graphicsDevice) notNil ifTrue:[
- LastActiveScreen := dev.
- LastActiveProcess := thisProcess.
- ^ dev
- ].
+ "/
+ "/ ok, not a background process or scheduler ...
+ "/
+ (dev := wg graphicsDevice) notNil ifTrue:[
+ LastActiveScreen := dev.
+ LastActiveProcess := thisProcess.
+ ^ dev
+ ].
].
"/
@@ -3201,7 +3201,7 @@
"/ "
"/ if there is no sensor ...
"/ "
- aView coveredBy:otherView
+ aView coveredBy:otherView
"/ ]
"Modified: / 8.2.1999 / 15:24:52 / cg"
@@ -5273,13 +5273,13 @@
newBits := ByteArray new:(bytesPerLineWanted * height).
srcIndex := dstIndex := 1.
1 to:height do:[:row |
- newBits
- replaceFrom:dstIndex
- to:(dstIndex + bytesPerLineWanted - 1)
- with:givenBits
- startingAt:srcIndex.
- dstIndex := dstIndex + bytesPerLineWanted.
- srcIndex := srcIndex + bytesPerLineGiven.
+ newBits
+ replaceFrom:dstIndex
+ to:(dstIndex + bytesPerLineWanted - 1)
+ with:givenBits
+ startingAt:srcIndex.
+ dstIndex := dstIndex + bytesPerLineWanted.
+ srcIndex := srcIndex + bytesPerLineGiven.
].
^ newBits.
@@ -5607,16 +5607,16 @@
o := self getCopyBuffer.
s := o.
o isString ifFalse:[
- o isNil ifTrue:[
- s := ''
- ] ifFalse:[
- (o isStringCollection) ifTrue:[
- s := o asStringWithCRsFrom:1 to:(o size) compressTabs:false withCR:false.
- s := s string.
- ] ifFalse:[
- s := o storeString
- ]
- ]
+ o isNil ifTrue:[
+ s := ''
+ ] ifFalse:[
+ (o isStringCollection) ifTrue:[
+ s := o asStringWithCRsFrom:1 to:(o size) compressTabs:false withCR:false.
+ s := s string.
+ ] ifFalse:[
+ s := o storeString
+ ]
+ ]
].
^ s
@@ -5945,12 +5945,14 @@
clearRectangleX:x y:y width:width height:height in:aWindowId
"clear a rectangular area of a window to its view background"
+ "/ mhmh - should not be needed
^ self subclassResponsibility
!
clearWindow:aWindowId
"clear a windows to its view background"
+ "/ mhmh - should not be needed
^ self subclassResponsibility
!
@@ -6058,24 +6060,24 @@
!
setBackingStore:how in:aWindowId
- "turn on/off backing-store for a window"
+ "turn on/off backing-store for a window.
+ A view with backingStore will redraw automatically
+ from the backing pixmap (without sending expose events).
+ An implementation may ignore this request."
"/ default here is to ignore the request
-
- ^ self
!
setBitGravity:how in:aWindowId
"set bit gravity for a window"
"/ default here is to ignore the request
-
- ^ self
!
setCursor:aCursorId in:aWindowId
- "set a windows visible shape"
-
+ "set a windows cursor"
+
+ "/ mhmh - could be ignored
^ self subclassResponsibility
!
@@ -6087,7 +6089,7 @@
Use of this is not recommended - its better to change
the cursor of a windowGroup alone."
- | id |
+ |id|
id := (aCursor onDevice:self) id.
id notNil ifTrue:[
@@ -6114,22 +6116,27 @@
"set a windows icon name"
"/ default here is to ignore the request
-
- ^ self
!
setSaveUnder:yesOrNo in:aWindowId
- "turn on/off save-under for a window"
+ "turn on/off save-under for a window.
+ A view with saveUnder will save the pixels of the
+ area covered by itself and repair from those when
+ unmapped (therefore, no expose events are generated later).
+ It is especially useful for popUp menus.
+ An implementation may ignore this request."
"/ default here is to ignore the request
-
- ^ self
!
setTransient:aWindowId for:aMainWindowId
- "set aWindowId to be a transient of aMainWindow"
-
- "/ ignored here
+ "set aWindowId to be a transient of aMainWindow.
+ This informs the windowManager that those are to
+ be handled as a group w.r.t. iconification and deiconification.
+ An implementation may ignore this
+ (being somewhat inconvenient to the user, though)"
+
+ "/ default here is to ignore the request
"Created: 20.8.1997 / 20:38:32 / cg"
!
@@ -6198,20 +6205,30 @@
!
setWindowIcon:aForm in:aWindowId
- "set a windows icon - no mask"
-
- ^ self subclassResponsibility
+ "define a bitmap to be used as icon"
+
+ self
+ setWindowIcon:aForm
+ mask:nil
+ in:aWindowId
!
setWindowIcon:aForm mask:aMaskForm in:aWindowId
"set a windows icon & iconMask"
- ^ self subclassResponsibility
+ "/ default here is to ignore the request
!
setWindowIconWindow:aView in:aWindowId
"set a windows icon window"
+ "/ default here is to ignore the request
+!
+
+setWindowMinExtent:newMinExtent maxExtent:newMaxExtent in:aWindowId
+ "set a windows minimum & max extents.
+ nil arguments are ignored."
+
^ self subclassResponsibility
!
@@ -6225,8 +6242,6 @@
"set a windows visible shape"
"/ default here is to ignore the request
-
- ^ self
!
unmapWindow:aWindowId
@@ -6249,6 +6264,6 @@
!DeviceWorkstation class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.289 1999-05-04 17:23:18 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.290 1999-05-06 13:59:24 cg Exp $'
! !
DeviceWorkstation initialize!