Squeak-dev November 2009

squeak-dev@lists.squeakfoundation.org

89 participants
351 discussions

The Trunk: System-dtl.181.mcz
by commits＠source.squeak.org 28 Nov '09

28 Nov '09

David T. Lewis uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-dtl.181.mcz ==================== Summary ==================== Name: System-dtl.181 Author: dtl Time: 28 November 2009, 6:23:28 am UUID: cd5e027f-af69-42b3-a6bc-47e49e1b5af8 Ancestors: System-kb.180 Update project class>>deletingProject: to remove explicit dependency on ProjectViewMorph =============== Diff against System-kb.180 =============== Item was changed: ----- Method: Project class>>deletingProject: (in category 'utilities') ----- deletingProject: outgoingProject + | pvmClass | + pvmClass := Smalltalk at: #ProjectViewMorph ifAbsent: [nil]. ImageSegment allSubInstancesDo: [:seg | seg ifOutPointer: outgoingProject thenAllObjectsDo: [:obj | + (obj isKindOf: pvmClass) ifTrue: [obj deletingProject: outgoingProject. obj abandon]. - (obj isKindOf: ProjectViewMorph) ifTrue: [ - obj deletingProject: outgoingProject. obj abandon]. (obj isKindOf: Project) ifTrue: [obj deletingProject: outgoingProject]]]. + self allProjects do: [:p | p deletingProject: outgoingProject]. "ones that are in" + pvmClass ifNotNil: [ + pvmClass allSubInstancesDo: [:p | + p deletingProject: outgoingProject. + p project == outgoingProject ifTrue: [p abandon]]]. - Project allProjects do: [:p | p deletingProject: outgoingProject]. "ones that are in" - ProjectViewMorph allSubInstancesDo: [:p | - p deletingProject: outgoingProject. - p project == outgoingProject ifTrue: [p abandon]]. - AllProjects := self allProjects copyWithout: outgoingProject.!

1 0

The Trunk: Morphic-ar.257.mcz
by commits＠source.squeak.org 28 Nov '09

28 Nov '09

Andreas Raab uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ar.257.mcz ==================== Summary ==================== Name: Morphic-ar.257 Author: ar Time: 28 November 2009, 11:18:18 am UUID: 2961b22d-c091-8142-8afe-9ee419f7e90b Ancestors: Morphic-ar.256 More complete menus. Should be close to using it without the world menu now. =============== Diff against Morphic-ar.256 =============== Item was added: + ----- Method: TheWorldMainDockingBar>>startMessageTally (in category 'menu actions') ----- + startMessageTally + (self confirm: 'MessageTally will start now, + and stop when the cursor goes + to the top of the screen') ifTrue: + [MessageTally spyOn: + [[Sensor peekMousePt y > 0] whileTrue: [World doOneCycle]]]! Item was added: + ----- Method: TheWorldMainDockingBar>>simpleChangeSorterMenuItemOn: (in category 'submenu - tools') ----- + simpleChangeSorterMenuItemOn: menu + + menu addItem: [ :item | + item + contents: 'Simple Change Sorter' translated; + help: 'Open a Change Sorter' translated; + icon: (self colorIcon: ChangeSorter basicNew defaultBackgroundColor); + target: ChangeSorter; + selector: #open ]! Item was changed: ----- Method: TheWorldMainDockingBar class>>initialize (in category 'class initialization') ----- initialize " self initialize " Locale addLocalChangedListener: self. self updateInstances.! Item was added: + ----- Method: TheWorldMainDockingBar>>vmStatistics (in category 'menu actions') ----- + vmStatistics + "Open a string view on a report of vm statistics" + + (StringHolder new contents: SmalltalkImage current vmStatisticsReportString) + openLabel: 'VM Statistics'! Item was changed: ----- Method: TheWorldMainDockingBar>>toolsMenuOn: (in category 'construction') ----- toolsMenuOn: aDockingBar aDockingBar addItem: [ :item | item contents: 'Tools' translated; addSubMenu: [ :menu | self browserMenuItemOn: menu; workspaceMenuItemOn: menu; transcriptMenuItemOn: menu; testRunnerMenuItemOn: menu. menu addLine. self monticelloBrowserMenuItemOn: menu; + monticelloConfigurationsMenuItemOn: menu; + simpleChangeSorterMenuItemOn: menu; + dualChangeSorterMenuItemOn: menu. + menu addLine. + self + processBrowserMenuItemOn: menu; + preferenceBrowserMenuItemOn: menu; + fileListMenuItemOn: menu. + ] ]! - fileListMenuItemOn: menu ] ]! Item was added: + ----- Method: TheWorldMainDockingBar>>extrasMenuOn: (in category 'construction') ----- + extrasMenuOn: aDockingBar + + aDockingBar addItem: [ :it| + it contents: 'Extras' translated; + addSubMenu: [:menu| + menu addItem:[:item| + item + contents: 'Recover Changes' translated; + help: 'Recover changes after a crash' translated; + icon: MenuIcons smallHelpIcon; + target: ChangeList; + selector: #browseRecentLog]. + menu addLine. + menu addItem:[:item| + item + contents: 'Set Author Initials' translated; + help: 'Sets the author initials' translated; + target: Utilities; + selector: #setAuthorInitials]. + menu addItem:[:item| + item + contents: 'Restore Display (r)' translated; + help: 'Redraws the entire display' translated; + target: World; + selector: #restoreMorphicDisplay]. + menu addItem:[:item| + item + contents: 'Rebuild Menus' translated; + help: 'Rebuilds the menu bar' translated; + target: TheWorldMainDockingBar; + selector: #updateInstances]. + menu addLine. + menu addItem:[:item| + item + contents: 'Start Profiler' translated; + help: 'Starts the profiler' translated; + target: self; + selector: #startMessageTally]. + menu addItem:[:item| + item + contents: 'Collect Garbage' translated; + help: 'Run the garbage collector and report space usage' translated; + target: Utilities; + selector: #garbageCollectAndReport]. + menu addItem:[:item| + item + contents: 'VM statistics' translated; + help: 'Virtual Machine information' translated; + target: self; + selector: #vmStatistics]. + ] ]! Item was added: + ----- Method: TheWorldMainDockingBar>>preferenceBrowserMenuItemOn: (in category 'submenu - tools') ----- + preferenceBrowserMenuItemOn: menu + + menu addItem: [ :item | + item + contents: 'Preferences' translated; + help: 'Open a Preferences Browser' translated; + icon: (self colorIcon: PreferenceBrowser basicNew defaultBackgroundColor); + target: PreferenceBrowser; + selector: #open ]! Item was changed: ----- Method: TheWorldMainDockingBar>>menusOn: (in category 'construction') ----- menusOn: aDockingBar self squeakMenuOn: aDockingBar; projectsMenuOn: aDockingBar; toolsMenuOn: aDockingBar; + extrasMenuOn: aDockingBar; windowsMenuOn: aDockingBar; helpMenuOn: aDockingBar! Item was added: + ----- Method: TheWorldMainDockingBar>>dualChangeSorterMenuItemOn: (in category 'submenu - tools') ----- + dualChangeSorterMenuItemOn: menu + + menu addItem: [ :item | + item + contents: 'Dual Change Sorter' translated; + help: 'Open a Dual Change Sorter' translated; + icon: (self colorIcon: ChangeSorter basicNew defaultBackgroundColor); + target: DualChangeSorter; + selector: #open ]! Item was added: + ----- Method: TheWorldMainDockingBar>>processBrowserMenuItemOn: (in category 'submenu - tools') ----- + processBrowserMenuItemOn: menu + + menu addItem: [ :item | + item + contents: 'Process Browser' translated; + help: 'Open a Process Browser' translated; + icon: (self colorIcon: ProcessBrowser basicNew defaultBackgroundColor); + target: ProcessBrowser; + selector: #open ]! Item was added: + ----- Method: TheWorldMainDockingBar>>monticelloConfigurationsMenuItemOn: (in category 'submenu - tools') ----- + monticelloConfigurationsMenuItemOn: menu + + menu addItem: [ :item | + item + contents: 'Monticello Configurations' translated; + help: 'Open a Monticello Configurations Editor' translated; + icon: (self colorIcon: MCConfigurationBrowser basicNew defaultBackgroundColor); + target: MCConfigurationBrowser; + selector: #open ]!

1 0

The Trunk: Morphic-ar.256.mcz
by commits＠source.squeak.org 28 Nov '09

28 Nov '09

Andreas Raab uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ar.256.mcz ==================== Summary ==================== Name: Morphic-ar.256 Author: ar Time: 28 November 2009, 10:11:02 am UUID: 8ee892cd-635e-f74f-aafb-4a9b277b423b Ancestors: Morphic-kb.255 Some help menu options: - Online resources - Keyboard shortcuts =============== Diff against Morphic-kb.255 =============== Item was changed: ----- Method: TheWorldMainDockingBar class>>initialize (in category 'class initialization') ----- initialize " self initialize " Locale addLocalChangedListener: self. + self updateInstances.! - self updateInstances! Item was added: + ----- Method: TheWorldMainDockingBar>>showSqueakResources (in category 'menu actions') ----- + showSqueakResources + ^(StringHolder new contents: + 'Squeak web sites: + http://www.squeak.org - The main Squeak site. + http://news.squeak.org - The Weekly Squeak + http://board.squeak.org - The Squeak Oversight Board + http://ftp.squeak.org - Downloads for many Squeak versions. + http://squeakvm.org - Development of the Squeak virtual machine + + Squeak-dev - The main Squeak mailing list. + http://lists.squeakfoundation.org/mailman/listinfo/squeak-dev + http://dir.gmane.org/gmane.comp.lang.smalltalk.squeak.general + http://n4.nabble.com/Squeak-Dev-f45488.html + + Squeak-Beginners - The place to ask even the most basic questions. + http://lists.squeakfoundation.org/mailman/listinfo/beginners + http://dir.gmane.org/gmane.comp.lang.smalltalk.squeak.beginners + http://n4.nabble.com/Squeak-Beginners-f107673.html + + Squeak By Example: + http://www.squeakbyexample.org/ + + Squeak, Open Personal Computing and Multimedia (The NuBlue Book - Draft): + http://coweb.cc.gatech.edu/squeakbook/ + http://stephane.ducasse.free.fr/FreeBooks/CollectiveNBlueBook/ + + Squeak, Open Personal Computing for Multimedia (The White Book - Draft): + http://www.cc.gatech.edu/~mark.guzdial/drafts/ + http://stephane.ducasse.free.fr/FreeBooks/GuzdialBookDrafts/ + + More Books about Squeak and Smalltalk: + http://stephane.ducasse.free.fr/FreeBooks.html + + ') openLabel: 'Squeak Online Resources'! Item was changed: ----- Method: TheWorldMainDockingBar>>helpMenuOn: (in category 'construction') ----- helpMenuOn: aDockingBar + aDockingBar addItem: [ :it | + it contents: 'Help' translated; + addSubMenu: [ :menu | 'Todo'. + menu addItem:[:item| + item + contents: 'Online Resources' translated; + help: 'Online resources for Squeak' translated; + target: self; + selector: #showSqueakResources ]. + menu addItem:[:item| + item + contents: 'Keyboard Shortcuts' translated; + help: 'Keyboard bindings used in Squeak' translated; + target: Utilities; + selector: #openCommandKeyHelp ]. + ]].! - aDockingBar addItem: [ :item | - item - contents: 'Help' translated; - help: 'Todo' ]!

1 0

The Trunk: Morphic-kb.255.mcz
by commits＠source.squeak.org 28 Nov '09

28 Nov '09

Andreas Raab uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-kb.255.mcz ==================== Summary ==================== Name: Morphic-kb.255 Author: kb Time: 28 November 2009, 3:17:35 am UUID: d6d55229-7919-7549-b367-dc7f20d5db58 Ancestors: Morphic-dtl.252 - Removal of TheWorldMainDockingBarOld. Cleaning up references in the preamble. Load System-kb.180 before. =============== Diff against Morphic-dtl.252 =============== Item was changed: Item was removed: - ----- Method: TheWorldMainDockingBarOld>>createButtonIcon:help:selector: (in category 'private - buttons') ----- - createButtonIcon: aFormOrMorph help: helpStringOrNil selector: selector - "Private - Creates a button to fire an action from a docking bar" - | button icon | - button := RectangleMorph new. - button extent: aFormOrMorph extent + 2. - button borderWidth: 0. - button color: self offColor. - helpStringOrNil isNil - - ifFalse: [button setBalloonText: helpStringOrNil translated]. - "" - icon := aFormOrMorph isMorph - ifTrue: [aFormOrMorph] - ifFalse: [SketchMorph withForm: aFormOrMorph]. - button addMorphCentered: icon. - "" - button - on: #mouseDown - send: #perform:event:for: - to: self - withValue: selector. - button - on: #mouseEnter - send: #colorOnEvent:for: - to: self. - button - on: #mouseLeave - send: #colorOffEvent:for: - to: self. - "" - ^ button! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>offColor (in category 'private - buttons') ----- - offColor - "Private - answer the off color" - ^ Color black alpha: 0.01! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>hideAllViewersIn: (in category 'menu actions') ----- - hideAllViewersIn: aMorph - aMorph isFlapTab - ifTrue: [self hideAllViewersIn: aMorph referent]. - aMorph - submorphsDo: [:each | "" - ({ScriptEditorMorph. StandardViewer} includes: each class) - ifTrue: [each dismiss] - ifFalse: [self hideAllViewersIn: each]]! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>changeSoundVolume (in category 'menu actions') ----- - changeSoundVolume - self notYetImplemented! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>volumeIcon (in category 'private - icons') ----- - volumeIcon - ^ Preferences tinyDisplay - ifTrue: [MenuIcons smallVolumeIcon] - ifFalse: [MenuIcons volumeIcon]! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>publishProject (in category 'menu actions') ----- - publishProject - self - publishStyle: #limitedSuperSwikiPublishDirectoryList - forgetURL: false - withRename: false! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>nextProject (in category 'menu actions') ----- - nextProject - Project advanceToNextProject. - Beeper beep! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>appearance (in category 'menu actions') ----- - appearance - self worldMenu appearanceMenu popUpInWorld ! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>windows (in category 'menu actions') ----- - windows - self worldMenu windowsMenu popUpInWorld! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>switchToExpertMode (in category 'menu actions') ----- - switchToExpertMode - | ok | - ok := self confirm: 'CAUTION!! - The expert mode is powerful as well as dangerous and you can break your Squeak in several ways. - Are you sure to switch to expert mode?' translated. - ok - ifFalse: [^ self]. - "" - Preferences enable: #cmdGesturesEnabled. - Preferences enable: #debugHaloHandle. - Preferences disable: #noviceMode. - ! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>createButtonIcon:selector: (in category 'private - buttons') ----- - createButtonIcon: aFormOrMorph selector: selector - "Private - Creates a button to fire an action from a docking bar" - ^ self - createButtonIcon: aFormOrMorph - help: nil - selector: selector! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>setColorTheme (in category 'menu actions') ----- - setColorTheme - SmallLandColorTheme chooseTheme. ! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>showAllViewers (in category 'menu actions') ----- - showAllViewers - self world showAllPlayers! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>fillMenuItemsBar: (in category 'construction') ----- - fillMenuItemsBar: aDockingBar - "Private - fill the given docking bar" - | squeakIcon homeIcon configurationIcon helpIcon squeakLabel projectLabel configurationLabel helpLabel | - (aDockingBar isDockingBar not - or: [Preferences tinyDisplay]) - ifTrue: ["" - squeakIcon := MenuIcons smallSqueakIcon. - homeIcon := MenuIcons smallHomeIcon. - configurationIcon := MenuIcons smallConfigurationIcon. - helpIcon := MenuIcons smallHelpIcon] - ifFalse: ["" - squeakIcon := MenuIcons squeakIcon. - homeIcon := MenuIcons homeIcon. - configurationIcon := MenuIcons configurationIcon. - helpIcon := MenuIcons helpIcon]. - "" - Preferences tinyDisplay - ifTrue: ["" - squeakLabel := '' . - projectLabel := '' . - configurationLabel := '' . - helpLabel := '' ] - ifFalse: ["" - squeakLabel := 'Squeak' translated. - projectLabel := 'Project' translated. - configurationLabel := 'Configuration' translated. - helpLabel := 'Help' translated]. - "" - aDockingBar - add: squeakLabel - icon: squeakIcon - help: 'Options related to Squeak as a whole' translated - subMenu: self squeakMenu. - aDockingBar - add: projectLabel - icon: homeIcon - help: 'Options to open things in the current project or to navigate between projects' translated - subMenu: self projectMenu. - aDockingBar - add: configurationLabel - icon: configurationIcon - help: 'Options to configure Squeak' translated - subMenu: self configurationMenu. - aDockingBar - add: helpLabel - icon: helpIcon - help: 'Helpful options or options to get help' translated - subMenu: self helpMenu! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>forwardIcon (in category 'private - icons') ----- - forwardIcon - ^ Preferences tinyDisplay - ifTrue: [MenuIcons smallForwardIcon] - ifFalse: [MenuIcons forwardIcon]! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>objectsIcon (in category 'private - icons') ----- - objectsIcon - ^ Preferences tinyDisplay - ifTrue: [MenuIcons smallObjectsIcon] - ifFalse: [MenuIcons objectsIcon]! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>clearTurtleTrails (in category 'menu actions') ----- - clearTurtleTrails - self world clearTurtleTrails! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>paintIcon (in category 'private - icons') ----- - paintIcon - ^ Preferences tinyDisplay - ifTrue: [MenuIcons smallPaintIcon] - ifFalse: [MenuIcons paintIcon]! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>about (in category 'menu actions') ----- - about - - ! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>createDockingBar (in category 'construction') ----- - createDockingBar - "Create a docking bar from the receiver's representation" - | dockingBar | - dockingBar := DockingBarMorph new. - dockingBar adhereToTop. - dockingBar color: ColorTheme current dockingBarColor. - dockingBar gradientRamp: ColorTheme current dockingBarGradientRamp. - dockingBar autoGradient: ColorTheme current dockingBarAutoGradient. - "" - self fillDockingBar: dockingBar. - "" - ^ dockingBar! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>findAnyFile (in category 'menu actions') ----- - findAnyFile - FileList2 morphicViewGeneralLoaderInWorld: self world! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>hideAllViewers (in category 'menu actions') ----- - hideAllViewers - self hideAllViewersIn: self world! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>exitFromFullScreen (in category 'menu actions') ----- - exitFromFullScreen - self toggleFullScreen! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>saveAsNewVersionMenuItem (in category 'construction - submenus') ----- - saveAsNewVersionMenuItem - - ^{ 'Save As New Version'. - 'Save the current state of Squeak on disk under a version-stamped name'. - MenuIcons smallSaveAsIcon. - #saveAsNewVersion }! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>viewObjectsHierarchy (in category 'menu actions') ----- - viewObjectsHierarchy - "self world findWindow: nil" - MorphHierarchy openOrDelete! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>squeakLogoIcon (in category 'private - icons') ----- - squeakLogoIcon - - ^MenuIcons squeakLogoIcon! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>openIcon (in category 'private - icons') ----- - openIcon - ^ Preferences tinyDisplay - ifTrue: [MenuIcons smallOpenIcon] - ifFalse: [MenuIcons openIcon]! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>jumpIcon (in category 'private - icons') ----- - jumpIcon - ^ Preferences tinyDisplay - ifTrue: [MenuIcons smallJumpIcon] - ifFalse: [MenuIcons jumpIcon]! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>projectMenu (in category 'construction - submenus') ----- - projectMenu - | menu | - menu := MenuMorph new defaultTarget: self. - "" - Preferences noviceMode - ifFalse: ["" - self createMenuItem: {'open...'. nil. MenuIcons smallOpenIcon} on: menu. - self createMenuItem: {'windows...'. nil. MenuIcons smallWindowIcon} on: menu. - menu addLine]. - "" - self createMenuItem: {'previous project'. 'Return to the most recently visited project'. MenuIcons smallBackIcon} on: menu. - self createMenuItem: {'jump to project...'. 'Put up a list of all projects, letting me choose one to go to'. MenuIcons smallJumpIcon} on: menu. - self createMenuItem: {'next project'. 'Go to next project'. MenuIcons smallForwardIcon} on: menu. - menu addLine. - self createMenuItem: {'find any file'. 'Import a file into Squeak'. MenuIcons smallOpenIcon} on: menu. - self createMenuItem: {'find a project'. 'Open a project into Squeak'. MenuIcons smallLoadProjectIcon} on: menu. - menu addLine. - self createMenuItem: {'new project'. 'Start a new project'. MenuIcons smallProjectIcon} on: menu. - self createMenuItem: {'make new drawing'. 'Make a painting'. MenuIcons smallPaintIcon} on: menu. - self createMenuItem: {'object catalog (o)'. 'A tool for finding and obtaining many kinds of objects'. MenuIcons smallObjectCatalogIcon} on: menu. - menu addLine. - self createMenuItem: {'object from paste buffer'. 'Create a new object from paste buffer'. MenuIcons smallPasteIcon} on: menu. - Preferences useUndo - ifTrue: ["" - Preferences infiniteUndo - ifTrue: ["" - menu - addUpdating: #undoMenuWording - target: self commandHistory - action: #undoLastCommand. - menu - addUpdating: #redoMenuWording - target: self commandHistory - action: #redoNextCommand] - ifFalse: ["" - menu - addUpdating: #undoOrRedoMenuWording - target: self commandHistory - action: #undoOrRedoCommand]]. - menu addLine. - self createMenuItem: {'view objects hierarchy'. 'A tool for discovering the objects and the relations between them'. MenuIcons smallObjectsIcon} on: menu. - menu addLine. - self createMenuItem: {'publish project'. 'Publish the current project'. MenuIcons smallPublishIcon} on: menu. - "" - ^ menu! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>jumpToProject (in category 'menu actions') ----- - jumpToProject - Project current jumpToProject! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>saveAndQuit (in category 'menu actions') ----- - saveAndQuit - SmalltalkImage current snapshot: true andQuit: true! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>projectIcon (in category 'private - icons') ----- - projectIcon - ^ Preferences tinyDisplay - ifTrue: [MenuIcons smallProjectIcon] - ifFalse: [MenuIcons projectIcon]! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>viewSelectedObject (in category 'menu actions') ----- - viewSelectedObject - | selected menu | - selected := self world selectedObject. - selected isNil - ifTrue: [^ self viewObjectsHierarchy]. - "" - menu := selected buildYellowButtonMenu: ActiveHand. - menu - addTitle: selected externalName - icon: (selected iconOrThumbnailOfSize: (Preferences tinyDisplay ifTrue: [16] ifFalse: [28])). - menu popUpInWorld: selected currentWorld! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>setWorldColor (in category 'menu actions') ----- - setWorldColor - | world | - world := self world. - world - changeColorTarget: world - selector: #color: - originalColor: world color - hand: world activeHand! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>findAProject (in category 'menu actions') ----- - findAProject - FileList2 - morphicViewProjectLoader2InWorld: self world - reallyLoad: true - dirFilterType: #limitedSuperSwikiDirectoryList! Item was removed: - ----- Method: TheWorldMainDockingBarOld class>>showWorldMainDockingBar: (in category 'preferences') ----- - showWorldMainDockingBar: aBoolean - - Project current showWorldMainDockingBar: aBoolean! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>purgeUndoRecords (in category 'menu actions') ----- - purgeUndoRecords - CommandHistory resetAllHistory! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>previousProject (in category 'menu actions') ----- - previousProject - - Project returnToPreviousProject. - Project current exit. "go to parent if no previous" - Beeper beep.! Item was removed: - ----- Method: TheWorldMainDockingBarOld class>>localeChanged (in category 'as yet unclassified') ----- - localeChanged - self updateInstances! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>importFile (in category 'menu actions') ----- - importFile - self findAnyFile! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>publishIcon (in category 'private - icons') ----- - publishIcon - ^ Preferences tinyDisplay - ifTrue: [MenuIcons smallPublishIcon] - ifFalse: [MenuIcons publishIcon]! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>openDockingBar (in category 'construction') ----- - openDockingBar - ^ self createDockingBar openInWorld ! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>objectFromPasteBuffer (in category 'menu actions') ----- - objectFromPasteBuffer - ActiveHand pasteMorph! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>createMenuItem:on: (in category 'private') ----- - createMenuItem: triplet on: menu - | wording help selectorOrMenu | - wording := triplet first. - help := triplet second. - selectorOrMenu := triplet size > 3 - ifTrue: [triplet fourth] - ifFalse: [self selectorForWording: wording]. - "" - selectorOrMenu isSymbol - ifTrue: ["" - menu - add: wording translated - target: self - selector: selectorOrMenu] - ifFalse: [menu add: wording translated subMenu: selectorOrMenu]. - "" - help isNil - ifFalse: [menu lastItem setBalloonText: help translated]."" - Preferences tinyDisplay - ifFalse: [triplet size > 2 - ifTrue: [menu lastItem icon: triplet third]]! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>saveAndQuitMenuItem (in category 'construction - submenus') ----- - saveAndQuitMenuItem - - ^{ 'Save And Quit'. - 'Save the current state of Squeak on disk, and quit out of Squeak'. - MenuIcons smallQuitIcon. - #saveAndQuit }! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>objectCatalog (in category 'menu actions') ----- - objectCatalog - self activateObjectsTool! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>setLanguage (in category 'menu actions') ----- - setLanguage - Project current chooseNaturalLanguage ! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>gradientRamp (in category 'construction') ----- - gradientRamp - - ^{ - 0.0 -> Color white. - 1.0 -> Preferences menuColor }! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>publishStyle:forgetURL:withRename: (in category 'menu actions') ----- - publishStyle: aSymbol forgetURL: aBoolean withRename: renameBoolean - - | w primaryServer rename | - - w := self world ifNil: [^Beeper beep]. - w setProperty: #SuperSwikiPublishOptions toValue: aSymbol. - - primaryServer := w project primaryServerIfNil: [nil]. - rename := ((primaryServer notNil - and: [primaryServer acceptsUploads]) not) - or: [renameBoolean]. - w setProperty: #SuperSwikiRename toValue: rename. - - w project - storeOnServerShowProgressOn: self - forgetURL: aBoolean | rename. - ! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>quitMenuItem (in category 'construction - submenus') ----- - quitMenuItem - - ^{ 'Quit'. - 'Quit out of Squeak'. - MenuIcons smallQuitIcon. - #quit }! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>switchToNoviceMode (in category 'menu actions') ----- - switchToNoviceMode - Preferences disable: #cmdGesturesEnabled. - Preferences disable: #debugHaloHandle. - Preferences enable: #noviceMode. - ! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>preferences (in category 'menu actions') ----- - preferences - PreferenceBrowser open! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>selectorForWording: (in category 'private') ----- - selectorForWording: aString - "Private - Create a valid smalltalk selector from an english - wording. - 'foo' -> #foo - 'foo....' -> #foo - 'foo bar' -> #fooBar - 'foo bar (f)' - #fooBar - " - | words selector temp | - temp := aString. - ('*(*)*' match: temp) - ifTrue: [| pre post | - pre := temp copyUpTo: $(. - post := temp copyAfterLast: $). - temp := pre , post]. - "" - temp := temp - collect: [:each | "" - each isLetter - ifTrue: [each] - ifFalse: [Character space]]. - words := temp subStrings: Character separators. - selector := String - streamContents: [:stream | "" - words - do: [:word | stream nextPutAll: word capitalized]]. - selector at: 1 put: selector first asLowercase. - "" - ^ selector asSymbol! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>switchToFullScreen (in category 'menu actions') ----- - switchToFullScreen - self toggleFullScreen! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>aboutMenuItem (in category 'construction - submenus') ----- - aboutMenuItem - - ^{ 'About Squeak...'. - nil. - nil. - #about }! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>quit (in category 'menu actions') ----- - quit - Preferences readOnlyMode - ifTrue: [""(self confirm: 'REALLY quit Squeak?' translated) - ifTrue: [SmalltalkImage current snapshot: false andQuit: true]] - ifFalse: [| saveBeforeQuitting | - saveBeforeQuitting := self - confirm: 'Save changes before quitting?' translated - orCancel: [^ self]. - SmalltalkImage current snapshot: saveBeforeQuitting andQuit: true]! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>squeakMenu (in category 'construction - submenus') ----- - squeakMenu - | menu | - menu := MenuMorph new defaultTarget: self. - "" - " - menu add: 'configuration...' translated subMenu: self - configurationMenu. menu lastItem icon: MenuIcons - smallConfigurationIcon. menu addLine. - " - Preferences readOnlyMode ifFalse:["" - self createMenuItem: {'save'. 'Save the current state of Squeak on disk'. MenuIcons smallSaveIcon} on: menu. - self createMenuItem: {'save as...'. 'Save the current state of Squeak on disk under a new name'. MenuIcons smallSaveAsIcon} on: menu. - Preferences noviceMode - ifFalse: ["" - self createMenuItem: {'save as new version'. 'Save the current state of Squeak on disk under a version-stamped name'. MenuIcons smallSaveAsIcon} on: menu]. - menu addLine. - self createMenuItem: {'save and quit'. 'Save the current state of Squeak on disk, and quit out of Squeak'. MenuIcons smallQuitIcon} on: menu]. - self createMenuItem: {'quit'. 'Quit out of Squeak'. MenuIcons smallQuitIcon} on: menu. - "" - ^ menu! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>squeakLogoInvertedIcon (in category 'private - icons') ----- - squeakLogoInvertedIcon - - ^MenuIcons squeakLogoInvertedIcon! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>updateIfNeeded: (in category 'private') ----- - updateIfNeeded: aDockingBar - "Update the given docking bar if needed" - | timeStamp | - timeStamp := aDockingBar - valueOfProperty: #mainDockingBarTimeStamp - ifAbsent: [^ self]. - timeStamp = self class timeStamp - ifTrue: [^ self]. - "" - aDockingBar removeAllMorphs. - self fillDockingBar: aDockingBar! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>worldMenu (in category 'private') ----- - worldMenu - ^ TheWorldMenu new - world: self world - project: Project current - hand: self world activeHand; yourself! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>colorOffEvent:for: (in category 'private - buttons') ----- - colorOffEvent: anEvent for: aMorph - "Private - gives an off-color to the given morph" - aMorph color: self offColor! Item was removed: - ----- Method: TheWorldMainDockingBarOld class>>initialize (in category 'class initialization') ----- - initialize - "Initialize the receiver" - Preferences - addPreference: #showWorldMainDockingBar - categories: #(#'docking bars' ) - default: true - balloonHelp: 'Whether world''s main docking bar should be shown or not.' - projectLocal: true - changeInformee: TheWorldMainDockingBar - changeSelector: #showWorldMainDockingBarPreferenceChanged. - "" - SystemChangeNotifier uniqueInstance noMoreNotificationsFor: self. - SystemChangeNotifier uniqueInstance - notify: self - ofSystemChangesOfItem: #method - using: #updateInstances:. - "" - Locale addLocalChangedListener: self. - self setTimeStamp! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>fullScreenIcon (in category 'private - icons') ----- - fullScreenIcon - ^ Preferences tinyDisplay - ifTrue: [MenuIcons smallFullScreenIcon] - ifFalse: [MenuIcons fullScreenIcon]! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>save (in category 'menu actions') ----- - save - SmalltalkImage current snapshot: true andQuit: false! Item was removed: - ----- Method: TheWorldMainDockingBarOld class>>showWorldMainDockingBar (in category 'preferences') ----- - showWorldMainDockingBar - - <preference: 'Show world main docking bar' - category: 'docking bars' - description: 'Whether world''s main docking bar should be shown or not.' - type: #Boolean> - ^Project current showWorldMainDockingBar! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>showWorldMainDockingBarString (in category 'menu actions') ----- - showWorldMainDockingBarString - ^ self world showWorldMainDockingBarString! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>helpMenu (in category 'construction - submenus') ----- - helpMenu - | menu | - menu := MenuMorph new defaultTarget: self. - "" - self createMenuItem: {'move objects onscreen'. 'Bring back all objects whose current coordinates keep them from being visible, so that at least a portion of each of my interior objects can be seen'} on: menu. - self createMenuItem: {'unhide hidden objects'. 'If any items on the world are currently hidden, make them visible'} on: menu. - menu addLine. - self createMenuItem: {'show all viewers'. 'Make visible the viewers for all objects which have user-written scripts in this playfield'} on: menu. - self createMenuItem: {'hide all viewers'. 'Make invisible the viewers for all objects in the world'} on: menu. - menu addLine. - self createMenuItem: {'clear turtle trails'. 'Remove any pigment laid down on the desktop by objects moving with their pens down'} on: menu. - " - menu addLine. - self createMenuItem: {'eToy vocabulary summary'. 'Displays a summary of all the pre-defined commands and properties in the pre-defined eToy vocabulary'} on: menu. - " - "" - ^ menu! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>backIcon (in category 'private - icons') ----- - backIcon - ^ Preferences tinyDisplay - ifTrue: [MenuIcons smallBackIcon] - ifFalse: [MenuIcons backIcon]! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>perform:event:for: (in category 'private - buttons') ----- - perform: selectorSymbol event: anEvent for: aMorph - "Private - perform the given selector" - aMorph color: self offColor. - self perform: selectorSymbol! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>objectCatalogIcon (in category 'private - icons') ----- - objectCatalogIcon - ^ Preferences tinyDisplay - ifTrue: [MenuIcons smallObjectCatalogIcon] - ifFalse: [MenuIcons objectCatalogIcon]! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>newProject (in category 'menu actions') ----- - newProject - MorphicProject openViewOn: nil! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>saveAs (in category 'menu actions') ----- - saveAs - SmalltalkImage current saveAs! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>activateObjectsTool (in category 'menu actions') ----- - activateObjectsTool - self world activateObjectsTool! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>toggleFullScreen (in category 'menu actions') ----- - toggleFullScreen - ScreenController lastScreenModeSelected - ifTrue: [ScreenController new fullScreenOff] - ifFalse: [ScreenController new fullScreenOn]. - self world positionSubmorphs. - self class updateInstances! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>eToyVocabularySummary (in category 'menu actions') ----- - eToyVocabularySummary - Cursor wait - showWhile: [self world printVocabularySummary]! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>onColor (in category 'private - buttons') ----- - onColor - "Private - answer the on color" - ^ (Preferences menuSelectionColor - ifNil: [Color blue]) - alpha: 0.4! Item was removed: - Object subclass: #TheWorldMainDockingBarOld - instanceVariableNames: 'icons' - classVariableNames: 'Instance TS' - poolDictionaries: '' - category: 'Morphic-Kernel'! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>loadProjectIcon (in category 'private - icons') ----- - loadProjectIcon - ^ Preferences tinyDisplay - ifTrue: [MenuIcons smallLoadProjectIcon] - ifFalse: [MenuIcons loadProjectIcon]! Item was removed: - ----- Method: TheWorldMainDockingBarOld class>>setTimeStamp (in category 'timestamping') ----- - setTimeStamp - "Change the receiver's timeStamp" - TS := UUID new! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>saveMenuItem (in category 'construction - submenus') ----- - saveMenuItem - - ^{ 'Save Image'. - 'Save the current state of Squeak on disk'. - MenuIcons smallSaveIcon. - #save }! Item was removed: - ----- Method: TheWorldMainDockingBarOld class>>showWorldMainDockingBarPreferenceChanged (in category 'preferences') ----- - showWorldMainDockingBarPreferenceChanged - "The preference #showWorldMainDockingBar has just - changed" - Project current showWorldMainDockingBar: Preferences showWorldMainDockingBar! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>toggleShowWorldMainDockingBar (in category 'menu actions') ----- - toggleShowWorldMainDockingBar - self world toggleShowWorldMainDockingBar! Item was removed: - ----- Method: TheWorldMainDockingBarOld class>>new (in category 'instance creation') ----- - new - "Singleton, use #instance" - ^ self error: 'Use #instance'! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>makeNewDrawing (in category 'menu actions') ----- - makeNewDrawing - self doNewPainting! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>updateFromServer (in category 'menu actions') ----- - updateFromServer - Smalltalk - at: #SmallLandTools - ifPresent: [:smallLandTools | smallLandTools instance updateFromSmallLandSwikiPage: #quick]! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>unhideHiddenObjects (in category 'menu actions') ----- - unhideHiddenObjects - self world showHiders! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>suppressFlapsString (in category 'menu actions') ----- - suppressFlapsString - "Answer the wording of the suppress-flaps item" - ^ Project current suppressFlapsString! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>doNewPainting (in category 'menu actions') ----- - doNewPainting - | w | - w := self world. - w - assureNotPaintingElse: [^ self]. - w - makeNewDrawing: (World primaryHand lastEvent copy setPosition: w center)! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>saveAsMenuItem (in category 'construction - submenus') ----- - saveAsMenuItem - - ^{ 'Save Image As...'. - 'Save the current state of Squeak on disk under a new name'. - MenuIcons smallSaveAsIcon. - #saveAs }! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>configurationMenu (in category 'construction - submenus') ----- - configurationMenu - | menu | - menu := MenuMorph new defaultTarget: self. - "" - self createMenuItem: {'set language...'. 'Choose the language in which Squeak should be displayed'. MenuIcons smallLanguageIcon} on: menu. - menu addLine. - self createMenuItem: {'update from server'. 'Update from server (Internet access is required)'. MenuIcons smallUpdateIcon} on: menu. - "" - menu addLine. - menu addUpdating: #showWorldMainDockingBarString action: #toggleShowWorldMainDockingBar. - Flaps sharedFlapsAllowed - ifTrue: [menu - addUpdating: #suppressFlapsString - target: Project current - action: #toggleFlapsSuppressed]. - menu addLine. - self createMenuItem: {'set world color...'. 'Choose a color to use as world background.'} on: menu. - ScreenController lastScreenModeSelected - ifTrue: [self createMenuItem: {'exit from full screen'. 'Exit from full screen and enclose Squeak in a window'. MenuIcons smallFullScreenIcon} on: menu] - ifFalse: [self createMenuItem: {'switch to full screen'. 'Switch to full screen giving the maximun display space to Squeak'. MenuIcons smallFullScreenIcon} on: menu]. - "" - self createMenuItem: {'change sound volume'. 'Change sound volume'. MenuIcons smallVolumeIcon} on: menu. - menu addLine. - Preferences noviceMode - ifFalse: ["" - Preferences useUndo - ifTrue: ["" - self createMenuItem: {'purge undo records'. 'Save space by removing all the undo information.'} on: menu. - menu addLine]. - self createMenuItem: {'preferences..'. 'Opens a "Preferences Panel" which allows you to alter many settings'. MenuIcons smallConfigurationIcon} on: menu. - self createMenuItem: {'appearance...'. nil. MenuIcons smallConfigurationIcon} on: menu]. - self createMenuItem: {'set color theme...'. 'Choose the color theme in which Squeak should be displayed'} on: menu. - menu addLine. - Preferences noviceMode - ifTrue: [self createMenuItem: {'switch to expert mode'. 'Switch to expert mode. CAUTION: The expert mode is powerful as well as dangerous'. MenuIcons smallExpertIcon} on: menu] - ifFalse: [self createMenuItem: {'switch to novice mode'. 'Come back to novice mode'. MenuIcons smallExpertIcon} on: menu]. - "" - ^ menu! Item was removed: - ----- Method: TheWorldMainDockingBarOld class>>timeStamp (in category 'timestamping') ----- - timeStamp - "Answer the receiver's timeStamp" - ^ TS! Item was removed: - ----- Method: TheWorldMainDockingBarOld class>>updateInstances (in category 'events') ----- - updateInstances - "The class has changed, time to update the instances" - - self setTimeStamp. - Project current assureMainDockingBarPresenceMatchesPreference! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>moveObjectsOnscreen (in category 'menu actions') ----- - moveObjectsOnscreen - self world roundUpStrays! Item was removed: - ----- Method: TheWorldMainDockingBarOld class>>instance (in category 'instance creation') ----- - instance - "Answer the receiver's instance" - ^ Instance - ifNil: [Instance := super new]! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>fillDockingBar: (in category 'construction') ----- - fillDockingBar: aDockingBar - "Private - fill the given docking bar" - self fillMenuItemsBar: aDockingBar. - "" - aDockingBar addSpacer. - self fillNavigatorOn: aDockingBar. - "" - aDockingBar addSpacer. - Preferences tinyDisplay - ifFalse: [| clock | - clock := ClockMorph new. - clock show24hr: true. - clock showSeconds: false. - clock font: Preferences standardMenuFont emphasis: 0. - aDockingBar addMorphBack: clock. - aDockingBar addSpace: 5. - "" - aDockingBar - addMorphBack: (self - createButtonIcon: self volumeIcon - help: 'Change sound volume' translated - selector: #changeSoundVolume)]. - aDockingBar - addMorphBack: (self - createButtonIcon: self fullScreenIcon - help: (ScreenController lastScreenModeSelected - ifTrue: ['Exit from full screen'] - ifFalse: ['Switch to full screen']) - selector: #toggleFullScreen). - aDockingBar - addMorphBack: (self - createButtonIcon: (SelectedObjectThumbnail - extent: 37 @ 28 - - (Preferences tinyDisplay - ifTrue: [12] - ifFalse: [0]) - noSelectedThumbnail: self objectsIcon - noSelectedBalloonText: 'View objects hierarchy' translated) - selector: #viewSelectedObject). - "" - aDockingBar setProperty: #mainDockingBarTimeStamp toValue: self class timeStamp! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>saveAsNewVersion (in category 'menu actions') ----- - saveAsNewVersion - SmalltalkImage current saveAsNewVersion! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>fillNavigatorOn: (in category 'construction') ----- - fillNavigatorOn: main - "main addLine." - main addDefaultSpace. - "" - main - addMorphBack: (self - createButtonIcon: self backIcon - help: 'Previous project' - selector: #previousProject). - main - addMorphBack: (self - createButtonIcon: self jumpIcon - help: 'Put up a list of all projects, letting me choose one to go to' - selector: #jumpToProject). - main - addMorphBack: (self - createButtonIcon: self forwardIcon - help: 'Next project' - selector: #nextProject). - main - addMorphBack: (self - createButtonIcon: self openIcon - help: 'Find any file' - selector: #findAnyFile). - Preferences tinyDisplay ifFalse:["" - main - addMorphBack: (self - createButtonIcon: self loadProjectIcon - help: 'Find a project' - selector: #findAProject)]. - main addDefaultSpace. - main addSpacer. - main - addMorphBack: (self - createButtonIcon: self projectIcon - help: 'Start a new project' - selector: #newProject). - main - addMorphBack: (self - createButtonIcon: self paintIcon - help: 'Make a painting' - selector: #doNewPainting). - main - addMorphBack: (self - createButtonIcon: self objectCatalogIcon - help: 'Open the objects catalog' - selector: #activateObjectsTool). - Preferences tinyDisplay ifFalse:["" - main - addMorphBack: (self - createButtonIcon: self publishIcon - help: 'Publish the current project' - selector: #publishProject)]. - "" - main addDefaultSpace! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>colorOnEvent:for: (in category 'private - buttons') ----- - colorOnEvent: anEvent for: aMorph - "Private - gives an on-color to the given morph" - aMorph color: self onColor! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>open (in category 'menu actions') ----- - open - self worldMenu openMenu popUpInWorld! Item was removed: - ----- Method: TheWorldMainDockingBarOld class>>updateInstances: (in category 'events') ----- - updateInstances: anEvent - "The class has changed, time to update the instances" - (anEvent itemClass == self - or: [anEvent itemClass == self class]) - ifFalse: [^ self]. - "" - self updateInstances! Item was removed: - ----- Method: TheWorldMainDockingBarOld>>world (in category 'private') ----- - world - ^ World!

1 0

The Trunk: System-kb.180.mcz
by commits＠source.squeak.org 28 Nov '09

28 Nov '09

Andreas Raab uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-kb.180.mcz ==================== Summary ==================== Name: System-kb.180 Author: kb Time: 28 November 2009, 12:23:19 pm UUID: 8164c0e1-ffc4-e34a-b3f0-1cd63d5641dc Ancestors: System-nice.179 - fix: implemented missing PragmaPreference >> provider to return its provider ivar. This is needed for Preferences >> removePreferencesFor: to work, as it selects preferences based on their providers, which is implemented in Preference (the superclass of PragmaPreference) as to return nil. =============== Diff against System-nice.179 =============== Item was added: + ----- Method: PragmaPreference>>provider (in category 'accessing') ----- + provider + + ^provider!

1 0

[Ann] Cuis updated to #337
by Juan Vuletich 28 Nov '09

28 Nov '09

Hi Folks, I've just uploaded a new Cuis release to www.jvuletich.org/Cuis/Index.html . News include further work on morphic simplification and reduction, and some tweaks to MessageTally, Chronology, StrikeFonts and Delays. Comments are welcome. Cheers, Juan Vuletich

1 0

Smooth installation of IOHandle [WAS: Faster FileStream experiments]
by Nicolas Cellier 28 Nov '09

28 Nov '09

Hi David, I just browsed the IOHandle code and thought we could get a smooth transition Monticello-compatible 1) load IOHandle and subclasses 2) add ioHandle instVar to FileStream Socket and co 3) never use ioHandle inst var directly but rather lazily initialize ioHandle in accessor message 4) PUBLISH 5) redirect every prim message to self ioHandle 6) PUBLISH 7) clean code in FileStream Socket etc... 8) PUBLISH However, first problem first: what is an ExternalObject ? (the superclass of IOHandle). The name itself could be ExternalResourceHandle If I guess intention... Nicolas 2009/11/27 David T. Lewis <lewis(a)mail.msen.com>: > On Thu, Nov 26, 2009 at 08:56:08PM -0800, Colin Putney wrote: >> >> I've been thinking about this too. For Filesystem, I've only >> implemented very basic stream functionality so far. But I do intend to >> develop its stream functionality further, and to go in a very >> different direction from the existing design. Some design elements: >> >> - Using handles to decouple the streams from the storage they're >> operating on. The same stream class should be able to read or write to >> collections, sockets, files etc. > > I implemented IOHandle for this, see http://wiki.squeak.org/squeak/996. > I have not maintained it since about 2003, but the idea is straightforward. > My purpose at that time was to : > > * Separate the representation of external IO channels from the represention > of streams and communication protocols. > * Provide a uniform representation of IO channels similar to the unix notion > of treating everything as a 'file'. > * Simplify future refactoring of Socket and FileStream. > * Provide a place for handling asynchronous IO events. Refer to the aio > handling in the unix VM. Files, Sockets, and AsyncFiles could (should) use > a common IO event handling mechanism (aio event signaling a Smalltalk Semaphore). > > Since that time I added aio event handling for file (AioPlugin, see > http://wiki.squeak.org/squeak/3384), which is a layer on top of Ian's > aio event handling in the unix and OS X VMx that which is mainly useful > for handling unix pipes. But I still think that a more unified view > of "handles for IO channels" is a good idea. The completely separate > representation of files and sockets in Squeak still feels wrong to me, > maybe just because I am accustomed to unix systems. > > Dave > > >

2 1

Dropped TheWorldMainDockingBarOld
by Balázs Kósi 28 Nov '09

28 Nov '09

Hi, I uploaded Morphic-255.kb to The Inbox (ignore version 254), it removes TheWorldMainDockingBarOld, and cleans the references to it in the preamble. You need to load System-kb.180 first, which adds #provider to PragmaPreference. Balázs ps: By the way there is an obsolate class in the trunk now: AnObsoleteCurrentProjectRefactoring. When I was searching for the references of AnObsoleteTheWorldMainDockingBarOld I used: PointerExplorer new openExplorerFor: SystemNavigation default obsoleteClasses last

1 0

The Trunk: Multilingual-nice.66.mcz
by commits＠source.squeak.org 28 Nov '09

28 Nov '09

Nicolas Cellier uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-nice.66.mcz ==================== Summary ==================== Name: Multilingual-nice.66 Author: nice Time: 28 November 2009, 1:13:59 am UUID: 4d5c7e5c-3494-4557-9ab2-2da15358eb64 Ancestors: Multilingual-nice.65 Complete http://bugs.squeak.org/view.php?id=6086 In the process of #detectLineEndConvention a primitive fails trying to obtain the position of '/dev/stdout'. =============== Diff against Multilingual-nice.65 =============== Item was changed: Object subclass: #LanguageEnvironment instanceVariableNames: 'id' classVariableNames: 'ClipboardInterpreterClass Current FileNameConverterClass InputInterpreterClass KnownEnvironments SystemConverterClass' poolDictionaries: '' category: 'Multilingual-Languages'! !LanguageEnvironment commentStamp: 'bf 8/16/2009 16:52' prior: 0! The name multilingualized Squeak suggests that you can use multiple language at one time. This is true, of course, but the system still how to manage the primary language; that provides the interpretation of data going out or coming in from outside world. It also provides how to render strings, as there rendering rule could be different in one language to another, even if the code points in a string is the same. Originally, LanguageEnvironment and its subclasses only has class side methods. After merged with Diego's Babel work, it now has instance side methods. Since this historical reason, the class side and instance side are not related well. + When we talk about the interface with the outside of the Squeak world, there are three different "channels"; the keyboard input, clipboard output and input, and filename. On a not-to-uncommon system such as a Unix system localized to Japan, all of these three can have (and does have) different encodings. So we need to manage them separately. Note that the encoding in a file can be anything. While it is nice to provide a suggested guess for this 'default system file content encoding', it is not critical. - When we talk about the interface with the outside of the Squeak world, there are three different "channels"; the keyboard input, clipboard output and input, and filename. On a not-to-uncommon system such as a Unix system localized to Japan, all of these three can have (and does have) different encodings. So we need to manage them separately. Note that the encoding in a file can be anything. While it is nice to provide a suggested guess for this 'default system file content encoding', it is not critical. Rendering support is limited basic L-to-R rendering so far. But you can provide different line-wrap rule, at least. ! Item was changed: ----- Method: MultiByteFileStream>>lineEndConvention: (in category 'accessing') ----- lineEndConvention: aSymbol + (lineEndConvention := aSymbol) ifNotNil: [wantsLineEndConversion := true]. - lineEndConvention := aSymbol. self installLineEndConventionInConverter!

1 0

the ProportionalSplitterMorph in ArchiveViewer is out of service in trunk
by Nicolas Cellier 28 Nov '09

28 Nov '09

http://bugs.squeak.org/view.php?id=7424

1 0

← Newer
1
2
3
4
5
6
7
8
...
36
Older →

Jump to page: