[squeak-dev] The Trunk: Morphic-ar.395.mcz

tim at nada1.de tim at nada1.de
Sat Mar 27 11:15:07 UTC 2010


Hi

Because some people asked for thinner window titles, you can set a  
smaller font using 'Preferences chooseWindowTitleFont'. I set it to  
Bitstream DejaVu Sans size 9 which should be available in all images.

Regards,
Tim

Quoting commits at source.squeak.org:

> Andreas Raab uploaded a new version of Morphic to project The Trunk:
> http://source.squeak.org/trunk/Morphic-ar.395.mcz
>
> ==================== Summary ====================
>
> Name: Morphic-ar.395
> Author: ar
> Time: 26 March 2010, 8:53:38.066 pm
> UUID: 6068143c-721b-3649-98a8-a5a5d3bccab5
> Ancestors: Morphic-tfel.394
>
> Merging Morphic-tfel.394:
>
> Updates to Menu
> 	* Use the new buttons
> 	* Fix the highlighting for the pin icon
> 	* Fix the shadow
>
> (ar: changed postscript to not nuke custome window title fonts and  
> avoid odd effects after recreating label areas)
>
> =============== Diff against Morphic-bf.393 ===============
>
> Item was changed:
>   ----- Method: MenuMorph class>>initialize (in category 'instance  
> creation') -----
>   initialize
>
>   	"MenuMorph initialize"
> + 	CloseBoxImage := nil.
> + 	PushPinImage := nil.
> -
> - 	Preferences
> - 		setParameter: #menuTitleBorderWidth to: 0;
> - 		setParameter: #menuTitleColor to: (TranslucentColor r: 0.87 g:  
> 0.8 b: 1 alpha: 0.65);
> - 		setParameter: #menuColor to: (Color
> - 			r: (215/255) asFloat
> - 			g: (220/255) asFloat
> - 			b: (232/255) asFloat).
>
> - 	CloseBoxImage := nil
>   !
>
> Item was changed:
>   ----- Method: MenuMorph>>setDefaultParameters (in category  
> 'initialization') -----
>   setDefaultParameters
>   	"change the receiver's appareance parameters"
>
>   	| colorFromMenu worldColor menuColor |
>
>   	colorFromMenu := Preferences menuColorFromWorld
>   									and: [Display depth > 4
>   									and: [(worldColor := self currentWorld color) isColor]].
>
>   	menuColor := colorFromMenu
>   						ifTrue: [worldColor luminance > 0.7
>   										ifTrue: [worldColor mixed: 0.85 with: Color black]
>   										ifFalse: [worldColor mixed: 0.4 with: Color white]]
>   						ifFalse: [Preferences menuColor].
>
>   	self color: menuColor.
>   	self borderWidth: Preferences menuBorderWidth.
>
>   	Preferences menuAppearance3d ifTrue: [
>   		self borderStyle: BorderStyle thinGray.
>   		self
>   			addDropShadow;
> + 			shadowColor: (TranslucentColor r: 0.0 g: 0.0 b: 0.0 alpha: 0.666);
> + 			shadowOffset: 1 @ 1
> - 			shadowColor: (TranslucentColor r: 0.0 g: 0.0 b: 0.0 alpha: 0.1);
> - 			shadowOffset: 5 @ 5
>   	]
>   	ifFalse: [
>   		| menuBorderColor |
>   		menuBorderColor := colorFromMenu
>   										ifTrue: [worldColor muchDarker]
>   										ifFalse: [Preferences menuBorderColor].
>   		self borderColor: menuBorderColor.
>   	].
>
>
> + 	self layoutInset: 3.
> - 	self layoutInset: 6.
>   !
>
> Item was changed:
>   ----- Method: SystemWindow>>addLabelArea (in category  
> 'initialization') -----
>   addLabelArea
>
> + 	labelArea ifNotNil: [labelArea abandon].
>   	labelArea := (AlignmentMorph newSpacer: Color transparent)
>   			vResizing: #spaceFill;
>   			layoutPolicy: ProportionalLayout new.
>   	self addMorph: labelArea.!
>
> Item was changed:
>   ----- Method:  
> MenuMorph>>addTitle:icon:updatingSelector:updateTarget: (in category  
> 'construction') -----
>   addTitle: aString icon: aForm updatingSelector: aSelector  
> updateTarget: aTarget
>   	"Add a title line at the top of this menu Make aString its initial
>   	contents.
>   	If aSelector is not nil, then periodically obtain fresh values for
>   	its
>   	contents by sending aSelector to aTarget.."
>   	| title titleContainer |
>   	title := AlignmentMorph newColumn.
>   	self setTitleParametersFor: title.
>   	""
>   	aForm isNil
>   		ifTrue: [titleContainer := title]
>   		ifFalse: [| pair |
>   			pair := AlignmentMorph newRow.
>
>   			pair color: Color transparent.
>   			pair hResizing: #shrinkWrap.
>   			pair layoutInset: 0.
>   			""
>   			pair addMorphBack: aForm asMorph.
>   			""
>   			titleContainer := AlignmentMorph newColumn.
>   			titleContainer color: Color transparent.
>   			titleContainer vResizing: #shrinkWrap.
>   			titleContainer wrapCentering: #center.
>   			titleContainer cellPositioning: #topCenter.
>   			titleContainer layoutInset: 0.
>   			pair addMorphBack: titleContainer.
>   			""
>   			title addMorphBack: pair].
>   	""
>   	aSelector
>   		ifNil: [""
>   			aString asString
>   				linesDo: [:line | titleContainer
>   					addMorphBack: ((StringMorph
>   										contents: line
>   										font: Preferences standardMenuFont)
> + 										color: (Color black);
> - 										color: (Color gray: 0.5);
>   										yourself)]]
>   		ifNotNil: [| usm |
>   			usm := UpdatingStringMorph on: aTarget selector: aSelector.
>   			usm font: Preferences standardMenuFont.
>   			usm useStringFormat.
>   			usm lock.
>   			titleContainer addMorphBack: usm].
>   	""
>   	title setProperty: #titleString toValue: aString.
>   	self addMorphFront: title.
>   	""
>   	title useSquareCorners.
>   	(self hasProperty: #needsTitlebarWidgets)
>   		ifTrue: [self addStayUpIcons]!
>
> Item was changed:
>   ----- Method: MenuMorph class>>pushPinImage (in category 'images') -----
>   pushPinImage
>   	"Answer the push-pin image, creating and caching it at this time  
> if it is absent"
>
>   	^ PushPinImage ifNil: [PushPinImage := ((ColorForm
>   	extent: 13 at 14
>   	depth: 8
>   	fromArray: #( 4294967295 4278387717 101187583 4278190080  
> 4294967295 4278914061 235868177 4278190080 4294967295 303240213  
> 370612249 4278190080 4294967295 454827294 522199330 587202560  
> 4280624679 673786411 741158447 805306368 825373492 892745528  
> 960117564 1023410176 1044332609 1111704645 1179076681 1241513984  
> 1263291726 1330663762 1398035764 1442840576 1465407834 1532779870  
> 1600151906 1660944384 1684366951 1751738987 1819148287 4278190080  
> 4285559154 1937012086 2004418559 4278190080 2038070140 2101902975  
> 2150891519 4278190080 2172814212 2240186248 327811071 4278190080  
> 2324430732 2374930320 2449473535 4278190080)
>   	offset: 0 at 0)
> + 	colorsFromArray: #(#(1.0 1.0 1.0) #(0.995 0.995 0.995) #(0.987  
> 0.987 0.987) #(0.667 0.662 0.667) #(0.149 0.149 0.145) #(0.254 0.262  
> 0.262) #(0.215 0.262 0.285) #(0.478 0.482 0.482) #(0.921 0.921  
> 0.929) #(0.987 0.991 0.983) #(0.956 0.956 0.956) #(0.102 0.102  
> 0.102) #(0.69 0.717 0.717) #(0.293 0.694 0.89) #(0.027 0.58 0.87)  
> #(0.023 0.293 0.443) #(0.18 0.184 0.199) #(0.874 0.878 0.874)  
> #(0.858 0.858 0.858) #(0.02 0.02 0.02) #(0.811 0.858 0.882) #(0.012  
> 0.595 0.893) #(0.0 0.595 0.893) #(0.008 0.591 0.886) #(0.02 0.242  
> 0.369) #(0.207 0.199 0.199) #(0.948 0.948 0.948) #(0.886 0.886  
> 0.886) #(0.035 0.031 0.027) #(0.698 0.71 0.717) #(0.141 0.638 0.886)  
> #(0.004 0.595 0.897) #(0.008 0.587 0.89) #(0.023 0.533 0.796)  
> #(0.016 0.039 0.063) #(0.568 0.568 0.568) #(0.983 0.983 0.983)  
> #(0.925 0.925 0.925) #(0.694 0.694 0.694) #(0.807 0.807 0.807)  
> #(0.63 0.63 0.63) #(0.035 0.043 0.039) #(0.345 0.349 0.333) #(0.533  
> 0.804 0.929) #(0.004 0.595 0.893) #(0.008 0.591 0.893) #(0.012 0.595  
> 0.905) #(0.031 0.164 0.246) #(0.188 0.196 0.192) #(0.893 0.893  
> 0.893) #(0.192 0.192 0.192) #(0.207 0.207 0.207) #(0.012 0.012  
> 0.012) #(0.023 0.012 0.02) #(0.016 0.086 0.129) #(0.031 0.043 0.055)  
> #(0.427 0.595 0.702) #(0.031 0.599 0.893) #(0.008 0.587 0.897)  
> #(0.02 0.587 0.897) #(0.016 0.254 0.365) #(0.027 0.031 0.027)  
> #(0.466 0.466 0.466) #(0.361 0.361 0.361) #(0.341 0.341 0.341)  
> #(0.035 0.027 0.023) #(0.408 0.423 0.427) #(0.102 0.591 0.847)  
> #(0.027 0.529 0.804) #(0.016 0.584 0.866) #(0.016 0.587 0.878)  
> #(0.023 0.568 0.85) #(0.023 0.58 0.862) #(0.023 0.129 0.192) #(0.063  
> 0.063 0.063) #(0.317 0.317 0.313) #(0.423 0.419 0.415) #(0.714 0.725  
> 0.714) #(0.714 0.714 0.71) #(0.979 0.976 0.968) #(0.239 0.674 0.905)  
> #(0.016 0.595 0.89) #(0.023 0.564 0.862) #(0.031 0.145 0.219) #(0.02  
> 0.027 0.047) #(0.012 0.039 0.059) #(0.431 0.431 0.431) #(0.458 0.458  
> 0.466) #(0.133 0.199 0.231) #(0.505 0.792 0.933) #(0.741 0.886  
> 0.956) #(0.474 0.776 0.925) #(0.035 0.587 0.882) #(0.023 0.556  
> 0.843) #(0.027 0.188 0.278) #(0.043 0.035 0.051) #(0.435 0.439  
> 0.435) #(0.357 0.357 0.357) #(0.619 0.619 0.619) #(0.952 0.952  
> 0.952) #(0.792 0.8 0.804) #(0.008 0.02 0.027) #(0.023 0.478 0.725)  
> #(0.016 0.587 0.893) #(0.023 0.595 0.89) #(0.023 0.466 0.706)  
> #(0.016 0.094 0.141) #(0.008 0.008 0.012) #(0.02 0.012 0.012)  
> #(0.638 0.638 0.642) #(0.991 0.991 0.991) #(0.976 0.976 0.976)  
> #(0.168 0.164 0.164) #(0.016 0.18 0.25) #(0.008 0.58 0.874) #(0.016  
> 0.591 0.87) #(0.031 0.156 0.239) #(0.02 0.008 0.016) #(0.012 0.012  
> 0.02) #(0.008 0.008 0.008) #(0.258 0.258 0.258) #(0.866 0.866 0.866)  
> #(0.051 0.047 0.047) #(0.023 0.016 0.027) #(0.027 0.258 0.388)  
> #(0.016 0.564 0.858) #(0.016 0.435 0.654) #(0.023 0.18 0.258)  
> #(0.016 0.016 0.016) #(0.4 0.4 0.4) #(0.039 0.039 0.039) #(0.325  
> 0.325 0.321) #(0.035 0.031 0.039) #(0.02 0.09 0.133) #(0.031 0.188  
> 0.289) #(0.023 0.137 0.188) #(0.016 0.027 0.043) #(0.576 0.576  
> 0.576) #(0.16 0.16 0.16) #(0.733 0.733 0.733) #(0.753 0.749 0.749)  
> #(0.365 0.365 0.376) #(0.117 0.113 0.121) #(0.074 0.066 0.066)  
> #(0.203 0.203 0.219) #(0.603 0.603 0.603) #(0.979 0.979 0.979) #(1.0  
> 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0)  
> #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0  
> 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0)  
> #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0  
> 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0)  
> #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0  
> 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0)  
> #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0  
> 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0)  
> #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0  
> 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0)  
> #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0  
> 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0)  
> #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0  
> 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0)  
> #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0  
> 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0)  
> #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0  
> 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0)  
> #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0  
> 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0)  
> #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0  
> 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0)  
> #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #( )  ))  
> asFormOfDepth: 32]!
> - 	colorsFromArray: #(#(1.0 1.0 1.0) #(0.995 0.995 0.995) #(0.987  
> 0.987 0.987) #(0.667 0.662 0.667) #(0.149 0.149 0.145) #(0.254 0.262  
> 0.262) #(0.215 0.262 0.285) #(0.478 0.482 0.482) #(0.921 0.921  
> 0.929) #(0.987 0.991 0.983) #(0.956 0.956 0.956) #(0.102 0.102  
> 0.102) #(0.69 0.717 0.717) #(0.293 0.694 0.89) #(0.027 0.58 0.87)  
> #(0.023 0.293 0.443) #(0.18 0.184 0.199) #(0.874 0.878 0.874)  
> #(0.858 0.858 0.858) #(0.02 0.02 0.02) #(0.811 0.858 0.882) #(0.012  
> 0.595 0.893) #(0.0 0.595 0.893) #(0.008 0.591 0.886) #(0.02 0.242  
> 0.369) #(0.207 0.199 0.199) #(0.948 0.948 0.948) #(0.886 0.886  
> 0.886) #(0.035 0.031 0.027) #(0.698 0.71 0.717) #(0.141 0.638 0.886)  
> #(0.004 0.595 0.897) #(0.008 0.587 0.89) #(0.023 0.533 0.796)  
> #(0.016 0.039 0.063) #(0.568 0.568 0.568) #(0.983 0.983 0.983)  
> #(0.925 0.925 0.925) #(0.694 0.694 0.694) #(0.807 0.807 0.807)  
> #(0.63 0.63 0.63) #(0.035 0.043 0.039) #(0.345 0.349 0.333) #(0.533  
> 0.804 0.929) #(0.004 0.595 0.893) #(0.008 0.591 0.893) #(0.012 0.595  
> 0.905) #(0.031 0.164 0.246) #(0.188 0.196 0.192) #(0.893 0.893  
> 0.893) #(0.192 0.192 0.192) #(0.207 0.207 0.207) #(0.012 0.012  
> 0.012) #(0.023 0.012 0.02) #(0.016 0.086 0.129) #(0.031 0.043 0.055)  
> #(0.427 0.595 0.702) #(0.031 0.599 0.893) #(0.008 0.587 0.897)  
> #(0.02 0.587 0.897) #(0.016 0.254 0.365) #(0.027 0.031 0.027)  
> #(0.466 0.466 0.466) #(0.361 0.361 0.361) #(0.341 0.341 0.341)  
> #(0.035 0.027 0.023) #(0.408 0.423 0.427) #(0.102 0.591 0.847)  
> #(0.027 0.529 0.804) #(0.016 0.584 0.866) #(0.016 0.587 0.878)  
> #(0.023 0.568 0.85) #(0.023 0.58 0.862) #(0.023 0.129 0.192) #(0.063  
> 0.063 0.063) #(0.317 0.317 0.313) #(0.423 0.419 0.415) #(0.714 0.725  
> 0.714) #(0.714 0.714 0.71) #(0.979 0.976 0.968) #(0.239 0.674 0.905)  
> #(0.016 0.595 0.89) #(0.023 0.564 0.862) #(0.031 0.145 0.219) #(0.02  
> 0.027 0.047) #(0.012 0.039 0.059) #(0.431 0.431 0.431) #(0.458 0.458  
> 0.466) #(0.133 0.199 0.231) #(0.505 0.792 0.933) #(0.741 0.886  
> 0.956) #(0.474 0.776 0.925) #(0.035 0.587 0.882) #(0.023 0.556  
> 0.843) #(0.027 0.188 0.278) #(0.043 0.035 0.051) #(0.435 0.439  
> 0.435) #(0.357 0.357 0.357) #(0.619 0.619 0.619) #(0.952 0.952  
> 0.952) #(0.792 0.8 0.804) #(0.008 0.02 0.027) #(0.023 0.478 0.725)  
> #(0.016 0.587 0.893) #(0.023 0.595 0.89) #(0.023 0.466 0.706)  
> #(0.016 0.094 0.141) #(0.008 0.008 0.012) #(0.02 0.012 0.012)  
> #(0.638 0.638 0.642) #(0.991 0.991 0.991) #(0.976 0.976 0.976)  
> #(0.168 0.164 0.164) #(0.016 0.18 0.25) #(0.008 0.58 0.874) #(0.016  
> 0.591 0.87) #(0.031 0.156 0.239) #(0.02 0.008 0.016) #(0.012 0.012  
> 0.02) #(0.008 0.008 0.008) #(0.258 0.258 0.258) #(0.866 0.866 0.866)  
> #(0.051 0.047 0.047) #(0.023 0.016 0.027) #(0.027 0.258 0.388)  
> #(0.016 0.564 0.858) #(0.016 0.435 0.654) #(0.023 0.18 0.258)  
> #(0.016 0.016 0.016) #(0.4 0.4 0.4) #(0.039 0.039 0.039) #(0.325  
> 0.325 0.321) #(0.035 0.031 0.039) #(0.02 0.09 0.133) #(0.031 0.188  
> 0.289) #(0.023 0.137 0.188) #(0.016 0.027 0.043) #(0.576 0.576  
> 0.576) #(0.16 0.16 0.16) #(0.733 0.733 0.733) #(0.753 0.749 0.749)  
> #(0.365 0.365 0.376) #(0.117 0.113 0.121) #(0.074 0.066 0.066)  
> #(0.203 0.203 0.219) #(0.603 0.603 0.603) #(0.979 0.979 0.979) #(1.0  
> 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0)  
> #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0  
> 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0)  
> #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0  
> 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0)  
> #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0  
> 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0)  
> #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0  
> 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0)  
> #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0  
> 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0)  
> #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0  
> 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0)  
> #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0  
> 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0)  
> #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0  
> 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0)  
> #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0  
> 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0)  
> #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0  
> 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0)  
> #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0  
> 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0)  
> #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #(1.0 1.0 1.0) #( )  ))  
> ]!
>
> Item was changed:
> + (PackageInfo named: 'Morphic') postscript: 'MenuMorph initialize.
> + Preferences setPreference: #roundedMenuCorners toValue: true.
> - (PackageInfo named: 'Morphic') postscript: 'DockingBarMorph  
> allInstances do: #delete.
>   TheWorldMainDockingBar updateInstances
>   '!
>
> Item was changed:
>   ----- Method: SystemWindow class>>boxExtent (in category  
> 'preferences') -----
>   boxExtent
>   	"answer the extent to use in all the buttons"
>
>   	^ (Preferences alternativeWindowBoxesLook
>   		ifTrue: [18 @ 18]
> + 		ifFalse: [16 @ 16])!
> - 		ifFalse: [14 @ 14])!
>
> Item was changed:
>   ----- Method: MenuMorph>>addStayUpIcons (in category 'construction') -----
>   addStayUpIcons
>   	| title closeBox pinBox titleBarArea titleString |
>   	title := submorphs
>   				detect: [:ea | ea hasProperty: #titleString]
>   				ifNone: [self setProperty: #needsTitlebarWidgets toValue: true.
>   					^ self].
> + 	closeBox := SystemWindowButton new target: self;
> - 	closeBox := IconicButton new target: self;
>   				 actionSelector: #delete;
>   				 labelGraphic: self class closeBoxImage;
>   				 color: Color transparent;
>   				 extent: 14 @ 16;
>   				 borderWidth: 0.
> + 	pinBox := SystemWindowButton new target: self;
> - 	pinBox := IconicButton new target: self;
>   				 actionSelector: #stayUp:;
>   				 arguments: {true};
>   				 labelGraphic: self class pushPinImage;
>   				 color: Color transparent;
>   				 extent: 14 @ 15;
>   				 borderWidth: 0.
>   	Preferences noviceMode
>   		ifTrue: [closeBox setBalloonText: 'close this menu'.
>   			pinBox setBalloonText: 'keep this menu up'].
>   	titleBarArea :=  AlignmentMorph newRow vResizing: #shrinkWrap;
>   			 layoutInset: 3;
>   			 color: Preferences menuTitleColor;
>   			 addMorphBack: closeBox;
>   			 addMorphBack: title;
>   			 addMorphBack: pinBox.
>
>   	title color: Color transparent.
>
>   	titleString := title
>   		findDeepSubmorphThat: [:each | each respondsTo: #font: ]
>   		ifAbsent: [StringMorph contents: String empty].
>   	titleString font: Preferences windowTitleFont.
>   	Preferences roundedMenuCorners
>   		ifTrue: [titleBarArea useRoundedCorners].
>
>   	self addMorphFront: titleBarArea.
>   	titleBarArea setProperty: #titleString toValue: (title  
> valueOfProperty: #titleString).
>   	title removeProperty: #titleString.
>   	self setProperty: #hasTitlebarWidgets toValue: true.
>   	self removeProperty: #needsTitlebarWidgets.
>   	self removeStayUpItems!
>
>
>







More information about the Squeak-dev mailing list