# HG changeset patch # User Claus Gittinger # Date 1474550306 -7200 # Node ID 53e42e99e908fe5169f1c413924a6338640237e1 # Parent 5c5e44bad956f8112f48d11e70b7921acff57aae #DOCUMENTATION by cg class: SimpleView comment/format in:8 methods diff -r 5c5e44bad956 -r 53e42e99e908 SimpleView.st --- 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.