- Pharo-dev - lists.pharo.org

Re: [Pharo-project] Graphics-Centric UI Capability?
by dmurphy＠infratecture.com Sept. 14, 2009

Sept. 14, 2009

thanks, Stef, i will check those packages and the original paint in squeak and start building on the PolyMorph application example + Morphic-Windows / ScrollPane example. i will share iterations as i complete them. delbert -----Original Message----- From: St?phane Ducasse [mailto:stephane.ducasse@inria.fr] Sent: Saturday, September 12, 2009 03:01 AM To: Pharo-project(a)lists.gforge.inria.fr Subject: Re: [Pharo-project] Graphics-Centric UI Capability? On Sep 12, 2009, at 12:28 AM, dmurphy(a)infratecture.com wrote: > hello all, > > i have been nabbling about the list archives, trying to figure out > the right class to use for providing a scrolling graph pane on which > i can draw shapes. > > suppose i were to take UITheme(class)>>exampleWindowWithToolbars and > want to turn that into a simple Paint Program. > > what would i put in place of the > StandardWindow>>newTextEditorFor:getText:setText:getEnabled: message > send? > > are there any simple Paint Program examples i start with? did you check the extrapackages available in the project PharoMorphic PharoSound In the past in squeak there was a simple paint editor. Because you have some graphs but they do not use Polymorph. Now once you find please advertise it. It is really important to raise the level of knowledge on the community :) > > thanks for any pointers! > > delbert > _______________________________________________ > Pharo-project mailing list > Pharo-project(a)lists.gforge.inria.fr > http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project _______________________________________________ Pharo-project mailing list Pharo-project(a)lists.gforge.inria.fr http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project

1 0

Re: [Pharo-project] Graphics-Centric UI Capability?
by dmurphy＠infratecture.com Sept. 14, 2009

Sept. 14, 2009

thanks for the reminder, Bill, i will keep device-independence in mind, without losing the understandability of a basic example. delbert -----Original Message----- From: Schwab,Wilhelm K [mailto:bschwab@anest.ufl.edu] Sent: Friday, September 11, 2009 07:10 PM To: Pharo-project(a)lists.gforge.inria.fr Subject: Re: [Pharo-project] Graphics-Centric UI Capability? Caution: this is *not* the answer to your question; I will be waiting to see what the experts say on the subject. One thing I _can_ tell you is that it is often a good idea to write graphics-producing code in terms of a canvas such that it can draw on "anything" (display, image file and printer come to mind) using the device resolution to scale things correctly. I have long been amazed that people create (in Dolphin speak) their own views when an image presenter would the job given a "background" bitmap. There are always exceptions, but IMHO you should at least consider drawing on a Form and displaying that in a appropriate morph, or whatever the gurus suggest. I hope that makes at least some sense. Bill ------------------------------------------------------------ From: pharo-project-bounces(a)lists.gforge.inria.fr [mailto:pharo-project-bounces@lists.gforge.inria.fr] On Behalf Of dmurphy(a)infratecture.com Sent: Friday, September 11, 2009 5:28 PM To: pharo-project(a)lists.gforge.inria.fr Subject: [Pharo-project] Graphics-Centric UI Capability? hello all, i have been nabbling about the list archives, trying to figure out the right class to use for providing a scrolling graph pane on which i can draw shapes. suppose i were to take UITheme(class)>>exampleWindowWithToolbars and want to turn that into a simple Paint Program. what would i put in place of the StandardWindow>>newTextEditorFor:getText:setText:getEnabled: message send? are there any simple Paint Program examples i start with? thanks for any pointers! delbert

1 0

[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