- Pharo-dev - lists.pharo.org

[Pharo-project] [Ann] System-PasswordManager
by Keith Hodges March 22, 2009

March 22, 2009

I have published MCPasswordManager as a separate package http://www.squeaksource.com/mc/System-PasswordManager Keith

1 0

[Pharo-project] [ANN] 10259 available for download
by StÃ©phane Ducasse March 22, 2009

March 22, 2009

at https://gforge.inria.fr/frs/?group_id=1299 then files Stef

1 0

[Pharo-project] Could not merge changes... DNU
by StÃ©phane Ducasse March 22, 2009

March 22, 2009

PSMCmergePatchMorph>>selectNextConflict "Select the next conflict after the current selection, if any." |next def| next := self nextConflict ifNil: [^self]. def := next remoteDefinition ifNil: [next localDefinition]. self changed: {#changes. #openPath. next targetClassName asString. def selector asString} def = a MCOrganizationDefinition(#(#'System-Object Events')) and does not understand selector

2 1

[Pharo-project] Starting to clean theWorldMainDockingBar
by StÃ©phane Ducasse March 22, 2009

March 22, 2009

http://code.google.com/p/pharo/issues/detail?id=683 Started to remove reference to project....long effort though Stef

2 3

[Pharo-project] [ANN] 10259 : ProjectHistoryRemoval
by StÃ©phane Ducasse March 22, 2009

March 22, 2009

ProjectHistory is now out. Some of its friends will be in the radar too. Stef

1 0

[Pharo-project] [release team] scriptloader new version
by StÃ©phane Ducasse March 22, 2009

March 22, 2009

Hi guys adding some extra functionality addPackage: removeSystemCategory: to be tested. I'm doing a release that remove ProjectHistory now. Stef

1 0

[Pharo-project] to relax
by StÃ©phane Ducasse March 21, 2009

March 21, 2009

to relax I started to curve out projectHistory and I found that. So for sure pharo will be cool. enter: returningFlag revert: revertFlag saveForRevert: saveForRevert "Install my ChangeSet, Transcript, and scheduled views as current globals. If returningFlag is true, we will return to the project from whence the current project was entered; don't change its previousProject link in this case. If saveForRevert is true, save the ImageSegment of the project being left. If revertFlag is true, make stubs for the world of the project being left. If revertWithoutAsking is true in the project being left, then always revert." | recorderOrNil old forceRevert response seg | (world isKindOf: StringMorph) ifTrue: [self inform: 'This project is not all here. I will try to load a complete version.' translated. ^ true]. self isCurrentProject ifTrue: [^ self]. "Check the guards" guards ifNotNil: [guards := guards reject: [:obj | obj isNil]. guards do: [:obj | obj okayToEnterProject ifFalse: [^ self]]]. CurrentProject world triggerEvent: #aboutToLeaveWorld. forceRevert := false. CurrentProject rawParameters ifNil: [revertFlag ifTrue: [^ self inform: 'nothing to revert to' translated]] ifNotNil: [saveForRevert ifFalse: [forceRevert := CurrentProject projectParameters at: #revertWithoutAsking ifAbsent: [false]]]. forceRevert not & revertFlag ifTrue: [response := self confirm: 'Are you sure you want to destroy this Project\ and revert to an older version?\\(From the parent project, click on this project''s thumbnail.)' translated withCRs. response ifFalse: [^ self]]. revertFlag | forceRevert ifTrue: [seg := CurrentProject projectParameters at: #revertToMe ifAbsent: [^ self inform: 'nothing to revert to' translated]] ifFalse: [ CurrentProject makeThumbnail. returningFlag == #specialReturn ifTrue: [ Project forget: CurrentProject] ifFalse: []]. revertFlag | saveForRevert | forceRevert ifFalse: [(Preferences valueOfFlag: #projectsSentToDisk) ifTrue: [self storeToMakeRoom]]. CurrentProject abortResourceLoading. CurrentProject saveProjectPreferences. "Update the display depth and make a thumbnail of the current project" CurrentProject displayDepth: Display depth. old := CurrentProject. "for later" "Show the project transition. Note: The project zoom is run in the context of the old project, so that eventual errors can be handled accordingly" displayDepth == nil ifTrue: [displayDepth := Display depth]. self installNewDisplay: Display extent depth: displayDepth. (self showZoom) ifTrue: [self displayZoom: CurrentProject parent ~~ self]. (world isMorph and: [world hasProperty: #letTheMusicPlay]) ifTrue: [world removeProperty: #letTheMusicPlay] ifFalse: [Smalltalk at: #ScorePlayer ifPresentAndInMemory: [:playerClass | playerClass allSubInstancesDo: [:player | player pause]]]. returningFlag == #specialReturn ifTrue: [old removeChangeSetIfPossible. "keep this stuff from accumulating" nextProject := nil] ifFalse: [returningFlag ifTrue: [nextProject := CurrentProject] ifFalse: [previousProject := CurrentProject]]. CurrentProject saveState. CurrentProject isolationHead == self isolationHead ifFalse: [self invokeFrom: CurrentProject]. CurrentProject := self. self installProjectPreferences. ChangeSet newChanges: changeSet. TranscriptStream newTranscript: transcript. Sensor flushKeyboard. recorderOrNil := World pauseEventRecorder. ProjectHistory remember: CurrentProject. World := world. "Signifies Morphic" world install. "(revertFlag | saveForRevert | forceRevert) ifFalse: [ (Preferences valueOfFlag: #projectsSentToDisk) ifTrue: [ self storeSomeSegment]]." recorderOrNil ifNotNil: [recorderOrNil resumeIn: world]. saveForRevert ifTrue: [Smalltalk garbageCollect. "let go of pointers" old storeSegment. "result :=" old world isInMemory ifTrue: ['Can''t seem to write the project.'] ifFalse: [old projectParameters at: #revertToMe put: old world xxxSegment clone]. 'Project written.']. "original is for coming back in and continuing." revertFlag | forceRevert ifTrue: [seg clone revert]. "non-cloned one is for reverting again later" self removeParameter: #exportState. "Complete the enter: by launching a new process" world triggerEvent: #aboutToEnterWorld. Project spawnNewProcessAndTerminateOld: true

1 0

[Pharo-project] Problem with senders?
by Mariano Martinez Peck March 21, 2009

March 21, 2009

I am trying to see the senders of a message. I select "startsWith:" in a workspace -> right button -> extended search -> senders of it and I get a wallback. If you think this is a bug, let me know and I add it to the issue tracker. Thanks, Mariano MessageNotUnderstood: OBShowSenders class>>of:label: 20 March 2009 1:11:08 am VM: unix - a SmalltalkImage Image: Pharo0.1 [Latest update: #10256] SecurityManager state: Restricted: false FileAccess: true SocketAccess: true Working Dir /home/mariano/squeak/imagenes Trusted Dir /home/mariano/squeak/imagenes/secure Untrusted Dir /home/mariano/squeak/imagenes/My Squeak OBShowSenders class(Object)>>doesNotUnderstand: #of:label: Receiver: OBShowSenders Arguments and temporary variables: aMessage: of: an OBSelectorNode label: 'Senders of startsWith: [4]' exception: MessageNotUnderstood: OBShowSenders class>>of:label: resumeValue: nil Receiver's instance variables: superclass: OBNavigate methodDict: a MethodDictionary(#browserClass->a CompiledMethod (3617) #noChildr...etc... format: 136 instanceVariables: nil organization: ('as yet unclassified' browserClass noChildrenMessage) subclasses: nil name: #OBShowSenders classPool: nil sharedPools: nil environment: Smalltalk category: #'OB-Standard-Announcements' traitComposition: nil localSelectors: nil DEVToolSet class>>browseSendersOf:name:autoSelect: Receiver: DEVToolSet Arguments and temporary variables: aSymbol: #startsWith: labelString: 'Senders of startsWith: [4]' autoSelectString: 'startsWith:' 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>>browseSendersOf:name:autoSelect: Receiver: ToolSet Arguments and temporary variables: aSymbol: #startsWith: titleString: 'Senders of startsWith: [4]' autoSelectString: 'startsWith:' 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 OTToolset DEVToolSet) default: DEVToolSet SystemNavigation>>browseSendersOf:name:autoSelect: Receiver: a SystemNavigation Arguments and temporary variables: aSelector: #startsWith: labelString: 'Senders of startsWith:' autoSelectString: 'startsWith:' title: 'Senders of startsWith: [4]' size: 4 senders: an OrderedCollection(a MethodReference Algernon >> #isMatchingClass:gi...etc... Receiver's instance variables: browserClass: nil hierarchyBrowserClass: nil --- The full stack --- OBShowSenders class(Object)>>doesNotUnderstand: #of:label: DEVToolSet class>>browseSendersOf:name:autoSelect: ToolSet class>>browseSendersOf:name:autoSelect: SystemNavigation>>browseSendersOf:name:autoSelect: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - SystemNavigation>>browseAllCallsOn: [] in TextMorphForShoutEditor(ParagraphEditor)>>sendersOfIt {[self systemNavigation browseAllCallsOn: aSelector]} TextMorphForShoutEditor(Controller)>>terminateAndInitializeAround: TextMorphForShoutEditor(ParagraphEditor)>>sendersOfIt [] in PluggableShoutMorph(PluggableTextMorph)>>sendersOfIt {[textMorph editor sendersOfIt]} [] in PluggableShoutMorph(PluggableTextMorph)>>handleEdit: {[result := editBlock value]} TextMorphForShout(TextMorph)>>handleEdit: PluggableShoutMorph(PluggableTextMorph)>>handleEdit: PluggableShoutMorph(PluggableTextMorph)>>sendersOfIt UndefinedObject(Object)>>perform:orSendTo: [] in ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent: {[(selArgCount := selector numArgs) = 0 ifTrue: [target perform: selector] ...]} BlockContext>>ensure: CursorWithMask(Cursor)>>showWhile: ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent: ToggleMenuItemMorph(MenuItemMorph)>>mouseUp: ToggleMenuItemMorph(MenuItemMorph)>>handleMouseUp: MouseButtonEvent>>sentTo: ToggleMenuItemMorph(Morph)>>handleEvent: MorphicEventDispatcher>>dispatchDefault:with: MorphicEventDispatcher>>dispatchEvent:with: ToggleMenuItemMorph(Morph)>>processEvent:using: MorphicEventDispatcher>>dispatchDefault:with: MorphicEventDispatcher>>dispatchEvent:with: ...etc...

3 6

March 21, 2009

Created a bunch a testpackage based on mike proposal. Now the inbox should be empty and we should focus on the closures (and not removing project :). Stef

1 0

Re: [Pharo-project] [squeak-dev] Organising and Documenting Micro-Universes in Squeaksource
by Damien Pollet March 21, 2009

March 21, 2009

On Thu, Mar 19, 2009 at 22:46, Keith Hodges <keith_hodges(a)yahoo.co.uk> wrote: > I have long been frustrated that there is no place in squeaksource for > documenting what is in a repository, and offering feedback as to what > works where. Yes, and the MC tools should support that IMHO. BTW I'd also add: no nice support for named/tagged branches (I mean, in a big project there should be released/working/devel/in-progress branches, or at least documented sequences of snapshots for stable versions, and we have package-developerUniversallyKnownToNotRegularlyBreakThings.biggestNumber.mcz) > I have started to use Sake/Packages as a kind of micro "universe" for my > Seaside "Client" UI & Backend Component Framework. Having seen how > useful this is I thought that this might be useful for pier, and of > course seaside and other projects. Yup, I like the idea. > Some have reservations about Sake/Packages because they say it is not > declaritive. Huhâ¦ it's a rule system, right ? The alternative I know about being scripts that explicitly load snapshots in sequence, I fail to see where sake is not declarative. >From my discussions on the subject, problems are more about the perception of what level of predictability and control one would get by using sake. Questions like "how do I know what will get installed if I pull this one" or "how do I install this, but with this particular version of that", and so on. Maybe it's a problem of polishing the DSL, of documentation, maybe of tools, I'm not sure; that could be investigated a bit more. For me it's clear that automatic dependancy management is the way to go, though the squeak/pharo community does not have resources or organization like debian's, so I think we need a more decentralized and agile way of managing dependancies, detecting and resolving incoherencies, etc. -- Damien Pollet type less, do more [ | ] http://people.untyped.org/damien.pollet

7 34