[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
|