Squeak-dev December 2013

squeak-dev@lists.squeakfoundation.org

45 participants
325 discussions

The Trunk: Kernel-eem.823.mcz
by commits＠source.squeak.org 03 Dec '13

03 Dec '13

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.823.mcz ==================== Summary ==================== Name: Kernel-eem.823 Author: eem Time: 3 December 2013, 11:46:14.717 am UUID: b2a6c46e-4bf3-4ebd-b69f-a676648e52fc Ancestors: Kernel-eem.822 AdditionalMethodState>>analogousCodeTo: needs to reject other kinds of objects, not assume they're AdditionalMethodState instances. =============== Diff against Kernel-eem.822 =============== Item was changed: ----- Method: AdditionalMethodState>>analogousCodeTo: (in category 'testing') ----- analogousCodeTo: aMethodProperties | bs | + self class == aMethodProperties class ifFalse: - (bs := self basicSize) ~= aMethodProperties basicSize ifTrue: [^false]. + (bs := self basicSize) = aMethodProperties basicSize ifFalse: + [^false]. 1 to: bs do: [:i| ((self basicAt: i) analogousCodeTo: (aMethodProperties basicAt: i)) ifFalse: [^false]]. ^true!

1 0

Who can edit www.squeak.org
by Nicolai Hess 03 Dec '13

03 Dec '13

Are there more than one who can edit pages on www.squeak.org? Can I contribute? I would like to fix this issue http://bugs.squeak.org/view.php?id=7795 (Most new people, interested in squeak, will go through this download page. They may find two different "current squeak releases" 4.3/4.4) BTW Can I (as a bug reporter) delete duplicate entries? (I made to bug entries for this issue). regards Nicolai

2 2

Utilities' symbol mangling methods
by Frank Shearar 03 Dec '13

03 Dec '13

Utilities has #inherentSelectorForGetter:, #setterSelectorFor: and #getterSelectorFor: Etoys makes extensive use of these. MorphicExtras-Flaps also uses Utilities class >> #simpleSetterFor: I want to remove these from Utilities. The first way to do this that I thought of was to push these messages to String or Symbol, so you could say 'foo' asSetterSelector. That looks quite neat in the code affected by the change. (You also lose a pair of ()s in a lot of places.) But it occurred to me after I did all this that I could also avoid the monkey patching by adding, say, a class EtoysSymbolExtensions, to house the methods. You'd change the "Utilities getterSelectorFor: thing" to "EtoysSymbolExtensions getterSelectorFor: thing". Thoughts? Which would be better/nicer? The former makes for better looking code, while the latter avoids monkey patching. frank

6 14

TextLineInterval>>#justifiedPadFor: and spurious dirty packages
by Chris Muller 03 Dec '13

03 Dec '13

This method keeps appearing in my image, causing a dirty ST80 package. Is anyone else seeing this? No senders, but I keep needing to revert the package to know what I've got dirty in the image. Also seeing some spurious class-category "changes" causing dirty packages, even though I'm not doing any recategorizing..

3 3

Swiki Morph layout documentation & self study course
by tim Rowledge 03 Dec '13

03 Dec '13

I’ve been trying to improve the Morph layout pages. Please take a look and let me know if they make sense now.. http://wiki.squeak.org/squeak/2340 http://wiki.squeak.org/squeak/59 Alos updating the Basic Tools pages to at least look like they refer to current Squeak- http://wiki.squeak.org/squeak/673 http://wiki.squeak.org/squeak/1934 http://wiki.squeak.org/squeak/2186 http://wiki.squeak.org/squeak/5589 with more to do. I’ve been trying to fix up the rather abandoned http://wiki.squeak.org/squeak/82 selfStudy pages, which start out well and then rather fade out into nothing. tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim Strange OpCodes: HCFI: Halt and Catch Fire Immediate

1 0

Re: [squeak-dev] would it be fun to implement Squeak (and SPOON!) on this hardware?
by tim Rowledge 03 Dec '13

03 Dec '13

On 02-12-2013, at 1:28 PM, Jecel Assumpcao Jr. <jecel(a)merlintec.com> wrote: > > > Tim Rowledge wrote: >> I did that back in 1987. Well, it was an ARM1, but still. > > Was it really an ARM1 (BBC "tube" board) or an ARM2? In any case, you > did Smalltalk-80 and Jon asked about Little Smalltalk, which would be a > far simpler project.. The original ARM development machines (the ‘silver fox’ desktops) were ARM1 and then many were hand upgraded to ARM3 when they started rolling off the lines a year or so later. I had Little Smalltalk running in a couple of days on the ARM1, but you can’t call it any major triumph of engineering since it was so utterly trivial to do. A modern equivalent, and much more useful, would be Spoon. tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim Strange OpCodes: WFL: Wave FLag

2 1

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

02 Dec '13

Chris Muller uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-cmm.632.mcz ==================== Summary ==================== Name: System-cmm.632 Author: cmm Time: 2 December 2013, 2:12:28.796 pm UUID: d70901de-91c8-4b3c-add9-998bf3cfac55 Ancestors: System-fbs.631 - Method to #resume RecentMessages, although I have no idea how it got stuck suspended. - Only filter DoIt's from RecentMessages. - Remove arbitrary restriction and inherit the Smalltalk environment's error-handling. =============== Diff against System-fbs.631 =============== Item was changed: ----- Method: RecentMessages class>>setRecentHistorySize (in category 'preferences') ----- setRecentHistorySize + "Let the user specify the recent history size." + self numberOfRecentSubmissionsToStore: + (UIManager default + request: 'How many recent changes + should be remembered?' + initialAnswer: self numberOfRecentSubmissionsToStore asString)! - "Let the user specify the recent history size" - - | aReply aNumber | - aReply := UIManager default request: 'How many recent methods - should be maintained?' initialAnswer: self numberOfRecentSubmissionsToStore asString. - aReply isEmptyOrNil ifFalse: - [aNumber := aReply asNumber rounded. - (aNumber > 1 and: [aNumber <= 1000]) - ifTrue: - [self numberOfRecentSubmissionsToStore: aNumber. - self inform: 'Okay, ', aNumber asString, ' is the new size of the recent method history'] - ifFalse: - [self inform: 'Sorry, must be a number between 2 & 1000']]! Item was changed: ----- Method: RecentMessages>>initialize (in category 'initialize-release') ----- initialize super initialize. methodReferences := OrderedCollection new: (maximumSubmissionCount := 30). + self resume! - isSuspended := false! Item was changed: ----- Method: RecentMessages>>recordSelector:forClass:inEnvironment: (in category 'accessing') ----- recordSelector: aSelector forClass: aClass inEnvironment: anEnvironment | ref | (isSuspended = true or: [ aClass wantsChangeSetLogging not ]) ifTrue: [ ^ self ]. ref := MethodReference class: aClass selector: aSelector environment: anEnvironment. methodReferences + remove: ref + ifAbsent: [ ]. + ref methodSymbol isDoIt ifFalse: [ methodReferences addFirst: ref ]. - remove: ref ifAbsent: [ ] ; - addFirst: ref. self trim! Item was added: + ----- Method: RecentMessages>>resume (in category 'accessing') ----- + resume + isSuspended := false!

1 0

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

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

02 Dec '13

When I get into the office I'll publish the 3rd-time's-the-charm version. This one has the right postscript but doesn't remove the other stuff like #initialize and #unload for setting up/tearing down the old style preference. Sorry for the noise. frank On 02 Dec 2013, at 8:37, 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.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

Jump to page: