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

[Pharo-project] [ANN] prebuilt image #10178
by Marcus Denker Nov. 30, 2008

Nov. 30, 2008

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

5 7

[Pharo-project] OB Button colors
by Torsten Bergmann Nov. 30, 2008

Nov. 30, 2008

When loading polymorph with Watery2 theme and SuperOB using the ScriptLoader the buttons in OB tend to become green again after some clicking ... Bye Torsten -- Sensationsangebot nur bis 30.11: GMX FreeDSL - Telefonanschluss + DSL fÃ¼r nur 16,37 Euro/mtl.!* http://dsl.gmx.de/?ac=OM.AD.PD003K11308T4569a

3 2

[Pharo-project] New pharo-dev based on 10178
by Damien Cassou Nov. 30, 2008

Nov. 30, 2008

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

8 17

[Pharo-project] FileList2 merged with FileList
by HernÃ¡n Morales Durand Nov. 29, 2008

Nov. 29, 2008

Issue 269: http://code.google.com/p/pharo/issues/detail?id=269&q=FileList2&colspec=ID%… Attachements: Morphic-FileList.st contains FileList merged from old FileList and FileList2 Removed FileList2 references in FileListNewReferences.st Two issues: -It is possible to establish a preference for saving a method without modification of the authorship/annotation information ? -Why methods have authors but classes don't ? Cheers HernÃ¡n

1 0

[Pharo-project] RBParser
by Gwenael Casaccio Nov. 29, 2008

Nov. 29, 2008

Hi guys, As I've said to you Marcus, I've worked on the RBParser/RBScanner. I've fixed these classes and now you can parse the entire image. At this moment the refactoring is not yet finished but I've made some good progress. Cheers, Gwenael Casaccio

6 13

[Pharo-project] [update] #10183
by Marcus Denker Nov. 29, 2008

Nov. 29, 2008

-> Issue 359: Freetype: fix DNU glyphcontrast -> Cleanups -> Prefences set to more useful values Classes removed: DummyToolWorkingWithFileList FileChooser FileList2ModalDialogsTest FileListTest MultiuserTinyPaint ProjectSorterMorph Unsent Methods removed: ScriptLoader class #loadPolymorphUI TileMorph: #handReferentMorph #currentDataValue #newContents:fromCard: #setNewContentsFrom: TextFieldMorph: #currentDataValue #setNewContentsFrom: StandardScriptingSystem #acceptableSlotNameFrom:forSlotCurrentlyNamed:asSlotNameIn:world: #anyButtonPressedTiles #colorBehindTiles #customEventNamesAndHelpStringsFor: #doesOperatorWantArrows: #fontForNameEditingInScriptor #globalCustomEventNames #globalCustomEventNamesFor: #helpStringForOperator: #inspectFormDictionary #installSolidMenuForm #nameForInstanceVariablesCategory #nameForScriptsCategory #noButtonPressedTiles #patchInNewStandardPlayerForm #readFormsFromFileNamed: #readFormsFromFileNamed:andStoreIntoGlobal: #referenceAt: #referenceAt:put: #removeCustomEventNamed:for: #resetStaleScriptingReferences #restoreClassicEToyLook #restorePrivateGraphics #saveFormsToFileNamed: #setterSelectorForGetter: #smallBoldFont #standardEventStati #standardForms #statusColorSymbolFor: #stepButton #stopButton #tryButtonFor: #wordingForOperator: StandardScriptingSystem class #noteCompilationOf:meta: SketchMorph class #exampleBackgroundSketch SketchMorph #currentDataValue PluggableTextMorphWithModel #currentDataValue ImageMorph #currentDataValue #wearCostume: HandMorph #trailMorph EventHandler #forgetDispatchesTo: CollapsedMorph class #collapsedMorphOrNilFor: isMyUncollapsedMorph: ClassDescription namedTileScriptSelectors ParagraphEditor #getPluggableYellowButtonMenu: #prettyPrintWithColor #scrollRectangleHeight #sendContentsToPrinter PasteUpMorph #residesInPartsBin BorderedMorph #understandsBorderVocabulary Morph class #additionsToViewerCategory: #allAdditionsToViewerCategories! #noteCompilationOf:meta: Morph #addGraphModelYellowButtonItemsTo:event: #allowsGestureStart: #altSpecialCursor0 #altSpecialCursor2 #connections #demandsBoolean #orOwnerSuchThat:#pinkXButton #redButtonGestureDictionaryOrName: #residesInPartsBin #saveOnURL #setAsActionInButtonProperties: #specialNameInModel #startWiring #wantsEmbeddingsVocabulary MorphicModel #choosePartName #allowSubmorphExtraction #compileInitMethods #duplicate:from: #propagate:as: MorphExtension #hasOtherProperties #privateOtherProperties: StandardFileMenu #computeLabelParagraph #patternList: SoundLoopMorph #allowSubmorphExtraction ProjectNavigationMorph #findAnything PopUpMenu #computeLabelParagraph PluggableTextMorph #prettyPrintWithColor #sendContentsToPrinter PasteUpMorph #findAFileList: MessageSet #optionalButtonHeight InternalThreadNavigationMorph #editThisThread FileList2 #dirSelectionBlock: #limitedSuperSwikiDirectoryList #limitedSuperSwikiPublishDirectoryList #listForPattern: #okHitForProjectLoader #removeLinefeeds #saveLocalOnlyHit FileList #listForPattern: #optionalButtonHeight Debugger #optionalButtonHeight ChangeList #optionalButtonHeight BookMorph #allowSubmorphExtraction #buildThreadOfProjects -- Marcus Denker -- denker(a)iam.unibe.ch http://www.iam.unibe.ch/~denker

1 0

[Pharo-project] [Request for Improvement] Cleverer alt-B
by StÃ©phane Ducasse Nov. 29, 2008

Nov. 29, 2008

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

4 6

Nov. 28, 2008

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

2 2

Nov. 27, 2008

removed.... StandardScriptingSystem systemSlotNamesOfType: PasteUpMoprh additionsToViewerCategoryInput triggerOpeningScripts resumeScriptsPausedByPainting tellAllContent: Morph additionsToViewerCategoryConnection succeededInRevealing: scriptPerformer Morph class additionsToViewerCategoryColorAndBorder Object scriptPerformer Morph inspectArgumentsPlayerInMorphic: isCandidateForAutomaticViewing isTileEditor isTileLIke jettisonScripts listViewLineForFieldList: move:toPosition: objectViewed offerCostumeViewerMenu: playerRepresented

1 0

Nov. 27, 2008

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.

1 0