November 2008 - Pharo-dev - lists.pharo.org

[Pharo-project] why do we need tests for imageSegment!

by StÃ©phane Ducasse

declareAndPossiblyRename: classThatIsARoot | existing catInstaller | "The class just arrived in this segment. How fit it into the Smalltalk dictionary? If it had an association, that was installed with associationDeclareAt:." catInstaller := [ classThatIsARoot superclass name == #Player ifTrue: [classThatIsARoot category: Object categoryForUniclasses] ifFalse: [(classThatIsARoot superclass name beginsWith: 'WonderLandActor') ifTrue: [classThatIsARoot category: 'Balloon3D-UserObjects'] ifFalse: [classThatIsARoot category: 'Morphic-Imported']]. ]. classThatIsARoot superclass addSubclass: classThatIsARoot. (Smalltalk includesKey: classThatIsARoot name) ifFalse: [ "Class entry in Smalltalk not referred to in Segment, install anyway." catInstaller value. ^ Smalltalk at: classThatIsARoot name put: classThatIsARoot]. existing := Smalltalk at: classThatIsARoot name. existing xxxClass == ImageSegmentRootStub ifTrue: [ "We are that segment! Must ask it carefully!" catInstaller value. ^ Smalltalk at: classThatIsARoot name put: classThatIsARoot]. existing == false | (existing == nil) ifTrue: [ "association is in outPointers, just installed" catInstaller value. ^ Smalltalk at: classThatIsARoot name put: classThatIsARoot]. "Conflict with existing global or copy of the class" (existing isKindOf: Class) ifTrue: [ classThatIsARoot isSystemDefined not ifTrue: [ "UniClass. give it a new name" classThatIsARoot setName: classThatIsARoot baseUniclass chooseUniqueClassName. catInstaller value. "must be after new name" ^ Smalltalk at: classThatIsARoot name put: classThatIsARoot]. "Take the incoming one" self inform: 'Using newly arrived version of ', classThatIsARoot name. classThatIsARoot superclass removeSubclass: classThatIsARoot. "just in case" (Smalltalk at: classThatIsARoot name) becomeForward: classThatIsARoot. catInstaller value. ^ classThatIsARoot superclass addSubclass: classThatIsARoot]. self error: 'Name already in use by a non-class: ', classThatIsARoot name.

Nov. 27, 2008

[Pharo-project] Do not see if class or instance is selected with polymorph

by StÃ©phane Ducasse

Nov. 27, 2008

[Pharo-project] [Request for Improvement] Cleverer alt-B

by StÃ©phane Ducasse

Hi I would love to be able to type Scriptloader alt b and get the ScriptLoader class browsed. Stef

Nov. 27, 2008

[Pharo-project] default selection of senders

by StÃ©phane Ducasse

Hi all now I understand when I look for senders of objectViewed I get the method signature selected and it would be great if in such a case the real occurence would be selected instead objectViewed "Answer the morph associated with the player that the structure the receiver currently finds itself within represents." ^ (self outermostMorphThat: [:o | o isKindOf: Viewer orOf: ScriptEditorMorph]) objectViewed

Nov. 27, 2008

[Pharo-project] Want some fun? What to help?

by StÃ©phane Ducasse

I would really like if somebody can check that if we remove that cool method SmartRefStream still work. A couple tests would be welcome. restoreClassInstVars "Install the values of the class instance variables of UniClasses (i.e. scripts slotInfo). classInstVars is ((#Player25 scripts slotInfo) ...). Thank you Mark Wai for the bug fix." | normal aName newName newCls trans rList start | self flag: #bobconv. self moreObjects ifFalse: [^ self]. "are no UniClasses with class inst vars" classInstVars := super next. "Array of arrays" normal := Object class instSize. "might give trouble if Player class superclass changes size" (structures at: #Player ifAbsent: [#()]) = #(0 'dependents' 'costume') ifTrue: [trans := 1]. "now (0 costume costumes). Do the conversion of Player class inst vars in Update 509." classInstVars do: [:list | aName := (list at: 1) asSymbol. rList := list. newName := renamed at: aName ifAbsent: [aName]. newCls := Smalltalk at: newName ifAbsent: [self error: 'UniClass definition missing']. ("old conversion" trans == 1 and: [newCls inheritsFrom: Player]) ifTrue: [ "remove costumeDictionary from Player class inst vars" rList := rList asOrderedCollection. rList removeAt: 4]. "costumeDictionary's value" start := list second = 'Update to read classPool' ifTrue: [4] ifFalse: [2]. newCls class instSize = (normal + (rList size) - start + 1) ifFalse: [self error: 'UniClass superclass class has changed size']. "Need to install a conversion method mechanism" start = 4 ifTrue: [newCls instVarAt: normal - 1 "classPool" put: (list at: 3)]. start to: rList size do: [:ii | newCls instVarAt: normal + ii - start + 1 put: (rList at: ii)]].

Nov. 27, 2008

[Pharo-project] integrating polymorph....

by Torsten Bergmann

Hi Markus, since Polymorph is now integrated the ScriptLoader(class)>>loadPolymorphUI method should be dropped. It's not necessary anymore. Thx Torsten -- Psssst! Schon vom neuen GMX MultiMessenger gehÃ¶rt? Der kann`s mit allen: http://www.gmx.net/de/go/multimessenger

Nov. 27, 2008

Re: [Pharo-project] [ANN] prebuilt image #10178

by Gary Chambers

My personal preference options, as different from the release... alternativeButtonsInScrollBars enabled alwaysShowVScrollbar disabled scrollBarsNarrow disabled scrollBarsWithoutMenuButton enabled mouseClickForKeyboardFocus enabled fadedBackgroundWindows disabled fastDragWindowForMorphic disabled (fast machine!) fullScreenLeavesDeskMargins disabled showSplitterHandles disabled useUndo disabled (potential cause of image cruft) generalizedYellowButtonMenu disabled (allows menu for taskbar items, can override using Ctrl key) Additionally some might like showTextEditingState enabled, not me though! Regards, Gary. ----- Original Message ----- From: "Marcus Denker" <denker(a)iam.unibe.ch> To: "Pharo Development" <Pharo-project(a)lists.gforge.inria.fr> Sent: Thursday, November 27, 2008 3:38 PM Subject: [Pharo-project] [ANN] prebuilt image #10178 > https://gforge.inria.fr/frs/download.php/11844/Pharo0.1Core-10178.zip > -- > Marcus Denker -- denker(a)iam.unibe.ch > http://www.iam.unibe.ch/~denker > > > _______________________________________________ > Pharo-project mailing list > Pharo-project(a)lists.gforge.inria.fr > http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project

Nov. 27, 2008

Re: [Pharo-project] New pharo-dev based on 10178

by Stefan Schmiedl

On Thu, 27 Nov 2008 17:48:33 +0100 "Damien Cassou" <damien.cassou(a)gmail.com> wrote: > https://gforge.inria.fr/frs/download.php/11845/pharo0.1-10178dev08.11.7.zip > and another one: Open TestRunner, all testcases are selected, click "Run Selected". InstallerTest class>>resources tries to create a Set containing ClassClonerTestResource, which appears to be nil. s.

Nov. 27, 2008

Re: [Pharo-project] New pharo-dev based on 10178

by Stefan Schmiedl

On Thu, 27 Nov 2008 17:48:33 +0100 "Damien Cassou" <damien.cassou(a)gmail.com> wrote: > https://gforge.inria.fr/frs/download.php/11845/pharo0.1-10178dev08.11.7.zip > downloaded, started and performed my usual "stress test" (what happens when I click there?). There are two "World" menus: the one coming up on left click on background and the "other" one coming up on middle/right click depending on mouse settings. The "other" world menu has an item "show main docking bar (M)", turning it on results in a walkback: AnObsoleteBlueSmallLandColorTheme>>dockingBarColor should have been implemented. The window look (Watery2) is quite slick ... so very non-squeaky :-) s.

Nov. 27, 2008

[Pharo-project] New pharo-dev based on 10178

by Damien Cassou

https://gforge.inria.fr/frs/download.php/11845/pharo0.1-10178dev08.11.7.zip -- Damien Cassou http://damiencassou.seasidehosting.st

Nov. 27, 2008