[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