'From etoys2.3 of 28 November 2007 [latest update: #1819] on 4 December 2007 at 5:00:43 pm'! "Change Set: OrangeSugarBar-yo Date: 4 December 2007 Author: Yoshiki Ohshima Experiment a bar interface for Squeakland-OLPC."! !Flaps class methodsFor: 'predefined flaps' stamp: 'yo 12/4/2007 16:09'! newSugarNavigatorFlap | nav aFlapTab | nav _ (SugarNavigatorBar newWith: SugarLibrary default) addButtons. aFlapTab _ SugarNavTab new. aFlapTab setNameTo: 'Sugar Navigator Flap' translated. aFlapTab referent: nav. aFlapTab addMorph: nav. aFlapTab inboard: false. aFlapTab edgeToAdhereTo: #top. Preferences useArtificialSweetenerBar ifTrue: [nav configureForSqueakland]. ^ aFlapTab "Flaps replaceGlobalFlapwithID: 'SugarNavigator' translated " ! ! !Preferences class methodsFor: 'themes' stamp: 'yo 12/4/2007 16:54'! cambridge "A theme for OLPC project" "Preferences cambridge" "This method has three parts. Don't forget to look at the stuff at the bottom." self setPreferencesFrom: #( (allowCelesteTell false) (alternativeScrollbarLook true) (alternativeWindowLook true) (annotationPanes true) (automaticKeyGeneration true) (biggerHandles true) (browseWithDragNDrop true) (canRecordWhilePlaying true) (classicNavigatorEnabled false) (compactViewerFlaps true) (enableLocalSave false) (escapeKeyProducesMenu false) (eToyFriendly true) (eToyLoginEnabled true) (extraDebuggerButtons false) (gradientMenu false) (haloTransitions false) (honorDesktopCmdKeys true) (includeSoundControlInNavigator true) (magicHalos false) (menuAppearance3d false) (menuKeyboardControl false) (modalColorPickers true) (mouseOverHalos false) (mvcProjectsAllowed false) (preserveTrash true) (projectViewsInWindows false) (promptForUpdateServer false) (propertySheetFromHalo false) (roundedMenuCorners false) (roundedWindowCorners false) (securityChecksEnabled true) (showDirectionHandles false) (showDirectionForSketches true) (showProjectNavigator false) (showSecurityStatus false) (soundQuickStart true) (soundStopWhenDone true) (startInUntrustedDirectory true) (swapControlAndAltKeys true) (uniqueNamesInHalos true) (unlimitedPaintArea false) (useArtificialSweetenerBar false) (useBiggerPaintingBox true) (useFormsInPaintBox false) (useLocale true) (warnAboutInsecureContent false) "The following is to make sure the default is set properly." (abbreviatedBrowserButtons false) (allowEtoyUserCustomEvents false) (alphabeticalProjectMenu false) (alternativeBrowseIt false) (alternativeButtonsInScrollBars false) (alternativeWindowBoxesLook true) (alwaysHideHScrollbar false) (alwaysShowConnectionVocabulary false) (alwaysShowHScrollbar false) (alwaysShowVScrollbar true) (ansiAssignmentOperatorWhenPrettyPrinting true) (areaFillsAreTolerant false) (areaFillsAreVeryTolerant false) (autoAccessors false) (automaticFlapLayout true) (automaticPlatformSettings true) (automaticViewerPlacement true) (balloonHelpEnabled true) (balloonHelpInMessageLists false) (batchPenTrails false) (biggerCursors true) (browserNagIfNoClassComment true) (browserShowsPackagePane false) (browseWithPrettyPrint false) (capitalizedReferences true) (caseSensitiveFinds false) (cautionBeforeClosing false) (celesteHasStatusPane false) (celesteShowsAttachmentsFlag false) (changeSetVersionNumbers true) (checkForSlips true) (checkForUnsavedProjects true) (classicNewMorphMenu false) (clickOnLabelToEdit false) (cmdDotEnabled true) (collapseWindowsInPlace false) (colorWhenPrettyPrinting false) (compressFlashImages false) (confirmFirstUseOfStyle true) (conversionMethodsAtFileOut false) (cpuWatcherEnabled false) (debugHaloHandle false) (debugPrintSpaceLog false) (debugShowDamage false) (decorateBrowserButtons true) (defaultFileOutFormatMacRoman false) (diffsInChangeList true) (diffsWithPrettyPrint false) (dismissAllOnOptionClose false) (dismissEventTheatreUponPublish true) (dragNDropWithAnimation false) (dropProducesWatcher true) (duplicateControlAndAltKeys false) (easySelection false) (enableInternetConfig false) (enablePortraitMode false) (enableVirtualOLPCDisplay false) (expandedPublishing true) (extractFlashInHighestQuality false) (extractFlashInHighQuality true) (fastDragWindowForMorphic true) (fenceEnabled true) (fenceSoundEnabled false) (fullScreenLeavesDeskMargins true) (gradientScrollBars true) (haloEnclosesFullBounds false) (higherPerformance false) (ignoreStyleIfOnlyBold true) (implicitSelfInTiles false) (inboardScrollbars true) (infiniteUndo false) (keepTickingWhilePainting false) (logDebuggerStackToFile true) (menuButtonInToolPane false) (menuColorFromWorld false) (menuWithIcons true) (morphicProgressStyle true) (mouseOverForKeyboardFocus false) (navigatorOnLeftEdge true) (noviceMode false) (okToReinitializeFlaps true) (oliveHandleForScriptedObjects false) (optionalButtons true) (passwordsOnPublish false) (personalizedWorldMenu true) (postscriptStoredAsEPS false) (printAlternateSyntax false) (projectsSentToDisk false) (projectZoom true) (readDocumentAtStartup true) (restartAlsoProceeds false) (reverseWindowStagger true) (rotationAndScaleHandlesInPaintBox false) (scrollBarsNarrow false) (scrollBarsOnRight true) (scrollBarsWithoutMenuButton false) (selectionsMayShrink true) (selectiveHalos true) (showAdvancedNavigatorButtons false) (showBoundsInHalo false) (showDeprecationWarnings false) (showFlapsWhenPublishing false) (showLinesInHierarchyViews true) (showSharedFlaps true) (signProjectFiles true) (simpleMenus false) (slideDismissalsToTrash true) (smartUpdating true) (soundsEnabled true) (sugarNavigator true) (swapMouseButtons false) (systemWindowEmbedOK false) (tabAmongFields true) (testRunnerShowAbstractClasses false) (thoroughSenders true) (tileTranslucentDrag true) (timeStampsInMenuTitles true) (translationWithBabel false) (turnOffPowerManager false) (twentyFourHourFileStamps true) (twoSidedPoohTextures true) (typeCheckingInTileScripting true) (unifyNestedProgressBars true) (uniTilesClassic true) (universalTiles false) (updateFromServerAtStartup false) (updateSavesFile false) (useButtonProprtiesToFire false) (useFileList2 true) (useSmartLabels false) (useUndo true) (useVectorVocabulary false) (viewersInFlaps true) (warnIfNoChangesFile false) (warnIfNoSourcesFile false) (warningForMacOSFileNameLength false) (wordStyleCursorMovement true) ). Preferences setPreference: #haloTheme toValue: #iconicHaloSpecifications. ! ! !Preferences class methodsFor: 'themes' stamp: 'yo 12/4/2007 16:54'! chicago "A theme for Squeakland project" "Preferences chicago" self cambridge. self setPreferencesFrom: #( (biggerHandles false) (biggerCursors false) "(magicHalos true)" (sugarNavigator true) (swapControlAndAltKeys false) (swapMouseButtons true) (unlimitedPaintArea true) (useArtificialSweetenerBar true) (useBiggerPaintingBox false) "(updateFromServerAtStartup false)" ).! ! !ReleaseBuilderSqueakland methodsFor: 'utilities' stamp: 'yo 12/4/2007 12:42'! finalCleanupForSqueakland "ReleaseBuilderSqueakland new finalCleanupForSqueakland" Smalltalk condenseChanges. Preferences disable: #warnIfNoChangesFile. Preferences disable: #warnIfChangesFileReadOnly. Preferences disable: #warnIfNoSourcesFile. Smalltalk zapAllOtherProjects. super finalCleanup. ! ! !ReleaseBuilderSqueakland methodsFor: 'olpc' stamp: 'yo 12/4/2007 12:27'! cleanupForOLPC "Perform various image cleanups in preparation for making an OLPC Etoys image." "ReleaseBuilderSqueakland new cleanupForOLPC" self initialCleanup; finalStripping; installReleaseSpecificsForOLPC; finalCleanupForOLPC. Preferences cambridge. Display isVirtualScreen ifTrue: [ OLPCVirtualScreen unInstall ]. Display newDepth: 16. Project current displayDepth: 16. PartsBin rebuildIconsWithProgress. ! ! !ReleaseBuilderSqueakland methodsFor: 'squeakland' stamp: 'yo 12/4/2007 16:53'! cleanupForSqueakland "Perform various image cleanups in preparation for making a Squeakland OLPC image." "ReleaseBuilderSqueakland new cleanupForSqueakland" self initialCleanup; finalStripping; installReleaseSpecificsForSqueakland; finalCleanupForSqueakland. Preferences chicago. Display isVirtualScreen ifTrue: [ OLPCVirtualScreen unInstall ]. Display newDepth: 16. Project current displayDepth: 16. PartsBin rebuildIconsWithProgress. ! ! !SugarNavigatorBar methodsFor: 'initialization' stamp: 'yo 12/4/2007 16:59'! configureForSqueakland self owner setEdge: #bottom. self naviHeight: 40. self color: Color orange darker highLightColor: Color orange lighter. ! ! !SugarNavigatorBar methodsFor: 'initialization' stamp: 'yo 12/4/2007 16:01'! makeTheButtons ^ Preferences useArtificialSweetenerBar ifTrue: [self makeTheSimpleButtonsSqueakland] ifFalse: [self makeTheSimpleButtons]. ! ! !SugarNavigatorBar methodsFor: 'initialization' stamp: 'yo 12/4/2007 16:57'! makeTheSimpleButtonsSqueakland "Add the buttons for use in normal kids' mode." ^ {self buttonHelp}, { 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 buttonNewProject. self buttonFind. self buttonPublish. self buttonStop. } ! ! !SugarNavigatorBar class methodsFor: 'utilitity' stamp: 'yo 12/4/2007 16:08'! configureCurrentForSqueakland SugarNavigatorBar current ifNotNilDo: [:bar | bar configureForSqueakland]. ! ! "Postscript: " Preferences addBooleanPreference: #useArtificialSweetenerBar categories: #('flaps') default: false balloonHelp: 'governs if the bar-style navigator is shown at the bottom, orange-colored and narrow.' !