Levente Uzonyi uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ul.356.mcz
==================== Summary ====================
Name: Tools-ul.356 Author: ul Time: 22 May 2011, 11:45:19.335 pm UUID: 8094a077-168f-b343-a358-68f7d6b377c9 Ancestors: Tools-laza.355, Tools-fbs.355
- merged - changed the postscript to initialize the bindings variable of workspaces
=============== Diff against Tools-laza.355 ===============
Item was changed: ----- Method: Browser>>selectClassNamed: (in category 'class list') ----- selectClassNamed: aSymbolOrString | className currentMessageCategoryName currentMessageName | currentMessageCategoryName := [self selectedMessageCategoryName] on: Error do: [:ex| ex return: nil]. currentMessageName := [self selectedMessageName] on: Error do: [:ex| ex return: nil]. selectedClassName := aSymbolOrString ifNotNil: [ aSymbolOrString asSymbol ]. self setClassOrganizer.
"Try to reselect the category and/or selector if the new class has them." selectedMessageCategoryName :=(self messageCategoryList includes: currentMessageCategoryName) ifTrue: [currentMessageCategoryName] ifFalse: [nil]. + selectedMessageName := currentMessageName. - selectedMessageName := (self hasMessageCategorySelected - ifTrue: [ currentMessageName ] - ifFalse: [ nil ]).
self hasMessageSelected ifTrue: [self editSelection: #editMessage] ifFalse: [self hasMessageCategorySelected ifTrue: [self editSelection: #newMessage] ifFalse: [self classCommentIndicated ifTrue: [self editSelection: #editComment] ifFalse: [self editSelection: (self hasClassSelected not ifTrue: [(metaClassIndicated or: [ self hasSystemCategorySelected not ]) ifTrue: [#none] ifFalse: [#newClass]] ifFalse: [#editClass])]]]. contents := nil. self selectedClass isNil ifFalse: [className := self selectedClass name. (RecentClasses includes: className) ifTrue: [RecentClasses remove: className]. RecentClasses addFirst: className. RecentClasses size > 16 ifTrue: [RecentClasses removeLast]]. self changed: #classSelectionChanged. self changed: #classCommentText. self changed: #classListIndex. "update my selection" self changed: #messageCategoryList. self changed: #messageList. self changed: #relabel. self contentsChanged!
Item was changed: + (PackageInfo named: 'Tools') postscript: 'Workspace allSubInstancesDo: [ :each | (each instVarNamed: #bindings) ifNil: [ each initializeBindings ] ]'! - (PackageInfo named: 'Tools') postscript: '"below, add code to be run after the loading of this package" - World isWorldMorph ifTrue: [ World initializeDesktopCommandKeySelectors ]. - CodeHolder initialize'!
packages@lists.squeakfoundation.org