'From etoys4.0 of 9 October 2008 [latest update: #2285] on 11 September 2009 at 4:52:21 pm'! "Change Set: quitOrStop-bf Date: 11 September 2009 Author: Bert Freudenberg Make Quit button look like a quit button (under Sugar it still is the Stop sign)."! !SugarLibrary class methodsFor: 'icons' stamp: 'bf 9/11/2009 16:38'! closeIcon ^Form extent: 50@50 depth: 32 bits: (Base64MimeConverter mimeDecodeToBytes: '6cTh2v8AAAA3/xoaGv9cXFz/kJCQ/7e3t//Y2Nj/4+Pj/+7u7v/l5eX/2tra/7u7u/+VlZX/ YmJi/yIiIor/AAAAD/8UFBT/cXFx/87OzjX/D//W1tb/e3t7/xwcHHb/AAAAD/8ZGRn/j4+P //T09EX/D//5+fn/nJyc/yIiImb/AAAAD/8DAwP/bm5u//Dw8FX/D//29vb/fn5+/wcHB1r/ AAAAC/8YGBj/vr6+Zf8L/8/Pz/8lJSVS/wAAAAv/MzMz/+jo6G3/C//x8fH/Q0NDSv8AAAAL /z4+Pv/x8fF1/wv/+fn5/1RUVEL/AAAAC/8yMjL/8PDwff8L//n5+f9CQkI6/wAAAAv/GRkZ /+jo6IX/C//x8fH/KCgoMv8AAAAL/wMDA/+/v7+N/wv/09PT/woKCi7/AAAAB/9ubm6V/wf/ iIiIKv8AAAAL/xgYGP/x8fEh/xf/3d3d/2RkZP8/Pz//cnJy/+3t7S3/F//k5OT/aWlp/z8/ P/9tbW3/5+fnIf8L//r6+v8oKCgm/wAAAAf/jo6OIf8L/9zc3P8NDQ0O/wAAAAv/HBwc/9nZ 2SX/C//Ly8v/ERERDv8AAAAL/xgYGP/r6+sh/wf/qampIv8AAAAL/xQUFP/09PQh/wf/Y2Nj Fv8AAAAL/xsbG//Z2dkd/wv/y8vL/xAQEBb/AAAAB/9+fn4h/wv//f39/ycnJx7/AAAAB/9v b28l/wf/QUFBGv8AAAAL/xsbG//Z2dkV/wv/zMzM/xAQEBr/AAAAB/9aWlol/wf/ioqKHv8A AAAH/83NzSX/B/9ycnIe/wAAAAv/Gxsb/9nZ2Q3/C//MzMz/EBAQHv8AAAAH/4uLiyX/C//l 5eX/AwMDFv8AAAAH/xoaGin/C//t7e3/HBwcHv8AAAAX/xsbG//Z2dn//////8zMzP8QEBAe /wAAAAv/KSkp//b29in/B/80NDQW/wAAAAf/W1tbLf8L/9nZ2f8aGhoe/wAAAA//Gxsb/6io qP8QEBAe/wAAAAv/JiYm/+Xl5S3/B/92dnYW/wAAAAf/kJCQMf8L/9nZ2f8aGho+/wAAAAv/ JiYm/+Xl5TH/B/+rq6sW/wAAAAf/tbW1Nf8L/9nZ2f8aGho2/wAAAAv/JiYm/+Xl5TX/B//S 0tIW/wAAAAf/1tbWOf8L/9nZ2f8aGhou/wAAAAv/Jycn/+Xl5Tn/B//x8fEW/wAAAAf/4uLi Pf8L/9nZ2f8aGhom/wAAAAv/Jycn/+Xl5UH/Fv8AAAAH//Dw8EH/B/+np6cm/wAAAAf/v7+/ Rf8H/w8PDxL/AAAAB//j4+M9/wv/y8vL/xAQECb/AAAAC/8bGxv/2dnZQf8H/wICAhL/AAAA B//X19c5/wv/y8vL/xAQEC7/AAAAC/8bGxv/2dnZOf8H//Pz8xb/AAAAB/+6uro1/wv/y8vL /xAQEDb/AAAAC/8bGxv/2dnZNf8H/9XV1Rb/AAAAB/+Tk5Mx/wv/y8vL/xAQED7/AAAAC/8a Ghr/2dnZMf8H/6+vrxb/AAAAB/9gYGAt/wv/y8vL/xAQEB7/AAAAD/8mJib/v7+//xoaGh7/ AAAAC/8aGhr/2dnZLf8H/3x8fBb/AAAAB/8gICAp/wv/4+Pj/xISEh7/AAAAF/8mJib/5eXl ///////Z2dn/GhoaHv8AAAAL/x4eHv/w8PAp/wf/Ojo6Gv8AAAAH/9bW1iX/B/9oaGge/wAA AAv/JiYm/+Xl5Q3/C//Z2dn/GhoaHv8AAAAH/4ODgyX/C//r6+v/BQUFGv8AAAAH/3l5eSX/ B/9BQUEa/wAAAAv/JiYm/+Xl5RX/C//Y2Nj/GhoaGv8AAAAH/1paWiX/B/+Tk5Me/wAAAAv/ Ghoa//n5+SH/B/9sbGwW/wAAAAv/JiYm/+Xl5R3/C//Y2Nj/GhoaFv8AAAAH/4aGhiH/C//+ /v7/MTExIv8AAAAH/5qamiH/C//n5+f/GBgYDv8AAAAL/yoqKv/l5eUl/wv/2NjY/x0dHQ7/ AAAAC/8lJSX/8/PzIf8H/7S0tCb/AAAAC/8gICD/9vb2If8X/+vr6/9+fn7/Wlpa/4mJif/2 9vYt/xf/8PDw/4KCgv9aWlr/hoaG//Ly8iH/C//9/f3/NDQ0Kv8AAAAH/3t7e5X/B/+WlpYu /wAAAAv/BgYG/8zMzI3/C//e3t7/EBAQMv8AAAAL/yIiIv/w8PCF/wv/+fn5/zQ0NDr/AAAA C/9CQkL/+fn5ff8L//7+/v9bW1tC/wAAAAv/UlJS//n5+XX/C//9/f3/ZmZmSv8AAAAL/0ND Q//y8vJt/wv/+Pj4/1dXV1L/AAAAC/8oKCj/0tLSZf8L/97e3v80NDRa/wAAAA//CAgI/4eH h//5+flV/w///f39/5eXl/8QEBBm/wAAAA//KCgo/6enp//9/f1F/w///v7+/7S0tP8yMjJ2 /wAAAA//JiYm/4iIiP/l5eU1/w//6+vr/5OTk/8wMDCG/wAAABv/AgIC/zMzM/91dXX/qqqq /9DQ0P/v7+8N/xv/8vLy/9XV1f+urq7/fHx8/zs7O/8EBASq/wAAAAf/DQ0N4fb/AAAA' readStream) contents! ! !SugarNavigatorBar methodsFor: 'initialization' stamp: 'bf 9/11/2009 16:35'! makeTheSimpleButtons "Add the buttons for use in normal kids' mode." ^ {self buttonHelp. self makeProjectNameLabel. "self buttonNewProject." self buttonPrev. self buttonNext. "self buttonFind." self buttonPaint. self buttonSupplies. }, " ( Preferences includeSoundControlInNavigator ifTrue: [{self buttonSound}] ifFalse: [#()] )," { self buttonUndo. self buttonLanguage. }, "see zoomAndShareButtonAppearance" (SugarLauncher current isRunningInSugar ifTrue: [{self buttonShare}] ifFalse: [{self buttonZoom}] ), { #spacer. self buttonFind. self buttonPublish. }, (SugarLauncher current isRunningInSugar ifTrue: [{self buttonStop}] ifFalse: [{self buttonQuit}] ), (Preferences navControlInNavBar ifTrue: [{self buttonHideNavBar}] ifFalse: [#()])! ! !SugarNavigatorBar methodsFor: 'initialization' stamp: 'bf 9/11/2009 16:41'! makeTheSimpleButtonsSqueakland "Add the buttons for use in normal kids' mode." ^ {self buttonHelp}, { self makeProjectNameLabel. self buttonNewProject. self buttonPrev. self buttonNext. self buttonPaint. self buttonSupplies. }, " ( Preferences includeSoundControlInNavigator ifTrue: [{self buttonSound}] ifFalse: [#()] )," { self buttonUndo. self buttonLanguage. "self buttonShare." }, (((DisplayScreen actualScreenSize = OLPCVirtualScreen virtualScreenExtent) ifFalse: [{self buttonZoom}] ifTrue: [#()])), { #spacer. self buttonFind. self buttonPublish. self buttonQuit. }, (Preferences navControlInNavBar ifTrue: [{self buttonHideNavBar}] ifFalse: [#()]) ! ! "Postscript:" SugarLibrary clearDefault. Flaps disableGlobalFlaps: false. Flaps enableEToyFlaps. !