Squeak-dev December 2000

squeak-dev@lists.squeakfoundation.org

96 participants
272 discussions

Re: Pentium 4 tinyBenchmark results
by Dan Ingalls 02 Dec '00

02 Dec '00

>Ted Wright <wright(a)en.com> is widely believed to have written: >> > > 0 tinyBenchmarks = '118,408,880 bytecodes/sec; 3,085,422 sends/sec' >... >> 0 tinyBenchmarks. '102,236,421 bytecodes/sec; 2994,238 sends/sec' Tim Rowledge <tim(a)sumeru.stanford.edu> responded... >All meaningless. Run some real benchmarks, or failing that (since I've >never seen any 'real' benchmarks worth a cent) at least try the Green >book benchmarks. A copy (that ran ok last time I bothered) can be found >at http://sumeru.stanford.edu/tim/pooters/SqFiles/deltas/sqBenchmarks.cs I disagree that they are meaningless, but you're right that they don't tell the whole story. Your suggested benchmarks are certainly useful, and I've also just added a suite of 7 macro benchmarks in the latest spate of updates. Take a look at SystemDictionary>>macroBenchmarks. Interestingly, a great macro benchmark that leverages off the old standard is... ContextPart runSimulated: [0 tinyBencmarks]. It's a trivially simple meta version of tinyBenchmarks, but it shows that, while J3 shows a 3x and 6x improvement in bytecode speed and send speed, its overall gain is currently typically closer to 2x. - Dan (...another fun one is to run tinyBenchmarks in the InterpreterSimulator ;-)

1 0

[FIX] InspectInstancesFix
by Robert Hirschfeld 02 Dec '00

02 Dec '00

"Change Set: InspectInstancesFix Date: 30 November 2000 Author: Robert Hirschfeld Moves the inspect instances and its variants from the method list menu in Browser and ChangeSorter to the class list menu and updates all instances of Browser and ChangeSorter and their subclasses with the new class list menu selector." 'From Squeak2.9alpha of 2 September 2000 [latest update: #2998] on 30 November 2000 at 7:52:42 am'! "Change Set: InspectInstancesFix Date: 30 November 2000 Author: Robert Hirschfeld Moves the inspect instances and its variants from the method list menu in Browser and ChangeSorter to the class list menu and updates all instances of Browser and ChangeSorter and their subclasses with the new class list menu selector."! !Browser methodsFor: 'class functions' stamp: 'rhi 11/30/2000 01:11'! classListMenu: aMenu shifted: shifted ^ aMenu addList: (shifted ifFalse: [#( - ('browse full (b)' browseMethodFull) ('browse hierarchy (h)' spawnHierarchy) ('browse protocol' spawnProtocol) - ('printOut' printOutClass) ('fileOut' fileOutClass) - ('show hierarchy' hierarchy) ('show definition' editClass) ('show comment' editComment) - ('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...' shiftedYellowButtonActivity))] ifTrue: [#( - ('unsent methods' browseUnusedMethods) ('unreferenced inst vars' showUnreferencedInstVars) ('subclass template' makeNewSubclass) - ('sample instance' makeSampleInstance) ('inspect instances' inspectInstances) ('inspect subinstances' inspectSubInstances) - ('fetch documentation' fetchClassDocPane) - ('more...' unshiftedYellowButtonActivity))])! ! !Browser methodsFor: 'initialize-release' stamp: 'rhi 11/29/2000 23:42'! openAsMorphClassEditing: editString "Create a pluggable version a Browser on just a single class." | window switches codePane baseline aTextMorph dragNDropFlag | window _ (SystemWindow labelled: 'later') model: self. dragNDropFlag _ Preferences browseWithDragNDrop. window addMorph: ((PluggableListMorph on: self list: #classListSingleton selected: #indexIsOne changeSelected: #indexIsOne: menu: #classListMenu:shifted: keystroke: #classListKey:from:) enableDragNDrop: dragNDropFlag) frame: (0@0 extent: 0.5(a)0.06). switches _ self buildMorphicSwitches. window addMorph: switches frame: (0.5@0 extent: 0.5(a)0.06). switches borderWidth: 0. window addMorph: ((PluggableMessageCategoryListMorph on: self list: #messageCategoryList selected: #messageCategoryListIndex changeSelected: #messageCategoryListIndex: menu: #messageCategoryMenu: keystroke: #arrowKey:from: getRawListSelector: #rawMessageCategoryList) enableDragNDrop: dragNDropFlag) frame: (0(a)0.06 extent: 0.5(a)0.30). window addMorph: ((PluggableListMorph on: self list: #messageList selected: #messageListIndex changeSelected: #messageListIndex: menu: #messageListMenu:shifted: keystroke: #messageListKey:from:) enableDragNDrop: dragNDropFlag) frame: (0.5(a)0.06 extent: 0.5(a)0.30). Preferences useAnnotationPanes ifFalse: [baseline _ 0.36] ifTrue: [aTextMorph _ PluggableTextMorph on: self text: #annotation accept: nil readSelection: nil menu: nil. aTextMorph askBeforeDiscardingEdits: false. window addMorph: aTextMorph frame: (0(a)0.36 corner: 1(a)0.41). baseline _ 0.41]. Preferences optionalButtons ifTrue: [window addMorph: self optionalButtonRow frame: ((0@baseline corner: 1 @ (baseline + 0.08))). baseline _ baseline + 0.08]. codePane _ PluggableTextMorph on: self text: #contents accept: #contents:notifying: readSelection: #contentsSelection menu: #codePaneMenu:shifted:. editString ifNotNil: [codePane editString: editString. codePane hasUnacceptedEdits: true]. window addMorph: codePane frame: (0@baseline corner: 1@1). window setUpdatablePanesFrom: #(messageCategoryList messageList). ^ window! ! !Browser methodsFor: 'initialize-release' stamp: 'rhi 11/29/2000 23:42'! openAsMorphEditing: editString "Create a pluggable version of all the morphs for a Browser in Morphic" | window switches codePane aListMorph baseline aTextMorph dragNDropFlag | window _ (SystemWindow labelled: 'later') model: self. dragNDropFlag _ Preferences browseWithDragNDrop. window addMorph: ((PluggableListMorph on: self list: #systemCategoryList selected: #systemCategoryListIndex changeSelected: #systemCategoryListIndex: menu: #systemCategoryMenu: keystroke: #systemCatListKey:from:) enableDragNDrop: dragNDropFlag) frame: (0@0 extent: 0.25(a)0.4). window addMorph: ((PluggableListMorph on: self list: #classList selected: #classListIndex changeSelected: #classListIndex: menu: #classListMenu:shifted: keystroke: #classListKey:from:) enableDragNDrop: dragNDropFlag) frame: (0.25@0 extent: 0.25(a)0.3). switches _ self buildMorphicSwitches. window addMorph: switches frame: (0.25(a)0.3 extent: 0.25(a)0.1). switches borderWidth: 0. window addMorph: ((PluggableMessageCategoryListMorph on: self list: #messageCategoryList selected: #messageCategoryListIndex changeSelected: #messageCategoryListIndex: menu: #messageCategoryMenu: keystroke: #arrowKey:from: getRawListSelector: #rawMessageCategoryList) enableDragNDrop: dragNDropFlag) frame: (0.5@0 extent: 0.25(a)0.4). aListMorph _ PluggableListMorph on: self list: #messageList selected: #messageListIndex changeSelected: #messageListIndex: menu: #messageListMenu:shifted: keystroke: #messageListKey:from:. aListMorph enableDragNDrop: dragNDropFlag. aListMorph menuTitleSelector: #messageListSelectorTitle. window addMorph: aListMorph frame: (0.75@0 extent: 0.25(a)0.4). Preferences useAnnotationPanes ifFalse: [baseline _ 0.4] ifTrue: [aTextMorph _ PluggableTextMorph on: self text: #annotation accept: nil readSelection: nil menu: nil. aTextMorph askBeforeDiscardingEdits: false. window addMorph: aTextMorph frame: (0(a)0.4 corner: 1(a)0.45). baseline _ 0.45]. Preferences optionalButtons ifTrue: [window addMorph: self optionalButtonRow frame: ((0@baseline corner: 1 @ (baseline + 0.08))). baseline _ baseline + 0.08]. codePane _ PluggableTextMorph on: self text: #contents accept: #contents:notifying: readSelection: #contentsSelection menu: #codePaneMenu:shifted:. editString ifNotNil: [codePane editString: editString. codePane hasUnacceptedEdits: true]. window addMorph: codePane frame: (0 @ baseline corner: 1 @ 1). window setUpdatablePanesFrom: #(systemCategoryList classList messageCategoryList messageList). ^ window! ! !Browser methodsFor: 'initialize-release' stamp: 'rhi 11/29/2000 23:42'! openAsMorphSysCatEditing: editString "Create a pluggable version of all the views for a Browser, including views and controllers." | window switches codePane baseline aTextMorph dragNDropFlag | window _ (SystemWindow labelled: 'later') model: self. dragNDropFlag _ Preferences browseWithDragNDrop. window addMorph: ((PluggableListMorph on: self list: #systemCategorySingleton selected: #indexIsOne changeSelected: #indexIsOne: menu: #systemCatSingletonMenu: keystroke: #systemCatSingletonKey:from:) enableDragNDrop: dragNDropFlag) frame: (0@0 extent: 1.0(a)0.06). window addMorph: ((PluggableListMorph on: self list: #classList selected: #classListIndex changeSelected: #classListIndex: menu: #classListMenu:shifted: keystroke: #classListKey:from:) enableDragNDrop: dragNDropFlag) frame: (0(a)0.06 extent: 0.3333(a)0.24). switches _ self buildMorphicSwitches. window addMorph: switches frame: (0(a)0.3 extent: 0.3333(a)0.06). switches borderWidth: 0. window addMorph: ((PluggableMessageCategoryListMorph on: self list: #messageCategoryList selected: #messageCategoryListIndex changeSelected: #messageCategoryListIndex: menu: #messageCategoryMenu: keystroke: #arrowKey:from: getRawListSelector: #rawMessageCategoryList) enableDragNDrop: dragNDropFlag) frame: (0.3333(a)0.06 extent: 0.3333(a)0.30). window addMorph: ((PluggableListMorph on: self list: #messageList selected: #messageListIndex changeSelected: #messageListIndex: menu: #messageListMenu:shifted: keystroke: #messageListKey:from:) enableDragNDrop: dragNDropFlag) frame: (0.6666(a)0.06 extent: 0.3333(a)0.30). Preferences useAnnotationPanes ifFalse: [baseline _ 0.36] ifTrue: [baseline _ 0.41. aTextMorph _ PluggableTextMorph on: self text: #annotation accept: nil readSelection: nil menu: nil. aTextMorph askBeforeDiscardingEdits: false. window addMorph: aTextMorph frame: (0(a)0.36 corner: 1@baseline)]. Preferences optionalButtons ifTrue: [window addMorph: self optionalButtonRow frame: ((0@baseline corner: 1 @ (baseline + 0.08))). baseline _ baseline + 0.08]. codePane _ PluggableTextMorph on: self text: #contents accept: #contents:notifying: readSelection: #contentsSelection menu: #codePaneMenu:shifted:. editString ifNotNil: [codePane editString: editString. codePane hasUnacceptedEdits: true]. window addMorph: codePane frame: (0@baseline corner: 1@1). window setUpdatablePanesFrom: #( classList messageCategoryList messageList). ^ window! ! !Browser methodsFor: 'initialize-release' stamp: 'rhi 11/29/2000 23:42'! openEditString: aString "Create a pluggable version of all the views for a Browser, including views and controllers." | systemCategoryListView classListView messageCategoryListView messageListView browserCodeView topView switchView underPane y optionalButtonsView annotationPane | self couldOpenInMorphic ifTrue: [^ self openAsMorphEditing: aString]. "Sensor leftShiftDown ifTrue: [^ self openAsMorphEditing: aString]. uncomment-out for testing morphic browser embedded in mvc project" topView _ StandardSystemView new model: self. topView borderWidth: 1. "label and minSize taken care of by caller" systemCategoryListView _ PluggableListView on: self list: #systemCategoryList selected: #systemCategoryListIndex changeSelected: #systemCategoryListIndex: menu: #systemCategoryMenu: keystroke: #systemCatListKey:from:. systemCategoryListView window: (0 @ 0 extent: 50 @ 70). topView addSubView: systemCategoryListView. classListView _ PluggableListView on: self list: #classList selected: #classListIndex changeSelected: #classListIndex: menu: #classListMenu:shifted: keystroke: #classListKey:from:. classListView window: (0 @ 0 extent: 50 @ 62). topView addSubView: classListView toRightOf: systemCategoryListView. switchView _ self buildInstanceClassSwitchView. switchView borderWidth: 1. topView addSubView: switchView below: classListView. messageCategoryListView _ PluggableListView on: self list: #messageCategoryList selected: #messageCategoryListIndex changeSelected: #messageCategoryListIndex: menu: #messageCategoryMenu:. messageCategoryListView window: (0 @ 0 extent: 50 @ 70). topView addSubView: messageCategoryListView toRightOf: classListView. messageListView _ PluggableListView on: self list: #messageList selected: #messageListIndex changeSelected: #messageListIndex: menu: #messageListMenu:shifted: keystroke: #messageListKey:from:. messageListView window: (0 @ 0 extent: 50 @ 70). messageListView menuTitleSelector: #messageListSelectorTitle. topView addSubView: messageListView toRightOf: messageCategoryListView. Preferences useAnnotationPanes ifTrue: [annotationPane _ PluggableTextView on: self text: #annotation accept: nil readSelection: nil menu: nil. annotationPane window: (0@0 extent: 200@self optionalAnnotationHeight). topView addSubView: annotationPane below: systemCategoryListView. underPane _ annotationPane. y _ 110 - self optionalAnnotationHeight] ifFalse: [ underPane _ systemCategoryListView. y _ 110]. Preferences optionalButtons ifTrue: [optionalButtonsView _ self buildOptionalButtonsView. optionalButtonsView borderWidth: 1. topView addSubView: optionalButtonsView below: underPane. underPane _ optionalButtonsView. y _ y - self optionalButtonHeight]. browserCodeView _ PluggableTextView on: self text: #contents accept: #contents:notifying: readSelection: #contentsSelection menu: #codePaneMenu:shifted:. browserCodeView window: (0@0 extent: 200@y). topView addSubView: browserCodeView below: underPane. aString ifNotNil: [browserCodeView editString: aString. browserCodeView hasUnacceptedEdits: true]. topView setUpdatablePanesFrom: #(systemCategoryList classList messageCategoryList messageList). ^ topView! ! !Browser methodsFor: 'initialize-release' stamp: 'rhi 11/29/2000 23:43'! openOnClassWithEditString: aString "Create a pluggable version of all the views for a Browser, including views and controllers." | classListView messageCategoryListView messageListView browserCodeView topView switchView annotationPane underPane y optionalButtonsView | Smalltalk isMorphic ifTrue: [^ self openAsMorphClassEditing: aString]. topView _ (StandardSystemView new) model: self. topView borderWidth: 1. "label and minSize taken care of by caller" classListView _ PluggableListView on: self list: #classListSingleton selected: #indexIsOne changeSelected: #indexIsOne: menu: #classListMenu:shifted: keystroke: #classListKey:from:. classListView window: (0 @ 0 extent: 100 @ 12). topView addSubView: classListView. messageCategoryListView _ PluggableListView on: self list: #messageCategoryList selected: #messageCategoryListIndex changeSelected: #messageCategoryListIndex: menu: #messageCategoryMenu:. messageCategoryListView window: (0 @ 0 extent: 100 @ 70). topView addSubView: messageCategoryListView below: classListView. messageListView _ PluggableListView on: self list: #messageList selected: #messageListIndex changeSelected: #messageListIndex: menu: #messageListMenu:shifted: keystroke: #messageListKey:from:. messageListView menuTitleSelector: #messageListSelectorTitle. messageListView window: (0 @ 0 extent: 100 @ 70). topView addSubView: messageListView toRightOf: messageCategoryListView. switchView _ self buildInstanceClassSwitchView. switchView borderWidth: 1. switchView window: switchView window viewport: (classListView viewport topRight corner: messageListView viewport topRight). topView addSubView: switchView toRightOf: classListView. Preferences useAnnotationPanes ifTrue: [annotationPane _ PluggableTextView on: self text: #annotation accept: nil readSelection: nil menu: nil. annotationPane window: (0@0 extent: 200@self optionalAnnotationHeight). topView addSubView: annotationPane below: messageCategoryListView. underPane _ annotationPane. y _ (200-12-70) - self optionalAnnotationHeight] ifFalse: [underPane _ messageCategoryListView. y _ (200-12-70)]. Preferences optionalButtons ifTrue: [optionalButtonsView _ self buildOptionalButtonsView. optionalButtonsView borderWidth: 1. topView addSubView: optionalButtonsView below: underPane. underPane _ optionalButtonsView. y _ y - self optionalButtonHeight]. browserCodeView _ PluggableTextView on: self text: #contents accept: #contents:notifying: readSelection: #contentsSelection menu: #codePaneMenu:shifted:. browserCodeView window: (0@0 extent: 200@y). topView addSubView: browserCodeView below: underPane. aString ifNotNil: [browserCodeView editString: aString. browserCodeView hasUnacceptedEdits: true]. topView setUpdatablePanesFrom: #(messageCategoryList messageList). ^ topView ! ! !Browser methodsFor: 'initialize-release' stamp: 'rhi 11/29/2000 23:43'! openSystemCatEditString: aString "Create a pluggable version of all the views for a Browser, including views and controllers. The top list view is of the currently selected system class category--a single item list." | systemCategoryListView classListView messageCategoryListView messageListView browserCodeView topView switchView y annotationPane underPane optionalButtonsView | Smalltalk isMorphic ifTrue: [^ self openAsMorphSysCatEditing: aString]. topView _ (StandardSystemView new) model: self. topView borderWidth: 1. "label and minSize taken care of by caller" systemCategoryListView _ PluggableListView on: self list: #systemCategorySingleton selected: #indexIsOne changeSelected: #indexIsOne: menu: #systemCatSingletonMenu: keystroke: #systemCatSingletonKey:from:. systemCategoryListView window: (0 @ 0 extent: 200 @ 12). topView addSubView: systemCategoryListView. classListView _ PluggableListView on: self list: #classList selected: #classListIndex changeSelected: #classListIndex: menu: #classListMenu:shifted: keystroke: #classListKey:from:. classListView window: (0 @ 0 extent: 67 @ 62). topView addSubView: classListView below: systemCategoryListView. messageCategoryListView _ PluggableListView on: self list: #messageCategoryList selected: #messageCategoryListIndex changeSelected: #messageCategoryListIndex: menu: #messageCategoryMenu:. messageCategoryListView window: (0 @ 0 extent: 66 @ 70). topView addSubView: messageCategoryListView toRightOf: classListView. switchView _ self buildInstanceClassSwitchView. switchView window: switchView window viewport: (classListView viewport bottomLeft corner: messageCategoryListView viewport bottomLeft). switchView borderWidth: 1. topView addSubView: switchView below: classListView. messageListView _ PluggableListView on: self list: #messageList selected: #messageListIndex changeSelected: #messageListIndex: menu: #messageListMenu:shifted: keystroke: #messageListKey:from:. messageListView menuTitleSelector: #messageListSelectorTitle. messageListView window: (0 @ 0 extent: 67 @ 70). topView addSubView: messageListView toRightOf: messageCategoryListView. Preferences useAnnotationPanes ifTrue: [ annotationPane _ PluggableTextView on: self text: #annotation accept: nil readSelection: nil menu: nil. annotationPane window: (0@0 extent: 200@self optionalAnnotationHeight). topView addSubView: annotationPane below: switchView. y _ 110 - 12 - self optionalAnnotationHeight. underPane _ annotationPane] ifFalse: [ y _ 110 - 12. underPane _ switchView]. Preferences optionalButtons ifTrue: [optionalButtonsView _ self buildOptionalButtonsView. optionalButtonsView borderWidth: 1. topView addSubView: optionalButtonsView below: underPane. underPane _ optionalButtonsView. y _ y - self optionalButtonHeight]. browserCodeView _ PluggableTextView on: self text: #contents accept: #contents:notifying: readSelection: #contentsSelection menu: #codePaneMenu:shifted:. browserCodeView window: (0@0 extent: 200@y). topView addSubView: browserCodeView below: underPane. aString ifNotNil: [browserCodeView editString: aString. browserCodeView hasUnacceptedEdits: true]. topView setUpdatablePanesFrom: #(classList messageCategoryList messageList). ^ topView! ! !Browser methodsFor: 'message functions' stamp: 'rhi 11/30/2000 01:10'! messageListMenu: aMenu shifted: shifted ^ aMenu addList: (shifted ifFalse: [#( - ('browse full (b)' browseMethodFull) ('browse hierarchy (h)' classHierarchy) ('browse method (O)' openSingleMessageBrowser) - ('fileOut' fileOutMessage) ('printOut' printOutMessage) - ('senders of... (n)' browseSendersOfMessages) ('implementors of... (m)' browseMessages) ('inheritance (i)' methodHierarchy) ('tile scriptor' openSyntaxView) ('versions (v)' browseVersions) - ('inst var refs...' browseInstVarRefs) ('inst var defs...' browseInstVarDefs) ('class var refs...' browseClassVarRefs) ('class variables' browseClassVariables) ('class refs (N)' browseClassRefs) - ('remove method (x)' removeMessage) - ('more...' shiftedYellowButtonActivity))] ifTrue: [#( - ('method pane' makeIsolatedCodePane) "('make a scriptor' makeScriptor)" ('toggle diffing' toggleDiffing) ('implementors of sent messages' browseAllMessages) - ('remove from this browser' removeMessageFromBrowser) ('change category...' changeCategory) - ('change sets with this method' findMethodInChangeSets) ('revert to previous version' revertToPreviousVersion) ('remove from current change set' removeFromCurrentChanges) ('revert and forget' revertAndForget) - ('fetch documentation' fetchDocPane) - ('more...' unshiftedYellowButtonActivity))])! ! !ChangeSorter methodsFor: 'class list' stamp: 'rhi 11/30/2000 01:09'! classMenu: aMenu shifted: shifted (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 chgs from this change set' forgetClass) - ('browse full (b)' browseMethodFull) ('browse hierarchy (h)' spawnHierarchy) ('browse protocol' spawnProtocol) - ('printOut' printOutClass) ('fileOut' fileOutClass) - ('inst var refs...' browseInstVarRefs) ('inst var defs...' browseInstVarDefs) ('class var refs...' browseClassVarRefs) ('class vars' browseClassVariables) ('class refs (N)' browseClassRefs) - ('more...' shiftedYellowButtonActivity))] ifTrue: [#( - ('unsent methods' browseUnusedMethods) ('unreferenced inst vars' showUnreferencedInstVars) - ('sample instance' makeSampleInstance) ('inspect instances' inspectInstances) ('inspect subinstances' inspectSubInstances) - ('more...' unshiftedYellowButtonActivity))])! ! !ChangeSorter methodsFor: 'message list' stamp: 'rhi 11/30/2000 00:52'! shiftedMessageMenu: aMenu ^ aMenu addList: #( - ('method pane' makeIsolatedCodePane) ('toggle diffing' toggleDiffing) ('implementors of sent messages' browseAllMessages) ('change category...' changeCategory) - ('change sets with this method' findMethodInChangeSets) ('revert to previous version' revertToPreviousVersion) ('revert and forget' revertAndForget) - ('more...' unshiftedYellowButtonActivity))! ! !PackageBrowser methodsFor: 'initialize-release' stamp: 'rhi 11/29/2000 23:43'! openAsMorphEditing: editString "Create a pluggable version of all the views for a Browser, including views and controllers." "PackageBrowser openBrowser" | listHeight buttonHeight window switches codePane aListMorph dragNDropFlag | listHeight _ 0.33. buttonHeight _ 0.09. window _ (SystemWindow labelled: 'later') model: self. dragNDropFlag _ Preferences browseWithDragNDrop. window addMorph: (PluggableListMorph on: self list: #packageList selected: #packageListIndex changeSelected: #packageListIndex: menu: #packageMenu: keystroke: #packageListKey:from:) frame: (0 @ 0 extent: 0.15 @ listHeight). window addMorph: ((PluggableListMorph on: self list: #systemCategoryList selected: #systemCategoryListIndex changeSelected: #systemCategoryListIndex: menu: #systemCategoryMenu: keystroke: #systemCatListKey:from:) enableDrag: false; enableDrop: dragNDropFlag) frame: (0.15 @ 0 extent: 0.2 @ listHeight). window addMorph: ((PluggableListMorph on: self list: #classList selected: #classListIndex changeSelected: #classListIndex: menu: #classListMenu:shifted: keystroke: #classListKey:from:) enableDragNDrop: dragNDropFlag) frame: (0.35 @ 0 extent: 0.25 @ (listHeight - buttonHeight)). switches _ self buildMorphicSwitches. window addMorph: switches frame: (0.35 @ (listHeight - buttonHeight) extent: 0.25 @ buttonHeight). switches borderWidth: 0. window addMorph: ((PluggableListMorph on: self list: #messageCategoryList selected: #messageCategoryListIndex changeSelected: #messageCategoryListIndex: menu: #messageCategoryMenu:) enableDrag: false; enableDrop: dragNDropFlag) frame: (0.6 @ 0 extent: 0.15 @ listHeight). aListMorph _ PluggableListMorph on: self list: #messageList selected: #messageListIndex changeSelected: #messageListIndex: menu: #messageListMenu:shifted: keystroke: #messageListKey:from: . aListMorph enableDragNDrop: dragNDropFlag. aListMorph menuTitleSelector: #messageListSelectorTitle. window addMorph: aListMorph frame: (0.75 @ 0 extent: 0.25 @ listHeight). codePane _ PluggableTextMorph on: self text: #contents accept: #contents:notifying: readSelection: #contentsSelection menu: #codePaneMenu:shifted:. editString ifNotNil: [codePane editString: editString. codePane hasUnacceptedEdits: true]. window addMorph: codePane frame: (0 @ listHeight corner: 1 @ 1). window setUpdatablePanesFrom: #(packageList systemCategoryList classList messageCategoryList messageList ). ^ window! ! !PackageBrowser methodsFor: 'package list' stamp: 'rhi 11/29/2000 23:43'! openEditString: aString "Create a pluggable version of all the views for a Browser, including views and controllers." "PackageBrowser openBrowser" | packageListView systemCategoryListView classListView messageCategoryListView messageListView browserCodeView topView switchView annotationPane underPane y optionalButtonsView | self couldOpenInMorphic ifTrue: [^ self openAsMorphEditing: aString]. topView := (StandardSystemView new) model: self. topView borderWidth: 1. "label and minSize taken care of by caller" packageListView := PluggableListView on: self list: #packageList selected: #packageListIndex changeSelected: #packageListIndex: menu: #packageMenu:. packageListView window: (0 @ 0 extent: 20 @ 70). topView addSubView: packageListView. systemCategoryListView := PluggableListView on: self list: #systemCategoryList selected: #systemCategoryListIndex changeSelected: #systemCategoryListIndex: menu: #systemCategoryMenu:. systemCategoryListView window: (20 @ 0 extent: 30 @ 70). topView addSubView: systemCategoryListView. classListView := PluggableListView on: self list: #classList selected: #classListIndex changeSelected: #classListIndex: menu: #classListMenu:shifted:. classListView window: (0 @ 0 extent: 50 @ 62). topView addSubView: classListView toRightOf: systemCategoryListView. switchView := self buildInstanceClassSwitchView. switchView borderWidth: 1. topView addSubView: switchView below: classListView. messageCategoryListView := PluggableListView on: self list: #messageCategoryList selected: #messageCategoryListIndex changeSelected: #messageCategoryListIndex: menu: #messageCategoryMenu:. messageCategoryListView window: (0 @ 0 extent: 50 @ 70). topView addSubView: messageCategoryListView toRightOf: classListView. messageListView := PluggableListView on: self list: #messageList selected: #messageListIndex changeSelected: #messageListIndex: menu: #messageListMenu:shifted: keystroke: #messageListKey:from:. messageListView window: (0 @ 0 extent: 50 @ 70). topView addSubView: messageListView toRightOf: messageCategoryListView. Preferences useAnnotationPanes ifTrue: [annotationPane _ PluggableTextView on: self text: #annotation accept: nil readSelection: nil menu: nil. annotationPane window: (0@0 extent: 200@self optionalAnnotationHeight). topView addSubView: annotationPane below: packageListView. underPane _ annotationPane. y _ 110 - self optionalAnnotationHeight] ifFalse: [ underPane _ packageListView. y _ 110]. Preferences optionalButtons ifTrue: [optionalButtonsView _ self buildOptionalButtonsView. optionalButtonsView borderWidth: 1. topView addSubView: optionalButtonsView below: underPane. underPane _ optionalButtonsView. y _ y - self optionalButtonHeight]. browserCodeView := PluggableTextView on: self text: #contents accept: #contents:notifying: readSelection: #contentsSelection menu: #codePaneMenu:shifted:. browserCodeView window: (0@0 extent: 200@y). topView addSubView: browserCodeView below: underPane. aString ifNotNil: [browserCodeView editString: aString. browserCodeView hasUnacceptedEdits: true]. ^ topView! ! ChangeSorter removeSelector: #classMenu:! Browser removeSelector: #classListMenu:! "Postscript: Updates all instances of Browser and ChangeSorter with the new class list menu selector." Browser withAllSubclasses do: [:b | b allInstances do: [:bi | (bi dependents select: [:d | ((d isKindOf: PluggableListMorph) or: [d isKindOf: PluggableListView]) and: [(d instVarNamed: 'getMenuSelector') = #classListMenu:]] ) do: [:plm | plm instVarNamed: 'getMenuSelector' put: #classListMenu:shifted:]]]. ChangeSorter withAllSubclasses do: [:b | b allInstances do: [:bi | (bi dependents select: [:d | ((d isKindOf: PluggableListMorph) or: [d isKindOf: PluggableListView]) and: [(d instVarNamed: 'getMenuSelector') = #classMenu:]] ) do: [:plm | plm instVarNamed: 'getMenuSelector' put: #classMenu:shifted:]]].!

2 3

[PROPOSAL] Generic device-dependent events
by Bert Freudenberg 02 Dec '00

02 Dec '00

I play with the idea of introducing generic, device-dependent extension events (inspired by the X Input Extension - see http://capderec.udg.es:81/ebt-bin/nph-dweb/dynaweb/SGI_Developer/X11_LibSpc): An extension device provides keys, buttons, and motion data. There is a primitive to list all available extension devices with their parameters: - number of keys, min and max key code - number of buttons - number of axes, min and max value for each axe Then there is another primitive to request events for a device ("open" the device). After this, device events would be fed into the main event queue: key press/release events, button press/release events, and motion events: - Each event: device id and timestamp - Key event: key code, pressed/released flag - Button: button number, pressed/released flag - Motion: current value of each axis This last event might be too large for the current 8 int array - there could be a "continuation flag" so two events get read. This gives unified access to almost every input device there is. Some examples: Keys:min..max But. Axes:min..max Keyboard 248:8..255 0 0 Mouse 0 3 2:0..1024,0..768 Tablet 32:8..39 4 5:0..30480,0..24060,0..1023,-64..64,-64..64 Joystick 0 2 2:-128..128,-128..128 (The first three are actual values from my setup - the tablet motion data is x, y, pressure, tilt x, tilt y, the buttons are on the stylus, the keys are regions on the tablet that can be clicked) This achitecture would easily be supported in X, I guess Windows provides something similar with DirectInput, don't know about Mac. How does that sound? -- Bert

2 1

Re: Sockets in Squeak
by Rob Withers 02 Dec '00

02 Dec '00

Here is a rewrite of the squeak socket plugin for Linux. Mind that it is still alpha and not sure when that may change. It works for 20+ of us. You'll need to build squeak with all modules internal and put this file in src/unix/sqUnixSocket.c (for vm28pre1+ - 2.9a). src/sqUnixNetwork.c for 2.7. Then follow the build instructions. Rob Peter Schuller wrote: > > To partially answer my own question I discovered the example method of the > "BDS style accept()". However, after properly using #newTCP instead of just > #new, and using #waitForAcceptUntil instead of just #accept, I am still > having the same problem. > > Actually invoking the test method results in "accept is not supported". > > Is it really true that I cannot do this in Squeak (platform: Linux)? What > I'm after is the standard Unix/Linux accept() functionality (I assume this > is the "BSD style accept()"), and the ServerSocket-that-produces-Sockets > mechanism in Java. > > -- > / Peter Schuller, InfiDyne Technologies HB > > PGP userID: 0x5584BD98 or 'Peter Schuller <peter.schuller(a)infidyne.com>' > Key retrival: Send an E-Mail to getpgpkey(a)scode.infidyne.com > E-Mail: peter.schuller(a)infidyne.com Web: http://scode.infidyne.com -- -------------------------------------------------- Smalltalking by choice. Isn't it nice to have one!

1 0

Re: Double-Clickable Apps
by John M McIntosh 02 Dec '00

02 Dec '00

> >John McIntosh was idle a few weeks ago, so we pointed him at this >and, guess what? It works! > >On the Mac, at least. Mac VMs numbered 2.9.6 and higher (coming >soon) include support for a new primitive, #247, entitled >snapshotEmbeddedPrimitive. Yes Yes it's compiling now, and the change set is being reviewed for correctness, so you'll all have a 2.9.6 VM by mid weekend or so... The 2.9.6 VM also has the ability to set/get the left/right sound volumes, a primitive hook to your favorite OS's underlying noise interface. Of course we need the linux/windows/bsd/etc VM support for that feature too... PS If you build embedded mac applications don't forget to set the application signature to something else other than FAST (the Squeak signature) Otherwise that shinny new application you just create will launch next time you double click on a Squeak Image. (not what you want...) Also dont' forget if you change the signature then you need to change the BNDL which contains the pretty icons etc, after all you are building a double clickable Macintosh application and there are a few rules to follow to ensure you have a well behaved macintosh application. -- -- =========================================================================== John M. McIntosh <johnmci(a)smalltalkconsulting.com> 1-800-477-2659 Corporate Smalltalk Consulting Ltd. http://www.smalltalkconsulting.com =========================================================================== Custom Macintosh programming & various Smalltalk dialects PGP Key: DSS/Diff/46FC3BE6 Fingerprint=B22F 7D67 92B7 5D52 72D7 E94A EE69 2D21 46FC 3BE6 ===========================================================================

1 0

Re: allways topmost?
by Dan Ingalls 02 Dec '00

02 Dec '00

"Raymond Tiefenthal" <r.tiefenthal(a)gmx.de> wrote... >How can I make a Window topmost in Morphic? I need a better way to switch >between browser and workspace. My idea is to have a topmost workspace bottom >right and the browser full screen. As a start, look at the method SystemWindow>>activate, and the class-side methods in the category 'top window'. - Dan

1 0

[updates] 61 for 2.9a
by Dan Ingalls 02 Dec '00

02 Dec '00

Folks - About a dozen of these are from SqC, but the middle 50 or so are all from SqueakList contributions, carefully culled by Stefan Matthias Aust (thank you!). And thanks also to Bob Arning who helped a lot wit the secondary vetting. Enjoy - Dan [Bruce: I may have a couple more before the end of the evening] Here are the summaries... ------------------------ 2989TfmFixes-ar -- Andreas Raab -- 21 November 2000 Some fixes for transformed grabs and drops." 2990FixPianoKeyboards-di -- Dan Ingalls -- 18 November 2000 Adapts the keyboard to the new event dispatching logic. It was necessary to pass mouse focus from note to note. 2991ParseScript6-tk 2992noSubmorphs-raa -- Bob Arning -- 23 November 2000 - guard a #firstSubmorph with a test for no submorphs" 2993CipherPanelFix -- Dan Ingalls -- 24 November 2000 Fixes a problem introduced by the new Alignment protocols. 2994HandTweaks-ar -- Andreas Raab -- 25 November 2000 Two tweaks for faster hand redraws." 2995mvcWorldFix-raa -- Bob Arning -- 27 November 2000 - guard against premature access of worldState" 2996higherPerformance-raa -- Bob Arning -- 24 November 2000 This is mostly a Mac issue, but may have some effect on other platforms. These changes do not take effect until you set the preference #higherPerformance to true. The impact of setting this pref to true may be higher performance for this Squeak image, but lower performance for other applications/processes that may be running concurrently. Experiment with your particular configuration/desires and decide for yourself. 1. In order to reduce the amount of time lost (perhaps 20 to 30% in some cases) to background applications on the Mac, change the strategy used to poll for UI events. Every time we poll the OS for UI events, increase the delay until the next check. Every time Squeak actually requests an event from EventSensor, reset the delay to its normal value (20 ms). This means that a long-running evaluation started in the UI process will receive less competition from background apps (and less overhead even if it is the only app), but normal UI-intensive operations will happen as they do now. What is lost by this change is some sensitivity to mouse events that occur while Squeak is busy over long periods. My thought is that if Squeak is so occupied for a period of seconds, these events are much less useful and perhaps even harmful. 2. Reduce the minimum morphic cycle time (MinCycleLapse) so that the frame rate (and, hence, running of #step methods) can proceed at greater than 50 frames per second. This can be quite beneficial to things like simulations that are run via #step. ---executable code follows" Preferences addPreference: #higherPerformance category: #performance default: false balloonHelp: 'May offer higer performance at the expense of other applications on your computer. See the comment in EventSensor>>higherPerformanceNotes for more details'. 2997DoubleInitFix-len -- Luciano -- 27 November 2000 Fix a double initialization problem in KlattVoice and Speaker." 2998TetrisFix -- Dan Ingalls -- 27 November 2000 Two fixes, suggested by Andreas Raab to make Tetris compliant with the new alignment protocols. 2999CrosticFix-di -- Dan Ingalls -- 28 November 2000 Removes the method minExtent from TextMorph, which had clashed with the new alignment protocol. Includes two other changes to restore CrosticPanels to operation in the new world. 3000benchmarkTweaks-di -- Dan Ingalls -- 29 November 2000 A couple of tweaks that make it more convenient to run, eg, FreeCell or the InterpreterSimulator as performance benchmarks. 3001interpBuildFixAfterJ3 -- johnmci(a)smalltalkconsulting.com -- 21 November 2000 after the jit3 updates were applied we are unable to build an interp.c, unless we apply these changes" 3002MacroBenchmarks-di -- Dan Ingalls -- 29 November 2000 This changeSet defines several macro benchmarks for Squeak. They are designed to serve both as torture tests and as typical profiles for a number of modes of operation. The current relevance is in testing the J3 VM, and in measuring improvements to garbage collection. To use the benchmarks, start a morphic project with 10MB free, and print the result of Smalltalk macroBenchmarks. This should give you a list something like #(43215 53122 81336 26927 8993 12607 9024) -- from a 400MHz G3. The seven tests are are... 1: Decompile, pretty-print, and compile a bunch of methods does not install in classes, so does not flush cache 2: Build morphic tiles for all methods over 800 bytes (!) does no display 3: Translate the interpreter with inlining does not include any plugins 4: Run the context step simulator 200 runs printing pi and 15 factorial 5: Run the InterpreterSimulator for 150,000 bytecodes will only happen if you have mini.image in your directory 6: Open 10 browsers and close them includes browsing to a specific method 7: Play a game of FreeCell with display, while running the MessageTally thanks to Bob Arning for the clever part of this one 3003GzipCrostics -- Dan Ingalls -- 30 November 2000 Lets CrosticPanels open directly from gzipped files. Smaller, more transportable, and don't give away the solution if you see them in the fileList. 3004ParseScript7-tk 3005BenchmarksAgain -- Dan Ingalls -- 30 November 2000 Mainly a clarification. Adds the following comment to SystemDictionary>>macroBenchmarks: PLEASE TAKE NOTE: The goal of these benchmarks is to provide a simple basis for A/B performance comparisons with a given Squeak image. For example JIT vs interpreter, new GC vs old, etc. However, a number of these benchmarks will drift with evolution of the Squeak image, as, for instance, if the number of methods decompiled in macroBenchmark1 were to change. Therefore it is essential NEVER to make comarisons between macroBenchmarks run from two different images. 3006newZoomAndScroll-raa -- Bob Arning -- 20 November 2000 newZoomAndScroll fifth version: - preset Alan's preferred scale factors for pan and zoom - try to keep center of image centered as we zoom fourth version: - an effort is made to keep the view full of content - two sliders are added to experiment with scale factors for pan/tilt and zoom - we were already doing this: Also, looking ahead into the future a little, each page in the bookmorph will have its own zoom, pan and tilt settings .... third version: - do not rely on continuous mouse moves - adjust things dropped into inner pasteup so that none extend over left or top edge second version: - added scripting commands to StoryboardBookMorph for getting and setting scale, offsetX and offsetY (of the current page). first version: - made contents of the zoomer a true playfield in a transformation so multiple morphs are possible ----- third version: - zooming/scrolling controls now in a separate area below the page - Balloon interpolating mode now the default second version: - ZoomAndScrollMorph becomes a PasteUpMorph so it can be in a book - StoryboardBookMorph is a book that uses ZoomAndScrollMorph as its pages zooming and scolling for Alan - get a ZoomAndScrollMorph from the new morph/demo menu - drop any morph in it - drag mouse horizontally to pan - drag mouse vertically to zoom - shift-drag vertically to move up/down - change the instance variable <usingBalloon> to true to use Balloon" 3007fixDebug-raa -- Bob Arning -- 1 December 2000 - fix debug option on menu in SyntaxError to work in morphic" 3008AlphabetCopy-rhi -- Robert Hirschfeld -- 8 September 2000 Looks like Robert wants to make sure that nobody using #alphabet accidentally changes the string. Why, oh why don't we have constant literal strings in Smalltalk? --sma" 3009ChgSorterAnnPanes-rhi -- Robert Hirschfeld -- 10 September 2000 Makes ChangeSorter>>openAsMorphIn:rect: and ChangeSorter>>openView:offsetBy: sensitive to Preferences for #annotationPanes and #optionalButtons. RAA - 27 Nov 2000 - actually I don't see any reference to optionalButtons in here" 3010DateNewCentury-rhi -- Robert Hirschfeld -- 17 September 2000 Takes Date class>>newDay:month:year: into the new century ... :) Well, to make the change less radical, I modified it to take 00..49 as 2000..2049 and 50..99 as 1950..1999 - the usual y2k-time window fix. I highly recommend to NEVER use two digit numbers --sma" 3011FindAMorph-rhi -- Robert Hirschfeld -- 10 September 2000 Morph>>findA: (25 senders in the base image) and Morph>>submorphOfClass: (2 senders in the base image) do the same. Now there is only one implementation of that behavior in Morph>>findA:, and Morph>>submorphOfClass: itself calls Morph>>findA:. (Not one of the big contributions to clean up Morph, but still ... :-) Actually, the numbers are 43 and 3 :-) and I feel the urge to remove submorphOfClass:... --sma" 3012KindOfSubclass-rhi -- Robert Hirschfeld -- 24 September 2000 There are identical implementations of #kindOfSubclass in Behavior and ClassDescription. Robert wanted to remove the one in Behavior but I think, ClassDescription is better as this will less likely break existing code. --sma" 3013PackageBrAnnPanes-rhi -- Robert Hirschfeld -- 10 September 2000 Fixes PackageBrowser>>openAsMorphEditing: to be sensitive to Preferences for #annotationPanes and #optionalButtons. (Was already in the update stream as 2280PackBrOptBnt-rh but got lost. Now merged with drag-and-drop changes ...)" 3014SUnit2Fixes-rhi -- Robert Hirschfeld -- 29 October 2000 In 2459SUnit2-rh, where the SUnit-Documentation and SUnit-Tests categories got removed, TestFailure must have gotten lost as well. This change set reintroduces TestFailure. Note: Here are some pointers regarding recent CampSmalltalk SUnit ports and enhancements: http://ansi-st-tests.sourceforge.net/SUnit.html http://minnow.cc.gatech.edu/squeak/1547" 3015Atlanta-ls -- Je77 Rick and Lex Spoon -- 25 September 2000 [Please note, this is a postscript only change set!] Adds Atlanta, a monospaced text style. Atlanta is copyrighted by Je77 but is free for any use. Great work. What to see the font? Here it is: (TextStyle named: 'Atlanta') defaultFont fontDisplay --sma" 3016SeqCollForceToFix-dew -- Doug Way / Andres Valloud -- 30 October 2000 Fixes a bug in SequenceableCollection>>forceTo:paddingWith: introduced in update #2018. Executing ''asdf' forceTo: 3 paddingWith: $-' was causing an error, instead of being truncated. This new version still includes the optimizations from #2018, but with an extra check to handle this case. Actually on the behalf of Doug, this has been replaced by a better change of Andres --sma" 3017BalloonColorBug-dns -- David N. Smith -- 11 November 2000 A Balloon is initialized with the color 'Color paleYellow', but this color is never used. Instead, the color is obtained from 'Morph balloonColor' which answers white or 'Color r: 1.0 g: 1.0 b: 0.6' depending on the display depth. Note that paleYellow is' Color r: 1.0 g: 1.0 b: 0.85'. Since the initialized value is never used this bug seems harmless. It's another candidate for most trivial bug report. A fix is attached." 3018BalloonColors-sma -- Stefan Matthias Aust -- 11 November 2000 Dave N Smith sugested that one should be able to change the bubble help color - why not... I changed and optimized his version. You can use 'BalloonMorph setBalloonColorTo: Color red' to change the default balloon color. Each morph can change its balloon color using #balloonColor:." 3019DropMorphOnWS-jcg -- Joshua Gargus -- 5 November 2000 Now updated to work with the glorious Truth and Beauty that Andreas brought to Morphic's event handling! Adds the ability to drop a morph on a Workspace with the following results: 1. a unique name is created for the morph, based on its class and identity hash. 2. this name is added as a key to the Workspace binding, with the morph as its value. 3. this name is inserted at the Workspace's current insertion point. This functionality is toggled by a menu item in the SystemWindows menu (to the right of the 'close window X'). I added the method PluggableTextMorph>>correctSelectionWithString: to insert the name at the proper point, but I fear it's a hack that doesn't do things the right way. Anyone with more familiarity with text handling than I have is encouraged to criticize." 3020MultiPattern-sma -- Stefan Matthias Aust -- 11 November 2000 I found an old changeset from Ned Konz suggesting multiple patterns in a file list. I liked that idea and implemented a slightly different approach. Instead of using CR to separate patterns (I still hope someday someone will change the file list to accept patterns on CR) I use ';' which is at least on Windows the way to do this kind of muli-patterns. You can now use '*.st; *.cs' to browse both source and change sets. I also refactored the sortBlock." 3021HierarchicalUrlFix-hmm -- Hans-Martin Mosner -- 10 November 2000 With changeset 2736, HttpURLs lost their ability to use ports other than the default. This fix restores that ability." 3022HierarchyArrowBg-dew -- Doug Way -- 7 November 2000 The arrows in the hierarchy widget currently have some problems displaying themselves cleanly on non-white backgrounds. E.g. in 8-bit depth mode, if you open an object explorer, inpect its SimpleHierarchicalListMorph via the debug halo, and then set the SHLM color by doing 'self color: Color paleGreen', the arrow Forms back in the object explorer will have little white squares around them when they should be transparent. (even if you re-initialize expandedForm and nonExpandedForm by setting them to nil beforehand) This is a simple fix which explicitly sets the arrow Form backgrounds to be transparent. I did some MessageTallys and there's no measurable impact on performance." 3023SeqCollAtAllFix-apb -- Andrew Black -- 15 October 2000 Bug fix implemented at OOPSLA 2000 Camp Smalltalk. The bug was that #atAll: #(3 2) worked for Arrays but not for OrderedCollections." 3024ChangeSorterFix-sma -- Stefan Matthias Aust -- 11 November 2000 When using fileIntoNewChangeSet from the file list while a change sorter is open, its selection is messed up. I think I fixed that with some refactorings." 3025ScrollBarPositionFix-dew -- Doug Way, Camp Smalltalk 3 @ OOPSLA -- 5 November 2000 Fixes a longtime problem with updating the position of the scrollbar when the contents of a scroll pane increases or decreases significantly in length. Basically, the scrollbar position was not being updated before, and now it is. Also refactors things so that SimpleHierarchicalListMorph>>setScrollDeltas is removed. (The bug is easiest to reproduce in an object explorer, if you expand things and scroll down so that the scrollbar thumb is in the middle of its range, and then expand an item in the explorer which has a lot of children. Then if you click on the up arrow in the scrollbar, the pane will skip to the wrong place because the scrollbar position hadn't been updated.)" 3026ImageOverwrite-dew -- Michael Hewner, Doug Way, Camp Smalltalk 3 @ OOPSLA -- 3 November 2000 Fixes a problem where if you tried to do a 'save as...' over an existing image, an error notifier appeared. This enhances things so that a confirmation pop-up appears asking if you're sure you want to overwrite, which you can accept or cancel. (This ended up involving a fair amount of work, including adding a force-copy operation to FileDirectory, and some refactoring was done along with this.)" 3027OverhangScrollbFix-dew -- Mathieu van Echtelt, Camp Smalltalk 3 @ OOPSLA -- 3 November 2000 Fixes a bug in which it was impossible to resize (with the yellow dot) a Morphic window pane, if an inboard scrollbar happened to overhang below the bottom of the pane. This happened with very short panes, such as the top pane of a hierarchy browser or the bottom pane of a file contents browser." 3028HalloweenFixes-bf -- Bert Freudenberg -- 1 November 2000 Buglets fixed: * Magnifier used Hand>>lastEvent for no good reason. * A scheduled balloon popup would fail when the morph was deleted in the mean time." 3029PointHash-sqr -- Andres Valloud -- 3 November 2000 Reimplements Point>>hash to use hashMultiply. Soon, we should implement hashMultiply as a primitive and let the system fly!" 3030CEFilenameFix-je -- Jörn Eyrich -- 8 November 2000 Ned Konz wrote: DosFileDirectory>>fullPathFor: '\CF\Squeak\tiny.changes' returns '\C\CF\Squeak\tiny.changes'. The problem is that the code there expects the instvar 'pathName' to be something starting with a volume letter and a colon. However, WinCE doesn't have volume letters. So FileDirectory default in this case is '\CF\Squeak'. Either we need a separate FileDirectory subclass, or we need a conditional in there that checks to see whether there is a drive letter. My suggested fix is attached." 3031DebugFixPrintHandler-hg -- Henrik Gedenryd -- 9 October 2000 If a printOn: fails, the included method is needed but missing." 3032DebuggerEnh-kfr -- Karl Ramberg -- 11 November 2000 Changes the pre debug window to use a PluggableListMorph so one can click on the stack line that one is interested in to bring the debugger up on just that method." 3033ProcessBrowser-nk -- Ned Konz -- 29 October 2000 This is a preliminary version of my Process Browser. It works under 2.9 (CS 2774), and under 2.8, but you have to have my DebuggerFixFor2.8-nk.1.cs change set loaded first for 2.8 to work. NOTE: as this is now being added to 2.9, I have removed the 2.8-only stuff - RAA This is distributed under the Squeak License. email: ned(a)bike-nomad.com Added 29 October: port for 2.8 suspend/resume process made an MVC version fixed deferred UI updating under 2.8 and MVC rearranged menus added pointer chasing/inspection misc. bug fixes made it smarter about well-known processes more safety Added 26 October: highlight pc in source code Added 27 October: added 'signal semaphore' added 'inspect receiver', 'explore receiver', 'message tally' to stack list menu added 'find context', 'next context' to process list menu added 'change priority' and 'debug' choices to process list menu 27 October mods by Bob Arning: alters process display in Ned's ProcessBrowser to - show process priority - drop 'a Process in' that appears on each line - show in priority order - prettier names for known processes - fix to Utilities to forget update downloading process when it ends (1 less dead process) - correct stack dump for the active process 3034ProcessBrInMenu-dew -- Doug Way -- 14 November 2000 Adds the new ProcessBrowser to the debug... menu as 'open process browser', just below the MessageTally items." 3035PrettyDiffs-nk -- Ned Konz -- 29 October 2000 I got tired of seeing major diffs just because someone reformatted a method or changed its spacing. This uses the source code formatting to provide pretty-printed diffs. Turn this on or off in Preferences/browser/diffsWithPrettyPrint." 3036NaughtyCode-ls -- Lex Spoon -- 23 October 2000 Hand-written parsers tend to accept more input than they should. Happily, my hand-written parser has different errors than Squeak's. :) Here's a few fixes for out-of-scope accesses to block variables, and accidentally using ''super'' as a message." 3037ExplorerString-sma -- Stefan Matthias Aust -- 12 November 2000 This implements the compromise Doug Way and Bob Arning (sort of) worked out regarding asString/printString in the object explorer. As the explorer is mainly a programmer's tool, I agree with Doug that it should use printString as default." 3038SubclassFix-bf -- Bert Freudenberg -- 19 October 2000 When 'variableWordSubclass'-ing the browser complained because it explicitly looked for a 'subclass' token." 3039InterpreterSimFix-sr -- Stephan Rudlof -- 21 July 2000 Fix of InterpreterSimulator >>ioLoadExternalFunction: functionName OfLength: functionLength FromModule: moduleName OfLength: moduleLength : functionName should be copied into functionString (and not pluginString). 3040ShiftCrOffBy1-hg -- Henrik Gedenryd -- 9 October 2000 If you do shift-cr with the cursor at the end of the edited text (as regularly when typing a new method), you get an error. A fix for a long-standing off-by-one bug." 3041ArrowFixes2-nk -- Ned Konz -- 6 October 2000 This change set adds the ability to have four kinds of arrow heads: concave and triangular, open or filled. Requires 2.9a and 2765ArrowTweaks2-di changeset. ---not the same number in all update streams--- ChangeSet allInstances detect: [ :ea | ea name = '2765ArrowTweaks2-di' ] ifNone: [ self error: 'prerequisite 2765ArrowTweaks2-di not present' ]" 3042UrlWithPortFix-nk -- Ned Konz -- 9 October 2000 This change set fixes handling of URL's with ports specified, like: http://wherever.com:8080/x/y/z [only added partly as hmm provided already a fix for toText --sma] 3043EnhBlockCxtErrMsg-mdr -- Mike Rutenberg -- 5 October 2000 This changes the error message to not only tell you how many arguments are required by a block, but also how many were used in the attempted evaluation. Can be tested by evaluating [] value: 1 value: 2" 3044MemHooksRevised-go -- Georg Gollmann -- 4 October 2000 Somewhere in the 2.9a upgrade stream the memory hogs mechanism was disabled (but not fully removed). This fileIn reintroduces it in a slightly robuster way." 3045NewSymbolTable1-sqr -- Andres Valloud -- 1 September 2000 New symbol table, first changeset of who knows how many. Implements WeakSet, install support code in Symbol. Also removed old Bob code from Symbol class" 3046NewSymbolTable2-sqr -- Andres Valloud -- 1 September 2000 Catch all created symbols" 3047NewSymbolTable3-sqr -- Andres Valloud -- 23 August 2000 More..." 3048NewSymbolTable4-sqr -- Andres Valloud -- 24 August 2000 Install new symbol table" 3049NewSymbolTable5-sqr -- Andres Valloud -- 24 August 2000 Remove code using old symbol tables. Removed otherThatStarts:skipping: because there were no senders. Added do:after: to WeakSet" 3050NewSymbolTable6-sqr -- Andres Valloud -- 30 August 2000 Removes old symbol tables (and the system keeps working after that). Added Symbol>>compactSymbolTables. Utility method that will crunch the symbol tables to a barely acceptable size" 3051NewSymbolTable7-sqr -- Andres Valloud -- 30 August 2000 Symbol table minor diffs & utility methods. [That's it. Let's cross our fingers that everything works as before :-) --sma]" 3052LinkFixe-apb -- Andrew P Black -- 3 October 2000 The Link class method #nextLink:, which should answer a new instance of Link, instead answered nil. The fix is the obvious addition of 'yourself'. The one place that should have used this method -- SystemDictionary>>useUpMemory -- carefully programmed around this bug, so I changed that code so that it now uses #nextLink: in the natural way." 3053TransformStepTime-mdr -- Mike Rutenberg -- 3 October 2000 Morphs which have been rotated are ticked according to Transformation stepTime. This simple change ensure that the tick rate for a morph is uniform whether it is rotated or not. Example Create a new ClockMorph (or more dramatically a MonthMorph) Create an always ticking script which turns the clock by 5. 3054Paragrap-apb -- Andrew P Black -- 1 October 2000 The example code inserted by ''explain ...'' had a spurious ''#'' which made it unexecutable. I also improved the message a little for the case of the an undeclared variable." 3055CelesteEnc-bf -- Bert Freudenberg -- 9 March 2000 Requires: ScamperEnc-bf Makes Celeste use iso8859-1 encoding internally while doing on-the-fly conversion to Squeak encoding for the UI. Also allows importing from Unix mailbox files by using CrLfFilestream. [This hasn't need test - remove it if it breaks Celeste --sma]" 3056ScamperEnc-bf -- Bert Freudenberg -- 4 November 1999 Makes Scamper recognize special character entities (like schöne German umlauts) and does iso8859-1 to Squeak character conversion." 3057CorrectionTweak-di -- Dan Ingalls -- 1 December 2000 A minor rework of Squeak's symbol corrector. It eliminates the old two-tier correction, trying hard from the start, and showing you up to 10 alternatives. By employing a different early filter on the candidates, it now accomplishes the full correction in the same time as the old simple correction. 3058MacSoundVolSupport-JMM -- johnmci(a)smalltalkconsulting.com -- 6 November 2000 left/right sound volume support for macintosh" 3059EmbeddedExecutable-JMM -- johnmci(a)smalltalkconsulting.com -- 21 November 2000 Basic support to snapshot an image into a VM, support for this must come from the target platform, post 2.9.5 macintosh VM support this"

1 0

[ENH]MPEGPlayerMorph improved
by ssadams＠us.ibm.com 02 Dec '00

02 Dec '00

Squeakers, I recently did some cleanup and enhancements for the MPEGPlayerMorph. --converted the code to use the new layout system. This allows for a resizable morph. --Moved the class under StretchyImageMorph to quickly allow for stretchy bitmap backgrounds --Added a "Look" button that lets you interactively load a graphic file as a background for the player --Added a path memory for the last directory a media file or graphic look is loaded from I started with the updated 2.9a-2915 image and added: MPEGPlayerMorph.10.cs MPEGPlayerJMM.10.cs MPEGPlayerMorphicFixJMM.1.cs MPEGPlayerFixBadParmsJMM.2.cs Then I made my changes. I looked at Karl's version with the iconic buttons today and noticed that MPEGPlayer2 was included and seemed quite different than the MPEGPlayer class in the version I started with. Am I behind the curve here? This changeset includes some mods to StandardFileMenu as well to support file searches with multiple patterns... just a quick hack, but very useful. BTW, I can play MP3 audio just fine in Windows but have yet to succeed with MPEG2 Video. Any thoughts? (See attached file: MPEGPlayerSSA.2.cs) Regards, Sam Sam S. Adams, IBM Distinguished Engineer, IBM Research tie line 444-0736, outside 919-254-0736, email: ssadams(a)us.ibm.com <<Hebrews 11:6, Proverbs 3:5-6, Romans 1:16-17, I Corinthians 1:10>>

3 2

Update to mpeg player (smalltalk, source code, plugin)
by John M McIntosh 02 Dec '00

02 Dec '00

A good week ago I started to gather input from others as they build linux and windows versions of the plugins. I consolidated all this and decided today to submit it back to the list. Things aren't quite "out of the box" ready so to speak, but almost. Incorporated changes to make the mpeg code compile on Linux, macintosh, and Windows. More work is still pending. For the Smalltalk code we changed the follow: Added logic to set the color model based on endiness Changed C define names to better match what we are doing Reworked accessors for all Mpegfile attributes for accessibility in the MpegPlayer Added accessors for more instance variables Added logic to set sound volume Fiddled with delay logic once again Will drop more than 3 frames if video is too slow Rewrote logic that dealt with frame forward/backwards logic Added suggestions to play full screen if desired Added sanity checks to the C code Thanks to: Bert Freudenberg Lex Spoon Stephen Pair Karl Ramberg Douglas Brebner (hope I didn't miss anyone) Please refer to my mpeg page http://www.smalltalkconsulting.com/html/mpeg3source.html Remember you'll need the new macintosh plugin, the change set and the mpeg morphic player change set. Hopefully I've not broken too many things (heh heh). Remember to feedback any issues Thanks. -- -- =========================================================================== John M. McIntosh <johnmci(a)smalltalkconsulting.com> 1-800-477-2659 Corporate Smalltalk Consulting Ltd. http://www.smalltalkconsulting.com =========================================================================== Custom Macintosh programming & various Smalltalk dialects PGP Key: DSS/Diff/46FC3BE6 Fingerprint=B22F 7D67 92B7 5D52 72D7 E94A EE69 2D21 46FC 3BE6 ===========================================================================

4 4

Re: No sound on Linux with Squeak2.8
by Alexander Lazarevic 01 Dec '00

01 Dec '00

Hi William! I have a similar setup here and sound works fine, although I'm using a 2.9 vm. I guess if you are using a fresh image sound should be turned on by default. (see the attachment where you can check that) Maybe you want to check on some other things. Is your OSS support really working? Your other sound applications might use some kind of sound daemon, like ESD (Enlightened Sound Daemon) with Gnome and I think KDE has a sound daemon too. You can check OSS support for example by playing a wav sound file with bplay instead of aplay in a shell. If OSS support is working and you are using a sound daemon, than try to disable that daemon before starting squeak. With ESD you just have to issue a killall esd or you can use a nifty little tool like the sound monitor applet to place ESD in standby mode. I don't know how it works for KDE, but there should be some description how to deal with that. So if all that fails you could try to use a 2.9 vm. You can find the source and some precompiled VMs at ftp://wea.inria.fr/INRIA/Projects/SOR/users/piumarta/squeak Alex

2 1

Jump to page: