The Trunk: Morphic-rss.268.mcz

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@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@0)]!
- offset: 0@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@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@0) ]!
- offset: 0@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.!