--- a/SimpleView.st Thu Sep 22 15:17:24 2016 +0200
+++ b/SimpleView.st Thu Sep 22 15:18:26 2016 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
@@ -3893,7 +3895,7 @@
!
topComponent
- "return the topmost component - thats the one with no superview.
+ "return the topmost component - that's the one with no superview.
For ST-80 compatibility."
^ self topView
@@ -3928,7 +3930,7 @@
!
view
- "return my view - for real views, thats the receiver.
+ "return my view - for real views, that's the receiver.
For wrappers, its the real view that contains it"
^ self
@@ -4185,7 +4187,7 @@
!
controller:aController
- "set the controller - thats the one handling user events"
+ "set the controller - that's the one handling user events"
controller := aController.
controller notNil ifTrue:[
@@ -4321,7 +4323,7 @@
!
viewOrigin
- "return the viewOrigin; thats the coordinate of the contents
+ "return the viewOrigin; that's the coordinate of the contents
which is shown topLeft in the view
(i.e. the origin of the visible part of the contents)."
@@ -7507,7 +7509,7 @@
"grab the keayboard - that is: report all keyboard events to myself,
even if the mouse moved out of myself.
Returns true, if the grab was sucessfull (could fail, if some other
- application has a grab - but thats very unlikely)."
+ application has a grab - but that's very unlikely)."
^ device grabKeyboardInView:self.
!
@@ -7516,7 +7518,7 @@
"grab the pointer - that is: report all motion events relative to
myself, even if moved out of myself.
Returns true, if the grab was sucessfull (could fail, if some other
- application has a grab - but thats very unlikely)."
+ application has a grab - but that's very unlikely)."
^ self grabPointerWithCursor:nil
!
@@ -7526,7 +7528,7 @@
myself, even if moved out of myself.
Show aCursor during the grab, if the cursor argument is not nil.
Returns true, if the grab was sucessfull (could fail, if some other
- application has a grab - but thats very unlikely)."
+ application has a grab - but that's very unlikely)."
"/ (sensor := self sensor) notNil ifTrue:[
@@ -11360,7 +11362,7 @@
]
] ensure:[
aWindowGroup notNil ifTrue:[
- aWindowGroup graphicsDevice sync. "thats a round trip - make sure that all drawing has been processed"
+ aWindowGroup graphicsDevice sync. "that's a round trip - make sure that all drawing has been processed"
"/ ensure that eventListener runs here ...
Delay waitForMilliseconds:50.
aWindowGroup processExposeEvents.