Squeak-dev January 2016

squeak-dev@lists.squeakfoundation.org

40 participants
206 discussions

Daily Commit Log
by commits＠source.squeak.org 22 Jan '16

22 Jan '16

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2016-January/009273.ht… Name: System-mt.788 Ancestors: System-eem.787 Add support for browsing message categories to toolsets. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-January/009274.ht… Name: Tools-mt.667 Ancestors: Tools-kfr.666 Cleans up code regarding spawning system and hierarchy browsers. Adds support for browser message categories via toolsets. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-January/009275.ht… Name: EToys-mt.132 Ancestors: EToys-cmm.131 Use tool set to spawn hierarchy browser. =============================================

1 0

Smalltalk website tricks
by Craig Latta 22 Jan '16

22 Jan '16

Hi-- I wrote a new website for Black Page Digital, my consultancy in Amsterdam and San Francisco. It includes SqueakJS running in a 3D CSS viewport, kinda cute. Please check it out, pass it on, and let me know what you think! http://thiscontext.com/2016/01/21/new-website-for-black-page-digital thanks, -C -- Craig Latta Black Page Digital postbus 10784 1001ET Amsterdam, Netherlands craig(a)blackpagedigital.com +31 6 2757 7177 (SMS ok) + 1 415 287 3547 (no SMS)

7 14

[OT] Desktop Neo
by Bernhard Pieber 22 Jan '16

22 Jan '16

This concept made it into one of Austria’s main daily papers today: http://derstandard.at/2000029476950/Neo-21-Jaehriger-Student-will-den-Deskt… (in German) Here the original link: https://www.desktopneo.com I find the concept interesting and thought, others on the lists might, too. In the screenshots and the video you can see references to Alan Kay’s Wikipedia page, including Squeak, Etoys, Tweak, and Croquet. Cheers, Bernhard

1 0

The Trunk: EToys-mt.132.mcz
by commits＠source.squeak.org 22 Jan '16

22 Jan '16

Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-mt.132.mcz ==================== Summary ==================== Name: EToys-mt.132 Author: mt Time: 22 January 2016, 2:28:46.325541 pm UUID: f70ffb37-684a-4e38-b662-cc8ce9563c40 Ancestors: EToys-cmm.131 Use tool set to spawn hierarchy browser. =============== Diff against EToys-cmm.131 =============== Item was changed: ----- Method: StackMorph>>browseCardClass (in category 'card access') ----- browseCardClass "Browse the class of the current card" | suffix | suffix := self currentCard class name numericSuffix. + ToolSet browseHierarchy: self currentCard class selector: nil. - HierarchyBrowser newFor: self currentCard class labeled: 'Background ', suffix asString !

1 0

The Trunk: Tools-mt.667.mcz
by commits＠source.squeak.org 22 Jan '16

22 Jan '16

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.667.mcz ==================== Summary ==================== Name: Tools-mt.667 Author: mt Time: 22 January 2016, 2:27:46.750541 pm UUID: be24b1d6-4343-49a7-a3fa-ccafb5215cdb Ancestors: Tools-kfr.666 Cleans up code regarding spawning system and hierarchy browsers. Adds support for browser message categories via toolsets. =============== Diff against Tools-kfr.666 =============== Item was changed: ----- Method: Browser class>>fullOnClass: (in category 'instance creation') ----- fullOnClass: aClass "Open a new full browser set to class." + + ^ self + openBrowserView: (self new + setClass: aClass; + openEditString: nil) + label: nil! - | brow | - brow := self new. - brow setClass: aClass selector: nil. - ^ self - openBrowserView: (brow openEditString: nil) - label: 'System Browser'! Item was added: + ----- Method: Browser class>>fullOnClass:category: (in category 'instance creation') ----- + fullOnClass: aClass category: category + + ^ self + openBrowserView: (self new + setClass: aClass; + selectMessageCategoryNamed: category; + openEditString: nil) + label: nil! Item was changed: ----- Method: Browser class>>fullOnClass:selector: (in category 'instance creation') ----- fullOnClass: aClass selector: aSelector "Open a new full browser set to class." + ^ self + openBrowserView: (self new + setClass: aClass selector: aSelector; + openEditString: nil) + label: nil! - | brow classToUse | - classToUse := SystemBrowser default. - brow := classToUse new. - brow setClass: aClass selector: aSelector. - ^ classToUse - openBrowserView: (brow openEditString: nil) - label: brow labelString! Item was changed: ----- Method: Browser class>>newOnClass:label: (in category 'instance creation') ----- newOnClass: aClass label: aLabel "Open a new class browser on this class." | newBrowser | newBrowser := self new. + newBrowser setClass: aClass. - newBrowser setClass: aClass selector: nil. ^ self openBrowserView: (newBrowser openOnClassWithEditString: nil) label: aLabel ! Item was added: + ----- Method: Browser class>>newOnMessageCategory:inClass: (in category 'instance creation') ----- + newOnMessageCategory: aCategory inClass: aClass + + ^ self + openBrowserView: (self new + setClass: aClass; + selectMessageCategoryNamed: aCategory; + openMessageCatEditString: nil) + label: 'Message Category Browser (' , aClass name, ')'.! Item was changed: ----- Method: Browser class>>openBrowserView:label: (in category 'instance creation') ----- openBrowserView: aBrowserView label: aString "Schedule aBrowserView, labelling the view aString." + + (aBrowserView isKindOf: ToolBuilderSpec) + ifTrue:[ + (self canUseMultiWindowBrowsers + and: [self useMultiWindowBrowsers]) + ifTrue: [aBrowserView multiWindowStyle: #labelButton]. + aString + ifNil: [ToolBuilder open: aBrowserView] + ifNotNil: [ToolBuilder open: aBrowserView label: aString]] + ifFalse:[ + aBrowserView isMorph + ifTrue: [ + aString ifNotNil: [aBrowserView setLabel: aString]. + aBrowserView openInWorld] + ifFalse: [ + aString ifNotNil: [aBrowserView label: aString]. + aBrowserView minimumSize: 300 @ 200. + aBrowserView subViews do: [:each | each controller]. + aBrowserView controller open]]. + - (aBrowserView isKindOf: ToolBuilderSpec) ifTrue:[ - (self canUseMultiWindowBrowsers - and: [self useMultiWindowBrowsers]) ifTrue: - [aBrowserView multiWindowStyle: #labelButton]. - ToolBuilder open: aBrowserView label: aString. - ] ifFalse:[ - aBrowserView isMorph - ifTrue: [(aBrowserView setLabel: aString) openInWorld] - ifFalse: [aBrowserView label: aString. - aBrowserView minimumSize: 300 @ 200. - aBrowserView subViews do: [:each | each controller]. - aBrowserView controller open]. - ]. ^ aBrowserView model ! Item was changed: ----- Method: Browser>>buildMessageCategoryBrowserEditString: (in category 'message category functions') ----- buildMessageCategoryBrowserEditString: aString "Create and schedule a message category browser for the currently selected message category. The initial text view contains the characters in aString." - "wod 6/24/1998: set newBrowser classListIndex so that it works whether the - receiver is a standard or a Hierarchy Browser." + ^ self hasMessageCategorySelected ifTrue: [ + (self class + newOnMessageCategory: self selectedMessageCategoryName + inClass: self selectedClassOrMetaClass) + "Select my message." + selectMessageNamed: self selectedMessageName; + yourself]! - | newBrowser | - ^ self hasMessageCategorySelected - ifFalse: [ nil ] - ifTrue: - [newBrowser := Browser new. - newBrowser selectSystemCategory: self selectedSystemCategory. - newBrowser selectClass: self selectedClass. - newBrowser metaClassIndicated: self metaClassIndicated. - newBrowser selectMessageCategoryNamed: self selectedMessageCategoryName. - newBrowser selectMessageNamed: self selectedMessageName. - self class openBrowserView: (newBrowser openMessageCatEditString: aString) - label: 'Message Category Browser (' , - newBrowser selectedClassOrMetaClassName , ')'. - newBrowser.].! Item was added: + ----- Method: Browser>>setClass: (in category 'initialize-release') ----- + setClass: aBehavior + "Set the state of a new, uninitialized Browser." + + | isMeta aClass | + aBehavior ifNil: [^ self]. + (aBehavior isKindOf: Metaclass) + ifTrue: [ + isMeta := true. + aClass := aBehavior soleInstance] + ifFalse: [ + isMeta := false. + aClass := aBehavior]. + + self + selectEnvironment: aClass environment; + selectCategoryForClass: aClass; + classListIndex: (self classListIndexOf: aClass name); + metaClassIndicated: isMeta.! Item was changed: ----- Method: Browser>>setClass:selector: (in category 'initialize-release') ----- setClass: aBehavior selector: aSymbol "Set the state of a new, uninitialized Browser." - | isMeta aClass | aBehavior ifNil: [^ self]. + - (aBehavior isKindOf: Metaclass) - ifTrue: [ - isMeta := true. - aClass := aBehavior soleInstance] - ifFalse: [ - isMeta := false. - aClass := aBehavior]. - self + setClass: aBehavior; - selectEnvironment: aClass environment; - selectCategoryForClass: aClass; - classListIndex: (self classListIndexOf: aClass name); - metaClassIndicated: isMeta; setSelector: aSymbol.! 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 ]. aChar == $d ifTrue: [^ self removeMessageFromBrowser]. "The following require a class selection" (class := self selectedClassOrMetaClass) ifNil: [^ self arrowKey: aChar from: view]. + aChar == $b ifTrue: [^ ToolSet browse: class selector: sel]. - 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 == $x ifTrue: [^ self removeMessage]. aChar == $C ifTrue: [ self copyReference ]. (aChar == $Y and: [self canShowMultipleMessageCategories]) ifTrue: [^ self showHomeCategory]]. ^ self arrowKey: aChar from: view! Item was changed: ----- Method: CodeHolder>>spawnHierarchy (in category 'traits') ----- spawnHierarchy "Create and schedule a new hierarchy browser on the currently selected class or meta." + ^ ToolSet + browseHierarchy: self selectedClassOrMetaClass + selector: self selectedMessageName! - | newBrowser aSymbol selectedClassOrMetaClass | - (selectedClassOrMetaClass := self selectedClassOrMetaClass) - ifNil: [^ self]. - selectedClassOrMetaClass isTrait ifTrue: [^self]. - newBrowser := HierarchyBrowser new initHierarchyForClass: selectedClassOrMetaClass. - ((aSymbol := self selectedMessageName) notNil and: [(MessageSet isPseudoSelector: aSymbol) not]) - ifTrue: [newBrowser setSelector: aSymbol]. - Browser - openBrowserView: (newBrowser openSystemCatEditString: nil) - label: newBrowser labelString. - Smalltalk isMorphic - ifTrue: ["this workaround only needed in morphic" - newBrowser assureSelectionsShow]. - ^ newBrowser.! Item was removed: - ----- Method: HierarchyBrowser class>>newFor: (in category 'instance creation') ----- - newFor: aClass - "Open a new HierarchyBrowser on the given class" - | newBrowser | - newBrowser := HierarchyBrowser new initHierarchyForClass: aClass. - Browser openBrowserView: (newBrowser openSystemCatEditString: nil) - label: newBrowser labelString - - "HierarchyBrowser newFor: Boolean"! Item was removed: - ----- Method: HierarchyBrowser class>>newFor:labeled: (in category 'instance creation') ----- - newFor: aClass labeled: aLabel - "Open a new HierarchyBrowser on the given class, using aLabel as the window title." - - | newBrowser | - newBrowser := HierarchyBrowser new initHierarchyForClass: aClass. - Browser openBrowserView: (newBrowser openSystemCatEditString: nil) - label: aLabel - - "HierarchyBrowser newFor: Boolean labeled: 'Testing'"! Item was added: + ----- Method: HierarchyBrowser>>setClass: (in category 'initialization') ----- + setClass: aClass + + self initHierarchyForClass: aClass. + super setClass: aClass.! Item was changed: ----- Method: ProcessBrowser>>browseContext (in category 'stack list') ----- browseContext selectedContext ifNil: [^ self]. + ToolSet browse: self selectedClass selector: self selectedSelector! - Browser newOnClass: self selectedClass selector: self selectedSelector! Item was changed: ----- Method: SelectorBrowser>>classListIndex: (in category 'class list') ----- classListIndex: anInteger classListIndex := anInteger. classListIndex > 0 ifTrue: [self changed: #startNewBrowser. "MVC view will terminate control to prepare for new browser" + ToolSet browse: self selectedClass selector: self selectedMessageName. - Browser fullOnClass: self selectedClass selector: self selectedMessageName. "classListIndex := 0"] ! Item was added: + ----- Method: StandardToolSet class>>browseClass:category: (in category 'browsing') ----- + browseClass: aClass category: aCategory + "Open a browser for a class selecting a given message category." + + ^ SystemBrowser default + fullOnClass: aClass + category: aCategory! Item was changed: ----- Method: StandardToolSet class>>browseHierarchy:selector: (in category 'browsing') ----- browseHierarchy: aClass selector: aSelector "Open a browser" + + ^ HierarchyBrowser fullOnClass: aClass selector: aSelector.! - | newBrowser | - (aClass == nil) ifTrue: [^ self]. - (newBrowser := SystemBrowser default new) setClass: aClass selector: aSelector. - newBrowser spawnHierarchy.! Item was added: + ----- Method: StandardToolSet class>>browseMessageCategory:inClass: (in category 'browsing') ----- + browseMessageCategory: aCategory inClass: aClass + "Open a message category browser." + + ^ SystemBrowser default + newOnMessageCategory: aCategory inClass: aClass.! Item was changed: ----- Method: StringHolder>>messageListKey:from: (in category '*Tools') ----- 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 systemNavigation]. aChar == $n ifTrue: [^ self useSelector: sel orGetSelectorAndSendQuery: #browseAllCallsOn: to: self systemNavigation]. "The following require a class selection" (class := self selectedClassOrMetaClass) ifNil: [^ self arrowKey: aChar from: view]. + aChar == $b ifTrue: [^ ToolSet browse: class selector: sel]. - 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]. "The following require a method selection" sel ifNotNil: [aChar == $o ifTrue: [^ self fileOutMessage]. aChar == $c ifTrue: [^ self copySelector]. aChar == $C ifTrue: [^ self copyReference]. aChar == $v ifTrue: [^ self browseVersions]. aChar == $x ifTrue: [^ self removeMessage]]. ^ self arrowKey: aChar from: view!

1 0

The Trunk: System-mt.788.mcz
by commits＠source.squeak.org 22 Jan '16

22 Jan '16

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.788.mcz ==================== Summary ==================== Name: System-mt.788 Author: mt Time: 22 January 2016, 2:25:42.237541 pm UUID: d8e842ad-39e5-4d38-a0b5-45d7692143a0 Ancestors: System-eem.787 Add support for browsing message categories to toolsets. =============== Diff against System-eem.787 =============== Item was added: + ----- Method: ToolSet class>>browseClass:category: (in category 'browsing') ----- + browseClass: aClass category: aCategory + "Open a browser" + self default ifNil:[^self inform: 'Cannot open Browser']. + ^self default browseClass: aClass category: aCategory! Item was added: + ----- Method: ToolSet class>>browseMessageCategory:inClass: (in category 'browsing') ----- + browseMessageCategory: aCategory inClass: aClass + "Open a message category browser." + self default ifNil:[^self inform: 'Cannot open Browser']. + ^self default browseMessageCategory: aCategory inClass: aClass!

1 0

Board Candidates Needed
by Ron Teitelbaum 22 Jan '16

22 Jan '16

Hi All, So far we have 4 candidates for 7 seats. Tim Rowledge Marcel Taeumel Craig Latta Bert Freudenberg Come on people you can do better. It would be nice if we could get at least 10 candidates! We have 10 days left. Please feel free to encourage people to run. Maybe do it publically on squeak-dev. Squeak needs you!!! All the best, Ron Teitelbaum

3 2

Daily Commit Log
by commits＠source.squeak.org 21 Jan '16

21 Jan '16

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2016-January/009270.ht… Name: Tools-mt.664 Ancestors: Tools-ul.663 Fixes drop behavior in File List. Ignore things that are not files or folders. However, move/copy folders might still work on Unix-based systems only. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-January/009271.ht… Name: Tools-mt.665 Ancestors: Tools-mt.664 After a brief discussion with Bert, remove the possibility to drop folders into the folder tree in the File List tool. To avoid inadvertent restructuring. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-January/009272.ht… Name: Tools-kfr.666 Ancestors: Tools-kfr.664, Tools-mt.665 Fix for full menu =============================================

1 0

The Trunk: Tools-kfr.666.mcz
by commits＠source.squeak.org 21 Jan '16

21 Jan '16

Karl Ramberg uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-kfr.666.mcz ==================== Summary ==================== Name: Tools-kfr.666 Author: kfr Time: 21 January 2016, 4:01:20.739426 pm UUID: f0ce7bca-019a-43f3-9cfb-171cc8e4c9a0 Ancestors: Tools-kfr.664, Tools-mt.665 Fix for full menu =============== Diff against Tools-mt.665 =============== Item was changed: ----- Method: FileList>>fullFileListMenu:shifted: (in category 'file list menu') ----- fullFileListMenu: aMenu shifted: aBoolean "Fill the menu with all possible items for the file list pane, regardless of selection." | lastProvider | aMenu title: 'all possible file operations' translated. aMenu addStayUpItemSpecial. lastProvider := nil. + (self itemsForFile: self fullName) do: [ :svc | - (self itemsForFile: 'a.*') do: [ :svc | (lastProvider notNil and: [svc provider ~~ lastProvider]) ifTrue: [ aMenu addLine ]. svc addServiceFor: self toMenu: aMenu. Smalltalk isMorphic ifTrue: [aMenu submorphs last setBalloonText: svc description]. lastProvider := svc provider. svc addDependent: self. ]. ^aMenu!

1 0

The Trunk: Tools-mt.665.mcz
by commits＠source.squeak.org 21 Jan '16

21 Jan '16

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.665.mcz ==================== Summary ==================== Name: Tools-mt.665 Author: mt Time: 21 January 2016, 3:29:14.847612 pm UUID: 24e30409-d257-4e2a-b221-1d9b4faf786e Ancestors: Tools-mt.664 After a brief discussion with Bert, remove the possibility to drop folders into the folder tree in the File List tool. To avoid inadvertent restructuring. =============== Diff against Tools-mt.664 =============== Item was changed: ----- Method: FileList>>wantsDraggedObject: (in category 'drag''n''drop') ----- wantsDraggedObject: anObject + ^ anObject class == DirectoryEntryFile! - ^ (anObject isKindOf: DirectoryEntry) or: [anObject isKindOf: FileDirectory]!

1 0

← Newer
1
...
4
5
6
7
8
9
10
...
21
Older →

Jump to page: