Squeak-dev December 2013

squeak-dev@lists.squeakfoundation.org

45 participants
325 discussions

Daily Commit Log
by commits＠source.squeak.org 02 Dec '13

02 Dec '13

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2013-December/006687.h… Name: Tools-fbs.505 Ancestors: Tools-cmm.503 Move #browserShowsPackagePane to the new pragma style preference. Take 2. Preserve the value of the preference. =============================================

1 0

Re: [squeak-dev] The Trunk: Tools-fbs.504.mcz
by Frank Shearar 02 Dec '13

02 Dec '13

This doesn't preserve the preference. I'll push a fix tonight, unless someone beats me to it. Er, I guess another config map's required to skip over the removal? Or should I just delete the commit and push a better one? frank On 01 Dec 2013, at 10:03, commits(a)source.squeak.org wrote: > Frank Shearar uploaded a new version of Tools to project The Trunk: > http://source.squeak.org/trunk/Tools-fbs.504.mcz > > ==================== Summary ==================== > > Name: Tools-fbs.504 > Author: fbs > Time: 30 November 2013, 11:05:52.941 pm > UUID: 1591d949-a7a9-3148-8b42-215f7067e7e0 > Ancestors: Tools-cmm.503 > > Move #browserShowsPackagePane to the new pragma style preference. > > =============== 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: 'Preferences removePreference: #browserShowsPackagePane'! > - (PackageInfo named: 'Tools') postscript: 'Workspace allSubInstancesDo: [ :each | (each instVarNamed: #bindings) ifNil: [ each initializeBindings ] ]. > - World initializeDesktopCommandKeySelectors. > - RecentMessages startUp.'! > >

1 2

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

Some squeaksource.com updates
by David T. Lewis 01 Dec '13

01 Dec '13

Mail notifications for squeaksource.com updates have now been enabled. This function was disabled when squeaksource.com was initially re-hosted on squeak.org, and should now once again work as expected. Earlier problems that had caused repeat mail notifications for existing updates have been resolved and are not expected to cause further problems. The welcome page for http://squeaksource.com has been updated for factual content, and hopefully to appear less alarming for casual visitors. The policy of disabling new project creation remains in effect. With the welcome page updates, I also removed the instructions for moving projects from SqS to the newer repositories, because it seems a bit too unwelcoming for a "welcome" page. However, this is important information, so we need to keep it available somewhere. Is this (or could it be) available on a FAQ somewhere? If so I will link to it from the SqS welcome page. Here is the part that I removed: <h2>Migration to SmalltalkHub</h2> <p>To migrate so SmalltalkHub use the following script</p> <div class="format" style="color: #CD0A0A; background-color: #FEF1EC; border: 2px solid #CD0A0A; padding: 5px; border-radius: 4px; -moz-border-radius: 4px; -webkit-border-radius: 4px;">| source goSource destination goDestination files destinationFiles | <br/> source := MCHttpRepository location: ''http://www.squeaksource.com/YOURPROJECT''. destination := MCSmalltalkhubRepository     owner: ''YOURNAME''     project: ''YOURPROJECT''     user: ''YOURNAME''     password: ''YOURPASSWORD''. <br/> goSource := Gofer new repository: source. goDestination := Gofer new repository: destination. <br/> files := source allVersionNames. <br/> (goSource allResolved select: [ :resolved | files anySatisfy: [ :each |     resolved name = each ] ]) do: [ :each | goSource package: each packageName ]. <br/> goSource fetch. "downloads all mcz on your computer" <br/> destinationFiles := destination allVersionNames. "checks what files are already at destination" files reject: [ :file | destinationFiles includes: file ] thenDo: [ :file |     goDestination version: file ]. "selects only the mcz that are not yet at destination" <br/> goDestination push. "sends everything to SmalltalkHub" <br/> self assert: destination allVersionNames sorted = files sorted. "checks we have exactly the same files at source and destination"</div> Thanks, Dave

1 0

Is RecentMessages broken again?
by Chris Muller 01 Dec '13

01 Dec '13

2 1

Jump to page: