Squeak-dev January 2010

squeak-dev@lists.squeakfoundation.org

91 participants
425 discussions

Now unloadable: Services and PreferenceBrowser
by Andreas Raab 03 Jan '10

03 Jan '10

Hi - With the latest updates both Services and PreferenceBrowser should now be un- and reloadable. To unload Services (which depends on PreferenceBrowser and consequently needs to be unloaded first) execute: SystemChangeNotifier uniqueInstance noMoreNotificationsFor: ServiceRegistry. (MCPackage named: 'Services-Base') unload. and to unload PB: (MCPackage named: 'PreferenceBrowser') unload. "Clean out various obsolete references" TheWorldMainDockingBar updateInstances. TheWorldMenu removeObsolete. Flaps disableGlobalFlaps: false. Flaps enableGlobalFlaps To load them back in simply load the packages (PB first, then Services-Base) from source.squeak.org: (Installer repository: 'http://source.squeak.org/trunk') install: 'PreferenceBrowser'; install: 'Services-Base'. TheWorldMainDockingBar updateInstances. Flaps disableGlobalFlaps: false. Flaps enableGlobalFlaps Have people tried unloading other packages? I'd like to start assembling the scripts in one place so that we can track our progress. Ultimately, I'd like to have a script which unloads everything we know how to unload, ensures that no Undeclared or obsolete behaviors remain, run the remaining test cases, then reload the packages again, and rerun the tests. If we can do this consistently we should know quite well how close we are towards a kernel image. Cheers, - Andreas

1 0

The Trunk: Morphic-ar.281.mcz
by commits＠source.squeak.org 03 Jan '10

03 Jan '10

Andreas Raab uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ar.281.mcz ==================== Summary ==================== Name: Morphic-ar.281 Author: ar Time: 3 January 2010, 12:04:06 pm UUID: baa031a1-dc42-f84d-b1f8-5eb4a017f946 Ancestors: Morphic-ar.280 Remove last dependencies of PreferenceBrowser and Services. Both are now unloadable. =============== Diff against Morphic-ar.280 =============== Item was changed: ----- Method: PasteUpMorph>>findAPreferencesPanel: (in category 'world menu') ----- findAPreferencesPanel: evt "Locate a Preferences Panel, open it, and bring it to the front. Create one if necessary" + Smalltalk at: #PreferenceBrowser ifPresent:[:pb| + self findAWindowSatisfying:[:aWindow | aWindow model isKindOf: pb] + orMakeOneUsing:[pb open] + ].! - - self findAWindowSatisfying: - [:aWindow | aWindow model isKindOf: PreferenceBrowser] orMakeOneUsing: - [ | aPanel | - aPanel := PreferenceBrowserMorph withModel: PreferenceBrowser new. - "Note -- we don't really want the openInHand -- but owing to some annoying - difficulty, if we don't, we get the wrong width. Somebody please clean this up" - ^ aPanel openInHand]! Item was changed: ----- Method: TheWorldMainDockingBar>>preferenceBrowserMenuItemOn: (in category 'submenu - tools') ----- preferenceBrowserMenuItemOn: menu + Smalltalk at: #PreferenceBrowser ifPresent:[:pb| + menu addItem: [ :item | + item + contents: 'Preferences' translated; + help: 'Open a Preferences Browser' translated; + icon: (self colorIcon: pb basicNew defaultBackgroundColor); + target: pb; + selector: #open ] + ].! - - 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: TheWorldMenu>>buildWorldMenu (in category 'construction') ----- buildWorldMenu "Build the menu that is put up when the screen-desktop is clicked on" | menu | menu := MenuMorph new defaultTarget: self. menu commandKeyHandler: self. self colorForDebugging: menu. menu addStayUpItem. self makeConvenient: menu. + Smalltalk at: #ServiceGUI ifPresent:[:sgui| + sgui worldMenu: menu. + sgui onlyServices ifTrue: [^ menu]. + ]. - ServiceGui worldMenu: menu. - ServiceGui onlyServices ifTrue: [^ menu]. self addProjectEntries: menu. myWorld addUndoItemsTo: menu. self addRestoreDisplay: menu. self addUtilities: menu. self addObjectsAndTools: menu. self addPrintAndDebug: menu. self addSaveAndQuit: menu. ^ menu! Item was changed: ----- Method: TheWorldMenu>>openPreferencesBrowser (in category 'commands') ----- openPreferencesBrowser "Open a preferences browser" + ^Smalltalk at: #PreferenceBrowser ifPresent:[:pb| pb open]. + ! - ^PreferenceBrowser open! Item was changed: ----- Method: HandMorph>>sendKeyboardEvent: (in category 'private events') ----- sendKeyboardEvent: anEvent "Send the event to the morph currently holding the focus, or if none to the owner of the hand." - ServiceShortcuts handleKeystroke: anEvent. ^ self sendEvent: anEvent focus: self keyboardFocus clear: [self keyboardFocus: nil]!

1 0

The Trunk: PreferenceBrowser-ar.42.mcz
by commits＠source.squeak.org 03 Jan '10

03 Jan '10

Andreas Raab uploaded a new version of PreferenceBrowser to project The Trunk: http://source.squeak.org/trunk/PreferenceBrowser-ar.42.mcz ==================== Summary ==================== Name: PreferenceBrowser-ar.42 Author: ar Time: 3 January 2010, 12:01:24 pm UUID: 1685275b-f40d-e44a-aa43-41ebacfd4d2e Ancestors: PreferenceBrowser-nice.41 Guard unload operations of view registries. When unloading the entire package the unload can fail due to previously removed view registry. =============== Diff against PreferenceBrowser-nice.41 =============== Item was changed: ----- Method: PBNumericPreferenceView class>>unload (in category 'class initialization') ----- unload + "Unload order is not guaranteed so guard against failure" + [PreferenceViewRegistry ofNumericPreferences unregister: self] on: Error do:[].! - PreferenceViewRegistry ofNumericPreferences unregister: self.! Item was changed: ----- Method: PBBooleanPreferenceView class>>unload (in category 'class initialization') ----- unload + "Unload order is not guaranteed so guard against failure" + [PreferenceViewRegistry ofBooleanPreferences unregister: self] on Error do:[].! - PreferenceViewRegistry ofBooleanPreferences unregister: self.! Item was changed: ----- Method: PBColorPreferenceView class>>unload (in category 'class initialization') ----- unload + "Unload order is not guaranteed so guard against failure" + [PreferenceViewRegistry ofColorPreferences unregister: self] on: Error do:[]! - PreferenceViewRegistry ofColorPreferences unregister: self.! Item was changed: ----- Method: PBWindowColorPreferenceView class>>unload (in category 'class initialization') ----- unload + "Unload order is not guaranteed so guard against failure" + [self viewRegistry unregister: self] on: Error do:[]! - self viewRegistry unregister: self.! Item was changed: ----- Method: PBHaloThemePreferenceView class>>unload (in category 'class initialization') ----- unload + "Unload order is not guaranteed so guard against failure" + [PreferenceViewRegistry ofHaloThemePreferences unregister: self] on: Error do:[]! - PreferenceViewRegistry ofHaloThemePreferences unregister: self.! Item was changed: ----- Method: PBTextPreferenceView class>>unload (in category 'class initialization') ----- unload + "Unload order is not guaranteed so guard against failure" + [PreferenceViewRegistry ofTextPreferences unregister: self] on: Error do:[]! - PreferenceViewRegistry ofTextPreferences unregister: self.!

1 0

The Trunk: System-ar.215.mcz
by commits＠source.squeak.org 03 Jan '10

03 Jan '10

Andreas Raab uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ar.215.mcz ==================== Summary ==================== Name: System-ar.215 Author: ar Time: 2 January 2010, 11:58:38 am UUID: df1e6d6a-aa1b-684e-a45e-1f3376185a67 Ancestors: System-ar.214 Remove Preference>>viewRegistry which is no longer used. =============== Diff against System-ar.214 =============== Item was changed: Object subclass: #Preference + instanceVariableNames: 'name value defaultValue helpString localToProject categoryList changeInformee changeSelector type' - instanceVariableNames: 'name value defaultValue helpString localToProject categoryList changeInformee changeSelector viewRegistry type' classVariableNames: '' poolDictionaries: '' category: 'System-Preferences'! !Preference commentStamp: '<historical>' prior: 0! Represents a true/false flag that is under user control and which can be interrogated by a call to Preferences viewRegistry the registry of the classes responsible for building my view name a symbol, the formal name of the preference. value a boolean, the current value defaultValue the default value of the preference helpString string or text, constituting the help message localToProject boolean, whether each project holds its own version categoryList list of categories under which to offer this changeInformee whom, if anyone, to inform if the value changes: changeSelector what selector to send to the changeInformee when the value changes! Item was changed: ----- Method: Preference>>type (in category 'accessing') ----- type "The type of this preference. One of #Boolean, #Color, #String, #Font, #Number etc." + ^type! - ^type ifNil:[ - "For migration away from storing preference registries here" - type := PreferenceViewRegistry typeOfRegistry: viewRegistry].! Item was removed: - ----- Method: Preference class>>initialize (in category 'class initialization') ----- - initialize - "Ensure that all preferences have their type set correctly before removing viewRegistry" - self allSubInstancesDo:[:pref| pref type]. - !

1 0

The Trunk: System-ar.214.mcz
by commits＠source.squeak.org 02 Jan '10

02 Jan '10

Andreas Raab uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ar.214.mcz ==================== Summary ==================== Name: System-ar.214 Author: ar Time: 2 January 2010, 11:48:43 am UUID: f29cb3bf-c6c0-394b-9fac-cc28ee2d0292 Ancestors: System-nice.213 - Flush all MC caches before updating. Solves problems when a previous update failed to load. - Prepare to remove viewRegistry from Preference. =============== Diff against System-nice.213 =============== Item was changed: ----- Method: Utilities class>>updateFromServer (in category 'fetching updates') ----- updateFromServer + "Update the image by loading all pending updates from the server." - "Update the image by loading all pending updates from the server. Also save local copies of the update files if the #updateSavesFile preference is set to true" | config | + "Flush all caches. If a previous download failed this is often helpful" + MCFileBasedRepository flushAllCaches. config := MCMcmUpdater updateFromRepositories: #( 'http://source.squeak.org/trunk' ). self setSystemVersionFromConfig: config. self inform: 'Update completed. + Current update number: ', SystemVersion current highestUpdate.! - Current update number: ', SystemVersion current highestUpdate. - "self readServerUpdatesSaveLocally: Preferences updateSavesFile updateImage: true"! Item was added: + ----- Method: Preference class>>initialize (in category 'class initialization') ----- + initialize + "Ensure that all preferences have their type set correctly before removing viewRegistry" + self allSubInstancesDo:[:pref| pref type]. + !

1 0

The Trunk: Services-Base-ar.41.mcz
by commits＠source.squeak.org 02 Jan '10

02 Jan '10

Andreas Raab uploaded a new version of Services-Base to project The Trunk: http://source.squeak.org/trunk/Services-Base-ar.41.mcz ==================== Summary ==================== Name: Services-Base-ar.41 Author: ar Time: 2 January 2010, 3:29:27 am UUID: 81d816a6-80f2-ec45-aeb7-562da76a61ed Ancestors: Services-Base-nice.40 Utilize menu hook in Browser. =============== Diff against Services-Base-nice.40 =============== Item was added: + ----- Method: Browser>>menuHook:named:shifted: (in category '*services-base') ----- + menuHook: aMenu named: aSymbol shifted: aBool + aSymbol caseOf: { + [#classListMenu] -> [ServiceGui browser: self classMenu: aMenu]. + [#codePaneMenu] -> [ServiceGui browser: self codePaneMenu: aMenu]. + [#messageCategoryMenu] -> [ServiceGui browser: self messageCategoryMenu: aMenu.]. + [#messageListMenu] -> [ServiceGui browser: self messageListMenu: aMenu.]. + [#systemCategoryMenu] -> [ServiceGui browser: self classCategoryMenu: aMenu.]. + } otherwise:[^false]. + ^ServiceGui onlyServices. + !

1 0

The Trunk: Tools-ar.156.mcz
by commits＠source.squeak.org 02 Jan '10

02 Jan '10

Andreas Raab uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ar.156.mcz ==================== Summary ==================== Name: Tools-ar.156 Author: ar Time: 2 January 2010, 3:26:41 am UUID: c7489e4c-9282-0b43-a26f-b097fcf2e129 Ancestors: Tools-ar.155 Make services unloadable: Provide a menu hook which ServiceGUI can utilize to modify various menus in browsers instead of hacking those methods directly. =============== Diff against Tools-ar.155 =============== Item was changed: ----- Method: Browser>>classListMenu:shifted: (in category 'class functions') ----- classListMenu: aMenu shifted: shifted "Set up the menu to apply to the receiver's class list, honoring the #shifted boolean" + (self menuHook: aMenu named: #classListMenu shifted: shifted) ifTrue:[^aMenu]. + shifted ifTrue:[^ self shiftedClassListMenu: aMenu]. - - ServiceGui browser: self classMenu: aMenu. - ServiceGui onlyServices ifTrue: [^aMenu]. - shifted - ifTrue: - [^ self shiftedClassListMenu: aMenu]. aMenu addList: #( - ('browse full (b)' browseMethodFull) ('browse hierarchy (h)' spawnHierarchy) ('browse protocol (p)' browseFullProtocol) - ('printOut' printOutClass) ('fileOut' fileOutClass) - ('show hierarchy' hierarchy) ('show definition' editClass) ('show comment' editComment) - ('inst var refs...' browseInstVarRefs) ('inst var defs...' browseInstVarDefs) - ('class var refs...' browseClassVarRefs) ('class vars' browseClassVariables) ('class refs (N)' browseClassRefs) - ('rename class ...' renameClass) ('copy class' copyClass) ('remove class (x)' removeClass) - ('find method...' findMethod) ('find method wildcard...' findMethodWithWildcard) - ('more...' offerShiftedClassListMenu)). ^ aMenu ! Item was changed: ----- Method: Browser>>codePaneMenu:shifted: (in category 'code pane') ----- codePaneMenu: aMenu shifted: shifted + (self menuHook: aMenu named: #codePaneMenu shifted: shifted) ifTrue:[^aMenu]. + ^super codePaneMenu: aMenu shifted: shifted.! - ServiceGui browser: self codePaneMenu: aMenu. - ServiceGui onlyServices ifTrue: [^ aMenu]. - super codePaneMenu: aMenu shifted: shifted. - ^ aMenu! Item was changed: ----- Method: Browser>>systemCategoryMenu: (in category 'system category functions') ----- systemCategoryMenu: aMenu + + (self menuHook: aMenu named: #systemCategoryMenu shifted: false) ifTrue:[^aMenu]. + - - ServiceGui browser: self classCategoryMenu: aMenu. - ServiceGui onlyServices ifTrue: [^aMenu]. ^ aMenu labels: 'find class... (f) recent classes... (r) browse all browse printOut fileOut reorganize alphabetize update add item... rename... remove' lines: #(2 4 6 8) selections: #(findClass recent browseAllClasses buildSystemCategoryBrowser printOutSystemCategory fileOutSystemCategory editSystemCategories alphabetizeSystemCategories updateSystemCategories addSystemCategory renameSystemCategory removeSystemCategory )! Item was changed: ----- Method: Browser>>messageListMenu:shifted: (in category 'message functions') ----- messageListMenu: aMenu shifted: shifted "Answer the message-list menu" + (self menuHook: aMenu named: #messageListMenu shifted: shifted) ifTrue:[^aMenu]. + shifted ifTrue: [^ self shiftedMessageListMenu: aMenu]. - ServiceGui browser: self messageListMenu: aMenu. - ServiceGui onlyServices ifTrue: [^ aMenu]. - shifted - ifTrue: [^ self shiftedMessageListMenu: aMenu]. aMenu addList: #( ('what to show...' offerWhatToShowMenu) ('toggle break on entry' toggleBreakOnEntry) - ('browse full (b)' browseMethodFull) ('browse hierarchy (h)' classHierarchy) ('browse method (O)' openSingleMessageBrowser) ('browse protocol (p)' browseFullProtocol) - ('fileOut' fileOutMessage) ('printOut' printOutMessage) - ('senders of... (n)' browseSendersOfMessages) ('implementors of... (m)' browseMessages) ('inheritance (i)' methodHierarchy) ('tile scriptor' openSyntaxView) ('versions (v)' browseVersions) - ('inst var refs...' browseInstVarRefs) ('inst var defs...' browseInstVarDefs) ('class var refs...' browseClassVarRefs) ('class variables' browseClassVariables) ('class refs (N)' browseClassRefs) - ('remove method (x)' removeMessage) - ('more...' shiftedYellowButtonActivity)). ^ aMenu! Item was changed: ----- Method: Browser>>messageCategoryMenu: (in category 'message category functions') ----- messageCategoryMenu: aMenu + (self menuHook: aMenu named: #messageCategoryMenu shifted: false) ifTrue:[^aMenu]. - ServiceGui browser: self messageCategoryMenu: aMenu. - ServiceGui onlyServices ifTrue: [^aMenu]. ^ aMenu labels: 'browse printOut fileOut reorganize alphabetize remove empty categories categorize all uncategorized new category... rename... remove' lines: #(3 8) selections: #(buildMessageCategoryBrowser printOutMessageCategories fileOutMessageCategories editMessageCategories alphabetizeMessageCategories removeEmptyCategories categorizeAllUncategorizedMethods addCategory renameCategory removeMessageCategory) ! Item was added: + ----- Method: CodeHolder>>menuHook:named:shifted: (in category 'misc') ----- + menuHook: aMenu named: aSymbol shifted: aBool + "Provide a hook for supplemental menu items. The return value indicates + whether to only use the supplemental menu or wether to add the regular + menu items to the menu. The only known user is ServiceGUI." + ^false!

1 0

The Trunk: Morphic-ar.280.mcz
by commits＠source.squeak.org 02 Jan '10

02 Jan '10

Andreas Raab uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ar.280.mcz ==================== Summary ==================== Name: Morphic-ar.280 Author: ar Time: 2 January 2010, 2:55:39 am UUID: 7a46adae-0f5d-0b40-9ff4-c0e33a410cb8 Ancestors: Morphic-dtl.279 Time to take the plunge: The Cuis editors have been working great for a long time now, so switch to using them exclusively and remove the preference allowing to switch back (one can still switch back by changing the defaultEditorClass manually). Also, fixes one annoying incompatibility with Cuis editors namely that the default was not to allow selection shrinking. =============== Diff against Morphic-dtl.279 =============== Item was added: + ----- Method: Editor class>>selectionsMayShrink (in category 'preferences') ----- + selectionsMayShrink + <preference: 'Selections may shrink' + category: 'Morphic' + description: 'When true, allows selection to shrink when using shift+cursor keys' + type: #Boolean> + ^SelectionsMayShrink ifNil:[true]! Item was changed: Object subclass: #Editor instanceVariableNames: 'sensor morph selectionShowing' + classVariableNames: 'SelectionsMayShrink' - classVariableNames: '' poolDictionaries: '' category: 'Morphic-Text Support'! !Editor commentStamp: '<historical>' prior: 0! New text editors. TextEditor provides most of the functionality that used to be in TextMorphEditor. This class is no longer a Controller!! SmalltalkEditor is has Smalltalk code specific features. SimpleEditor provides basic functionality for single line text editing. It does not handle fonts and styles, aligning and Smalltalk utilities. It handles one single line. CellStyleEditor allows entering alphabetic characters using only number keys, like most cell phones do.! Item was changed: ----- Method: Editor>>setIndices:forward: (in category 'private') ----- setIndices: shiftPressed forward: forward "Little helper method that sets the moving and fixed indices according to some flags." | indices | indices _ Dictionary new. + (shiftPressed and:[self class selectionsMayShrink]) - (shiftPressed and:[Preferences selectionsMayShrink]) ifTrue: [ indices at: #moving put: self pointIndex. indices at: #fixed put: self markIndex ] ifFalse: [ forward ifTrue:[ indices at: #moving put: self stopIndex. indices at: #fixed put: self startIndex. ] ifFalse: [ indices at: #moving put: self startIndex. indices at: #fixed put: self stopIndex. ] ]. ^indices! Item was added: + ----- Method: Editor class>>selectionsMayShrink: (in category 'preferences') ----- + selectionsMayShrink: aBool + SelectionsMayShrink := aBool.! Item was changed: ----- Method: TextMorph class>>initialize (in category 'class initialization') ----- initialize "TextMorph initialize" "Initialize the default text editor class to use" + DefaultEditorClass := SmalltalkEditor. - DefaultEditorClass := TextMorphEditor. "Initialize constants shared by classes associated with text display." CaretForm := (ColorForm extent: 16@5 fromArray: #(2r001100e26 2r001100e26 2r011110e26 2r111111e26 2r110011e26) offset: -2@0) colors: (Array with: Color transparent with: Preferences textHighlightColor). self registerInFlapsRegistry. ! Item was removed: - ----- Method: TextMorph class>>useNewEditors: (in category 'preferences') ----- - useNewEditors: aBool - "Enable/disable the new text editors" - self defaultEditorClass: (aBool ifTrue:[SmalltalkEditor] ifFalse:[TextMorphEditor])! Item was removed: - ----- Method: TextMorph class>>useNewEditors (in category 'preferences') ----- - useNewEditors - "Enable/disable the new text editors" - <preference: 'Use New Editors' - category: 'Morphic' - description: 'When true, use the new (Cuis-based) editors' - type: #Boolean> - ^DefaultEditorClass == SmalltalkEditor!

1 0

http://source.squeakfoundation.org/ down as of 2010-01-02 19:50 CET [n/t]
by Tobias Pape 02 Jan '10

02 Jan '10

no text

1 0

The Trunk: Services-Base-ar.41.mcz
by commits＠source.squeak.org 02 Jan '10

02 Jan '10

1 0

Jump to page: