September 2009 - Pharo-dev - lists.pharo.org

[Pharo-project] #removeAll support
by Nicolas Cellier Sept. 14, 2009

Sept. 14, 2009

As requested recently on squeak-dev, I provided an implementation of #removeAll in http://source.squeak.org/trunk/Collections-nice.130.mcz http://source.squeak.org/trunk/CollectionsTests-nice.94.mcz I can open an issue if you want this message too in Pharo. Nicolas

3 3

[Pharo-project] one click distribution
by astares＠gmx.de Sept. 14, 2009

Sept. 14, 2009

http://gforge.inria.fr/frs/download.php/23114/Pharo1.0-10440-BETAdev09.09ON… now works on windows Any feedback from the other platforms? Bye T. -- Neu: GMX Doppel-FLAT mit Internet-Flatrate + Telefon-Flatrate fÃ¼r nur 19,99 Euro/mtl.!* http://portal.gmx.net/de/go/dsl02

5 6

[Pharo-project] StringMorph someInstance printDirectlyToDisplay -> DNU
by StÃ©phane Ducasse Sept. 14, 2009

Sept. 14, 2009

VM: Mac OS - intel - 1058 - Squeak3.8.1 of '28 Aug 2006' [latest update: #6747] Squeak VM 4.2.1b1 Image: Pharo1.0beta [Latest update: #10440] SecurityManager state: Restricted: false FileAccess: true SocketAccess: true Working Dir /Users/ducasse/Workspace/FirstCircle/ActiveResearch/Pharo/ Pharo/pharo1.0-10440-BETAdev09.09.1 Trusted Dir /foobar/tooBar/forSqueak/bogus Untrusted Dir /Users/ducasse/Library/Preferences/Squeak/Internet/My Squeak DisplayText(Object)>>doesNotUnderstand: #form: Receiver: a DisplayText Arguments and temporary variables: aMessage: form: Form(210x20x32) exception: MessageNotUnderstood: DisplayText>>form: resumeValue: nil Receiver's instance variables: text: a Text for 'a StringMorph(133)''Preferences''' textStyle: a TextStyle DejaVu Sans offset: 0@0 form: nil foreColor: Color black backColor: Color white PSUIManager(MorphicUIManager)>>composeFormFor: Receiver: a PSUIManager Arguments and temporary variables: aDisplayText: a DisplayText canvas: a FormCanvas on: Form(210x20x32) tmpText: a TextMorph(1819) Receiver's instance variables: interactiveParser: nil DisplayText>>composeForm Receiver: a DisplayText Arguments and temporary variables: Receiver's instance variables: text: a Text for 'a StringMorph(133)''Preferences''' textStyle: a TextStyle DejaVu Sans offset: 0@0 form: nil foreColor: Color black backColor: Color white DisplayText>>form Receiver: a DisplayText Arguments and temporary variables: Receiver's instance variables: text: a Text for 'a StringMorph(133)''Preferences''' textStyle: a TextStyle DejaVu Sans offset: 0@0 form: nil foreColor: Color black backColor: Color white DisplayText>>displayOn:at:clippingBox:rule:fillColor: Receiver: a DisplayText Arguments and temporary variables: aDisplayMedium: DisplayScreen(1424x848x32) aDisplayPoint: 0@100 clipRectangle: 0@0 corner: 1424@848 ruleInteger: 3 aForm: nil form1: nil rule: nil Receiver's instance variables: text: a Text for 'a StringMorph(133)''Preferences''' textStyle: a TextStyle DejaVu Sans offset: 0@0 form: nil foreColor: Color black backColor: Color white DisplayText(DisplayObject)>>displayOn:at: Receiver: a DisplayText Arguments and temporary variables: aDisplayMedium: DisplayScreen(1424x848x32) aDisplayPoint: 0@100 Receiver's instance variables: text: a Text for 'a StringMorph(133)''Preferences''' textStyle: a TextStyle DejaVu Sans offset: 0@0 form: nil foreColor: Color black backColor: Color white ByteString(String)>>displayOn:at:textColor: Receiver: 'a StringMorph(133)''Preferences''' Arguments and temporary variables: aDisplayMedium: DisplayScreen(1424x848x32) aPoint: 0@100 aColor: Color black Receiver's instance variables: 'a StringMorph(133)''Preferences''' ByteString(String)>>displayOn:at: Receiver: 'a StringMorph(133)''Preferences''' Arguments and temporary variables: aDisplayMedium: DisplayScreen(1424x848x32) aPoint: 0@100 Receiver's instance variables: 'a StringMorph(133)''Preferences''' ByteString(String)>>displayAt: Receiver: 'a StringMorph(133)''Preferences''' Arguments and temporary variables: aPoint: 0@100 Receiver's instance variables: 'a StringMorph(133)''Preferences''' StringMorph(Object)>>printDirectlyToDisplay Receiver: a StringMorph(133)'Preferences' Arguments and temporary variables: Receiver's instance variables: bounds: 0@0 corner: 93@18 owner: an AlignmentMorph(548) submorphs: #() fullBounds: nil color: Color black extension: nil font: a LogicalFont familyName: DejaVu Serif emphasis: nil pointSize: 11 re...etc... emphasis: 0 contents: 'Preferences' hasFocus: false Object class>>DoIt Receiver: Object Arguments and temporary variables: Receiver's instance variables: superclass: ProtoObject methodDict: a MethodDictionary(size 378) format: 2 instanceVariables: nil organization: ('*Polymorph-EventEnhancements' when:send:to:exclusive: when:send...etc... subclasses: {BalloonState . StandardFileMenuResult . UndefinedObject . Boolean ...etc... name: #Object classPool: a Dictionary(#DependentsFields->a WeakIdentityKeyDictionary(size 154...etc... sharedPools: nil environment: Smalltalk category: #'Kernel-Objects' traitComposition: nil localSelectors: nil Compiler>>evaluate:in:to:notifying:ifFail:logged: Receiver: a Compiler Arguments and temporary variables: <<error during printing> Receiver's instance variables: sourceStream: a ReadWriteStream 'printDirectlyToDisplay "For debugging: write ...etc... requestor: an OBTextMorphEditorWithShout class: Object class category: nil context: nil parser: a Parser [] in OBTextMorphEditorWithShout(ParagraphEditor)>>evaluateSelection Receiver: an OBTextMorphEditorWithShout Arguments and temporary variables: <<error during printing> Receiver's instance variables: model: an OBDefinitionPanel paragraph: a MultiNewParagraph startBlock: a CharacterBlock with index 257 and character $" and rectangle 346....etc... stopBlock: a CharacterBlock with index 210 and character $S and rectangle 7.224...etc... beginTypeInBlock: nil emphasisHere: an Array(a TextColor code: (Color r: 0.0 g: 0.5 b: 0.0) a TextEmp...etc... initialText: a Text for 'printDirectlyToDisplay "For debugging: write the rece...etc... selectionShowing: false otherInterval: (208 to: 207) lastParentLocation: nil morph: an OBTextMorphWithShout(3688) oldInterval: (210 to: 209) pivotBlock: a CharacterBlock with index 210 and character $S and rectangle 7.22...etc... inBackTo: nil BlockClosure>>on:do: Receiver: [closure] in OBTextMorphEditorWithShout(ParagraphEditor)>>evaluateSelection Arguments and temporary variables: exception: OutOfScopeNotification handlerAction: [closure] in OBTextMorphEditorWithShout(ParagraphEditor)>>evalua...etc... handlerActive: true Receiver's instance variables: outerContext: OBTextMorphEditorWithShout(ParagraphEditor)>>evaluateSelection startpc: 116 numArgs: 0 OBTextMorphEditorWithShout(ParagraphEditor)>>evaluateSelection Receiver: an OBTextMorphEditorWithShout Arguments and temporary variables: result: nil rcvr: Object ctxt: nil Receiver's instance variables: model: an OBDefinitionPanel paragraph: a MultiNewParagraph startBlock: a CharacterBlock with index 257 and character $" and rectangle 346....etc... stopBlock: a CharacterBlock with index 210 and character $S and rectangle 7.224...etc... beginTypeInBlock: nil emphasisHere: an Array(a TextColor code: (Color r: 0.0 g: 0.5 b: 0.0) a TextEmp...etc... initialText: a Text for 'printDirectlyToDisplay "For debugging: write the rece...etc... selectionShowing: false otherInterval: (208 to: 207) lastParentLocation: nil morph: an OBTextMorphWithShout(3688) oldInterval: (210 to: 209) pivotBlock: a CharacterBlock with index 210 and character $S and rectangle 7.22...etc... inBackTo: nil OBTextMorphEditorWithShout(ParagraphEditor)>>doIt Receiver: an OBTextMorphEditorWithShout Arguments and temporary variables: Receiver's instance variables: model: an OBDefinitionPanel paragraph: a MultiNewParagraph startBlock: a CharacterBlock with index 257 and character $" and rectangle 346....etc... stopBlock: a CharacterBlock with index 210 and character $S and rectangle 7.224...etc... beginTypeInBlock: nil emphasisHere: an Array(a TextColor code: (Color r: 0.0 g: 0.5 b: 0.0) a TextEmp...etc... initialText: a Text for 'printDirectlyToDisplay "For debugging: write the rece...etc... selectionShowing: false otherInterval: (208 to: 207) lastParentLocation: nil morph: an OBTextMorphWithShout(3688) oldInterval: (210 to: 209) pivotBlock: a CharacterBlock with index 210 and character $S and rectangle 7.22...etc... inBackTo: nil [] in OBTextMorphEditorWithShout(ParagraphEditor)>>doIt: Receiver: an OBTextMorphEditorWithShout Arguments and temporary variables: <<error during printing> Receiver's instance variables: model: an OBDefinitionPanel paragraph: a MultiNewParagraph startBlock: a CharacterBlock with index 257 and character $" and rectangle 346....etc... stopBlock: a CharacterBlock with index 210 and character $S and rectangle 7.224...etc... beginTypeInBlock: nil emphasisHere: an Array(a TextColor code: (Color r: 0.0 g: 0.5 b: 0.0) a TextEmp...etc... initialText: a Text for 'printDirectlyToDisplay "For debugging: write the rece...etc... selectionShowing: false otherInterval: (208 to: 207) lastParentLocation: nil morph: an OBTextMorphWithShout(3688) oldInterval: (210 to: 209) pivotBlock: a CharacterBlock with index 210 and character $S and rectangle 7.22...etc... inBackTo: nil OBTextMorphEditorWithShout (ParagraphEditor)>>terminateAndInitializeAround: Receiver: an OBTextMorphEditorWithShout Arguments and temporary variables: aBlock: [closure] in OBTextMorphEditorWithShout(ParagraphEditor)>>doIt: Receiver's instance variables: model: an OBDefinitionPanel paragraph: a MultiNewParagraph startBlock: a CharacterBlock with index 257 and character $" and rectangle 346....etc... stopBlock: a CharacterBlock with index 210 and character $S and rectangle 7.224...etc... beginTypeInBlock: nil emphasisHere: an Array(a TextColor code: (Color r: 0.0 g: 0.5 b: 0.0) a TextEmp...etc... initialText: a Text for 'printDirectlyToDisplay "For debugging: write the rece...etc... selectionShowing: false otherInterval: (208 to: 207) lastParentLocation: nil morph: an OBTextMorphWithShout(3688) oldInterval: (210 to: 209) pivotBlock: a CharacterBlock with index 210 and character $S and rectangle 7.22...etc... inBackTo: nil OBTextMorphEditorWithShout(ParagraphEditor)>>doIt: Receiver: an OBTextMorphEditorWithShout Arguments and temporary variables: characterStream: a WriteStream '' Receiver's instance variables: model: an OBDefinitionPanel paragraph: a MultiNewParagraph startBlock: a CharacterBlock with index 257 and character $" and rectangle 346....etc... stopBlock: a CharacterBlock with index 210 and character $S and rectangle 7.224...etc... beginTypeInBlock: nil emphasisHere: an Array(a TextColor code: (Color r: 0.0 g: 0.5 b: 0.0) a TextEmp...etc... initialText: a Text for 'printDirectlyToDisplay "For debugging: write the rece...etc... selectionShowing: false otherInterval: (208 to: 207) lastParentLocation: nil morph: an OBTextMorphWithShout(3688) oldInterval: (210 to: 209) pivotBlock: a CharacterBlock with index 210 and character $S and rectangle 7.22...etc... inBackTo: nil OBTextMorphEditorWithShout(ParagraphEditor)>>dispatchOnKeyEvent:with: Receiver: an OBTextMorphEditorWithShout Arguments and temporary variables: keyEvent: [keystroke '<Cmd-d>'] typeAheadStream: a WriteStream '' honorCommandKeys: true keyValue: 100 keyChar: $d char: $d action: #doIt: Receiver's instance variables: model: an OBDefinitionPanel paragraph: a MultiNewParagraph startBlock: a CharacterBlock with index 257 and character $" and rectangle 346....etc... stopBlock: a CharacterBlock with index 210 and character $S and rectangle 7.224...etc... beginTypeInBlock: nil emphasisHere: an Array(a TextColor code: (Color r: 0.0 g: 0.5 b: 0.0) a TextEmp...etc... initialText: a Text for 'printDirectlyToDisplay "For debugging: write the rece...etc... selectionShowing: false otherInterval: (208 to: 207) lastParentLocation: nil morph: an OBTextMorphWithShout(3688) oldInterval: (210 to: 209) pivotBlock: a CharacterBlock with index 210 and character $S and rectangle 7.22...etc... inBackTo: nil OBTextMorphEditorWithShout(TextMorphEditor)>>dispatchOnKeyEvent:with: Receiver: an OBTextMorphEditorWithShout Arguments and temporary variables: keyEvent: [keystroke '<Cmd-d>'] typeAheadStream: a WriteStream '' Receiver's instance variables: model: an OBDefinitionPanel paragraph: a MultiNewParagraph startBlock: a CharacterBlock with index 257 and character $" and rectangle 346....etc... stopBlock: a CharacterBlock with index 210 and character $S and rectangle 7.224...etc... beginTypeInBlock: nil emphasisHere: an Array(a TextColor code: (Color r: 0.0 g: 0.5 b: 0.0) a TextEmp...etc... initialText: a Text for 'printDirectlyToDisplay "For debugging: write the rece...etc... selectionShowing: false otherInterval: (208 to: 207) lastParentLocation: nil morph: an OBTextMorphWithShout(3688) oldInterval: (210 to: 209) pivotBlock: a CharacterBlock with index 210 and character $S and rectangle 7.22...etc... inBackTo: nil OBTextMorphEditorWithShout(ParagraphEditor)>>keystroke: Receiver: an OBTextMorphEditorWithShout Arguments and temporary variables: keyEvent: [keystroke '<Cmd-d>'] typeAhead: a WriteStream '' Receiver's instance variables: model: an OBDefinitionPanel paragraph: a MultiNewParagraph startBlock: a CharacterBlock with index 257 and character $" and rectangle 346....etc... stopBlock: a CharacterBlock with index 210 and character $S and rectangle 7.224...etc... beginTypeInBlock: nil emphasisHere: an Array(a TextColor code: (Color r: 0.0 g: 0.5 b: 0.0) a TextEmp...etc... initialText: a Text for 'printDirectlyToDisplay "For debugging: write the rece...etc... selectionShowing: false otherInterval: (208 to: 207) lastParentLocation: nil morph: an OBTextMorphWithShout(3688) oldInterval: (210 to: 209) pivotBlock: a CharacterBlock with index 210 and character $S and rectangle 7.22...etc... inBackTo: nil OBTextMorphEditorWithShout(TextMorphEditor)>>keystroke: Receiver: an OBTextMorphEditorWithShout Arguments and temporary variables: keyEvent: [keystroke '<Cmd-d>'] Receiver's instance variables: model: an OBDefinitionPanel paragraph: a MultiNewParagraph startBlock: a CharacterBlock with index 257 and character $" and rectangle 346....etc... stopBlock: a CharacterBlock with index 210 and character $S and rectangle 7.224...etc... beginTypeInBlock: nil emphasisHere: an Array(a TextColor code: (Color r: 0.0 g: 0.5 b: 0.0) a TextEmp...etc... initialText: a Text for 'printDirectlyToDisplay "For debugging: write the rece...etc... selectionShowing: false otherInterval: (208 to: 207) lastParentLocation: nil morph: an OBTextMorphWithShout(3688) oldInterval: (210 to: 209) pivotBlock: a CharacterBlock with index 210 and character $S and rectangle 7.22...etc... inBackTo: nil [] in [] in OBTextMorphWithShout(TextMorph)>>keyStroke: Receiver: an OBTextMorphWithShout(3688) Arguments and temporary variables: <<error during printing> Receiver's instance variables: bounds: 0@0 corner: 734@114 owner: a TransformMorph(832) submorphs: #() fullBounds: 0@0 corner: 734@114 color: Color black extension: a MorphExtension (835) [other: (blinkStart -> 2050726)] borderWidth: 0 borderColor: Color black textStyle: a TextStyle DejaVu Sans Mono text: a Text for 'printDirectlyToDisplay "For debugging: write the receiver''s...etc... wrapFlag: true paragraph: a MultiNewParagraph editor: an OBTextMorphEditorWithShout container: nil predecessor: nil successor: nil backgroundColor: nil margins: nil editHistory: nil editView: an OBPluggableTextMorphWithShout(441) acceptOnCR: false OBTextMorphWithShout(TextMorph)>>handleInteraction: Receiver: an OBTextMorphWithShout(3688) Arguments and temporary variables: interactionBlock: [closure] in [] in OBTextMorphWithShout(TextMorph)>>keyStroke...etc... oldEditor: an OBTextMorphEditorWithShout oldParagraph: a MultiNewParagraph oldText: a Text for 'printDirectlyToDisplay "For debugging: write the receiver...etc... Receiver's instance variables: bounds: 0@0 corner: 734@114 owner: a TransformMorph(832) submorphs: #() fullBounds: 0@0 corner: 734@114 color: Color black extension: a MorphExtension (835) [other: (blinkStart -> 2050726)] borderWidth: 0 borderColor: Color black textStyle: a TextStyle DejaVu Sans Mono text: a Text for 'printDirectlyToDisplay "For debugging: write the receiver''s...etc... wrapFlag: true paragraph: a MultiNewParagraph editor: an OBTextMorphEditorWithShout container: nil predecessor: nil successor: nil backgroundColor: nil margins: nil editHistory: nil editView: an OBPluggableTextMorphWithShout(441) acceptOnCR: false OBTextMorphWithShout(TextMorphForEditView)>>handleInteraction: Receiver: an OBTextMorphWithShout(3688) Arguments and temporary variables: interActionBlock: [closure] in [] in OBTextMorphWithShout(TextMorph)>>keyStroke...etc... Receiver's instance variables: bounds: 0@0 corner: 734@114 owner: a TransformMorph(832) submorphs: #() fullBounds: 0@0 corner: 734@114 color: Color black extension: a MorphExtension (835) [other: (blinkStart -> 2050726)] borderWidth: 0 borderColor: Color black textStyle: a TextStyle DejaVu Sans Mono text: a Text for 'printDirectlyToDisplay "For debugging: write the receiver''s...etc... wrapFlag: true paragraph: a MultiNewParagraph editor: an OBTextMorphEditorWithShout container: nil predecessor: nil successor: nil backgroundColor: nil margins: nil editHistory: nil editView: an OBPluggableTextMorphWithShout(441) acceptOnCR: false [] in OBTextMorphWithShout(TextMorph)>>keyStroke: Receiver: an OBTextMorphWithShout(3688) Arguments and temporary variables: evt: [keystroke '<Cmd-d>'] action: nil Receiver's instance variables: bounds: 0@0 corner: 734@114 owner: a TransformMorph(832) submorphs: #() fullBounds: 0@0 corner: 734@114 color: Color black extension: a MorphExtension (835) [other: (blinkStart -> 2050726)] borderWidth: 0 borderColor: Color black textStyle: a TextStyle DejaVu Sans Mono text: a Text for 'printDirectlyToDisplay "For debugging: write the receiver''s...etc... wrapFlag: true paragraph: a MultiNewParagraph editor: an OBTextMorphEditorWithShout container: nil predecessor: nil successor: nil backgroundColor: nil margins: nil editHistory: nil editView: an OBPluggableTextMorphWithShout(441) acceptOnCR: false ECToolSet class>>codeCompletionAround:textMorph:keyStroke: Receiver: ECToolSet Arguments and temporary variables: aBlock: [closure] in OBTextMorphWithShout(TextMorph)>>keyStroke: aTextMorph: an OBTextMorphWithShout(3688) evt: [keystroke '<Cmd-d>'] completionAllowed: true editor: an OBTextMorphEditorWithShout stringHolder: an OBDefinitionPanel Receiver's instance variables: superclass: StandardToolSet methodDict: a MethodDictionary() format: 2 instanceVariables: nil organization: ('as yet unclassified') subclasses: nil name: #ECToolSet classPool: nil sharedPools: nil environment: Smalltalk category: #'Ocompletion-ECSqueak' traitComposition: nil localSelectors: nil DEVToolSet class>>codeCompletionAround:textMorph:keyStroke: Receiver: DEVToolSet Arguments and temporary variables: aBlock: [closure] in OBTextMorphWithShout(TextMorph)>>keyStroke: aTextMorph: an OBTextMorphWithShout(3688) evt: [keystroke '<Cmd-d>'] toolSet: ECToolSet Receiver's instance variables: superclass: StandardToolSet methodDict: a MethodDictionary() format: 2 instanceVariables: nil organization: ('as yet unclassified') subclasses: nil name: #DEVToolSet classPool: nil sharedPools: nil environment: Smalltalk category: #ImageForDevelopers traitComposition: nil localSelectors: nil ToolSet class>>codeCompletionAround:textMorph:keyStroke: Receiver: ToolSet Arguments and temporary variables: aBlock: [closure] in OBTextMorphWithShout(TextMorph)>>keyStroke: aTextMorph: an OBTextMorphWithShout(3688) evt: [keystroke '<Cmd-d>'] Receiver's instance variables: superclass: AppRegistry methodDict: a MethodDictionary() format: 2 instanceVariables: nil organization: ('as yet unclassified') subclasses: nil name: #ToolSet classPool: nil sharedPools: nil environment: Smalltalk category: #'System-Applications' traitComposition: nil localSelectors: nil registeredClasses: an OrderedCollection(StandardToolSet NewInspectorToolSet DEV...etc... default: DEVToolSet OBTextMorphWithShout(TextMorph)>>keyStroke: Receiver: an OBTextMorphWithShout(3688) Arguments and temporary variables: evt: [keystroke '<Cmd-d>'] Receiver's instance variables: bounds: 0@0 corner: 734@114 owner: a TransformMorph(832) submorphs: #() fullBounds: 0@0 corner: 734@114 color: Color black extension: a MorphExtension (835) [other: (blinkStart -> 2050726)] borderWidth: 0 borderColor: Color black textStyle: a TextStyle DejaVu Sans Mono text: a Text for 'printDirectlyToDisplay "For debugging: write the receiver''s...etc... wrapFlag: true paragraph: a MultiNewParagraph editor: an OBTextMorphEditorWithShout container: nil predecessor: nil successor: nil backgroundColor: nil margins: nil editHistory: nil editView: an OBPluggableTextMorphWithShout(441) acceptOnCR: false OBTextMorphWithShout(TextMorphForEditView)>>keyStroke: Receiver: an OBTextMorphWithShout(3688) Arguments and temporary variables: evt: [keystroke '<Cmd-d>'] view: an OBPluggableTextMorphWithShout(441) Receiver's instance variables: bounds: 0@0 corner: 734@114 owner: a TransformMorph(832) submorphs: #() fullBounds: 0@0 corner: 734@114 color: Color black extension: a MorphExtension (835) [other: (blinkStart -> 2050726)] borderWidth: 0 borderColor: Color black textStyle: a TextStyle DejaVu Sans Mono text: a Text for 'printDirectlyToDisplay "For debugging: write the receiver''s...etc... wrapFlag: true paragraph: a MultiNewParagraph editor: an OBTextMorphEditorWithShout container: nil predecessor: nil successor: nil backgroundColor: nil margins: nil editHistory: nil editView: an OBPluggableTextMorphWithShout(441) acceptOnCR: false OBTextMorphWithShout(TextMorph)>>handleKeystroke: Receiver: an OBTextMorphWithShout(3688) Arguments and temporary variables: anEvent: [keystroke '<Cmd-d>'] pasteUp: nil Receiver's instance variables: bounds: 0@0 corner: 734@114 owner: a TransformMorph(832) submorphs: #() fullBounds: 0@0 corner: 734@114 color: Color black extension: a MorphExtension (835) [other: (blinkStart -> 2050726)] borderWidth: 0 borderColor: Color black textStyle: a TextStyle DejaVu Sans Mono text: a Text for 'printDirectlyToDisplay "For debugging: write the receiver''s...etc... wrapFlag: true paragraph: a MultiNewParagraph editor: an OBTextMorphEditorWithShout container: nil predecessor: nil successor: nil backgroundColor: nil margins: nil editHistory: nil editView: an OBPluggableTextMorphWithShout(441) acceptOnCR: false KeyboardEvent>>sentTo: Receiver: [keystroke '<Cmd-d>'] Arguments and temporary variables: anObject: an OBTextMorphWithShout(3688) Receiver's instance variables: timeStamp: 1998226 source: a HandMorph(3216) windowIndex: nil type: #keystroke buttons: 64 position: 346@104 handler: nil wasHandled: true keyValue: 100 charCode: 100 scanCode: 2 OBTextMorphWithShout(Morph)>>handleEvent: Receiver: an OBTextMorphWithShout(3688) Arguments and temporary variables: anEvent: [keystroke '<Cmd-d>'] Receiver's instance variables: bounds: 0@0 corner: 734@114 owner: a TransformMorph(832) submorphs: #() fullBounds: 0@0 corner: 734@114 color: Color black extension: a MorphExtension (835) [other: (blinkStart -> 2050726)] borderWidth: 0 borderColor: Color black textStyle: a TextStyle DejaVu Sans Mono text: a Text for 'printDirectlyToDisplay "For debugging: write the receiver''s...etc... wrapFlag: true paragraph: a MultiNewParagraph editor: an OBTextMorphEditorWithShout container: nil predecessor: nil successor: nil backgroundColor: nil margins: nil editHistory: nil editView: an OBPluggableTextMorphWithShout(441) acceptOnCR: false OBTextMorphWithShout(Morph)>>handleFocusEvent: Receiver: an OBTextMorphWithShout(3688) Arguments and temporary variables: anEvent: [keystroke '<Cmd-d>'] Receiver's instance variables: bounds: 0@0 corner: 734@114 owner: a TransformMorph(832) submorphs: #() fullBounds: 0@0 corner: 734@114 color: Color black extension: a MorphExtension (835) [other: (blinkStart -> 2050726)] borderWidth: 0 borderColor: Color black textStyle: a TextStyle DejaVu Sans Mono text: a Text for 'printDirectlyToDisplay "For debugging: write the receiver''s...etc... wrapFlag: true paragraph: a MultiNewParagraph editor: an OBTextMorphEditorWithShout container: nil predecessor: nil successor: nil backgroundColor: nil margins: nil editHistory: nil editView: an OBPluggableTextMorphWithShout(441) acceptOnCR: false [] in HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(3216) Arguments and temporary variables: <<error during printing> Receiver's instance variables: bounds: 1138@524 corner: 1154@540 owner: a PasteUpMorph(1622) [world] submorphs: #() fullBounds: 1138@524 corner: 1154@540 color: Color blue extension: a MorphExtension (539) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: nil eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [1138@524 mouseUp 2090376 nil] targetOffset: 35@8 damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil userInitials: '' lastEventBuffer: #(1 2090376 1138 524 0 0 0 1) lastKeyScanCode: 2 combinedChar: nil [] in PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(1622) [world] Arguments and temporary variables: <<error during printing> Receiver's instance variables: bounds: 0@0 corner: 1424@848 owner: nil submorphs: an Array(a TaskbarMorph(3095) a SystemWindow(2431) a SystemWindow(40...etc... fullBounds: 0@0 corner: 1424@848 color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (2543) [eventHandler = an EventHandler] [other: (...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) presenter: a Presenter (1246) model: a MorphicModel(1926) cursor: 1 padding: 3 backgroundMorph: nil isPartsBin: nil autoLineLayout: false indicateCursor: nil resizeToFit: nil wantsMouseOverHalos: nil worldState: a WorldState griddingOn: nil BlockClosure>>on:do: Receiver: [closure] in PasteUpMorph>>becomeActiveDuring: Arguments and temporary variables: exception: Error handlerAction: [closure] in PasteUpMorph>>becomeActiveDuring: handlerActive: false Receiver's instance variables: outerContext: PasteUpMorph>>becomeActiveDuring: startpc: 67 numArgs: 0 --- The full stack --- DisplayText(Object)>>doesNotUnderstand: #form: PSUIManager(MorphicUIManager)>>composeFormFor: DisplayText>>composeForm DisplayText>>form DisplayText>>displayOn:at:clippingBox:rule:fillColor: DisplayText(DisplayObject)>>displayOn:at: ByteString(String)>>displayOn:at:textColor: ByteString(String)>>displayOn:at: ByteString(String)>>displayAt: StringMorph(Object)>>printDirectlyToDisplay Object class>>DoIt Compiler>>evaluate:in:to:notifying:ifFail:logged: [] in OBTextMorphEditorWithShout(ParagraphEditor)>>evaluateSelection BlockClosure>>on:do: OBTextMorphEditorWithShout(ParagraphEditor)>>evaluateSelection OBTextMorphEditorWithShout(ParagraphEditor)>>doIt [] in OBTextMorphEditorWithShout(ParagraphEditor)>>doIt: OBTextMorphEditorWithShout (ParagraphEditor)>>terminateAndInitializeAround: OBTextMorphEditorWithShout(ParagraphEditor)>>doIt: OBTextMorphEditorWithShout(ParagraphEditor)>>dispatchOnKeyEvent:with: OBTextMorphEditorWithShout(TextMorphEditor)>>dispatchOnKeyEvent:with: OBTextMorphEditorWithShout(ParagraphEditor)>>keystroke: OBTextMorphEditorWithShout(TextMorphEditor)>>keystroke: [] in [] in OBTextMorphWithShout(TextMorph)>>keyStroke: OBTextMorphWithShout(TextMorph)>>handleInteraction: OBTextMorphWithShout(TextMorphForEditView)>>handleInteraction: [] in OBTextMorphWithShout(TextMorph)>>keyStroke: ECToolSet class>>codeCompletionAround:textMorph:keyStroke: DEVToolSet class>>codeCompletionAround:textMorph:keyStroke: ToolSet class>>codeCompletionAround:textMorph:keyStroke: OBTextMorphWithShout(TextMorph)>>keyStroke: OBTextMorphWithShout(TextMorphForEditView)>>keyStroke: OBTextMorphWithShout(TextMorph)>>handleKeystroke: KeyboardEvent>>sentTo: OBTextMorphWithShout(Morph)>>handleEvent: OBTextMorphWithShout(Morph)>>handleFocusEvent: [] in HandMorph>>sendFocusEvent:to:clear: [] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do:

2 3

[Pharo-project] [ANN] Core image #10451
by Marcus Denker Sept. 14, 2009

Sept. 14, 2009

Hello, A new core image: http://gforge.inria.fr/frs/download.php/23266/PharoCore-1.0-10451-BETA.zip Marcus -- Marcus Denker - http://marcusdenker.de PLEIAD Lab - Computer Science Department (DCC) - University of Chile

1 0

[Pharo-project] [update] #10450 and 10451
by StÃ©phane Ducasse Sept. 14, 2009

Sept. 14, 2009

Since it would be a pity to not harvest siple improvement or bug fixes from the squeak trunk I will try to follow and integrate simple ones regularly. 10450 ----- Issue 1216: [Squeak] messageTally minor but easy fix 10451 ----- Issue 1215: [Squeak] MC latest changes from colin in squeak - When choosing a required package, don t offer the selected package, or packages that are already required. - Get rid of that ridiculous confirmation if there are newer versions when saving.

2 2

[Pharo-project] displaying tags
by Tudor Girba Sept. 14, 2009

Sept. 14, 2009

Hi, I would like to display a tag in the form of a button that is smaller and less prominent than a usual button. See the attached picture for an example taken from the Things program running on Mac. I want to use these tags next to items in in lists or trees, so, ideally the size of the button would be the size of the regular font of a list entry. I looked in the UITheme class, but I could find anything that would resemble this look. Is there someone that has already done this? Otherwise does anyone have suggestions? Cheers, Doru -- www.tudorgirba.com "Beauty is where we see it."

2 1

[Pharo-project] icons in pluggablelistmorph
by Tudor Girba Sept. 14, 2009

Sept. 14, 2009

Hi, I would like to specify an icon in a PluggableListMorph, but I cannot find my way :). Can anyone tell me how to do it? Cheers, Doru -- www.tudorgirba.com "Problem solving efficiency grows with the abstractness level of problem understanding."

5 6

[Pharo-project] Closure fixes - test & review
by Michael Roberts Sept. 14, 2009

Sept. 14, 2009

I'm trying to integrate the latest batch of Closure fixes from Eliot (eem). These are listed on the tracker as 9 tasks - search under the closure tag. I'm looking for test & review of the changes. It is quite tricky and likely to kill your image. The merge / load into Pharo is challenging because we don't really want to just drop the versions into Pharo. It would back out a number of changes. Some trivial (comments, spacing) and some less so. Useful testing would include trying out your own application level code (e.g Seaside, etc) to see if anything breaks. useful review would be if you are familiar with changes/fixes you have put into Pharo, you can see if they are still there, do they still work. if you really know the compiler / execution machinery then of course... I'm only publishing a 1/3 of the changes at this point, so i'm not sure how much is expected to work in the middle, but Eliot was careful to split it up. 0.1- start with core image >= 10449 (you need the MC changes) 0.2- ScriptLoader new addRepository39ToAllPackages; addRepositorySqueakTrunkToAllPackages; addRepositoryTaskForcesToAllPackages I have published packages to the task forces area, but the others give you access to the source on squeak trunk and the ancestry on 3.9. Also, if you are really keen Eliot provided CS which are on each tracker item. There are pros and cons to trying to do this directly in MC or using CS. If you look at the tracker for the original package you can look at the merge directly from the Squeak trunk. The changes are in 8 parts, and tidyup/initialisation. Part: 1- <present> 2- Kernel-MikeRoberts-404 3- ---preload--- Tools-MikeRoberts.201 System-Support-MikeRoberts.88 ---actual--- Compiler-MikeRoberts.128 CompilerTests-MikeRoberts.20 KernelTests-MikeRoberts.149 (I have paused at 3 for this review because i break things after 4) Notes: 1- is already in Pharo (give or take a few things) 2- is a reasonable copy 3- I have started to leave changes out. Squeak appears to have recompiled everything at steps 3/4 but i've chosen to leave that till 9. partly because it breaks. This is why i have provided stubs of the closure initialization. thanks, Mike

2 1

[Pharo-project] I give up!!! Aka too much broken in the 64 bit world
by Schwab,Wilhelm K Sept. 13, 2009

Sept. 13, 2009

Hello all, A couple of things that I really need to have working appear to be hopelessly broken on 64 bit linux, at least for now. After a lot of struggling this weekend, I finally decided to revert to 32 bits to be able to get some work done. I created a /home partition as part of the original installation, so it was not bad to do. At this point, it boots and is currently downloading a couple hundred updates. One interesting thing is that the remote desktop (tsclient) that I use to run LookOut!! on a box across town is working. Could I have a mix of 32 and 64 bit software? Maybe tsclient was 32 bit all along though; the file command might shed some light on that. If any of you have done this retreat and have some war stories that might be of use, please let me know. Bill

1 0

[Pharo-project] Network cleanup?
by Schwab,Wilhelm K Sept. 13, 2009

Sept. 13, 2009

I'm still having trouble with DNS on Ubuntu, and it seems to be IPv6 related. However, it gets very ugly to try to figure out what does and does not (or is that should and should not?) depend on the #useOldNetwork test. Would there be any objections to a split of NetNameResolver to have have new and old subclasses, with the correct class being chosen (or sub-instance created) on initialization? I was able to get around the troubles today by noting that (for now) I have trouble iff I am on a Linux local host, but that trick will come to an abrupt end soon. Bill

2 2