October 2011 - Pharo-dev - lists.pharo.org

Re: [Pharo-project] Welcome to the "seaside" mailing list
by Guillermo Polito Oct. 23, 2011

Oct. 23, 2011

Hi! I need to set up a rest server serving JSON and I want to do it with seaside, since I heard about it in the pharo's mailing list :). I found in squeaksource/MetacelloRepository a ConfigurationOfSeasideRest, and the following link: http://code.google.com/p/seaside/wiki/SeasideRest. But I didn't manage to get it installed in my 1.3 image... I also googled and looked in the seaside doc, but I didn't find a way to do it :(. Does anybody have a link or point me to some documentation? Or give me some instructions of how to do it, hehe :P. Thanks! Guille

2 3

[Pharo-project] Fuel 1.7 also working in Pharo 1.1
by Mariano Martinez Peck Oct. 23, 2011

Oct. 23, 2011

Hi guys. After 30 mins effort of Martin and 30 mins effort of me, Fuel 1.7 (the latest stable one) is already working in Pharo 1.1. It means the same version is working from Pharo 1.1 to Pharo 1.4. If you want to give it a try in Pharo 1.1 execute: Gofer new squeaksource: 'MetacelloRepository'; package: 'ConfigurationOfFuel'; load. ((Smalltalk at: #ConfigurationOfFuel) project version: '1.7') load. Gofer new squeaksource: 'Fuel'; package: 'FuelCompatibilityBeforePharo13'; package: 'FuelCompatibilityBeforePharo12'; load. Cheers -- Mariano http://marianopeck.wordpress.com

1 0

Re: [Pharo-project] [Seaside] [OT] squeaksource.com is down
by Mariano Martinez Peck Oct. 23, 2011

Oct. 23, 2011

please? On Sat, Oct 22, 2011 at 4:16 PM, Sebastian Sastre < sebastian(a)flowingconcept.com> wrote: > sorry to bother with this but squeaksource.com is down since yesterday > afternoon > > anybody can reset it? or know the guy who can? > > sebastian <http://about.me/sebastianconcept> > > o/ > > > > > _______________________________________________ > seaside mailing list > seaside(a)lists.squeakfoundation.org > http://lists.squeakfoundation.org/cgi-bin/mailman/listinfo/seaside > > -- Mariano http://marianopeck.wordpress.com

3 5

[Pharo-project] old windows in image not responding
by Ben Coman Oct. 22, 2011

Oct. 22, 2011

I have just opened a Pharo image on Windows 7 that I haven't touched in months. This was originally derived from the Pharo.1.2.1.OneCick, and the TitleBar > 'Display Version Information' indicates "About Pharo on Win32 - Pharo4.1.1 from Mar 3 2011". I assume the image was left it in good working order, but now the 16 open windows (including a pinned World Menu) are not responding to any mouse click. Clicking over them brings up a fresh World Menu as if I just clicked on the background. From this fresh World Menu, I can open a properly functioning Workspace and Browser. It seems like a snapshot "old" windows has become the background image, except that from the window-bar and bottom of screen going "Windows > Collapse All Windows" does collapse the "old" windows - and "Windows > Expand All Windows" restores them, but they still cannot be selected. One of the "old" windows is a dialog box "Question: Save changes before quitting Yes/No/Cancel" which is the single "old" window I can select. Choosing Yes or No closes the image and choosing Cancel keeps me in the image, but still with none of the "old" windows selectable. I naively speculate that I was closing the image and walked away while "save changes" dialog was open, and in the meantime the power dropped out to the machine. It would be nice to regain access to some code snippets in the "old" Workspace, but just closing all the "old" of them would be okay. Your thoughts on possible causes and alternatives to fix would be appreciated. cheers, Ben

2 2

[Pharo-project] question about keymapper
by StÃ©phane Ducasse Oct. 22, 2011

Oct. 22, 2011

Hi guillermo Can I with keymapper have a tool that define a set of binding that overrides the one defined globally? This way we could unify all the system to use only one mechanism for keymapping. Stef

3 4

Re: [Pharo-project] Too many semaphores, image blocked
by Marcus Denker Oct. 21, 2011

Oct. 21, 2011

On Oct 21, 2011, at 4:56 PM, Janko MivÅ¡ek wrote: > S, Henrik Sperre Johansen piÅ¡e: > >>> There's something wrong with startup/shutdown list, at least with my >>> Pharo 1.4 image... >> Both InputEventFetcher and InputEventPollingFetcher are in the lists, >> going back to at least 1.3 >> Can't have that. Probably got there when switching InputFetcher (IE a >> _long_ time ago) due to being careless with receiver of #install / >> #deinstall... > >> InputEventPollingFetcher should be removed. > > Henrik, can you prepare a patch (or instructions how to remove it) so > that I'll check immediately? execute: Smalltalk removeFromStartUpList: InputEventPollingFetcher. Smalltalk removeFromShutDownList: InputEventPollingFetcher. Or update to the latest 1.3 / 1.4... Marcus -- Marcus Denker -- http://marcusdenker.de

3 2

[Pharo-project] [update 1.4] #14207
by Marcus Denker Oct. 21, 2011

Oct. 21, 2011

14207 ----- Issue 4928: Empty the class BlockContext... http://code.google.com/p/pharo/issues/detail?id=4928 Issue 4410: CompiledMethod >> #valueWithReceiver:arguments: instead of Object >> #withArgs:executeMethod: http://code.google.com/p/pharo/issues/detail?id=4410 -- Marcus Denker -- http://marcusdenker.de

1 0

Re: [Pharo-project] Too many semaphores, image blocked
by Henrik Sperre Johansen Oct. 21, 2011

Oct. 21, 2011

On 21.10.2011 10:42, Henrik Sperre Johansen wrote: > On 20.10.2011 15:30, Igor Stasenko wrote: >> 2011/10/20 Janko MivÅ¡ek<janko.mivsek(a)eranova.si>: >>> Hi guys, >>> >>> I'm measuring how my image is breathing through the time and what is >>> interesting is how nr. of Semaphore instances is variating through the >>> time. Every hour just before snapshot I report nr of instances, see >>> last >>> 10 hours: >>> >> Well, the number of semaphores tells nothing because not all of them >> serve for sockets. >> >> There are 3 semaphores per socket. So, if you have 4 sockets, there >> should be 12 external objects. >> Of course not counting others, which is there for other purposes. >> >> Could you add following to report: >> >> Socket registry size >> StandardFileStream registry size >> (ExternalSemaphoreTable unprotectedExternalObjects reject: #isNil) size > There's something wrong with startup/shutdown list, at least with my > Pharo 1.4 image... Both InputEventFetcher and InputEventPollingFetcher are in the lists, going back to at least 1.3 Can't have that. Probably got there when switching InputFetcher (IE a _long_ time ago) due to being careless with receiver of #install / #deinstall... InputEventPollingFetcher should be removed. Cheers, Henry

4 3

[Pharo-project] Too many semaphores, image blocked
by Janko MivÅ¡ek Oct. 21, 2011

Oct. 21, 2011

Hi guys I have nonstartable Pharo 1.3 image, is there any way to get it started? This image was running all the time, being on the net directly (Aida based web development image) and snapshoting every hour. The problem happens at such snapshot, raising Not enough space for external objects/too many semaphores error and block. After I killed it, snapshoted image is not startable anymore, more exactly: it starts in blank window and stays unresponsive. Is this too many semaphores error related to too many open sockets problem we discussed not to long ago? Any help greatly appreciated. Not to mention finding a bug and removing it forever, because Pharo should become stable as a rock, as VW for instance is :) Best regards Janko PharoDebug.log: THERE_BE_DRAGONS_HERE Error: Not enough space for external objects, set a larger size at startup! 4 October 2011 4:00:01 am VM: unix - i686 - linux-gnu - Croquet Closure Cog VM [CoInterpreter VMMaker-oscog.35] Image: Pharo1.3 [Latest update: #13299] SmalltalkImage(Object)>>error: Receiver: Smalltalk Arguments and temporary variables: aString: 'Not enough space for external objects, set a larger size at startup!'...etc... Receiver's instance variables: globals: a SystemDictionary(lots of globals) deferredStartupActions: nil SmalltalkImage>>maxExternalSemaphores: Receiver: Smalltalk Arguments and temporary variables: aSize: 520 inProduction: false Receiver's instance variables: globals: a SystemDictionary(lots of globals) deferredStartupActions: nil ExternalSemaphoreTable class>>freedSlotsIn:ratherThanIncreaseSizeTo: Receiver: ExternalSemaphoreTable Arguments and temporary variables: externalObjects: an Array(a Semaphore() a Semaphore() a Semaphore() a Semaphore...etc... newSize: 520 needToGrow: false maxSize: 512 Receiver's instance variables: superclass: Object methodDict: a MethodDictionary() format: 2 instanceVariables: nil organization: ('as yet unclassified') subclasses: nil name: #ExternalSemaphoreTable classPool: a Dictionary(#ProtectAdd->a Semaphore() #ProtectRemove->a Semaphore(...etc... sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'System-Support' traitComposition: {} localSelectors: nil ExternalSemaphoreTable class>>collectionBasedOn:withRoomFor: Receiver: ExternalSemaphoreTable Arguments and temporary variables: externalObjects: an Array(a Semaphore() a Semaphore() a Semaphore() a Semaphore...etc... anObject: a Semaphore() newObjects: nil newSize: 520 Receiver's instance variables: superclass: Object methodDict: a MethodDictionary() format: 2 instanceVariables: nil organization: ('as yet unclassified') subclasses: nil name: #ExternalSemaphoreTable classPool: a Dictionary(#ProtectAdd->a Semaphore() #ProtectRemove->a Semaphore(...etc... sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'System-Support' traitComposition: {} localSelectors: nil ExternalSemaphoreTable class>>safelyRegisterExternalObject: Receiver: ExternalSemaphoreTable Arguments and temporary variables: anObject: a Semaphore() objects: an Array(a Semaphore() a Semaphore() a Semaphore() a Semaphore(a Proce...etc... firstEmptyIndex: nil obj: nil sz: nil newObjects: nil Receiver's instance variables: superclass: Object methodDict: a MethodDictionary() format: 2 instanceVariables: nil organization: ('as yet unclassified') subclasses: nil name: #ExternalSemaphoreTable classPool: a Dictionary(#ProtectAdd->a Semaphore() #ProtectRemove->a Semaphore(...etc... sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'System-Support' traitComposition: {} localSelectors: nil [self safelyRegisterExternalObject: anObject] in ExternalSemaphoreTable class>>registerExternalObject: Receiver: ExternalSemaphoreTable Arguments and temporary variables: anObject: a Semaphore() Receiver's instance variables: superclass: Object methodDict: a MethodDictionary() format: 2 instanceVariables: nil organization: ('as yet unclassified') subclasses: nil name: #ExternalSemaphoreTable classPool: a Dictionary(#ProtectAdd->a Semaphore() #ProtectRemove->a Semaphore(...etc... sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'System-Support' traitComposition: {} localSelectors: nil [caught := true. self wait. blockValue := mutuallyExcludedBlock value] in Semaphore>>critical: Receiver: a Semaphore() Arguments and temporary variables: <<error during printing> Receiver's instance variables: firstLink: nil lastLink: nil excessSignals: 0 BlockClosure>>ensure: Receiver: [caught := true. self wait. blockValue := mutuallyExcludedBlock value] Arguments and temporary variables: aBlock: [caught ifTrue: [self signal]] complete: nil returnValue: nil Receiver's instance variables: outerContext: Semaphore>>critical: startpc: 42 numArgs: 0 Semaphore>>critical: Receiver: a Semaphore() Arguments and temporary variables: <<error during printing> Receiver's instance variables: firstLink: nil lastLink: nil excessSignals: 0 ExternalSemaphoreTable class>>registerExternalObject: Receiver: ExternalSemaphoreTable Arguments and temporary variables: anObject: a Semaphore() Receiver's instance variables: superclass: Object methodDict: a MethodDictionary() format: 2 instanceVariables: nil organization: ('as yet unclassified') subclasses: nil name: #ExternalSemaphoreTable classPool: a Dictionary(#ProtectAdd->a Semaphore() #ProtectRemove->a Semaphore(...etc... sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'System-Support' traitComposition: {} localSelectors: nil SmalltalkImage>>registerExternalObject: Receiver: Smalltalk Arguments and temporary variables: anObject: a Semaphore() Receiver's instance variables: globals: a SystemDictionary(lots of globals) deferredStartupActions: nil InputEventPollingFetcher(InputEventFetcher)>>startUp Receiver: an InputEventPollingFetcher Arguments and temporary variables: Receiver's instance variables: eventHandlers: an OrderedCollection(an InputEventSensor an UserInterruptHandler...etc... fetcherProcess: a Process in [delaySemaphore wait] in Delay>>wait inputSemaphore: a Semaphore() InputEventPollingFetcher class(InputEventFetcher class)>>startUp Receiver: InputEventPollingFetcher Arguments and temporary variables: Receiver's instance variables: superclass: InputEventFetcher methodDict: a MethodDictionary(#terminateEventLoop->(InputEventPollingFetcher>>...etc... format: 136 instanceVariables: nil organization: ('events' waitForInput) ('initialize-release' terminateEventLoop)...etc... subclasses: nil name: #InputEventPollingFetcher classPool: a Dictionary(#EventPollDelay->a Delay(10 msecs; 9 msecs remaining) )...etc... sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Kernel-Processes' traitComposition: {} localSelectors: nil InputEventPollingFetcher class(Behavior)>>startUp: Receiver: InputEventPollingFetcher Arguments and temporary variables: resuming: false Receiver's instance variables: superclass: InputEventFetcher methodDict: a MethodDictionary(#terminateEventLoop->(InputEventPollingFetcher>>...etc... format: 136 instanceVariables: nil organization: ('events' waitForInput) ('initialize-release' terminateEventLoop)...etc... subclasses: nil name: #InputEventPollingFetcher classPool: a Dictionary(#EventPollDelay->a Delay(10 msecs; 9 msecs remaining) )...etc... sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Kernel-Processes' traitComposition: {} localSelectors: nil [:name | | class | class := self at: name ifAbsent: []. class isNil ifTrue: [removals add: name] ifFalse: [class perform: startUpOrShutDown with: argument]] in SmalltalkImage>>send:toClassesNamedIn:with: Receiver: Smalltalk Arguments and temporary variables: startUpOrShutDown: #InputEventPollingFetcher argument: #startUp: removals: false name: an OrderedCollection() class: InputEventPollingFetcher Receiver's instance variables: globals: a SystemDictionary(lots of globals) deferredStartupActions: nil OrderedCollection>>do: Receiver: an OrderedCollection(#Delay #OSPlatform #DisplayScreen #Cursor #InputEventFetcher #Process...etc... Arguments and temporary variables: aBlock: [:name | | class | class := self at: name ifAbsent: []. class...etc... index: 60 Receiver's instance variables: array: #(nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil ni...etc... firstIndex: 36 lastIndex: 74 SmalltalkImage>>send:toClassesNamedIn:with: Receiver: Smalltalk Arguments and temporary variables: startUpOrShutDown: #startUp: startUpOrShutDownList: an OrderedCollection(#Delay #OSPlatform #DisplayScreen #...etc... argument: false removals: an OrderedCollection() Receiver's instance variables: globals: a SystemDictionary(lots of globals) deferredStartupActions: nil SmalltalkImage>>processStartUpList: Receiver: Smalltalk Arguments and temporary variables: resuming: false Receiver's instance variables: globals: a SystemDictionary(lots of globals) deferredStartupActions: nil [self processStartUpList: resuming. resuming ifTrue: [self recordStartupStamp]] in SmalltalkImage>>snapshot:andQuit: Receiver: Smalltalk Arguments and temporary variables: resuming: false Receiver's instance variables: globals: a SystemDictionary(lots of globals) deferredStartupActions: nil BlockClosure>>ensure: Receiver: [self processStartUpList: resuming. resuming ifTrue: [self recordStartupStamp]] Arguments and temporary variables: aBlock: [Default := self] complete: nil returnValue: nil Receiver's instance variables: outerContext: SmalltalkImage>>snapshot:andQuit: startpc: 185 numArgs: 0 MorphicUIManager(UIManager)>>boot:during: Receiver: a MorphicUIManager Arguments and temporary variables: bootingFromDisk: false aBlock: [self processStartUpList: resuming. resuming ifTrue: [self recordSta...etc... Receiver's instance variables: interactiveParser: nil SmalltalkImage>>snapshot:andQuit: Receiver: Smalltalk Arguments and temporary variables: save: true quit: false snapshotResult: false resuming: false Receiver's instance variables: globals: a SystemDictionary(lots of globals) deferredStartupActions: nil SmalltalkImage>>saveSession Receiver: Smalltalk Arguments and temporary variables: Receiver's instance variables: globals: a SystemDictionary(lots of globals) deferredStartupActions: nil [SmalltalkImage current saveSession] in AIDASite class>>imageSnapshot Receiver: AIDASite Arguments and temporary variables: Receiver's instance variables: superclass: SwazooSite methodDict: a MethodDictionary(size 203) format: 156 instanceVariables: #('style' 'settings' 'systemServices' 'userServices' 'timest...etc... organization: ('private-serving' activityAnnouncers addAllowHeaderTo: addDontCa...etc... subclasses: nil name: #AIDASite classPool: a Dictionary(#Default->an AIDASite #Dialect->#Pharo #HourlySnapshot-...etc... sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Aida-Core' traitComposition: {} localSelectors: nil Time class>>millisecondsToRun: Receiver: Time Arguments and temporary variables: timedBlock: [SmalltalkImage current saveSession] initialMilliseconds: 155447683 Receiver's instance variables: superclass: Magnitude methodDict: a MethodDictionary(#<->(Time>>#< "a CompiledMethod(736624640)") #=-...etc... format: 134 instanceVariables: #('seconds' 'nanos') organization: ('ansi protocol' < = duration hash hour hour12 hour24 meridianAbb...etc... subclasses: nil name: #Time classPool: nil sharedPools: an OrderedCollection(ChronologyConstants) environment: a SystemDictionary(lots of globals) category: #'Kernel-Chronology' traitComposition: nil localSelectors: nil AIDASite class>>imageSnapshot Receiver: AIDASite Arguments and temporary variables: elapsed: nil Receiver's instance variables: superclass: SwazooSite methodDict: a MethodDictionary(size 203) format: 156 instanceVariables: #('style' 'settings' 'systemServices' 'userServices' 'timest...etc... organization: ('private-serving' activityAnnouncers addAllowHeaderTo: addDontCa...etc... subclasses: nil name: #AIDASite classPool: a Dictionary(#Default->an AIDASite #Dialect->#Pharo #HourlySnapshot-...etc... sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Aida-Core' traitComposition: {} localSelectors: nil [AIDASite preImageSnapshot; imageSnapshot] in AIDASite>>initHourlySnapshot Receiver: an AIDASite Arguments and temporary variables: Receiver's instance variables: enabled: true uriPattern: an OrderedCollection(a SiteIdentifier) parent: a ServerRootComposite children: an OrderedCollection() name: 'aidademo' serving: true style: a WasteStyle settings: a Dictionary(#afterLogin->#lastPage #contextProcesses->false #countin...etc... systemServices: a Dictionary(#Admin->a WebAdmin #Authenticator->a DefaultAuthen...etc... userServices: a Dictionary(#Blog->a Blog #Repository->a WasteRepository #SiteCo...etc... timestamps: an IdentityDictionary(#Created->3491250844 #LastRequest->3494848717...etc... counters: an IdentityDictionary(#NewVisitors->a WebCounter #NotFound->a WebCoun...etc... other: a Dictionary(#activityAnnouncers->a Dictionary() ) [self block value] in WebScheduledEvent>>run Receiver: a WebScheduledEvent Arguments and temporary variables: Receiver's instance variables: parent: a WebScheduler timestamp: a SpTimestamp period: #hour->0 method: nil object: nil block: [AIDASite preImageSnapshot; imageSnapshot] [self value. Processor terminateActive] in BlockClosure>>newProcess Receiver: [self block value] Arguments and temporary variables: Receiver's instance variables: outerContext: WebScheduledEvent>>run startpc: 78 numArgs: 0 --- The full stack --- SmalltalkImage(Object)>>error: SmalltalkImage>>maxExternalSemaphores: ExternalSemaphoreTable class>>freedSlotsIn:ratherThanIncreaseSizeTo: ExternalSemaphoreTable class>>collectionBasedOn:withRoomFor: ExternalSemaphoreTable class>>safelyRegisterExternalObject: [self safelyRegisterExternalObject: anObject] in ExternalSemaphoreTable class>>registerExternalObject: [caught := true. self wait. blockValue := mutuallyExcludedBlock value] in Semaphore>>critical: BlockClosure>>ensure: Semaphore>>critical: ExternalSemaphoreTable class>>registerExternalObject: SmalltalkImage>>registerExternalObject: InputEventPollingFetcher(InputEventFetcher)>>startUp InputEventPollingFetcher class(InputEventFetcher class)>>startUp InputEventPollingFetcher class(Behavior)>>startUp: [:name | | class | class := self at: name ifAbsent: []. class isNil ifTrue: [removals add: name] ifFalse: [class perform: startUpOrShutDown with: argument]] in SmalltalkImage>>send:toClassesNamedIn:with: OrderedCollection>>do: SmalltalkImage>>send:toClassesNamedIn:with: SmalltalkImage>>processStartUpList: [self processStartUpList: resuming. resuming ifTrue: [self recordStartupStamp]] in SmalltalkImage>>snapshot:andQuit: BlockClosure>>ensure: MorphicUIManager(UIManager)>>boot:during: SmalltalkImage>>snapshot:andQuit: SmalltalkImage>>saveSession [SmalltalkImage current saveSession] in AIDASite class>>imageSnapshot Time class>>millisecondsToRun: AIDASite class>>imageSnapshot [AIDASite preImageSnapshot; imageSnapshot] in AIDASite>>initHourlySnapshot [self block value] in WebScheduledEvent>>run [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------ -- Janko MivÅ¡ek Aida/Web Smalltalk Web Application Server http://www.aidaweb.si

8 20

[Pharo-project] [update 1.4] #14206
by Marcus Denker Oct. 21, 2011

Oct. 21, 2011

14206 ----- Issue 4908: LinkedList collect http://code.google.com/p/pharo/issues/detail?id=4908 -- Marcus Denker -- http://marcusdenker.de

1 0