hg/stx-libview: comparison SimpleView.st

equal deleted inserted replaced

-:5c5e44bad956
+:53e42e99e908
+"{ Encoding: utf8 }"
 "
 COPYRIGHT (c) 1989 by Claus Gittinger
 All Rights Reserved
 This software is furnished under a license and may be used
 "Modified: 9.5.1996 / 00:46:24 / cg"
 !
 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
 "Modified: 9.5.1996 / 01:40:24 / cg"
 (uuid := self uuid) isNil ifTrue: [^ self name].
 ^ uuid printString
 !
 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
 "Created: 4.6.1996 / 21:32:11 / cg"
 "Modified: / 31.10.1997 / 19:58:10 / cg"
 !
 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:[
 controller view:self.
 ]
 self setInnerClip.
 ].
 !
 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)."
 |currentTransformation|
 grabKeyboard
 "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.
 !
 grabPointer
 "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
 !
 grabPointerWithCursor:aCursorOrNil
 "grab the pointer - that is: report all motion events relative to
 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:[
 "/        "/ make certain all X events have been received
 "/        device sync.
 ] ifCurtailed:[
 self hide.
 ]
 ] 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.
 (self isPopUpView or:[ReturnFocusWhenClosingModalBoxes]) ifTrue:[

changeset 7586	53e42e99e908
parent 7570	b05dae395ad5
child 7593	08e1e5e86005
child 7599	84f6853ec60d