[squeak-dev] The Trunk: Morphic-rss.268.mcz
commits at source.squeak.org
commits at source.squeak.org
Mon Dec 14 02:23:55 UTC 2009
Andreas Raab uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-rss.268.mcz
==================== Summary ====================
Name: Morphic-rss.268
Author: rss
Time: 13 December 2009, 6:01:38 am
UUID: 733eef7a-bf19-4271-8677-b394043b2875
Ancestors: Morphic-rss.267
Made SystemWindow create it's icons more consistently.
=============== Diff against Morphic-ar.266 ===============
Item was changed:
----- Method: SystemWindow class>>menuBoxImage (in category 'initializing') -----
menuBoxImage
+ ^ MenuBoxImage ifNil: [(Form
- ^ (Form
extent: 10 at 10
depth: 32
fromArray: #( 4227858432 4127195136 4127195136 4127195136 4127195136 4127195136 4127195136 4127195136 4227858432 0 4127195136 3212869760 3212869760 3212869760 3212869760 3212869760 3212869760 3212869760 4127195136 3212869760 4127195136 3212869760 0 0 0 0 0 0 4127195136 3212869760 4127195136 4127195136 4127195136 4127195136 4127195136 4127195136 4127195136 4127195136 4127195136 3212869760 4127195136 3212869760 0 0 0 0 0 0 4127195136 3212869760 4127195136 3212869760 0 0 0 0 0 0 4127195136 3212869760 4227858432 4127195136 4127195136 4127195136 4127195136 4127195136 4127195136 4127195136 4127195136 3212869760 4127195136 3212869760 0 0 0 0 0 0 4127195136 3212869760 4227858432 4127195136 4127195136 4127195136 4127195136 4127195136 4127195136 4127195136 4227858432 3212869760 0 3212869760 3212869760 3212869760 3212869760 3212869760 3212869760 3212869760 3212869760 3212869760)
+ offset: 0 at 0)]!
- offset: 0 at 0)!
Item was changed:
----- Method: SystemWindow class>>initialize (in category 'initializing') -----
initialize
CollapseBoxImage := nil.
CloseBoxImage := nil.
+ ExpandBoxImage := nil.
+ MenuBoxImage := nil!
- ScriptingSystem saveForm: self expandBoxImage atKey: 'expandBox'.
- ScriptingSystem saveForm: self menuBoxImage atKey: 'TinyMenu'!
Item was changed:
----- Method: SystemWindow>>createMenuBox (in category 'initialization') -----
createMenuBox
^ self createBox
+ labelGraphic: self class menuBoxImage;
- labelGraphic: (ScriptingSystem formAtKey: 'TinyMenu');
extent: self boxExtent;
actWhen: #buttonDown;
actionSelector: #offerWindowMenu;
setBalloonText: 'window menu' translated!
Item was changed:
----- Method: SystemWindow class>>expandBoxImage (in category 'initializing') -----
expandBoxImage
+ ^ ExpandBoxImage ifNil: [ (Form
- ^ (Form
extent: 10 at 10
depth: 32
fromArray: #( 3875602689 3875602689 3875602689 3875602689 3875602689 3875602689 0 0 0 0 3875602689 0 0 0 0 4127260929 3877181721 3877181721 3875602689 0 3875602689 0 0 0 0 3875602689 3212869760 0 3875602689 3212869760 3875602689 0 0 0 0 3875602689 3212869760 0 3875602689 3212869760 3875602689 0 0 0 0 3875602689 3212869760 0 3875602689 3212869760 3875602689 4127260929 3875602689 3875602689 3875602689 3875602689 3212869760 0 3875602689 3212869760 0 3877181721 3212869760 3212869760 3212869760 3212869760 3212869760 0 3875602689 3212869760 0 3877181721 0 0 0 0 0 0 3875602689 3212869760 0 3875602689 3875602689 3875602689 3875602689 3875602689 3875602689 3875602689 3875602689 3212869760 0 0 3212869760 3212869760 3212869760 3212869760 3212869760 3212869760 3212869760 3212869760)
+ offset: 0 at 0) ]!
- offset: 0 at 0)!
Item was changed:
----- Method: SystemWindow>>createExpandBox (in category 'initialization') -----
createExpandBox
^ self createBox
+ labelGraphic: self class expandBoxImage;
- labelGraphic: (ScriptingSystem formAtKey: 'expandBox');
extent: self boxExtent;
actWhen: #buttonUp;
actionSelector: #expandBoxHit;
setBalloonText: 'expand to full screen' translated!
Item was changed:
MorphicModel subclass: #SystemWindow
instanceVariableNames: 'labelString stripes label closeBox collapseBox activeOnlyOnTop paneMorphs paneRects collapsedFrame fullFrame isCollapsed menuBox mustNotClose labelWidgetAllowance updatablePanes allowReframeHandles labelArea expandBox'
+ classVariableNames: 'CloseBoxImage CollapseBoxImage ExpandBoxImage MenuBoxImage TopWindow'
- classVariableNames: 'CloseBoxImage CollapseBoxImage TopWindow'
poolDictionaries: ''
category: 'Morphic-Windows'!
!SystemWindow commentStamp: '<historical>' prior: 0!
SystemWindow is the Morphic equivalent of StandardSystemView -- a labelled container for rectangular views, with iconic facilities for close, collapse/expand, and resizing.
The attribute onlyActiveOnTop, if set to true (and any call to activate will set this), determines that only the top member of a collection of such windows on the screen shall be active. To be not active means that a mouse click in any region will only result in bringing the window to the top and then making it active.!
More information about the Squeak-dev
mailing list
|