hg/stx-libview: comparison DeviceWorkstation.st

equal deleted inserted replaced

-:13f21ca2c852
+:d6cd40e86fb6
 !
 zoom:startRect to:endRect
 "animate a rubber-rectangle from startRect to endRect.
 Can be used by buttons, which open some dialog for nicer user feedback.
-Notice: since the displays window manager typically allows a topWindow
+Notice: since the display's window manager typically allows a topWindow
-	     to be placed by the user, this should not be used for modeless
+to be placed by the user, this should not be used for modeless
-	     topViews.
+topViews.
 "
 ^ self zoom:startRect to:endRect duration:300
 "
 Screen current zoom:(10@10 corner:20@20) to:(20@20 corner:1000@1000)
 Screen current zoom:(20@20 corner:1000@1000) to:(10@10 corner:20@20)
 "
-"Modified: 27.1.1997 / 18:20:11 / cg"
+"Modified: / 27-01-1997 / 18:20:11 / cg"
+"Modified (comment): / 01-09-2017 / 09:57:09 / cg"
 !
 zoom:startRect to:endRect duration:milliseconds
 "animate a rubber-rectangle from startRect to endRect.
 Can be used by buttons, which open some dialog for nicer user feedback.
-Notice: since the displays window manager typically allows a topWindow
+Notice: since the display's window manager typically allows a topWindow
-	     to be placed by the user, this should not be used for modeless
+to be placed by the user, this should not be used for modeless
-	     topViews.
+topViews.
 "
 |steps dExt dOrg org ext root|
 root := self rootView.
 steps := 10.
 dExt := (endRect extent - startRect extent) / steps.
 dOrg := (endRect origin - startRect origin) / steps.
 0 to:steps do:[:step |
-	org := (startRect origin + (dOrg * step)) rounded.
+org := (startRect origin + (dOrg * step)) rounded.
-	ext := (startRect extent + (dExt * step)) rounded.
+ext := (startRect extent + (dExt * step)) rounded.
-	root clippedByChildren:false.
+root clippedByChildren:false.
-	root xoring:[
+root xoring:[
-	    root displayRectangleX:org x y:org y width:ext x height:ext y
+root displayRectangleX:org x y:org y width:ext x height:ext y
-	].
+].
-	Delay waitForMilliseconds:(milliseconds // steps).
+Delay waitForMilliseconds:(milliseconds // steps).
-	root xoring:[
+root xoring:[
-	    root displayRectangleX:org x y:org y width:ext x height:ext y
+root displayRectangleX:org x y:org y width:ext x height:ext y
-	].
+].
 ].
 root clippedByChildren:true.
 "
 Screen current zoom:(10@10 corner:20@20) to:(20@20 corner:1000@1000) duration:1000
 Screen current zoom:(20@20 corner:1000@1000) to:(10@10 corner:20@20) duration:1000
 "
-"Created: 27.1.1997 / 18:19:35 / cg"
+"Created: / 27-01-1997 / 18:19:35 / cg"
+"Modified (comment): / 01-09-2017 / 09:57:12 / cg"
 !
 zoom:startRect to:endRect speed:pixelsPerSecond
 "animate a rubber-rectangle from startRect to endRect.
 Can be used by buttons, which open some dialog for nicer user feedback.
 The speed is computed for the longest edge to run at the given speed.
-Notice: since the displays window manager typically allows a topWindow
+Notice: since the display's window manager typically allows a topWindow
-	     to be placed by the user, this should not be used for modeless
+to be placed by the user, this should not be used for modeless
-	     topViews.
+topViews.
 "
 |maxDistance|
 maxDistance := (endRect origin - startRect origin).
 maxDistance := maxDistance max:(endRect topRight - startRect topRight).
 maxDistance := maxDistance max:(endRect bottomLeft - startRect bottomLeft).
 maxDistance := maxDistance max:(endRect corner - startRect corner).
 maxDistance := maxDistance x max:(maxDistance y).
 ^ self
-	zoom:startRect to:endRect duration:(maxDistance abs / pixelsPerSecond * 1000)
+zoom:startRect to:endRect duration:(maxDistance abs / pixelsPerSecond * 1000)
 "
 Screen current zoom:(10@10 corner:20@20) to:(20@20 corner:1000@1000) speed:1000
 Screen current zoom:(20@20 corner:1000@1000) to:(10@10 corner:20@20) speed:10
 "
-"Created: 27.1.1997 / 18:19:35 / cg"
+"Created: / 27-01-1997 / 18:19:35 / cg"
-"Modified: 27.1.1997 / 18:24:58 / cg"
+"Modified (comment): / 01-09-2017 / 09:57:16 / cg"
 ! !
 !DeviceWorkstation methodsFor:'Compatibility-Squeak'!
 border:aRectangle width:bw
 translatePoint:aPoint from:windowId1 to:windowId2
 "given a point in window1 (defined by its id), return the coordinate of
 aPoint in window2 (defined by its id).
 Use to xlate points from a window to rootwindow, mainly for rubber-line
-drawing on the displays root window."
+drawing on the display's root window."
 "This method has to be reimplemented in concrete display classes."
 ^ self subclassResponsibility
 root clippedByChildren:false.
 root displayLineFrom:p1 to:p2.
 root clippedByChildren:true.
 "
+"Modified (comment): / 01-09-2017 / 09:56:54 / cg"
 !
 translatePoint:aPoint fromView:window1 toView:window2
 "given a point in window1, return the coordinate of aPoint in window2.
 Either window argument may be nil to specify the root window (screen)
 Use to xlate points from a window to another window (or from a window
-to the rootwindow), mainly for rubber-line drawing on the displays root window."
+to the rootwindow), mainly for rubber-line drawing on the display's root window."
 |w1 w2 devicePoint offset1 offset2|
 w1 := window1 ? self rootView.
 w2 := window2 ? self rootView.
 ^ aPoint
 ].
 w1 isView ifTrue:[
 offset1 := 0
 ] ifFalse:[
+"/ can be a graphic element inside a view
 offset1 := w1 origin.
 w1 := w1 container.
 ].
 w2 isView ifTrue:[
 offset2 := 0
 ] ifFalse:[
+"/ can be a graphic element inside a view
 offset2 := w2 origin.
 w2 := w2 container.
 ].
 devicePoint := self translatePoint:aPoint from:(w1 drawableId) to:(w2 drawableId).
 devicePoint isNil ifTrue:[ ^ aPoint].
 ^ devicePoint + offset1 - offset2
 "Modified: / 27-10-2007 / 13:04:09 / cg"
+"Modified (comment): / 01-09-2017 / 09:55:46 / cg"
 !
 translatePointFromRoot:aPoint toView:window
 "given a point as absolute root-window coordinate, return the coordinate within the window.
 Use to xlate points from the rootWindow to a window."
 !
 translatePointToRoot:aPoint fromView:window1
 "given a point in window1, return the absolute root-window coordinate.
 Use to xlate points from a window to the rootwindow,
-mainly for rubber-line drawing on the displays root window."
+mainly for rubber-line drawing on the display's root window."
 ^ self translatePoint:aPoint fromView:window1 toView:nil
-"Modified: / 10.10.2001 / 14:09:22 / cg"
+"Modified: / 10-10-2001 / 14:09:22 / cg"
+"Modified (comment): / 01-09-2017 / 09:56:59 / cg"
 !
 viewFromPoint:aScreenPoint
 "given a point on the screen, return the ST/X view in which that
 point is (this may be a subview).
 ! !
 !DeviceWorkstation methodsFor:'accessing-display geometry'!
 boundingBox
-"return a rectangle representing the displays bounding box.
+"return a rectangle representing the display's bounding box.
 For Smalltalk-80 2.x compatibility"
 ^ self bounds
+"Modified (comment): / 01-09-2017 / 09:56:23 / cg"
 !
 bounds
-"return a rectangle representing the displays bounding box.
+"return a rectangle representing the display's bounding box.
 For Smalltalk-80 4.x compatibility"
 ^ Rectangle left:0 top:0 width:width-1 height:height-1
 "
 "/ that's the same as:
 "
 Display bounds
 "
-"Modified: 8.5.1996 / 20:58:26 / cg"
+"Modified: / 08-05-1996 / 20:58:26 / cg"
+"Modified (comment): / 01-09-2017 / 09:56:27 / cg"
 !
 captionHeight
 "return the height in pixels of the caption
 (i.e. title bar) of topWindows.

changeset 8157	d6cd40e86fb6
parent 8124	bbab46e21769
child 8233	36ee1511bafd