[squeak-dev] The Inbox: Morphic-rhi.439.mcz

commits at source.squeak.org commits at source.squeak.org
Sun Jun 6 10:53:27 UTC 2010


A new version of Morphic was added to project The Inbox:
http://source.squeak.org/inbox/Morphic-rhi.439.mcz

==================== Summary ====================

Name: Morphic-rhi.439
Author: rhi
Time: 6 June 2010, 12:52:31.213 pm
UUID: 2b5a8d5e-913d-4eee-a1ee-0db20ced46d2
Ancestors: Morphic-cmm.438

Adds toggle-full-screen button to tool bar...

=============== Diff against Morphic-cmm.438 ===============

Item was added:
+ ----- Method: TheWorldMainDockingBar>>rightSideOn: (in category 'construction') -----
+ rightSideOn: aDockingBar
+ 
+ 	self
+ 		searchBarOn: aDockingBar;
+ 		clockOn: aDockingBar;
+ 		toggleFullScreenOn: aDockingBar.!

Item was added:
+ ----- Method: TheWorldMainDockingBar>>toggleFullScreenOn: (in category 'right side') -----
+ toggleFullScreenOn: aDockingBar
+ 
+ 	| toggleMorph toggleColor toggleColorOver |
+ 	toggleColor := Color "transparent" lightOrange.
+ 	toggleColorOver := Color orange.
+ 	(toggleMorph := Morph new)
+ 		extent: 18 @ 18; flag: #rhi; "*** 18 = MAGIC NUMBER? ***"
+ 		borderWidth: 0;
+ 		color: toggleColor;
+ 		setBalloonText: 'toggle full screen mode';
+ 		on: #mouseDown send: #value to: [Project current toggleFullScreen];
+ 		on: #mouseEnter send: #value to: [toggleMorph color: toggleColorOver];
+ 		on: #mouseLeave send: #value to: [toggleMorph color: toggleColor].
+ 	aDockingBar addMorphBack: toggleMorph.!

Item was changed:
  ----- Method: TheWorldMainDockingBar>>fillDockingBar: (in category 'construction') -----
  fillDockingBar: aDockingBar 
  	"Private - fill the given docking bar"
  	
  	aDockingBar addSpace: 6.
  	self menusOn: aDockingBar.
+ 	aDockingBar addSpacer.
+ 	self rightSideOn: aDockingBar.
  	aDockingBar
  		setProperty: #mainDockingBarTimeStamp 
+ 		toValue: self class timeStamp.!
- 		toValue: self class timeStamp!

Item was changed:
  ----- Method: TheWorldMainDockingBar>>menusOn: (in category 'construction') -----
+ menusOn: aDockingBar
- menusOn: aDockingBar 
  
+ 	self
- 	self 
  		squeakMenuOn: aDockingBar;
  		projectsMenuOn: aDockingBar;
  		toolsMenuOn: aDockingBar;
  		extrasMenuOn: aDockingBar;
  		windowsMenuOn: aDockingBar;
+ 		helpMenuOn: aDockingBar.!
- 		helpMenuOn: aDockingBar.
- 	aDockingBar addSpacer.
- 	self
- 		searchBarOn: aDockingBar;
- 		clockOn: aDockingBar!




More information about the Squeak-dev mailing list