- Pharo-dev - lists.pharo.org

[Pharo-project] Issue 3584 in pharo: ToDo: remove DisplayText class
by pharo＠googlecode.com March 31, 2011

March 31, 2011

Status: Started Owner: siguc...@gmail.com New issue 3584 by siguc...@gmail.com: ToDo: remove DisplayText class http://code.google.com/p/pharo/issues/detail?id=3584 DisplayText used for converting strings and text into forms, which then can be used to blit on other forms. It used sparsely, mostly in order to display simple text in number of old examples. In system there are already plenty of ways to display text, without using an intermediate string->form conversion, which is DisplayText. Ultimately, we should always use canvas(es) to display text, not forms or low-level DisplayObject(s). See MorphicUIManager>>#composeFormFor: in subclasses

1 3

[Pharo-project] Issue 3736 in pharo: new Transcript from CUIS
by pharo＠googlecode.com March 31, 2011

March 31, 2011

Status: Accepted Owner: stephane...@gmail.com Labels: Milestone-1.3 New issue 3736 by stephane...@gmail.com: new Transcript from CUIS http://code.google.com/p/pharo/issues/detail?id=3736 There are other problems with Transcript besides performance. It is easy to break the UI if called at the wrong times. In those cases, it is usually needed to kill Squeak from the OS. Besides, it is not thread safe. Instantly becoming a hero sounds cool, so this is my attempt at it :) I only tried this in Cuis, but I believe it should work on Squeak and Pharo without much trouble. After loading this code, you can evaluate 'Smalltalk at: #Transcript put: NewTranscript'. Some good properties of this are: - Very fast. - Thread safe! - Doesn't use Morphic at all. Can be used to debug Morphic itself. - Doesn't do delayed execution (no events, no forked processes). Immediate visual feedback. - Can show itself on Display, log to File, both, or none. - Can be used for headless or remote images (for example, web servers). Some possible downsides are: - Output only. Not a text editor. We have the Workspace and the Transcripter for that. - No seamless Morphic integration. I'll do one for Cuis, though. If no serious problems are found, I'll remove TranscriptStream from Cuis, and rename this class as Transcript. Cheers, Juan Vuletich 'From Cuis 3.0 of 31 January 2011 [latest update: #790] on 18 February 2011 at 2:36:31 pm'! !classDefinition: #NewTranscript category: #'System-Support'! Object subclass: #NewTranscript instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'System-Support'! !NewTranscript commentStamp: '<historical>' prior: 0! A new implementation of Transcript. - Thread safe. - Very fast. - Independent of Morphic or any other UI framework. - Inmediate feedback. - Can log to file. - Not an editor. Only used for output. - All protocol is on the Class side! !classDefinition: 'NewTranscript class' category: nil! NewTranscript class instanceVariableNames: 'entries firstIndex lastIndex accessSemaphore unfinishedEntry logToFile showOnDisplay innerRectangle lastDisplayTime'! !DateAndTime methodsFor: 'squeak protocol' stamp: 'jmv 2/18/2011 12:57'! printWithMsOn: aStream "Print with millisecond resolution, no leading space, no offset." | ps | self printYMDOn: aStream withLeadingSpace: false. aStream nextPut: $T. self printHMSOn: aStream. ps _ (self nanoSecond // 1000000) printString padded: #left to: 3 with: $0. aStream nextPut: $.. aStream nextPutAll: ps! ! !NewTranscript class methodsFor: 'preferred protocol' stamp: 'jmv 2/18/2011 14:16'! clear | stream | accessSemaphore critical: [ "Having at least one entry simplifies handling of the entries circular collection" firstIndex _ 1. lastIndex _ 1. entries at: 1 put: 'Transcript'. unfinishedEntry reset. logToFile ifTrue: [ stream _ StandardFileStream forceNewFileNamed: self filename. [ stream nextPutAll: 'Transcript log started: '. DateAndTime now printOn: stream. stream lf; nextPutAll: '------------------------------------------------------------------------'; lf ] ensure: [ stream close ]]]. self display! ! !NewTranscript class methodsFor: 'preferred protocol' stamp: 'jmv 2/18/2011 14:16'! log: aString self addEntry: aString. self display! ! !NewTranscript class methodsFor: 'preferred protocol' stamp: 'jmv 2/18/2011 11:49'! logToFile " self logToFile " logToFile _ true! ! !NewTranscript class methodsFor: 'old Transcript compatibility' stamp: 'jmv 2/18/2011 11:20'! cr "WriteStream protocol. In the older TranscriptStream, it added a CR character. Now, finish the current incomplete entry." self finishEntry! ! !NewTranscript class methodsFor: 'old Transcript compatibility' stamp: 'jmv 2/18/2011 11:20'! crtab "WriteStream protocol. End the current entry, and start a new one starting with a single tab character." self cr; tab! ! !NewTranscript class methodsFor: 'old Transcript compatibility' stamp: 'jmv 2/18/2011 11:21'! endEntry "For compatibility with old TranscriptStream. nop here"! ! !NewTranscript class methodsFor: 'old Transcript compatibility' stamp: 'jmv 2/18/2011 11:21'! flush "For compatibility with old TranscriptStream. nop here"! ! !NewTranscript class methodsFor: 'old Transcript compatibility' stamp: 'jmv 2/18/2011 14:17'! nextPut: aCharacter "WriteStream protocol. Append aCharacter to the unfinishedEntry. cr characters sent with this message do NOT finish the current unfinishedEntry." unfinishedEntry nextPut: aCharacter. self displayUnfinishedEntry! ! !NewTranscript class methodsFor: 'old Transcript compatibility' stamp: 'jmv 2/18/2011 14:17'! nextPutAll: aString "WriteStream protocol. Append aString to the unfinishedEntry. cr characters sent with this message do NOT finish the current unfinishedEntry." unfinishedEntry nextPutAll: aString. self displayUnfinishedEntry! ! !NewTranscript class methodsFor: 'old Transcript compatibility' stamp: 'jmv 2/18/2011 11:20'! print: anObject "Stream protocol" anObject printOn: self! ! !NewTranscript class methodsFor: 'old Transcript compatibility' stamp: 'jmv 2/18/2011 11:22'! show: anObject "Old TranscriptStream protocol." self nextPutAll: anObject asString! ! !NewTranscript class methodsFor: 'old Transcript compatibility' stamp: 'jmv 2/18/2011 11:22'! space "WriteStream protocol. Append a space character to the receiver." self nextPut: Character space! ! !NewTranscript class methodsFor: 'old Transcript compatibility' stamp: 'jmv 2/18/2011 11:22'! tab "WriteStream protocol. Append a tab character to the receiver." self nextPut: Character tab! ! !NewTranscript class methodsFor: 'private' stamp: 'jmv 2/18/2011 12:59'! addEntry: aString "Add a new entrie to the entries circular list. If full, a new entry will replace the oldest one." | msg now | logToFile ifTrue: [ now _ DateAndTime now. msg _ String streamContents: [ :strm | now printWithMsOn: strm. strm nextPutAll: ' process:'; nextPutAll: Processor activeProcess priority printString; nextPut: $ ; nextPutAll: Processor activeProcess hash printString; nextPut: $ ; nextPutAll: aString; lf ]]. self addEntry: aString logToFile: msg! ! !NewTranscript class methodsFor: 'private' stamp: 'jmv 2/18/2011 12:34'! addEntry: aString logToFile: otherString "Add a new entrie to the entries circular list. If full, a new entry will replace the oldest one." | stream | accessSemaphore critical: [ "Internal circular collection" lastIndex _ lastIndex \\ self maxEntries + 1. firstIndex = lastIndex ifTrue: [ firstIndex _ firstIndex \\ self maxEntries + 1 ]. entries at: lastIndex put: aString. "external file" otherString ifNotNil: [ [ stream _ StandardFileStream fileNamed: self filename. stream setToEnd; nextPutAll: otherString; flush] ensure: [ stream close ] ] ]! ! !NewTranscript class methodsFor: 'private' stamp: 'jmv 2/18/2011 14:16'! finishEntry | newEntry | newEntry _ unfinishedEntry contents. unfinishedEntry reset. self addEntry: newEntry. self display! ! !NewTranscript class methodsFor: 'displaying' stamp: 'jmv 2/18/2011 14:20'! display showOnDisplay ifTrue: [ self displayOn: Display. lastDisplayTime _ DateAndTime now ]! ! !NewTranscript class methodsFor: 'displaying' stamp: 'jmv 2/18/2011 14:09'! displayOn: aForm " experimentos NewTranscript displayOn: Display " | font port count i string x y fh f | aForm border: (innerRectangle outsetBy: 3) width: 3. aForm fill: innerRectangle fillColor: Color white. port _ BitBlt toForm: aForm. port clipWidth: innerRectangle right. font _ StrikeFont default. font installOn: port foregroundColor: Color black. fh _ font height. count _ innerRectangle height // fh-1. x _ innerRectangle left. y _ innerRectangle top. f _ firstIndex-1. firstIndex > lastIndex ifTrue: [ f _ f - self maxEntries ]. i _ (lastIndex - count max: f) \\ self maxEntries + 1. [ string _ entries at: i. port displayString: string from: 1 to: string size at: x@y strikeFont: font kern: font baseKern negated. y _ y + fh. i = lastIndex ] whileFalse: [ i _ i \\ self maxEntries + 1 ]. string _ unfinishedEntry contents. port displayString: string from: 1 to: string size at: x@y strikeFont: font kern: font baseKern negated.! ! !NewTranscript class methodsFor: 'displaying' stamp: 'jmv 2/18/2011 14:23'! displayUnfinishedEntry showOnDisplay ifTrue: [ (lastDisplayTime isNil or: [ (DateAndTime now - lastDisplayTime) totalSeconds > 1 ]) ifTrue: [ ^self display ]. self displayUnfinishedEntryOn: Display ]! ! !NewTranscript class methodsFor: 'displaying' stamp: 'jmv 2/18/2011 14:14'! displayUnfinishedEntryOn: aForm | font port count string x y fh | port _ BitBlt toForm: aForm. port clipWidth: innerRectangle right. font _ StrikeFont default. font installOn: port foregroundColor: Color black. fh _ font height. count _ innerRectangle height // fh-1. x _ innerRectangle left. string _ unfinishedEntry contents. y _ ((lastIndex - firstIndex \\ self maxEntries) min: count-1) + 1 * font height + innerRectangle top. port displayString: string from: 1 to: string size at: x@y strikeFont: font kern: font baseKern negated.! ! !NewTranscript class methodsFor: 'class initialization' stamp: 'jmv 2/18/2011 13:13'! initialize " self initialize " showOnDisplay _ true. innerRectangle _ 20@20 extent: 300@500. logToFile _ false. entries _ Array new: self maxEntries. unfinishedEntry _ '' writeStream. accessSemaphore _ Semaphore forMutualExclusion. self clear! ! !NewTranscript class methodsFor: 'constants' stamp: 'jmv 2/18/2011 12:33'! filename ^'transcript.txt'! ! !NewTranscript class methodsFor: 'constants' stamp: 'jmv 2/18/2011 12:59'! maxEntries ^1000! ! NewTranscript initialize!

1 5

[Pharo-project] Issue 3913 in pharo: Fix in PluggableListMorph hierarchy
by pharo＠googlecode.com March 31, 2011

March 31, 2011

Status: FixProposed Owner: Benjamin...@gmail.com Labels: Nautilus New issue 3913 by Benjamin...@gmail.com: Fix in PluggableListMorph hierarchy http://code.google.com/p/pharo/issues/detail?id=3913 - Fix PluggableIconListMorph to make it works with the new wrapping system - Create PluggableMorphListMorphOfMany, the copy of PluggableMorphLitMorph but which inherits from PluggableListMorphOfMany - Create PluggableIconListMorphOfMany, the copy of PluggableIconListMorph but which inherits from PluggableMorphListMorphOfMany Attachments: PluggableListMorphs.1.cs 6.6 KB

1 1

[Pharo-project] Issue 3917 in pharo: Make all uses of SystemWindow go thru UIManger.
by pharo＠googlecode.com March 31, 2011

March 31, 2011

Status: New Owner: ---- New issue 3917 by fernando...@gmail.com: Make all uses of SystemWindow go thru UIManger. http://code.google.com/p/pharo/issues/detail?id=3917 It would strengthen the UIManager responsibilities as the centralizer of UI requests. 1) To remove globals such as TopWindow in SystemWindow, and move some of the global state from SystemWindow class to the more appropriate UIManager subclass. The same for methods like SystemWindow>>wakeUpTopWindowUponStartup, SystemWindow>>fullScreenMargin , etc.. 2)To merge the approaches in different UIManagers, such as Morphic and SimpleMorph UIManagers. 3) Removed SMxSystemWindow noteTopWindowIn: aWorld, replaced by PasteUpMorph>>noteTopWindow. Attachments: SystemWindowThruUIManager-Preamble.2.cs 2.8 KB SystemWindowThruUIManager.3.cs 73.1 KB

1 1

[Pharo-project] Issue 3916 in pharo: Can't input some Russian characters at text editors
by pharo＠googlecode.com March 31, 2011

March 31, 2011

Status: New Owner: ---- New issue 3916 by Dionisiy...@gmail.com: Can't input some Russian characters at text editors http://code.google.com/p/pharo/issues/detail?id=3916 Can't input some Russian characters at text editors. For example I can't input uppercased russian "Ð" and "Ð". Instead cursor go to left or to begin of line. Same happen with lowercase mode with shift pressed. I test it on Windows7 and XP, Pharo1.2 and 1.1 I debug texteditor code and found strange behavior at TextEditor>>dispatchOn: aKeyboardEvent method aKeyboardEevent in case of "Ð" input interpreted as leftArrow character. But in inspector I see aKeyboardEvent($Ð). I try to set up RussionEnvirenment as Locale current but no success.

1 3

[Pharo-project] Thanks for Pharo
by Scott Gibson March 30, 2011

March 30, 2011

I just wanted to say thanks to everyone for all of the hard work that has been done for Pharo. Pharo 1.2 has come a long way and has been very enjoyable to use. Recently I had been given the opportunity to develop an application for a potential customer. I chose to use Pharo and Seaside and have been very happy with how well using Pharo 1.2 has been, with Cog even. I am very new to Smalltalk but I have been looking to help in any way (financially, documentation, etc.) that I can in order to help the progress of an open source Smalltalk, Pharo specifically. I am so new to Smalltalk that I feel I would be more of a hinderance than anything so I have not quite figured out how I could best help though I do hope to contribute in some way soon. Thanks again! Scott Gibson

2 2

[Pharo-project] [COTDC] 38 - PathShape
by laurent laffont March 30, 2011

March 30, 2011

Let's comment Polymorph for several days. Today: PathShape Comment Of The Day Contest - One Day One Comment Rules: #1: Each day a not commented class is elected. Each day the best comment will be integrated with name of the author(s). #2: If you cannot comment it, deprecate it. Results: http://code.google.com/p/pharo/wiki/CommentOfTheDayContest Laurent

2 3

Re: [Pharo-project] Which methods are really not executed?
by Marcus Denker March 30, 2011

March 30, 2011

On Mar 28, 2011, at 11:28 AM, Mariano Martinez Peck wrote: > Hi folks. I would like to know which are the messages that are not really executed, thus not being intercepted by proxies. > So far, I know: > > 1) > those are inlined by the compiler... > yes. > 2) Special shorcut bytecodes that are in "Smalltalk specialSelectors" / "ParseNode classVarNamed: 'StdSelectors'" / "Smalltalk specialObjectsArray at: 24" > > Here I have a question...if I understand correctly, in this list of selectors there are 3 cases: > > 2.1) methods may or may not be executed depending on the receiver/arguments. For example > 1 + 2 will never send the message #+ to 1. > but 1 + 'mariano' will do. > yes. > 2.2) methods that are NEVER sent, like #class and #== > yes > 2.3) methods that are ALWAYS sent, like #new, #next, #nextPut:, #size, etc. > > So...did I understand correclty this part? > I think so, yes. > > are there more cases where a message may not be really executed? You could see the block creation bytecode as a problematic case. It's not a message, so you can't trap it. But then when we are on that level, the same is with iVar access. Or temp access. -- Marcus Denker -- http://www.marcusdenker.de INRIA Lille -- Nord Europe. Team RMoD.

1 0

Re: [Pharo-project] Issue 2911 in pharo: senders of ifNil:ifNotNil: only find literals but not senders
by pharo＠googlecode.com March 30, 2011

March 30, 2011

Comment #2 on issue 2911 by nicolas....@gmail.com: senders of ifNil:ifNotNil: only find literals but not senders http://code.google.com/p/pharo/issues/detail?id=2911 Related to issue2559

1 1

Re: [Pharo-project] Random crashes?
by AxiNat March 30, 2011

March 30, 2011

I was using the Cog VM shipped with the OneClick image, I'll update it right away. Thanks :) Bernat. 2011/3/30 Henrik Johansen <henrik.s.johansen(a)veloxit.no> > > On Mar 30, 2011, at 5:01 06PM, AxiNat wrote: > > > Hi Henrik and list, I was just asking how can I do the research by myself > to find out where the bug comes from. > > > > Anyway, here's my config: > > > > Debian GNU/Linux wheezy/sid (testing) - Kernel version 2.6.32-5-686 > > > > CPU: Intel(R) Pentium(R) Dual CPU T3400 @ 2.16GHz > > > > Smalltalk version 'Pharo1.2' > > Smalltalk vmVersion 'Croquet Closure Cog VM [CoInterpreter > VMMaker-oscog.35]' > > > > > Then I'd say there's probably a bug in code generation of the Cog JIT'er, > seeing as how it doesn't crash right away. > Use of SSE2 instructions would be my first bet, but it looks like your > processor supports those. > > First I'd try upgrading to a recent VM, .35 is really old, and there have > been plenty of crash fixes since then. > > If that doesn't help, try to identify which piece of code gets JIT'ed right > before the crash (using logs/a debug-built VM/gdb etc.), and try to create a > reproducible test-case of the code that generates invalid instructions when > JIT'ed. > > Then, submit testcase/details you just provided here to the Cog issue > tracker, cross your fingers, and hope for the best :) > > Cheers, > Henry >

4 9