Packages May 2011

packages@lists.squeakfoundation.org

1 participants
291 discussions

The Trunk: System-cmm.433.mcz
by commits＠source.squeak.org 03 May '11

03 May '11

Chris Muller uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-cmm.433.mcz ==================== Summary ==================== Name: System-cmm.433 Author: cmm Time: 2 May 2011, 6:38:44.996 pm UUID: 89627de9-ab75-419e-a876-2399387987dd Ancestors: System-mtf.432 - Updates to SystemNavigation to support streamlined variable-reference / assignment browsing. =============== Diff against System-mtf.432 =============== Item was changed: ----- Method: SystemNavigation>>browseAllStoresInto:from: (in category 'browse') ----- + browseAllStoresInto: varName from: aClass - browseAllStoresInto: instVarName from: aClass "Create and schedule a Message Set browser for all the receiver's methods or any methods of a subclass/superclass that refer to the instance variable name." - "self new browseAllStoresInto: 'contents' from: Collection." - | coll | coll := OrderedCollection new. + Cursor wait showWhile: + [ aClass withAllSubAndSuperclassesDo: + [ : class | (class whichMethodsStoreInto: varName) do: + [ : eachMethod | eachMethod selector isDoIt ifFalse: [ coll add: eachMethod methodReference ] ] ] ]. - Cursor wait showWhile: [ - aClass withAllSubAndSuperclassesDo: [:class | - (class whichSelectorsStoreInto: instVarName) do: [:sel | - sel isDoIt ifFalse: [ - coll add: ( - MethodReference new - setStandardClass: class - methodSymbol: sel - ) - ] - ] - ]. - ]. ^ self + browseMessageList: coll + name: 'Stores into ' , varName + autoSelect: varName! - browseMessageList: coll - name: 'Stores into ' , instVarName - autoSelect: instVarName! Item was removed: - ----- Method: SystemNavigation>>browseClassVarRefs: (in category 'browse') ----- - browseClassVarRefs: aClass - "Put up a menu offering all class variable names; if the user chooses one, open up a message-list browser on all methods - that refer to the selected class variable" - - | lines labelStream allVars index owningClasses | - lines := OrderedCollection new. - allVars := OrderedCollection new. - owningClasses := OrderedCollection new. - labelStream := WriteStream on: (String new: 200). - aClass withAllSuperclasses reverseDo: - [:class | | vars | - vars := class classVarNames. - vars do: - [:var | - labelStream nextPutAll: var; cr. - allVars add: var. - owningClasses add: class]. - vars isEmpty ifFalse: [lines add: allVars size]]. - labelStream contents isEmpty ifTrue: [^Beeper beep]. "handle nil superclass better" - labelStream skip: -1 "cut last CR". - index := (UIManager default chooseFrom: (labelStream contents substrings) lines: lines). - index = 0 ifTrue: [^ self]. - self browseAllCallsOn: - ((owningClasses at: index) classPool associationAt: (allVars at: index))! Item was removed: - ----- Method: SystemNavigation>>browseClassVariables: (in category 'browse') ----- - browseClassVariables: aClass - aClass classPool inspectWithLabel: 'Class Variables in ' , aClass name! Item was removed: - ----- Method: SystemNavigation>>browseInstVarDefs: (in category 'browse') ----- - browseInstVarDefs: aClass - "Copied from browseInstVarRefs. Should be consolidated some day. 7/29/96 di - 7/30/96 sw: did the consolidation" - "Change to use SystemNavigation 27 March 2003 sd" - - aClass chooseInstVarThenDo: - [:aVar | self browseAllStoresInto: aVar from: aClass]! Item was removed: - ----- Method: SystemNavigation>>browseInstVarRefs: (in category 'browse') ----- - browseInstVarRefs: aClass - "1/16/96 sw: moved here from Browser so that it could be used from a variety of places. - 7/30/96 sw: call chooseInstVarThenDo: to get the inst var choice" - - aClass chooseInstVarThenDo: - [:aVar | self browseAllAccessesTo: aVar from: aClass]! Item was added: + ----- Method: SystemNavigation>>browseVariableAssignments: (in category 'browse') ----- + browseVariableAssignments: aClass + aClass chooseVarThenDo: + [ : aVar | self + browseAllStoresInto: aVar + from: aClass ]! Item was added: + ----- Method: SystemNavigation>>browseVariableReferences: (in category 'browse') ----- + browseVariableReferences: aClass + aClass chooseVarThenDo: + [ : aVar | (aClass allInstVarNames includes: aVar) + ifTrue: + [ self + browseAllAccessesTo: aVar + from: aClass ] + ifFalse: [ self browseAllCallsOn: aVar ] ]! Item was changed: ----- Method: SystemNavigation>>headingAndAutoselectForLiteral:do: (in category 'private') ----- + headingAndAutoselectForLiteral: aLiteral do: binaryBlock + "Evaluate binaryBlock with either Users of ... or Senders of ... plus the auto-select string for the given literal. aLiteral can be a Symbol, a VariableBinding or an arbitrary object." - headingAndAutoselectForLiteral: aLiteral do: binaryBlock - "Evaluate aBlock with either Users of ... or Senders of ... plus the auto-select string - for the given literal. aLiteral can be a Symbol, a VariableBinding or an arbitrary object." - | autoSelect | + ^ aLiteral isSymbol + ifTrue: + [ binaryBlock + value: 'Senders of ' , aLiteral + value: aLiteral keywords first ] - ^aLiteral isSymbol - ifTrue: [binaryBlock value: 'Senders of ', aLiteral value: aLiteral keywords first] ifFalse: + [ autoSelect := aLiteral isVariableBinding + ifTrue: [ aLiteral key ] + ifFalse: [ aLiteral printString ]. + binaryBlock + value: 'Users of ' , autoSelect + value: autoSelect ]! - [autoSelect := aLiteral isVariableBinding - ifTrue: [aLiteral key] - ifFalse: [aLiteral printString]. - binaryBlock value: 'Users of ', autoSelect value: autoSelect]!

1 0

The Trunk: System-cmm.433.mcz
by commits＠source.squeak.org 03 May '11

03 May '11

1 0

The Trunk: System-cmm.433.mcz
by commits＠source.squeak.org 03 May '11

03 May '11

1 0

The Trunk: Tools-cmm.347.mcz
by commits＠source.squeak.org 03 May '11

03 May '11

Chris Muller uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-cmm.347.mcz ==================== Summary ==================== Name: Tools-cmm.347 Author: cmm Time: 2 May 2011, 6:36:40.244 pm UUID: 977c180b-7c15-4200-9ceb-319d2e850364 Ancestors: Tools-fbs.346, Tools-fbs.345 - Update menu "inst var defs" to "assignments..." and "inst var refs" to "references...". Each option now includes a selection of the available class-variables, enabling "class var refs" to be removed. Each option also has an appropriate hot-key assignment. - Removed "class vars" because one could simply explore the class' classPool. =============== Diff against Tools-fbs.346 =============== 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. Preferences useOnlyServicesInMenu 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) - + ('references... (r)' browseVariableReferences) + ('assignments... (a)' browseVariableAssignments) - ('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) - ('more...' offerShiftedClassListMenu)). ^ aMenu ! 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. Preferences useOnlyServicesInMenu 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) ('copy selector (c)' copySelector) ('copy reference' copyReference) - ('senders of... (n)' browseSendersOfMessages) ('implementors of... (m)' browseMessages) ('inheritance (i)' methodHierarchy) ('versions (v)' browseVersions) - + ('references... (r)' browseVariableReferences) + ('assignments... (a)' browseVariableAssignments) - ('inst var refs...' browseInstVarRefs) - ('inst var defs...' browseInstVarDefs) - ('class var refs...' browseClassVarRefs) - ('class variables' browseClassVariables) ('class refs (N)' browseClassRefs) - ('remove method (x)' removeMessage) ('explore method' exploreMethod) ('inspect method' inspectMethod) - ('more...' shiftedYellowButtonActivity)). ^ aMenu! Item was changed: ----- Method: Browser>>reformulateList (in category 'message list') ----- reformulateList "If the receiver has a way of reformulating its message list, here is a chance for it to do so" super reformulateList. (self messageList includes: self selectedMessageName) + ifFalse: [ self messageList + ifEmpty: [ self selectMessageNamed: nil ] + ifNotEmpty: [ self selectMessageNamed: self lastMessageName ]].! - ifFalse: [ self selectMessageNamed: self lastMessageName ].! Item was changed: ----- Method: ChangeSorter>>classListMenu:shifted: (in category 'class list') ----- classListMenu: aMenu shifted: shifted "Fill aMenu with items appropriate for the class list" aMenu title: 'class list'. aMenu addStayUpItemSpecial. (parent notNil and: [shifted not]) ifTrue: [aMenu addList: #( "These two only apply to dual change sorters" ('copy class chgs to other side' copyClassToOther) ('move class chgs to other side' moveClassToOther))]. aMenu addList: (shifted ifFalse: [#( - ('delete class from change set (d)' forgetClass) ('remove class from system (x)' removeClass) - ('browse full (b)' browseMethodFull) ('browse hierarchy (h)' spawnHierarchy) ('browse protocol (p)' browseFullProtocol) - ('printOut' printOutClass) ('fileOut' fileOutClass) - + ('references... (r)' browseVariableReferences) + ('assignments... (a)' browseVariableAssignments) - ('inst var refs...' browseInstVarRefs) - ('inst var defs...' browseInstVarDefs) - ('class var refs...' browseClassVarRefs) - ('class vars' browseClassVariables) ('class refs (N)' browseClassRefs) - ('more...' offerShiftedClassListMenu))] ifTrue: [#( - ('unsent methods' browseUnusedMethods) ('unreferenced inst vars' showUnreferencedInstVars) ('unreferenced class vars' showUnreferencedClassVars) - ('sample instance' makeSampleInstance) ('inspect instances' inspectInstances) ('inspect subinstances' inspectSubInstances) - ('more...' offerUnshiftedClassListMenu ))]). ^ aMenu! Item was changed: ----- Method: CodeHolder>>abbreviatedWordingFor: (in category 'commands') ----- abbreviatedWordingFor: aButtonSelector + "Answer the abbreviated form of wording, from a static table. Answer nil if there is no entry -- in which case the long form will be used on the corresponding browser button." - "Answer the abbreviated form of wording, from a static table which you're welcome to edit. Answer nil if there is no entry -- in which case the long firm will be used on the corresponding browser button." #( (browseMethodFull 'browse') (browseSendersOfMessages 'senders') (browseMessages 'impl') (browseVersions 'vers') (methodHierarchy 'inher') (classHierarchy 'hier') + (browseVariableReferences 'refs') - (browseInstVarRefs 'iVar') - (browseClassVarRefs 'cVar') (offerMenu 'menu')) do: [:pair | pair first == aButtonSelector ifTrue: [^ pair second]]. ^ nil! Item was changed: ----- Method: CodeHolder>>messageListKey:from: (in category 'message list menu') ----- messageListKey: aChar from: view "Respond to a Command key. I am a model with a code pane, and I also have a listView that has a list of methods. The view knows how to get the list and selection." | sel class | aChar == $D ifTrue: [^ self toggleDiffing]. sel := self selectedMessageName. aChar == $m ifTrue: "These next two put up a type in if no message selected" [^ self useSelector: sel orGetSelectorAndSendQuery: #browseAllImplementorsOf: to: self ]. aChar == $n ifTrue: [^ self useSelector: sel orGetSelectorAndSendQuery: #browseAllCallsOn: to: self ]. "The following require a class selection" (class := self selectedClassOrMetaClass) ifNil: [^ self arrowKey: aChar from: view]. aChar == $b ifTrue: [^ Browser fullOnClass: class selector: sel]. aChar == $N ifTrue: [^ self browseClassRefs]. aChar == $i ifTrue: [^ self methodHierarchy]. aChar == $h ifTrue: [^ self classHierarchy]. aChar == $p ifTrue: [^ self browseFullProtocol]. + aChar == $r ifTrue: [^ self browseVariableReferences]. + aChar == $a ifTrue: [^ self browseVariableAssignments]. + "The following require a method selection" sel ifNotNil: [aChar == $o ifTrue: [^ self fileOutMessage]. aChar == $c ifTrue: [^ self copySelector]. aChar == $v ifTrue: [^ self browseVersions]. aChar == $O ifTrue: [^ self openSingleMessageBrowser]. aChar == $x ifTrue: [^ self removeMessage]. aChar == $d ifTrue: [^ self removeMessageFromBrowser]. (aChar == $C and: [self canShowMultipleMessageCategories]) ifTrue: [^ self showHomeCategory]]. ^ self arrowKey: aChar from: view! Item was changed: ----- Method: CodeHolder>>optionalButtonPairs (in category 'controls') ----- optionalButtonPairs "Answer a tuple (formerly pairs) defining buttons, in the format: button label selector to send help message" | aList | aList := #( ('browse' browseMethodFull 'view this method in a browser') ('senders' browseSendersOfMessages 'browse senders of...') ('implementors' browseMessages 'browse implementors of...') ('versions' browseVersions 'browse versions')), (Preferences decorateBrowserButtons ifTrue: [{#('inheritance' methodHierarchy 'browse method inheritance green: sends to super tan: has override(s) mauve: both of the above pink: is an override but doesn''t call super pinkish tan: has override(s), also is an override but doesn''t call super' )}] ifFalse: [{#('inheritance' methodHierarchy 'browse method inheritance')}]), #( ('hierarchy' classHierarchy 'browse class hierarchy') + ('vars' browseVariableReferences 'references...')). - ('inst vars' browseInstVarRefs 'inst var refs...') - ('class vars' browseClassVarRefs 'class var refs...')). ^ aList! Item was added: + ----- Method: CodeHolder>>receiverClass (in category 'toolbuilder') ----- + receiverClass + ^ self selectedClassOrMetaClass ! Item was added: + ----- Method: Debugger>>classHierarchy (in category 'toolbuilder') ----- + classHierarchy + "Create and schedule a class list browser on the receiver's hierarchy." + (self selectedMessageName = #doesNotUnderstand: and: [ self selectedClassOrMetaClass = Object ]) + ifTrue: + [ self systemNavigation + spawnHierarchyForClass: self receiverClass + selector: self selectedMessageName ] + ifFalse: [ super classHierarchy ]! Item was changed: ----- Method: Debugger>>contextStackMenu:shifted: (in category 'context stack menu') ----- contextStackMenu: aMenu shifted: shifted "Set up the menu appropriately for the context-stack-list, either shifted or unshifted as per the parameter provided" ^ shifted ifFalse:[ aMenu addList: { {'fullStack (f)'. #fullStack}. {'restart (r)'. #restart}. {'proceed (p)'. #proceed}. {'step (t)'. #doStep}. {'step through (T)'. #stepIntoBlock}. {'send (e)'. #send}. {'where (w)'. #where}. {'peel to first like this'. #peelToFirst}. #-. {'return entered value'. #returnValue}. #-. {'toggle break on entry'. #toggleBreakOnEntry}. {'senders of... (n)'. #browseSendersOfMessages}. {'implementors of... (m)'. #browseMessages}. {'inheritance (i)'. #methodHierarchy}. #-. {'versions (v)'. #browseVersions}. - {'inst var refs...'. #browseInstVarRefs}. #-. + {'references... (r)'. #browseVariableReferences}. + {'assignments... (a)'. #browseVariableAssignments}. - {'inst var defs...'. #browseInstVarDefs}. - {'class var refs...'. #browseClassVarRefs}. - {'class variables'. #browseClassVariables}. #-. {'class refs (N)'. #browseClassRefs}. {'browse full (b)'. #browseMethodFull}. {'file out '. #fileOutMessage}. #-. {'mail out bug report'. #mailOutBugReport}. {'more...'. #shiftedYellowButtonActivity}. }. ] ifTrue: [ aMenu addList: { {'browse class hierarchy'. #classHierarchy}. {'browse class'. #browseClass}. {'browse method (O)'. #openSingleMessageBrowser}. {'implementors of sent messages'. #browseAllMessages}. {'change sets with this method'. #findMethodInChangeSets}. #-. {'inspect instances'. #inspectInstances}. {'inspect subinstances'. #inspectSubInstances}. #-. {'revert to previous version'. #revertToPreviousVersion}. {'remove from current change set'. #removeFromCurrentChanges}. {'revert & remove from changes'. #revertAndForget}. #-. {'more...'. #unshiftedYellowButtonActivity}. } ].! Item was added: + ----- Method: Debugger>>receiverClass (in category 'toolbuilder') ----- + receiverClass + ^ self selectedContext receiver class! Item was removed: - ----- Method: Inspector>>classVarRefs (in category 'menu commands') ----- - classVarRefs - "Request a browser of methods that store into a chosen instance variable" - - | aClass | - (aClass := self classOfSelection) ifNotNil: - [self systemNavigation browseClassVarRefs: aClass]. - ! Item was changed: ----- Method: Inspector>>fieldListMenu: (in category 'menu commands') ----- fieldListMenu: aMenu "Arm the supplied menu with items for the field-list of the receiver" aMenu addStayUpItemSpecial. aMenu addList: #( ('inspect (i)' inspectSelection) ('explore (I)' exploreSelection)). self addCollectionItemsTo: aMenu. aMenu addList: #( - ('method refs to this inst var' referencesToSelection) ('methods storing into this inst var' defsOfSelection) ('objects pointing to this value' objectReferencesToSelection) ('chase pointers' chasePointers) ('explore pointers' explorePointers) - ('browse full (b)' browseMethodFull) ('browse class' browseClass) ('browse hierarchy (h)' classHierarchy) ('browse protocol (p)' browseFullProtocol) - + ('references... (r)' browseVariableReferences) + ('assignments... (a)' browseVariableAssignments) - ('inst var refs...' browseInstVarRefs) - ('inst var defs...' browseInstVarDefs) - ('class var refs...' classVarRefs) - ('class variables' browseClassVariables) ('class refs (N)' browseClassRefs) - ('copy name (c)' copyName) ('basic inspect' inspectBasic)). Smalltalk isMorphic ifTrue: [aMenu addList: #( - ('tile for this value (t)' tearOffTile) ('viewer for this value (v)' viewerForValue))]. ^ aMenu " - ('alias for this value' aliasForValue) ('watcher for this slot' watcherForSlot)" ! Item was changed: ----- Method: RecentMessageSet>>messageListMenu:shifted: (in category 'message functions') ----- messageListMenu: aMenu shifted: shifted "Answer the message-list menu" shifted ifTrue: [^ self shiftedMessageListMenu: aMenu]. aMenu addList:#( ('what to show...' offerWhatToShowMenu) - ('browse full (b)' browseMethodFull) ('browse hierarchy (h)' classHierarchy) ('browse method (O)' openSingleMessageBrowser) ('browse protocol (p)' browseFullProtocol) - ('fileOut (o)' fileOutMessage) ('printOut' printOutMessage) ('copy selector (c)' copySelector) ('copy reference' copyReference) - ('senders of... (n)' browseSendersOfMessages) ('implementors of... (m)' browseMessages) ('inheritance (i)' methodHierarchy) ('versions (v)' browseVersions) - + ('references... (r)' browseVariableReferences) + ('assignments... (a)' browseVariableAssignments) - ('inst var refs...' browseInstVarRefs) - ('inst var defs...' browseInstVarDefs) - ('class var refs...' browseClassVarRefs) - ('class variables' browseClassVariables) ('class refs (N)' browseClassRefs) - ('remove method (x)' removeMessage) ('remove from RecentSubmissions' removeFromRecentSubmissions) - ('more...' shiftedYellowButtonActivity)). ^ aMenu! Item was removed: - ----- Method: StringHolder>>browseClassVarRefs (in category '*Tools-traits') ----- - browseClassVarRefs - "1/17/96 sw: devolve responsibility to the class, so that the code that does the real work can be shared" - - | cls | - cls := self selectedClass. - (cls notNil and: [cls isTrait not]) - ifTrue: [self systemNavigation browseClassVarRefs: cls]! Item was removed: - ----- Method: StringHolder>>browseClassVariables (in category '*Tools-traits') ----- - browseClassVariables - "Browse the class variables of the selected class. 2/5/96 sw" - | cls | - cls := self selectedClass. - (cls notNil and: [cls isTrait not]) - ifTrue: [self systemNavigation browseClassVariables: cls] - ! Item was removed: - ----- Method: StringHolder>>browseInstVarDefs (in category '*Tools-traits') ----- - browseInstVarDefs - - | cls | - cls := self selectedClassOrMetaClass. - (cls notNil and: [cls isTrait not]) - ifTrue: [self systemNavigation browseInstVarDefs: cls]! Item was removed: - ----- Method: StringHolder>>browseInstVarRefs (in category '*Tools-traits') ----- - browseInstVarRefs - "1/26/96 sw: real work moved to class, so it can be shared" - | cls | - cls := self selectedClassOrMetaClass. - (cls notNil and: [cls isTrait not]) - ifTrue: [self systemNavigation browseInstVarRefs: cls]! Item was added: + ----- Method: StringHolder>>browseVariableAssignments (in category '*Tools-traits') ----- + browseVariableAssignments + | cls | + cls := self selectedClassOrMetaClass. + (cls notNil and: [ cls isTrait not ]) ifTrue: [ self systemNavigation browseVariableAssignments: cls ]! Item was added: + ----- Method: StringHolder>>browseVariableReferences (in category '*Tools-traits') ----- + browseVariableReferences + | cls | + cls := self selectedClassOrMetaClass. + (cls notNil and: [cls isTrait not]) + ifTrue: [self systemNavigation browseVariableReferences: cls]! Item was changed: ----- Method: StringHolder>>classListKey:from: (in category '*Tools') ----- classListKey: aChar from: view "Respond to a Command key. I am a model with a list of classes and a code pane, and I also have a listView that has a list of methods. The view knows how to get the list and selection." aChar == $f ifTrue: [^ self findMethod]. + aChar == $r ifTrue: [^ self browseVariableReferences]. + aChar == $a ifTrue: [^ self browseVariableAssignments]. - aChar == $r ifTrue: [^ self browseInstVarRefs]. - aChar == $d ifTrue: [^ self browseInstVarDefs]. aChar == $h ifTrue: [^ self spawnHierarchy]. aChar == $x ifTrue: [^ self removeClass]. ^ self messageListKey: aChar from: view!

1 0

The Trunk: Tools-cmm.347.mcz
by commits＠source.squeak.org 03 May '11

03 May '11

1 0

The Trunk: Tools-cmm.347.mcz
by commits＠source.squeak.org 03 May '11

03 May '11

1 0

The Trunk: Tools-fbs.346.mcz
by commits＠source.squeak.org 02 May '11

02 May '11

Levente Uzonyi uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-fbs.346.mcz ==================== Summary ==================== Name: Tools-fbs.346 Author: fbs Time: 1 May 2011, 9:06:39.414 am UUID: ef81c913-2138-874f-aa5a-8d8182d32298 Ancestors: Tools-cmm.345 Maintain the currently selected message category and method when resorting the message categories (http://bugs.squeak.org/view.php?id=7626). =============== Diff against Tools-cmm.345 =============== Item was changed: ----- Method: Browser>>alphabetizeMessageCategories (in category 'message category functions') ----- alphabetizeMessageCategories + | oldMessageCategory oldMethod | + oldMessageCategory := selectedMessageCategoryName. + oldMethod := selectedMessageName. self hasClassSelected ifFalse: [^ false]. self okToChange ifFalse: [^ false]. self classOrMetaClassOrganizer sortCategories. self clearUserEditFlag. self editClass. self selectClassNamed: selectedClassName. + self selectMessageCategoryNamed: oldMessageCategory. + self selectMessageNamed: oldMethod. ^ true!

1 0

The Trunk: Tools-fbs.346.mcz
by commits＠source.squeak.org 02 May '11

02 May '11

1 0

The Trunk: Tools-fbs.346.mcz
by commits＠source.squeak.org 02 May '11

02 May '11

1 0

The Trunk: Tools-fbs.345.mcz
by commits＠source.squeak.org 02 May '11

02 May '11

Levente Uzonyi uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-fbs.345.mcz ==================== Summary ==================== Name: Tools-fbs.345 Author: fbs Time: 26 April 2011, 8:44:19.26 am UUID: 52e2c842-2c27-0247-8b93-05056b5ab133 Ancestors: Tools-fbs.344 Levente Uzonyi found that deleting the last message in a MessageSet raised an error. This fixes the error by checking the list of messages: if there are no messages in the Browser (or subclass) instance, then explicitly select "no method selected". =============== Diff against Tools-fbs.344 =============== Item was changed: ----- Method: Browser>>reformulateList (in category 'message list') ----- reformulateList "If the receiver has a way of reformulating its message list, here is a chance for it to do so" super reformulateList. (self messageList includes: self selectedMessageName) + ifFalse: [ self messageList + ifEmpty: [ self selectMessageNamed: nil ] + ifNotEmpty: [ self selectMessageNamed: self lastMessageName ]].! - ifFalse: [ self selectMessageNamed: self lastMessageName ].!

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 May 2011