equal
deleted
inserted
replaced
43 |
43 |
44 View comment:' |
44 View comment:' |
45 COPYRIGHT (c) 1989 by Claus Gittinger |
45 COPYRIGHT (c) 1989 by Claus Gittinger |
46 All Rights Reserved |
46 All Rights Reserved |
47 |
47 |
48 $Header: /cvs/stx/stx/libview/View.st,v 1.31 1995-02-27 10:19:51 claus Exp $ |
48 $Header: /cvs/stx/stx/libview/View.st,v 1.32 1995-02-28 21:50:51 claus Exp $ |
49 '! |
49 '! |
50 |
50 |
51 "this flag controls (globally) how views look - it will vanish" |
51 "this flag controls (globally) how views look - it will vanish" |
52 |
52 |
53 Smalltalk at:#View3D put:false! |
53 Smalltalk at:#View3D put:false! |
68 " |
68 " |
69 ! |
69 ! |
70 |
70 |
71 version |
71 version |
72 " |
72 " |
73 $Header: /cvs/stx/stx/libview/View.st,v 1.31 1995-02-27 10:19:51 claus Exp $ |
73 $Header: /cvs/stx/stx/libview/View.st,v 1.32 1995-02-28 21:50:51 claus Exp $ |
74 " |
74 " |
75 ! |
75 ! |
76 |
76 |
77 documentation |
77 documentation |
78 " |
78 " |
1580 preferedExtent |
1580 preferedExtent |
1581 "return my preferred extent - this is the minimum size I would like to have. |
1581 "return my preferred extent - this is the minimum size I would like to have. |
1582 The default here is the actual extent, the receiver currently has." |
1582 The default here is the actual extent, the receiver currently has." |
1583 |
1583 |
1584 ^ self extent |
1584 ^ self extent |
|
1585 ! |
|
1586 |
|
1587 buttonMotionEventPending |
|
1588 "return true, if a button motion event is pending. |
|
1589 Normally, you dont want to use this, since no polling is needed |
|
1590 (not even for mouse-tracking). |
|
1591 Dont use it, since it does not honor the windowGroup, but |
|
1592 goes directly to the device instead. |
|
1593 Actually, its a historical leftover" |
|
1594 |
|
1595 windowGroup notNil ifTrue:[ |
|
1596 ^ windowGroup sensor hasButtonMotionEventsFor:self |
|
1597 ]. |
|
1598 ^ super buttonMotionEventPending |
1585 ! ! |
1599 ! ! |
1586 |
1600 |
1587 !View methodsFor:'enumerating subviews'! |
1601 !View methodsFor:'enumerating subviews'! |
1588 |
1602 |
1589 allSubViewsDo:aBlock |
1603 allSubViewsDo:aBlock |
4242 menu notNil ifTrue:[ |
4256 menu notNil ifTrue:[ |
4243 " |
4257 " |
4244 got one, launch the menu. It is supposed |
4258 got one, launch the menu. It is supposed |
4245 to return an actionSelector. |
4259 to return an actionSelector. |
4246 " |
4260 " |
|
4261 menu receiver isNil ifTrue:[ |
|
4262 menu receiver: model |
|
4263 ]. |
4247 actionSelector := menu startUp. |
4264 actionSelector := menu startUp. |
4248 (actionSelector notNil |
4265 (actionSelector notNil |
4249 and:[actionSelector isSymbol]) ifTrue:[ |
4266 and:[actionSelector isSymbol]) ifTrue:[ |
4250 model perform:actionSelector |
4267 model perform:actionSelector |
4251 ] |
4268 ] |