# HG changeset patch # User Merge Script # Date 1444106598 -7200 # Node ID b54f4b01de15afe89f17779ad58be0116b090e38 # Parent 90da5b2509bf508ab774549a8e28e580e3044a22# Parent 87612e57dff13963fc4b29490bffbda555fcda35 Merge diff -r 90da5b2509bf -r b54f4b01de15 ArrowButton.st --- a/ArrowButton.st Mon Oct 05 06:39:43 2015 +0200 +++ b/ArrowButton.st Tue Oct 06 06:43:18 2015 +0200 @@ -1,3 +1,5 @@ +"{ Encoding: utf8 }" + " COPYRIGHT (c) 1993 by Claus Gittinger All Rights Reserved @@ -11,6 +13,8 @@ " "{ Package: 'stx:libwidg' }" +"{ NameSpace: Smalltalk }" + Button subclass:#ArrowButton instanceVariableNames:'arrowStyle direction' classVariableNames:'DownArrowForm UpArrowForm LeftArrowForm RightArrowForm @@ -511,7 +515,7 @@ ^ self defaultMACArrowButtonFormForDirection:direction onDevice:aDevice " - self defaultUpArrowButtonForm + self defaultArrowButtonFormForStyle:#macosx direction:#up onDevice:Screen " "Modified: / 26.3.1999 / 15:19:11 / cg" @@ -924,16 +928,6 @@ DefaultArrowButtonPassiveLevel notNil ifTrue:[offLevel := DefaultArrowButtonPassiveLevel]. offLevel ~~ level ifTrue:[self level:offLevel]. -"/ " -"/ special treatment for motif arrows -"/ - they do not really fit into the general (bitmap) scheme ... -"/ " -"/ arrowStyle == #motif ifTrue:[ -"/ onLevel := 0. -"/ offLevel := 0. -"/ self level:0. -"/ ] - "Modified: 22.1.1997 / 11:57:00 / cg" ! @@ -1059,10 +1053,10 @@ !ArrowButton class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.76 2014-03-19 10:04:37 stefan Exp $' + ^ '$Header$' ! version_CVS - ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.76 2014-03-19 10:04:37 stefan Exp $' + ^ '$Header$' ! ! diff -r 90da5b2509bf -r b54f4b01de15 Button.st --- a/Button.st Mon Oct 05 06:39:43 2015 +0200 +++ b/Button.st Tue Oct 06 06:43:18 2015 +0200 @@ -11,6 +11,8 @@ " "{ Package: 'stx:libwidg' }" +"{ NameSpace: Smalltalk }" + Label subclass:#Button instanceVariableNames:'activeLogo passiveLogo disabledLogo focusLogo onLevel offLevel disabledFgColor disabledEtchedFgColor activeFgColor activeBgColor @@ -1203,12 +1205,14 @@ "set the level of the button when pressed (i.e. how deep)" onLevel ~~ aNumber ifTrue:[ - onLevel := aNumber. - (controller notNil - and:[controller pressed]) ifTrue:[ - self level:onLevel. - margin := onLevel abs max:offLevel abs. - self invalidate. + (styleSheet at:'button.ignoreLevel' default:false) ifFalse:[ + onLevel := aNumber. + (controller notNil + and:[controller pressed]) ifTrue:[ + self level:onLevel. + margin := onLevel abs max:offLevel abs. + self invalidate. + ] ] ]. @@ -1497,12 +1501,14 @@ "set the level of the button when not pressed (i.e. how high)" offLevel ~~ aNumber ifTrue:[ - offLevel := aNumber. - (controller notNil - and:[controller pressed not]) ifTrue:[ - self level:offLevel. - margin := onLevel abs max:offLevel abs. - self invalidate. + (styleSheet at:'button.ignoreLevel' default:false) ifFalse:[ + offLevel := aNumber. + (controller notNil + and:[controller pressed not]) ifTrue:[ + self level:offLevel. + margin := onLevel abs max:offLevel abs. + self invalidate. + ] ] ] @@ -1785,9 +1791,9 @@ initStyle "setup viewStyle specifics" - - - |hasGreyscales nm graphicsDevice| + + + |hasGreyscales nm graphicsDevice buttonStyle borderStyle| super initStyle. graphicsDevice := self graphicsDevice. @@ -1911,6 +1917,13 @@ ]. ]. + buttonStyle := styleSheet at:'button.style' default:nil. + ((self class == Button) and:[ buttonStyle == #MacOSX ]) ifTrue:[ + borderStyle := styleSheet at:'button.borderStyle'. + self border:( (Smalltalk at:borderStyle asSymbol) color:Color black ). + self viewBackground:(View defaultViewBackgroundColor). + ]. + "/ unfinished... "/ nm = #winVista ifTrue:[ "/ self border:(RoundButtonBorder width:2 color:Color grey). @@ -2012,6 +2025,14 @@ !Button methodsFor:'queries'! +extraMarginForBorder + (self class == Button + and:[ (styleSheet at:'button.style' default:nil) == #'MacOSX' ]) ifTrue:[ + ^ 4 + ]. + ^ 0 +! + is3D "return true, if the receiver is a 3D style view" @@ -2121,16 +2142,19 @@ "redraw myself with fg/bg. Use super to draw the label, add the return-arrow here." - |x y sColor lColor etchFg shownLogo isEnabled| + |x y sColor lColor etchFg shownLogo isEnabled isActive isEntered clearInside showBorder| shown ifFalse:[^ self]. isEnabled := self enabled. + isActive := (controller active or:[controller pressed]). + isEntered := (controller entered or:[controller pressed]). + isEnabled ifFalse:[ etchFg := disabledEtchedFgColor. ]. - (controller active or:[controller pressed]) ifTrue:[ + isActive ifTrue:[ shownLogo := activeLogo ? enteredLogo ? passiveLogo ? logo. ] ifFalse:[ shownLogo := passiveLogo ? logo. @@ -2146,8 +2170,77 @@ logo := shownLogo. ]. - self drawWith:fg and:bg clearInside:true etchedFg:etchFg. "this draws the text/image" - + clearInside := true. + showBorder := false. + + (self class == Button + and:[ ((styleSheet at:'button.style' default:nil) == #'MacOSX') ]) ifTrue:[ + |c1 c2 c3 bc| + isActive ifTrue:[ + c1 := (styleSheet colorAt:'button.activeBackgroundColor1' default:nil). + c2 := (styleSheet colorAt:'button.activeBackgroundColor2' default:nil). + c3 := (styleSheet colorAt:'button.activeBackgroundColor3' default:nil). + bc := (styleSheet colorAt:'button.activeBorderColor' default:(Color grey:72)). + ] ifFalse:[ + isEntered ifTrue:[ + c1 := (styleSheet colorAt:'button.enteredBackgroundColor1' default:nil). + c2 := (styleSheet colorAt:'button.enteredBackgroundColor2' default:nil). + c3 := (styleSheet colorAt:'button.enteredBackgroundColor3' default:nil). + bc := (styleSheet colorAt:'button.enteredBorderColor' default:(Color grey:72)). + ] ifFalse:[ + c1 := (styleSheet colorAt:'button.passiveBackgroundColor1' default:nil). + c2 := (styleSheet colorAt:'button.passiveBackgroundColor2' default:nil). + c3 := (styleSheet colorAt:'button.passiveBackgroundColor3' default:nil). + bc := (styleSheet colorAt:'button.passiveBorderColor' default:(Color grey:72)). + ]. + ]. + (border class == MacFlatButtonBorder) ifTrue:[ + (c1 notNil and:[c2 notNil]) ifTrue:[ + border backgroundColor1:c1. + border backgroundColor2:c2. + border color:bc. + (GradientBackground new + direction:#northSouth; + colors:{c1 . c2}; + usedLength:height) + fillRectangleX:0 y:0 width:width height:height in:self. + + clearInside := false. + ] ifFalse:[ + c1 := c2 := bg. + border backgroundColor1:c1. + border backgroundColor2:c2. + border color:bc. + ]. + showBorder := true. + ]. + (border class == MacButtonBorder) ifTrue:[ + (c1 notNil and:[c2 notNil and:[c3 notNil]]) ifTrue:[ + border backgroundColor1:c1. + border backgroundColor2:c2. + border color:bc. + (GradientBackground new + direction:#northSouth; + colors:{ c1 . c2 . c3}; + usedLength:height) + fillRectangleX:0 y:0 width:width height:height in:self. + + clearInside := false. + ] ifFalse:[ + c1 := c2 := bg. + border backgroundColor1:c1. + border backgroundColor2:c2. + border color:bc. + ]. + showBorder := true. + ]. + ]. + self drawWith:fg and:bg clearInside:clearInside etchedFg:etchFg. "this draws the text/image" + + showBorder ifTrue:[ + border displayOn:self forDisplayBox:(0@0 corner:width@height). + ]. + (isReturnButton and:[shadowForm notNil]) ifTrue:[ y := (height - shadowForm height) // 2. x := width - shadowForm width - (hSpace // 2). @@ -2186,7 +2279,9 @@ self paint:fg. ]. - self hasFocus ifTrue:[ self drawFocusFrame ]. + self hasFocus ifTrue:[ + self drawFocusFrame + ]. "Modified: / 22-10-2010 / 15:55:03 / cg" ! @@ -2196,11 +2291,13 @@ That's like redrawing a label, but uses different colors when pressed or entered." - |fg bg entered noFrame lvl isEnabled| + |fg bg entered hasFrame lvl isEnabled| shown ifFalse:[^ self]. isEnabled := self enabled. + "/ Transcript showCR:border. + "/ disabledLogo notNil ifTrue:[ "/ isEnabled ifFalse:[ "/ logo := disabledLogo. @@ -2213,7 +2310,7 @@ "/ ]. "/ ]. - noFrame := true. + hasFrame := false. fg := fgColor. bg := bgColor. isEnabled ifFalse:[ @@ -2236,7 +2333,7 @@ ] ]. (controller pressed and:[entered or:[controller isTriggerOnDown]]) ifTrue:[ - noFrame := self is3D "false". + hasFrame := self is3D not. activeFgColor isNil ifTrue:[ onLevel == offLevel ifTrue:[ fg := bgColor @@ -2253,13 +2350,13 @@ ]. self is3D ifFalse:[ - noFrame := (fgColor = fg) and:[bgColor = bg]. + hasFrame := ((fgColor = fg) and:[bgColor = bg]) not. ]. ]. ]. self drawWith:fg and:bg. - noFrame ifFalse:[ + hasFrame ifTrue:[ " draw a rectangle around (2D styles only) " @@ -2320,10 +2417,10 @@ !Button class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libwidg/Button.st,v 1.161 2014-12-02 18:35:49 cg Exp $' + ^ '$Header$' ! version_CVS - ^ '$Header: /cvs/stx/stx/libwidg/Button.st,v 1.161 2014-12-02 18:35:49 cg Exp $' + ^ '$Header$' ! ! diff -r 90da5b2509bf -r b54f4b01de15 MacOSX2ToolbarIconLibrary.st --- a/MacOSX2ToolbarIconLibrary.st Mon Oct 05 06:39:43 2015 +0200 +++ b/MacOSX2ToolbarIconLibrary.st Tue Oct 06 06:43:18 2015 +0200 @@ -261,6 +261,362 @@ @@@@@@@@@@@@@@@@@@@@@@@@@@@GE@HOC0HTA0@@@@@@@@@NE0LED!!HE@1\N@@@@@@@ND@TUEQTUEQTED@8@@@@GE0TUEQTUEQTUEPTWA0@@E@LUEQTFA@PF EQTU@1P@@@HEEQTFC@,MC@XUEPTB@@@OD!!TUAADSD1DDEQTRC0@@C1HUEPPVD1LVAATUD <@@@HEEQTF@P$I@PXUEPTB@@@T@1TUEP JB UEQTCE@@@A1\E EQTUEQTUEQTEE0\@@@@ND@TUEQTUEQTED@8@@@@@@@8W@0TRD TCE08@@@@@@@@@A1PBC0_?9??''?>_?9??''?>O?0_>@?0@@@b'); yourself); yourself] +! + +scrollDownDisabledIcon + "This resource specification was automatically generated + by the ImageEditor of ST/X." + + "Do not manually edit this!! If it is corrupted, + the ImageEditor may not be able to read the specification." + + " + self scrollDownDisabledIcon inspect + ImageEditor openOnClass:self andSelector:#scrollDownDisabledIcon + Icon flushCachedIcons + " + + + + ^Icon + constantNamed:'MacOSX2ToolbarIconLibrary scrollDownDisabledIcon' + ifAbsentPut:[(Depth4Image width:16 height:16) bits:(ByteArray fromPackedString:' +@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CL2DQ@@@@@@P3LQP@@@@@@DL1P@@@@@@@ACP@@@@@@@@@@@@@@@@@ +@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') colorMapFromArray:#[0 0 0 192 192 190 176 174 170 156 158 160 244 246 250] mask:((ImageMask width:16 height:16) bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@A?@G<@O @\@@@@@@@@@@@@@@@@@b'); yourself); yourself] +! + +scrollDownEnteredIcon + "This resource specification was automatically generated + by the ImageEditor of ST/X." + + "Do not manually edit this!! If it is corrupted, + the ImageEditor may not be able to read the specification." + + " + self scrollDownEnteredIcon inspect + ImageEditor openOnClass:self andSelector:#scrollDownEnteredIcon + Icon flushCachedIcons + " + + + + ^Icon + constantNamed:'MacOSX2ToolbarIconLibrary scrollDownEnteredIcon' + ifAbsentPut:[(Depth4Image width:16 height:16) bits:(ByteArray fromPackedString:' +@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FFYL3@@@@@@P!!FSP@@@@@@DVHP@@@@@@@AGP@@@@@@@@@P@@@@@@@ +@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') colorMapFromArray:#[0 0 0 72 74 70 32 34 30 136 134 130 244 246 250 32 30 30 84 86 90 44 46 50 52 54 50 120 120 120] mask:((ImageMask width:16 height:16) bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@A?@G<@O @\@@ @@@@@@@@@@@@@@b'); yourself); yourself] +! + +scrollDownIcon + "This resource specification was automatically generated + by the ImageEditor of ST/X." + + "Do not manually edit this!! If it is corrupted, + the ImageEditor may not be able to read the specification." + + " + self scrollDownIcon inspect + ImageEditor openOnClass:self andSelector:#scrollDownIcon + Icon flushCachedIcons + " + + + + ^Icon + constantNamed:'MacOSX2ToolbarIconLibrary scrollDownIcon' + ifAbsentPut:[(Depth8Image width:16 height:16) bits:(ByteArray fromPackedString:' +@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ +@@@@@@@@@@@@@@@FB@0MC1@N@@@@@@@@@@@@D HEBP,JD @@@@@@@@@@@@@R@PPGD @@@@@@@@@@@@@@@AHCD @@@@@@@@@@@@@@@@@@D @@@@@@@@@@@@@@ +@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') colorMapFromArray:#[0 0 0 32 30 30 32 34 30 44 46 50 52 54 50 72 74 70 84 86 90 92 92 90 120 120 120 120 122 120 136 134 130 140 140 140 156 158 160 176 174 170 184 182 180 184 184 180 192 192 190 228 228 230 244 246 250] mask:((ImageMask width:16 height:16) bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@A?@G<@O @\@@ @@@@@@@@@@@@@@b'); yourself); yourself] +! + +scrollLeftDisabledIcon + "This resource specification was automatically generated + by the ImageEditor of ST/X." + + "Do not manually edit this!! If it is corrupted, + the ImageEditor may not be able to read the specification." + + " + self scrollLeftDisabledIcon inspect + ImageEditor openOnClass:self andSelector:#scrollLeftDisabledIcon + Icon flushCachedIcons + " + + + + ^Icon + constantNamed:'MacOSX2ToolbarIconLibrary scrollLeftDisabledIcon' + ifAbsentPut:[(Depth4Image width:16 height:16) bits:(ByteArray fromPackedString:' +@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P0@@@@@@@@P3@@@@@@@@P3L@@@@@@@P3L @@@@@@@DDQ@@@@@@@@AAD@@@@@@@ +@@PP@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') colorMapFromArray:#[0 0 0 192 192 190 176 174 170 120 120 120 244 246 250] mask:((ImageMask width:16 height:16) bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@F@@8@G @>@A8@C @F@@@@@@@@@@@@b'); yourself); yourself] +! + +scrollLeftEnteredIcon + "This resource specification was automatically generated + by the ImageEditor of ST/X." + + "Do not manually edit this!! If it is corrupted, + the ImageEditor may not be able to read the specification." + + " + self scrollLeftEnteredIcon inspect + ImageEditor openOnClass:self andSelector:#scrollLeftEnteredIcon + Icon flushCachedIcons + " + + + + ^Icon + constantNamed:'MacOSX2ToolbarIconLibrary scrollLeftEnteredIcon' + ifAbsentPut:[(Depth4Image width:16 height:16) bits:(ByteArray fromPackedString:' +@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@L @@@@@@@@L!!@@@@@@@@MA\@@@@@@@MVE0@@@@@@@CY7@@@@@@@@@7\@@@@@@@ +@@M0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') colorMapFromArray:#[0 0 0 72 74 70 32 34 30 244 246 250 32 30 30 44 46 50 52 54 50 120 120 120] mask:((ImageMask width:16 height:16) bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@F@@8@G @>@A8@C @F@@@@@@@@@@@@b'); yourself); yourself] +! + +scrollLeftIcon + "This resource specification was automatically generated + by the ImageEditor of ST/X." + + "Do not manually edit this!! If it is corrupted, + the ImageEditor may not be able to read the specification." + + " + self scrollLeftIcon inspect + ImageEditor openOnClass:self andSelector:#scrollLeftIcon + Icon flushCachedIcons + " + + + + ^Icon + constantNamed:'MacOSX2ToolbarIconLibrary scrollLeftIcon' + ifAbsentPut:[(Depth8Image width:16 height:16) bits:(ByteArray fromPackedString:' +@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@D X@ +@@@@@@@@@@@@@@@@D HH@@@@@@@@@@@@@@@@D DEC@@@@@@@@@@@@@@@D LDBP4@@@@@@@@@@@@@@@@RA0,O@@@@@@@@@@@@@@@@@AHJD@@@@@@@@@@@@@@@ +@@@@D 8@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') colorMapFromArray:#[0 0 0 32 30 30 32 34 30 44 46 50 52 54 50 72 74 70 84 86 90 92 92 90 120 120 120 120 122 120 136 134 130 140 140 140 156 158 160 176 174 170 184 182 180 184 184 180 192 192 190 228 228 230 244 246 250] mask:((ImageMask width:16 height:16) bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@F@@8@G @>@A8@C @F@@@@@@@@@@@@b'); yourself); yourself] +! + +scrollRightActiveIcon + "This resource specification was automatically generated + by the ImageEditor of ST/X." + + "Do not manually edit this!! If it is corrupted, + the ImageEditor may not be able to read the specification." + + " + self scrollRightActiveIcon inspect + ImageEditor openOnClass:self andSelector:#scrollRightActiveIcon + Icon flushCachedIcons + " + + + + ^Icon + constantNamed:'MacOSX2ToolbarIconLibrary scrollRightActiveIcon' + ifAbsentPut:[(Depth4Image width:16 height:16) bits:(ByteArray fromPackedString:' +@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GT@@@@@@@@@\%@@@@@@@@B!!YP@@@@@@@JFXT@@@@@@@(9T@@@@@@@B$T@@@@@@@ +@JT@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') colorMapFromArray:#[0 0 0 72 74 70 32 34 30 140 140 140 136 134 130 244 246 250 32 30 30 84 86 90 44 46 50 52 54 50 120 120 120] mask:((ImageMask width:16 height:16) bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@L@@8@C0@O @<@C @L@@@@@@@@@@@@b'); yourself); yourself] +! + +scrollRightDisabledIcon + "This resource specification was automatically generated + by the ImageEditor of ST/X." + + "Do not manually edit this!! If it is corrupted, + the ImageEditor may not be able to read the specification." + + " + self scrollRightDisabledIcon inspect + ImageEditor openOnClass:self andSelector:#scrollRightDisabledIcon + Icon flushCachedIcons + " + + + + ^Icon + constantNamed:'MacOSX2ToolbarIconLibrary scrollRightDisabledIcon' + ifAbsentPut:[(Depth4Image width:16 height:16) bits:(ByteArray fromPackedString:' +@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BP@@@@@@@@@H$@@@@@@@@@"I@@@@@@@@CH"P@@@@@@@DQP@@@@@@@@QP@@@@@@@ +@AP@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') colorMapFromArray:#[0 0 0 192 192 190 120 120 120 156 158 160 244 246 250] mask:((ImageMask width:16 height:16) bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@L@@8@C0@O @<@C @L@@@@@@@@@@@@b'); yourself); yourself] +! + +scrollRightEnteredIcon + "This resource specification was automatically generated + by the ImageEditor of ST/X." + + "Do not manually edit this!! If it is corrupted, + the ImageEditor may not be able to read the specification." + + " + self scrollRightEnteredIcon inspect + ImageEditor openOnClass:self andSelector:#scrollRightEnteredIcon + Icon flushCachedIcons + " + + + + ^Icon + constantNamed:'MacOSX2ToolbarIconLibrary scrollRightEnteredIcon' + ifAbsentPut:[(Depth4Image width:16 height:16) bits:(ByteArray fromPackedString:' +@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GT@@@@@@@@@\%@@@@@@@@B!!YP@@@@@@@JFXT@@@@@@@(9T@@@@@@@B$T@@@@@@@ +@JT@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') colorMapFromArray:#[0 0 0 72 74 70 32 34 30 140 140 140 136 134 130 244 246 250 32 30 30 84 86 90 44 46 50 52 54 50 120 120 120] mask:((ImageMask width:16 height:16) bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@L@@8@C0@O @<@C @L@@@@@@@@@@@@b'); yourself); yourself] +! + +scrollRightIcon + "This resource specification was automatically generated + by the ImageEditor of ST/X." + + "Do not manually edit this!! If it is corrupted, + the ImageEditor may not be able to read the specification." + + " + self scrollRightIcon inspect + ImageEditor openOnClass:self andSelector:#scrollRightIcon + Icon flushCachedIcons + " + + + + ^Icon + constantNamed:'MacOSX2ToolbarIconLibrary scrollRightIcon' + ifAbsentPut:[(Depth4Image width:16 height:16) bits:(ByteArray fromPackedString:' +@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IH@@@@@@@@@)R@@@@@@@@A>P @@@@@@@A<=H@@@@@@@"+H@@@@@@@CJH@@@@@@@ +@FH@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') colorMapFromArray:#[0 0 0 176 174 170 244 246 250 52 54 50 32 30 30 32 34 30 184 182 180 156 158 160 184 184 180 84 86 90 140 140 140 92 92 90 192 192 190 44 46 50 72 74 70 120 122 120] mask:((ImageMask width:16 height:16) bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@L@@8@C0@O @<@C @L@@@@@@@@@@@@b'); yourself); yourself] +! + +scrollUpActiveIcon + "This resource specification was automatically generated + by the ImageEditor of ST/X." + + "Do not manually edit this!! If it is corrupted, + the ImageEditor may not be able to read the specification." + + " + self scrollUpActiveIcon inspect + ImageEditor openOnClass:self andSelector:#scrollUpActiveIcon + Icon flushCachedIcons + " + + + + ^Icon + constantNamed:'MacOSX2ToolbarIconLibrary scrollUpActiveIcon' + ifAbsentPut:[(Depth4Image width:16 height:16) bits:(ByteArray fromPackedString:' +@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@0@@@@@@@@@6L@@@@@@@@4]3@@@@@@@2HX 0@@@@@EVH"H@@@@@@@@@@@@@@@@ +@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') colorMapFromArray:#[0 0 0 72 74 70 32 34 30 244 246 250 32 30 30 84 86 90 44 46 50 52 54 50 120 120 120] mask:((ImageMask width:16 height:16) bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@B@@\@C8@_0A?@@@@@@@@@@@@@@@@@b'); yourself); yourself] +! + +scrollUpDisabledIcon + "This resource specification was automatically generated + by the ImageEditor of ST/X." + + "Do not manually edit this!! If it is corrupted, + the ImageEditor may not be able to read the specification." + + " + self scrollUpDisabledIcon inspect + ImageEditor openOnClass:self andSelector:#scrollUpDisabledIcon + Icon flushCachedIcons + " + + + + ^Icon + constantNamed:'MacOSX2ToolbarIconLibrary scrollUpDisabledIcon' + ifAbsentPut:[(Depth4Image width:16 height:16) bits:(ByteArray fromPackedString:' +@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@A@@@@@@@@@ACP@@@@@@@ACLT@@@@@@ACL1E@@@@@@CL2DQ@@@@@@@@@@@@@@@@ +@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') colorMapFromArray:#[0 0 0 192 192 190 176 174 170 156 158 160 244 246 250] mask:((ImageMask width:16 height:16) bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@B@@\@C8@_0A?@@@@@@@@@@@@@@@@@b'); yourself); yourself] +! + +scrollUpEnteredIcon + "This resource specification was automatically generated + by the ImageEditor of ST/X." + + "Do not manually edit this!! If it is corrupted, + the ImageEditor may not be able to read the specification." + + " + self scrollUpEnteredIcon inspect + ImageEditor openOnClass:self andSelector:#scrollUpEnteredIcon + Icon flushCachedIcons + " + + + + ^Icon + constantNamed:'MacOSX2ToolbarIconLibrary scrollUpEnteredIcon' + ifAbsentPut:[(Depth4Image width:16 height:16) bits:(ByteArray fromPackedString:' +@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@0@@@@@@@@@6L@@@@@@@@4]3@@@@@@@2HX 0@@@@@EVH"H@@@@@@@@@@@@@@@@ +@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') colorMapFromArray:#[0 0 0 72 74 70 32 34 30 244 246 250 32 30 30 84 86 90 44 46 50 52 54 50 120 120 120] mask:((ImageMask width:16 height:16) bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@B@@\@C8@_0A?@@@@@@@@@@@@@@@@@b'); yourself); yourself] +! + +scrollUpIcon + "This resource specification was automatically generated + by the ImageEditor of ST/X." + + "Do not manually edit this!! If it is corrupted, + the ImageEditor may not be able to read the specification." + + " + self scrollUpIcon inspect + ImageEditor openOnClass:self andSelector:#scrollUpIcon + Icon flushCachedIcons + " + + + + ^Icon + constantNamed:'MacOSX2ToolbarIconLibrary scrollUpIcon' + ifAbsentPut:[(Depth4Image width:16 height:16) bits:(ByteArray fromPackedString:' +@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@]D@@@@@@@@SJ!!@@@@@@@T;9$P@@@@@H1''^5@@@@@@@@@@@@@@@@ +@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') colorMapFromArray:#[0 0 0 244 246 250 52 54 50 32 30 30 32 34 30 184 182 180 156 158 160 184 184 180 84 86 90 140 140 140 92 92 90 192 192 190 120 120 120 44 46 50 72 74 70 120 122 120] mask:((ImageMask width:16 height:16) bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@B@@\@C8@_0A?@@@@@@@@@@@@@@@@@b'); yourself); yourself] +! ! + +!MacOSX2ToolbarIconLibrary class methodsFor:'image specs - widgets'! + +scrollDownActiveIcon + "This resource specification was automatically generated + by the ImageEditor of ST/X." + + "Do not manually edit this!! If it is corrupted, + the ImageEditor may not be able to read the specification." + + " + self scrollDownActiveIcon inspect + ImageEditor openOnClass:self andSelector:#scrollDownActiveIcon + Icon flushCachedIcons + " + + + + ^Icon + constantNamed:'MacOSX2ToolbarIconLibrary scrollDownActiveIcon' + ifAbsentPut:[(Depth4Image width:16 height:16) bits:(ByteArray fromPackedString:' +@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FFYL3@@@@@@P!!FSP@@@@@@DVHP@@@@@@@AGP@@@@@@@@@P@@@@@@@ +@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') colorMapFromArray:#[0 0 0 72 74 70 32 34 30 136 134 130 244 246 250 32 30 30 84 86 90 44 46 50 52 54 50 120 120 120] mask:((ImageMask width:16 height:16) bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@A?@G<@O @\@@ @@@@@@@@@@@@@@b'); yourself); yourself] +! + +scrollLeftActiveIcon + "This resource specification was automatically generated + by the ImageEditor of ST/X." + + "Do not manually edit this!! If it is corrupted, + the ImageEditor may not be able to read the specification." + + " + self scrollLeftActiveIcon inspect + ImageEditor openOnClass:self andSelector:#scrollLeftActiveIcon + Icon flushCachedIcons + " + + + + ^Icon + constantNamed:'MacOSX2ToolbarIconLibrary scrollLeftActiveIcon' + ifAbsentPut:[(Depth4Image width:16 height:16) bits:(ByteArray fromPackedString:' +@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P0@@@@@@@@P2@@@@@@@@QR @@@@@@@Q''J@@@@@@@@D^H@@@@@@@@AH @@@@@@@ +@@R@@@@@@@@@@A@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') colorMapFromArray:#[0 0 0 244 244 240 72 74 70 32 34 30 244 246 250 32 30 30 44 46 50 52 54 50 120 120 120] mask:((ImageMask width:16 height:16) bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@F@@8@G @>@A8@C @F@@H@@@@@@@@@b'); yourself); yourself] ! ! !MacOSX2ToolbarIconLibrary class methodsFor:'documentation'! diff -r 90da5b2509bf -r b54f4b01de15 MacOSXToolbarIconLibrary.st --- a/MacOSXToolbarIconLibrary.st Mon Oct 05 06:39:43 2015 +0200 +++ b/MacOSXToolbarIconLibrary.st Tue Oct 06 06:43:18 2015 +0200 @@ -1,5 +1,3 @@ -"{ Encoding: utf8 }" - " COPYRIGHT (c) 2014 by eXept Software AG All Rights Reserved @@ -56,6 +54,104 @@ " ! ! +!MacOSXToolbarIconLibrary class methodsFor:'image specs'! + +comboViewActiveIcon + "This resource specification was automatically generated + by the ImageEditor of ST/X." + + "Do not manually edit this!! If it is corrupted, + the ImageEditor may not be able to read the specification." + + " + self comboViewActiveIcon inspect + ImageEditor openOnClass:self andSelector:#comboViewActiveIcon + Icon flushCachedIcons + " + + + + ^Icon + constantNamed:'MacOSXToolbarIconLibrary comboViewActiveIcon' + ifAbsentPut:[(Depth8Image width:16 height:18) bits:(ByteArray fromPackedString:' +ITI^W%9BD4IBITIBLQU@@DXIQ$Y!!BTYFQ$Y!!XRQ(TSX$I@PDIDEAPTERIBQAAFUOO%AP@@@>HREP@C9PTEA(X#-)G#,^N19)G%(;G!!9)G"49U&Q$NVQVNUYV +NS%VYC$JJB!!TUB (UEP(UB!!TJEP(A5=_EAP4L =_W3AJDE=_E@ILZ$1*M2)MCB1MJ!!YLSD0'); yourself); yourself] +! + +comboViewDisabledIcon + "This resource specification was automatically generated + by the ImageEditor of ST/X." + + "Do not manually edit this!! If it is corrupted, + the ImageEditor may not be able to read the specification." + + " + self comboViewDisabledIcon inspect + ImageEditor openOnClass:self andSelector:#comboViewDisabledIcon + Icon flushCachedIcons + " + + + + ^Icon + constantNamed:'MacOSXToolbarIconLibrary comboViewDisabledIcon' + ifAbsentPut:[(Depth8Image width:16 height:18) bits:(ByteArray fromPackedString:' +@@DA@PDA@PDA@@DA@ LDAPXGA XFA0XFA XFA IB ,HB@ HB@0LC@0HB@ LB@4NC0TEAPTOAPTEAP'); yourself); yourself] +! + +comboViewEnteredIcon + "This resource specification was automatically generated + by the ImageEditor of ST/X." + + "Do not manually edit this!! If it is corrupted, + the ImageEditor may not be able to read the specification." + + " + self comboViewEnteredIcon inspect + ImageEditor openOnClass:self andSelector:#comboViewEnteredIcon + Icon flushCachedIcons + " + + + + ^Icon + constantNamed:'MacOSXToolbarIconLibrary comboViewEnteredIcon' + ifAbsentPut:[(Depth8Image width:16 height:18) bits:(ByteArray fromPackedString:' +ITI^W%9BD4IBITIBLQU@@DXIQ$Y!!BTYFQ$Y!!XRQ(TSX$I@PDIDEAPTERIBQAAFUOO%AP@@@>HREP@C9PTEA(X#-)G#,^N19)G%(;G!!9)G"49U&Q$NVQVNUYV +NS%VYC$JJB!!TUB (UEP(UB!!TJEP(A5=_EAP4L =_W3AJDE=_E@ILZ$1*M2)MCB1MJ!!YLSD0'); yourself); yourself] +! + +comboViewIcon + "This resource specification was automatically generated + by the ImageEditor of ST/X." + + "Do not manually edit this!! If it is corrupted, + the ImageEditor may not be able to read the specification." + + " + self comboViewIcon inspect + ImageEditor openOnClass:self andSelector:#comboViewIcon + Icon flushCachedIcons + " + + + + ^Icon + constantNamed:'MacOSXToolbarIconLibrary comboViewIcon' + ifAbsentPut:[(Depth8Image width:16 height:18) bits:(ByteArray fromPackedString:' +ITI^W%9BD4IBITIBLQU@@DXIQ$Y!!BTYFQ$Y!!XRQ(TSX$I@PDIDEAPTERIBQAAFUOO%AP@@@>HREP@C9PTEA(X#-)G#,^N19)G%(;G!!9)G"49U&Q$NVQVNUYV +NS%VYC$JJB!!TUB (UEP(UB!!TJEP(A5=_EAP4L =_W3AJDE=_E@ILZ$1*M2)MCB1MJ!!YLSD0'); yourself); yourself] +! ! + !MacOSXToolbarIconLibrary class methodsFor:'image specs - widgets'! checkToggleOffDisabledIcon diff -r 90da5b2509bf -r b54f4b01de15 TextCollector.st --- a/TextCollector.st Mon Oct 05 06:39:43 2015 +0200 +++ b/TextCollector.st Tue Oct 06 06:43:18 2015 +0200 @@ -1,5 +1,3 @@ -"{ Encoding: utf8 }" - " COPYRIGHT (c) 1989 by Claus Gittinger All Rights Reserved @@ -21,7 +19,7 @@ timeDelay access currentEmphasis alwaysAppendAtEnd collectSize autoRaise' classVariableNames:'TranscriptQuerySignal DebugSendersOfMessagePattern - TraceSendersOfMessagePattern TimestampMessage DefaultLineLimit + TraceSendersOfMessagePattern TimestampMessages DefaultLineLimit DefaultTimeDelay DefaultCollectSize' poolDictionaries:'' category:'Views-Text' @@ -932,7 +930,9 @@ DebugSendersOfMessagePattern notNil ifTrue:[ (DebugSendersOfMessagePattern match:printString string) ifTrue:[ "/ to disable this right from inside the debugger, evaluate: - "/ DebugSendersOfMessagePattern := nil + " + DebugSendersOfMessagePattern := nil + " self halt:('Transcript: text matches: "', printString, '"'). ]. ].