Packages December 2013

packages@lists.squeakfoundation.org

1 participants
477 discussions

The Trunk: Tools-cmm.507.mcz
by commits＠source.squeak.org 02 Dec '13

02 Dec '13

Chris Muller uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-cmm.507.mcz ==================== Summary ==================== Name: Tools-cmm.507 Author: cmm Time: 2 December 2013, 1:56:35.213 pm UUID: b97af8db-8cef-4648-bad5-3f6343ff95f2 Ancestors: Tools-fbs.506 - RecentMessageSet don't blow up if you get out-of-sync with RecentMessages default. - Don't filter for #isValid in the UI. Instead, maintain a valid domain. =============== Diff against Tools-fbs.506 =============== Item was changed: ----- Method: RecentMessageSet>>reformulateList (in category 'update') ----- reformulateList "Reformulate the receiver's list. Exclude methods now deleted" + self + initializeMessageList: RecentMessages default methodReferences ; + messageListIndex: (messageList size min: 1) ; + changed: #messageList ; + changed: #messageListIndex! - self initializeMessageList: - (RecentMessages default methodReferences select: - [ : each | each isValid ]). - self messageListIndex: (messageList size min: 1). "0 or 1" - self changed: #messageList. - self changed: #messageListIndex! Item was changed: ----- Method: RecentMessageSet>>updateListsAndCodeIn: (in category 'update') ----- + updateListsAndCodeIn: aWindow - updateListsAndCodeIn: aWindow - | recentFromUtilities | + self canDiscardEdits ifFalse: [ ^ self ]. - "RAA 20 june 2000 - a recent change to how messages were displayed in the list caused them not to match what was stored in Utilities. This caused the recent submissions to be continuously updated. The hack below fixed that problem" - - self flag: #mref. "in second pass, use simpler test" - - self canDiscardEdits ifFalse: [^ self]. RecentMessages default isEmpty ifTrue: [ ^ self ]. + recentFromUtilities := RecentMessages default mostRecent asString , ' '. + (messageList isEmpty or: [ messageList first asStringOrText asString beginsWith: recentFromUtilities ]) + ifTrue: [ self updateCodePaneIfNeeded ] + ifFalse: [ self reformulateList ]! - recentFromUtilities := RecentMessages default mostRecent asString,' '. - (messageList first asStringOrText asString beginsWith: recentFromUtilities) - ifFalse: - [self reformulateList] - ifTrue: - [self updateCodePaneIfNeeded]! Item was changed: ----- Method: Utilities class>>browseRecentSubmissions (in category '*Tools') ----- browseRecentSubmissions "Open up a browser on the most recent methods submitted in the image." ^ RecentMessageSet openMessageList: RecentMessages default methodReferences + name: 'Recent Submissions' - name: 'Recent submissions -- youngest first ' autoSelect: nil! Item was changed: ----- Method: Utilities class>>recentSubmissionsWindow (in category '*Tools') ----- recentSubmissionsWindow "Answer a SystemWindow holding recent submissions" + | messageSet | + messageSet := RecentMessageSet messageList: RecentMessages default methodReferences. - - | recentMessages messageSet | - recentMessages := RecentMessages default methodReferences. - messageSet := RecentMessageSet messageList: recentMessages. messageSet autoSelectString: nil. + ^ ToolBuilder build: messageSet! - ^ ToolBuilder build: messageSet - - "Utilities recentSubmissionsWindow openInHand" - - !

1 0

The Trunk: Tools-fbs.506.mcz
by commits＠source.squeak.org 02 Dec '13

02 Dec '13

Frank Shearar uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-fbs.506.mcz ==================== Summary ==================== Name: Tools-fbs.506 Author: fbs Time: 2 December 2013, 8:37:29.384 am UUID: 707f1239-be88-1e40-afb2-f138bc2bb288 Ancestors: Tools-cmm.503 Tools-fbs.505 is broken because, while it has the right postscript, I failed to remove the all the other stuff around the preference. Don't program while tired. =============== Diff against Tools-cmm.503 =============== Item was added: + ----- Method: SystemBrowser class>>browserShowsPackagePane (in category 'preferences') ----- + browserShowsPackagePane + <preference: 'Browser shows package pane' category: 'browsing' description: 'If true, then the various ''browse full'' and ''browse it'' commands (usually invoked via cmd-b) will open a Package Browser rather than a System Browser. The Package Browser includes a package pane which groups system categories into packages based on the initial portion of their category name.' type: #Boolean> + ^ SystemNavigation default browserClass == PackagePaneBrowser.! Item was added: + ----- Method: SystemBrowser class>>browserShowsPackagePane: (in category 'preferences') ----- + browserShowsPackagePane: aBoolean + | theOtherOne | + self registeredClasses size = 2 + ifTrue: [theOtherOne := (self registeredClasses copyWithout: PackagePaneBrowser) first] + ifFalse: [theOtherOne := nil]. + aBoolean + ifTrue: [self default: PackagePaneBrowser] + ifFalse: [self default: theOtherOne]. + SystemNavigation default browserClass: self default.! Item was removed: - ----- Method: SystemBrowser class>>initialize (in category 'class initialization') ----- - initialize - | pref | - pref := Preferences preferenceAt: #browserShowsPackagePane. - Preferences - addPreference: #browserShowsPackagePane - categories: pref categoryList - default: pref defaultValue - balloonHelp: pref helpString - projectLocal: pref localToProject - changeInformee: self - changeSelector: #packagePanePreferenceChanged - ! Item was removed: - ----- Method: SystemBrowser class>>packagePanePreferenceChanged (in category 'events') ----- - packagePanePreferenceChanged - | theOtherOne | - self registeredClasses size = 2 - ifTrue: [theOtherOne := (self registeredClasses copyWithout: PackagePaneBrowser) first] - ifFalse: [theOtherOne := nil]. - (Preferences valueOfFlag: #browserShowsPackagePane ifAbsent: [false]) - ifTrue: [self default: PackagePaneBrowser] - ifFalse: [self default: theOtherOne]. - SystemNavigation default browserClass: self default.! Item was removed: - ----- Method: SystemBrowser class>>unload (in category 'initialize-release') ----- - unload - | pref | - pref := Preferences preferenceAt: #browserShowsPackagePane. - Preferences - addPreference: #browserShowsPackagePane - categories: pref categoryList - default: pref defaultValue - balloonHelp: pref helpString - projectLocal: pref localToProject - changeInformee: nil - changeSelector: nil - ! Item was changed: + (PackageInfo named: 'Tools') postscript: 'SystemBrowser browserShowsPackagePane: Preferences browserShowsPackagePane. + Preferences removePreference: #browserShowsPackagePane.'! - (PackageInfo named: 'Tools') postscript: 'Workspace allSubInstancesDo: [ :each | (each instVarNamed: #bindings) ifNil: [ each initializeBindings ] ]. - World initializeDesktopCommandKeySelectors. - RecentMessages startUp.'!

1 0

The Trunk: Tools-fbs.506.mcz
by commits＠source.squeak.org 02 Dec '13

02 Dec '13

1 0

The Trunk: Tools-fbs.506.mcz
by commits＠source.squeak.org 02 Dec '13

02 Dec '13

1 0

The Trunk: Tools-fbs.505.mcz
by commits＠source.squeak.org 02 Dec '13

02 Dec '13

Frank Shearar uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-fbs.505.mcz ==================== Summary ==================== Name: Tools-fbs.505 Author: fbs Time: 1 December 2013, 10:56:27.019 pm UUID: 3f71c223-c1cf-064a-b6fa-8aaf565b2939 Ancestors: Tools-cmm.503 Move #browserShowsPackagePane to the new pragma style preference. Take 2. Preserve the value of the preference. =============== Diff against Tools-cmm.503 =============== Item was changed: MessageSet subclass: #RecentMessageSet instanceVariableNames: '' + classVariableNames: 'NumberOfRecentSubmissionsToStore' - classVariableNames: '' poolDictionaries: '' category: 'Tools-Browser'! !RecentMessageSet commentStamp: 'sw 8/1/2002 17:40' prior: 0! RecentMessageSet is a message set that shows the most recently-submitted methods, in chronological order.! Item was added: + ----- Method: SystemBrowser class>>browserShowsPackagePane (in category 'preferences') ----- + browserShowsPackagePane + <preference: 'Browser shows package pane' category: 'browsing' description: 'If true, then the various ''browse full'' and ''browse it'' commands (usually invoked via cmd-b) will open a Package Browser rather than a System Browser. The Package Browser includes a package pane which groups system categories into packages based on the initial portion of their category name.' type: #Boolean> + ^ SystemNavigation default browserClass == PackagePaneBrowser.! Item was added: + ----- Method: SystemBrowser class>>browserShowsPackagePane: (in category 'preferences') ----- + browserShowsPackagePane: aBoolean + | theOtherOne | + self registeredClasses size = 2 + ifTrue: [theOtherOne := (self registeredClasses copyWithout: PackagePaneBrowser) first] + ifFalse: [theOtherOne := nil]. + aBoolean + ifTrue: [self default: PackagePaneBrowser] + ifFalse: [self default: theOtherOne]. + SystemNavigation default browserClass: self default.! Item was changed: + (PackageInfo named: 'Tools') postscript: 'SystemBrowser browserShowsPackagePane: Preferences browserShowsPackagePane. + Preferences removePreference: #browserShowsPackagePane.'! - (PackageInfo named: 'Tools') postscript: 'Workspace allSubInstancesDo: [ :each | (each instVarNamed: #bindings) ifNil: [ each initializeBindings ] ]. - World initializeDesktopCommandKeySelectors. - RecentMessages startUp.'!

1 0

The Trunk: Tools-fbs.505.mcz
by commits＠source.squeak.org 02 Dec '13

02 Dec '13

1 0

The Trunk: Tools-fbs.505.mcz
by commits＠source.squeak.org 02 Dec '13

02 Dec '13

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages December 2013