[squeak-dev] The Trunk: Morphic-ct.1992.mcz

commits at source.squeak.org commits at source.squeak.org
Thu May 19 11:10:23 UTC 2022


Christoph Thiede uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-ct.1992.mcz

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

Name: Morphic-ct.1992
Author: ct
Time: 19 May 2022, 1:05:51.720811 pm
UUID: e34ae1a2-84eb-1b44-99b2-fbac49184200
Ancestors: Morphic-nice.1989

Complements Morphic-ct.1659 and has dialog windows' menu box act on mouseDown as well.

=============== Diff against Morphic-nice.1989 ===============

Item was changed:
  ----- Method: DialogWindow>>createTitle: (in category 'initialization') -----
  createTitle: aString 
  	"Mimick behavior of MenuMorph title creation."
  	
  	| box closeButton menuButton |
  	box := Morph new
  		name: #title;
  		changeTableLayout;
  		listDirection: #leftToRight;
  		yourself.
  	
  	titleMorph := aString asText asMorph lock.
  
  	closeButton := SystemWindowButton new
  		color: Color transparent;
  		target: self;
  		extent: 12 at 12;
  		actionSelector: #cancelDialog;
  		balloonText: 'Cancel this dialog' translated;
  		borderWidth: 0;
  		visible: self class includeCloseButton;
  		yourself.
  	SystemWindow closeBoxImage scaleIconToDisplay in: [:icon |
  		closeButton labelGraphic: icon; extent: icon extent].
  
  	menuButton := SystemWindowButton new
  		color: Color transparent;
  		target: self;
  		actionSelector: #offerDialogMenu;
  		balloonText: 'Dialog menu' translated;
+ 		actWhen: #buttonDown;
  		borderWidth: 0;
  		visible: self class includeControlMenu;
  		yourself.
  	SystemWindow menuBoxImage scaleIconToDisplay in: [:icon |
  		menuButton labelGraphic: icon; extent: icon extent].
  	
  	box addAllMorphs: {closeButton. titleMorph. menuButton}.
  	
  	self addMorphBack: box.
  	self setTitleParameters.!



More information about the Squeak-dev mailing list