etoys-dev May 2010

etoys-dev@lists.squeakfoundation.org

19 participants
192 discussions

Etoys: System-bf.12.mcz
by commits＠source.squeak.org 08 May '10

08 May '10

Bert Freudenberg uploaded a new version of System to project Etoys: http://source.squeak.org/etoys/System-bf.12.mcz ==================== Summary ==================== Name: System-bf.12 Author: bf Time: 8 May 2010, 12:00:21 pm UUID: 6842bc69-4c57-4b16-a2d1-a8c51d42880d Ancestors: System-bf.11 - Fix for SQ-489 (Alt-. does not always work): LowSpaceAndInterruptHandler-4Etoys-M1041-dtl (modified: specialObjectsArray fix --bf) =============== Diff against System-bf.11 =============== Item was changed: ----- Method: SystemDictionary>>recreateSpecialObjectsArray (in category 'special objects') ----- recreateSpecialObjectsArray "Smalltalk recreateSpecialObjectsArray" "The Special Objects Array is an array of object pointers used by the Squeak virtual machine. Its contents are critical and unchecked, so don't even think of playing here unless you know what you are doing." | newArray | newArray := Array new: 50. "Nil false and true get used throughout the interpreter" newArray at: 1 put: nil. newArray at: 2 put: false. newArray at: 3 put: true. "This association holds the active process (a ProcessScheduler)" + newArray at: 4 put: (self associationAt: #Processor). + "Numerous classes below used for type checking and instantiation" - newArray - at: 4 - put: (self associationAt: #Processor). - "Numerous classes below used for type checking and - instantiation" newArray at: 5 put: Bitmap. newArray at: 6 put: SmallInteger. newArray at: 7 put: ByteString. newArray at: 8 put: Array. newArray at: 9 put: Smalltalk. newArray at: 10 put: Float. newArray at: 11 put: MethodContext. newArray at: 12 put: BlockContext. newArray at: 13 put: Point. newArray at: 14 put: LargePositiveInteger. + newArray at: 15 put: ((Display respondsTo: #actualDisplay) + ifTrue: [Display actualDisplay] ifFalse: [Display]). - newArray at: 15 put: Display. newArray at: 16 put: Message. newArray at: 17 put: CompiledMethod. + newArray at: 18 put: (self specialObjectsArray at: 18). - newArray - at: 18 - put: (self specialObjectsArray at: 18). "(low space Semaphore)" newArray at: 19 put: Semaphore. newArray at: 20 put: Character. newArray at: 21 put: #doesNotUnderstand:. newArray at: 22 put: #cannotReturn:. - "The process that signaled the low space semaphore." newArray at: 23 put: nil. + "An array of the 32 selectors that are compiled as special bytecodes, + paired alternately with the number of arguments each takes." + newArray at: 24 put: #( #+ 1 #- 1 #< 1 #> 1 #<= 1 #>= 1 #= 1 #~= 1 + #* 1 #/ 1 #\\ 1 #@ 1 #bitShift: 1 #// 1 #bitAnd: 1 #bitOr: 1 + #at: 1 #at:put: 2 #size 0 #next 0 #nextPut: 1 #atEnd 0 #== 1 #class 0 + #blockCopy: 1 #value 0 #value: 1 #do: 1 #new 0 #new: 1 #x 0 #y 0 ). - "An array of the 32 selectors that are compiled as special - bytecodes, paired alternately with the number of arguments - each takes." - newArray at: 24 put: #(#+ 1 #- 1 #< 1 #> 1 #<= 1 #>= 1 #= 1 #~= 1 #* 1 #/ 1 #\\ 1 #@ 1 #bitShift: 1 #// 1 #bitAnd: 1 #bitOr: 1 #at: 1 #at:put: 2 #size 0 #next 0 #nextPut: 1 #atEnd 0 #== 1 #class 0 #blockCopy: 1 #value 0 #value: 1 #do: 1 #new 0 #new: 1 #x 0 #y 0 ). "An array of the 255 Characters in ascii order." + newArray at: 25 put: ((0 to: 255) collect: [:ascii | Character value: ascii]). - newArray - at: 25 - put: ((0 to: 255) - collect: [:ascii | Character value: ascii]). newArray at: 26 put: #mustBeBoolean. newArray at: 27 put: ByteArray. newArray at: 28 put: Process. + "An array of up to 31 classes whose instances will have compact headers" - "An array of up to 31 classes whose instances will have - compact headers" newArray at: 29 put: self compactClassesArray. + newArray at: 30 put: (self specialObjectsArray at: 30). - newArray - at: 30 - put: (self specialObjectsArray at: 30). "(delay Semaphore)" + newArray at: 31 put: (self specialObjectsArray at: 31). - newArray - at: 31 - put: (self specialObjectsArray at: 31). "(user interrupt Semaphore)" "Prototype instances that can be copied for fast initialization" + newArray at: 32 put: (Float new: 2). + newArray at: 33 put: (LargePositiveInteger new: 4). - newArray - at: 32 - put: (Float new: 2). - newArray - at: 33 - put: (LargePositiveInteger new: 4). newArray at: 34 put: Point new. newArray at: 35 put: #cannotInterpret:. + "Note: This must be fixed once we start using context prototypes (yeah, right)" - "Note: This must be fixed once we start using context - prototypes" - newArray - at: 36 - put: (self specialObjectsArray at: 36). "(MethodContext new: CompiledMethod fullFrameSize)." + newArray at: 36 put: (self specialObjectsArray at: 36). "Is the prototype MethodContext (unused by the VM)" newArray at: 37 put: nil. - newArray - at: 38 - put: (self specialObjectsArray at: 38). "(BlockContext new: CompiledMethod fullFrameSize)." + newArray at: 38 put: (self specialObjectsArray at: 38). "Is the prototype BlockContext (unused by the VM)" + newArray at: 39 put: (self specialObjectsArray at: 39). "preserve external semaphores" - newArray at: 39 put: Array new. "array of objects referred to by external code" newArray at: 40 put: PseudoContext. newArray at: 41 put: TranslatedMethod. "finalization Semaphore" + newArray at: 42 put: ((self specialObjectsArray at: 42) ifNil: [Semaphore new]). - newArray - at: 42 - put: ((self specialObjectsArray at: 42) - ifNil: [Semaphore new]). newArray at: 43 put: LargeNegativeInteger. "External objects for callout. + Note: Written so that one can actually completely remove the FFI." + newArray at: 44 put: (self at: #ExternalAddress ifAbsent: []). + newArray at: 45 put: (self at: #ExternalStructure ifAbsent: []). + newArray at: 46 put: (self at: #ExternalData ifAbsent: []). + newArray at: 47 put: (self at: #ExternalFunction ifAbsent: []). + newArray at: 48 put: (self at: #ExternalLibrary ifAbsent: []). - Note: Written so that one can actually completely remove the - FFI." - newArray - at: 44 - put: (self - at: #ExternalAddress - ifAbsent: []). - newArray - at: 45 - put: (self - at: #ExternalStructure - ifAbsent: []). - newArray - at: 46 - put: (self - at: #ExternalData - ifAbsent: []). - newArray - at: 47 - put: (self - at: #ExternalFunction - ifAbsent: []). - newArray - at: 48 - put: (self - at: #ExternalLibrary - ifAbsent: []). newArray at: 49 put: #aboutToReturn:through:. newArray at: 50 put: #run:with:in:. + "Now replace the interpreter's reference in one atomic operation" - "Now replace the interpreter's reference in one atomic - operation" self specialObjectsArray become: newArray! Item was changed: ----- Method: SystemDictionary>>lowSpaceWatcher (in category 'memory space') ----- lowSpaceWatcher "Wait until the low space semaphore is signalled, then take appropriate actions." | free preemptedProcess | self garbageCollectMost <= self lowSpaceThreshold ifTrue: [self garbageCollect <= self lowSpaceThreshold ifTrue: ["free space must be above threshold before starting low space watcher" ^ Beeper beep]]. Smalltalk specialObjectsArray at: 23 put: nil. "process causing low space will be saved here" + LowSpaceSemaphore := Semaphore new. - LowSpaceSemaphore _ Semaphore new. self primLowSpaceSemaphore: LowSpaceSemaphore. self primSignalAtBytesLeft: self lowSpaceThreshold. "enable low space interrupts" LowSpaceSemaphore wait. "wait for a low space condition..." self primSignalAtBytesLeft: 0. "disable low space interrupts" self primLowSpaceSemaphore: nil. + LowSpaceProcess := nil. - LowSpaceProcess _ nil. "The process that was active at the time of the low space interrupt." + preemptedProcess := Smalltalk specialObjectsArray at: 23. - preemptedProcess _ Smalltalk specialObjectsArray at: 23. Smalltalk specialObjectsArray at: 23 put: nil. "Note: user now unprotected until the low space watcher is re-installed" self memoryHogs isEmpty ifFalse: [free := self bytesLeft. self memoryHogs do: [ :hog | hog freeSomeSpace ]. self bytesLeft > free ifTrue: [ ^ self installLowSpaceWatcher ]]. self isMorphic ifTrue: [CurrentProjectRefactoring currentInterruptName: 'Space is low' preemptedProcess: preemptedProcess] ifFalse: [ScheduledControllers interruptName: 'Space is low' preemptedProcess: preemptedProcess] ! Item was changed: ----- Method: Project class>>interruptName:preemptedProcess: (in category 'utilities') ----- interruptName: labelString preemptedProcess: theInterruptedProcess "Create a Notifier on the active scheduling process with the given label." + | preemptedProcess projectProcess | - | preemptedProcess projectProcess suspendingList | Smalltalk isMorphic ifFalse: [^ ScheduledControllers interruptName: labelString]. ActiveHand ifNotNil:[ActiveHand interrupted]. + ActiveWorld := World. "reinstall active globals" + ActiveHand := World primaryHand. - ActiveWorld _ World. "reinstall active globals" - ActiveHand _ World primaryHand. ActiveHand interrupted. "make sure this one's interrupted too" + ActiveEvent := nil. - ActiveEvent _ nil. + projectProcess := self uiProcess. "we still need the accessor for a while" + preemptedProcess := theInterruptedProcess ifNil: [Processor preemptedProcess]. - projectProcess _ self uiProcess. "we still need the accessor for a while" - preemptedProcess _ theInterruptedProcess ifNil: [Processor preemptedProcess]. "Only debug preempted process if its priority is >= projectProcess' priority" + preemptedProcess priority < projectProcess priority + ifTrue:[preemptedProcess := projectProcess]. + preemptedProcess suspend. - preemptedProcess priority < projectProcess priority ifTrue:[ - (suspendingList _ projectProcess suspendingList) == nil - ifTrue: [projectProcess == Processor activeProcess - ifTrue: [projectProcess suspend]] - ifFalse: [suspendingList remove: projectProcess ifAbsent: []. - projectProcess offList]. - preemptedProcess _ projectProcess. - ] ifFalse:[ - preemptedProcess suspend offList. - ]. Debugger openInterrupt: labelString onProcess: preemptedProcess !

1 0

Etoys: ST80-bf.4.mcz
by commits＠source.squeak.org 08 May '10

08 May '10

Bert Freudenberg uploaded a new version of ST80 to project Etoys: http://source.squeak.org/etoys/ST80-bf.4.mcz ==================== Summary ==================== Name: ST80-bf.4 Author: bf Time: 8 May 2010, 12:00:37 pm UUID: f338e428-3bbf-4118-9739-6cd4d6917b42 Ancestors: ST80-bf.3 - Fix for SQ-489 (Alt-. does not always work): LowSpaceAndInterruptHandler-4Etoys-M1041-dtl =============== Diff against ST80-bf.3 =============== Item was changed: ----- Method: ControlManager>>interruptName:preemptedProcess: (in category 'scheduling') ----- interruptName: labelString preemptedProcess: theInterruptedProcess "Create a Notifier on the active scheduling process with the given label. Make the Notifier the active controller." + | newActiveController preemptedProcess | - | suspendingList newActiveController preemptedProcess | + preemptedProcess := theInterruptedProcess ifNil: [Processor preemptedProcess]. + preemptedProcess suspend. - preemptedProcess _ theInterruptedProcess ifNil: [Processor preemptedProcess]. - preemptedProcess == activeControllerProcess - ifFalse: [(suspendingList _ preemptedProcess suspendingList) == nil - ifTrue: [preemptedProcess suspend] - ifFalse: [suspendingList remove: preemptedProcess. - preemptedProcess offList]]. + "There is something wrong here. We suspend *two* processes, the interrupted + process and the activeControllerProcess (unless they are the same). How can + that possibly be right? However, it is what the code did before I added the comment + (it was merely hidden underneith another pile of code). Someone with more + understanding about MVC fix this please." - (suspendingList _ activeControllerProcess suspendingList) == nil - ifTrue: [activeControllerProcess == Processor activeProcess - ifTrue: [activeControllerProcess suspend]] - ifFalse: [suspendingList remove: activeControllerProcess ifAbsent:[]. - activeControllerProcess offList]. + preemptedProcess == activeControllerProcess + ifFalse:[activeControllerProcess suspend]. + activeController ~~ nil ifTrue: [ "Carefully de-emphasis the current window." activeController view topView deEmphasizeForDebugger]. + newActiveController := - newActiveController _ (Debugger openInterrupt: labelString onProcess: preemptedProcess) controller. newActiveController centerCursorInView. self activeController: newActiveController. !

1 0

Etoys: System-bf.11.mcz
by commits＠source.squeak.org 08 May '10

08 May '10

Bert Freudenberg uploaded a new version of System to project Etoys: http://source.squeak.org/etoys/System-bf.11.mcz ==================== Summary ==================== Name: System-bf.11 Author: bf Time: 8 May 2010, 11:31 am UUID: 1f5514af-427f-4218-913f-8466772ac9ee Ancestors: System-bf.10 - Fix for SQ-489 (Alt-. does not always work): LowSpaceAndInterruptHandler-3-dtl-1 =============== Diff against System-bf.10 =============== Item was added: + ----- Method: CurrentProjectRefactoring classSide>>currentInterruptName:preemptedProcess: (in category 'revectoring to current') ----- + currentInterruptName: aString preemptedProcess: theInterruptedProcess + + ^ Project interruptName: aString preemptedProcess: theInterruptedProcess! Item was changed: ----- Method: SystemDictionary>>recreateSpecialObjectsArray (in category 'special objects') ----- recreateSpecialObjectsArray "Smalltalk recreateSpecialObjectsArray" "The Special Objects Array is an array of object pointers used by the Squeak virtual machine. Its contents are critical and unchecked, so don't even think of playing here unless you know what you are doing." | newArray | newArray := Array new: 50. "Nil false and true get used throughout the interpreter" newArray at: 1 put: nil. newArray at: 2 put: false. newArray at: 3 put: true. "This association holds the active process (a ProcessScheduler)" newArray at: 4 put: (self associationAt: #Processor). "Numerous classes below used for type checking and instantiation" newArray at: 5 put: Bitmap. newArray at: 6 put: SmallInteger. newArray at: 7 put: ByteString. newArray at: 8 put: Array. newArray at: 9 put: Smalltalk. newArray at: 10 put: Float. newArray at: 11 put: MethodContext. newArray at: 12 put: BlockContext. newArray at: 13 put: Point. newArray at: 14 put: LargePositiveInteger. newArray at: 15 put: Display. newArray at: 16 put: Message. newArray at: 17 put: CompiledMethod. newArray at: 18 put: (self specialObjectsArray at: 18). "(low space Semaphore)" newArray at: 19 put: Semaphore. newArray at: 20 put: Character. newArray at: 21 put: #doesNotUnderstand:. newArray at: 22 put: #cannotReturn:. + "The process that signaled the low space semaphore." newArray at: 23 put: nil. - "*unused*" "An array of the 32 selectors that are compiled as special bytecodes, paired alternately with the number of arguments each takes." newArray at: 24 put: #(#+ 1 #- 1 #< 1 #> 1 #<= 1 #>= 1 #= 1 #~= 1 #* 1 #/ 1 #\\ 1 #@ 1 #bitShift: 1 #// 1 #bitAnd: 1 #bitOr: 1 #at: 1 #at:put: 2 #size 0 #next 0 #nextPut: 1 #atEnd 0 #== 1 #class 0 #blockCopy: 1 #value 0 #value: 1 #do: 1 #new 0 #new: 1 #x 0 #y 0 ). "An array of the 255 Characters in ascii order." newArray at: 25 put: ((0 to: 255) collect: [:ascii | Character value: ascii]). newArray at: 26 put: #mustBeBoolean. newArray at: 27 put: ByteArray. newArray at: 28 put: Process. "An array of up to 31 classes whose instances will have compact headers" newArray at: 29 put: self compactClassesArray. newArray at: 30 put: (self specialObjectsArray at: 30). "(delay Semaphore)" newArray at: 31 put: (self specialObjectsArray at: 31). "(user interrupt Semaphore)" "Prototype instances that can be copied for fast initialization" newArray at: 32 put: (Float new: 2). newArray at: 33 put: (LargePositiveInteger new: 4). newArray at: 34 put: Point new. newArray at: 35 put: #cannotInterpret:. "Note: This must be fixed once we start using context prototypes" newArray at: 36 put: (self specialObjectsArray at: 36). "(MethodContext new: CompiledMethod fullFrameSize)." newArray at: 37 put: nil. newArray at: 38 put: (self specialObjectsArray at: 38). "(BlockContext new: CompiledMethod fullFrameSize)." newArray at: 39 put: Array new. "array of objects referred to by external code" newArray at: 40 put: PseudoContext. newArray at: 41 put: TranslatedMethod. "finalization Semaphore" newArray at: 42 put: ((self specialObjectsArray at: 42) ifNil: [Semaphore new]). newArray at: 43 put: LargeNegativeInteger. "External objects for callout. Note: Written so that one can actually completely remove the FFI." newArray at: 44 put: (self at: #ExternalAddress ifAbsent: []). newArray at: 45 put: (self at: #ExternalStructure ifAbsent: []). newArray at: 46 put: (self at: #ExternalData ifAbsent: []). newArray at: 47 put: (self at: #ExternalFunction ifAbsent: []). newArray at: 48 put: (self at: #ExternalLibrary ifAbsent: []). newArray at: 49 put: #aboutToReturn:through:. newArray at: 50 put: #run:with:in:. "Now replace the interpreter's reference in one atomic operation" self specialObjectsArray become: newArray! Item was changed: ----- Method: Project class>>interruptName: (in category 'utilities') ----- interruptName: labelString "Create a Notifier on the active scheduling process with the given label." - | preemptedProcess projectProcess suspendingList | - Smalltalk isMorphic ifFalse: - [^ ScheduledControllers interruptName: labelString]. - ActiveHand ifNotNil:[ActiveHand interrupted]. - ActiveWorld _ World. "reinstall active globals" - ActiveHand _ World primaryHand. - ActiveHand interrupted. "make sure this one's interrupted too" - ActiveEvent _ nil. + ^ self interruptName: labelString preemptedProcess: nil - projectProcess _ self uiProcess. "we still need the accessor for a while" - preemptedProcess _ Processor preemptedProcess. - "Only debug preempted process if its priority is >= projectProcess' priority" - preemptedProcess priority < projectProcess priority ifTrue:[ - (suspendingList _ projectProcess suspendingList) == nil - ifTrue: [projectProcess == Processor activeProcess - ifTrue: [projectProcess suspend]] - ifFalse: [suspendingList remove: projectProcess ifAbsent: []. - projectProcess offList]. - preemptedProcess _ projectProcess. - ] ifFalse:[ - preemptedProcess _ projectProcess suspend offList. - ]. - Debugger openInterrupt: labelString onProcess: preemptedProcess ! Item was changed: ----- Method: SystemDictionary>>lowSpaceWatcher (in category 'memory space') ----- lowSpaceWatcher + "Wait until the low space semaphore is signalled, then take appropriate actions." + + | free preemptedProcess | - "Wait until the low space semaphore is signalled, then take - appropriate actions." - | free | self garbageCollectMost <= self lowSpaceThreshold ifTrue: [self garbageCollect <= self lowSpaceThreshold ifTrue: ["free space must be above threshold before starting low space watcher" ^ Beeper beep]]. + + Smalltalk specialObjectsArray at: 23 put: nil. "process causing low space will be saved here" + LowSpaceSemaphore _ Semaphore new. - LowSpaceSemaphore := Semaphore new. self primLowSpaceSemaphore: LowSpaceSemaphore. + self primSignalAtBytesLeft: self lowSpaceThreshold. "enable low space interrupts" + + LowSpaceSemaphore wait. "wait for a low space condition..." + + self primSignalAtBytesLeft: 0. "disable low space interrupts" - self primSignalAtBytesLeft: self lowSpaceThreshold. - "enable low space interrupts" - LowSpaceSemaphore wait. - "wait for a low space condition..." - self primSignalAtBytesLeft: 0. - "disable low space interrupts" self primLowSpaceSemaphore: nil. + LowSpaceProcess _ nil. + + "The process that was active at the time of the low space interrupt." + preemptedProcess _ Smalltalk specialObjectsArray at: 23. + Smalltalk specialObjectsArray at: 23 put: nil. + + "Note: user now unprotected until the low space watcher is re-installed" + - LowSpaceProcess := nil. - "Note: user now unprotected until the low space watcher is - re-installed " self memoryHogs isEmpty ifFalse: [free := self bytesLeft. self memoryHogs + do: [ :hog | hog freeSomeSpace ]. - do: [:hog | hog freeSomeSpace]. self bytesLeft > free + ifTrue: [ ^ self installLowSpaceWatcher ]]. - ifTrue: [^ self installLowSpaceWatcher]]. self isMorphic + ifTrue: [CurrentProjectRefactoring + currentInterruptName: 'Space is low' + preemptedProcess: preemptedProcess] + ifFalse: [ScheduledControllers + interruptName: 'Space is low' + preemptedProcess: preemptedProcess] + ! - ifTrue: [CurrentProjectRefactoring currentInterruptName: 'Space is low'] - ifFalse: [ScheduledControllers interruptName: 'Space is low']! Item was added: + ----- Method: Project class>>interruptName:preemptedProcess: (in category 'utilities') ----- + interruptName: labelString preemptedProcess: theInterruptedProcess + "Create a Notifier on the active scheduling process with the given label." + | preemptedProcess projectProcess suspendingList | + Smalltalk isMorphic ifFalse: + [^ ScheduledControllers interruptName: labelString]. + ActiveHand ifNotNil:[ActiveHand interrupted]. + ActiveWorld _ World. "reinstall active globals" + ActiveHand _ World primaryHand. + ActiveHand interrupted. "make sure this one's interrupted too" + ActiveEvent _ nil. + + projectProcess _ self uiProcess. "we still need the accessor for a while" + preemptedProcess _ theInterruptedProcess ifNil: [Processor preemptedProcess]. + "Only debug preempted process if its priority is >= projectProcess' priority" + preemptedProcess priority < projectProcess priority ifTrue:[ + (suspendingList _ projectProcess suspendingList) == nil + ifTrue: [projectProcess == Processor activeProcess + ifTrue: [projectProcess suspend]] + ifFalse: [suspendingList remove: projectProcess ifAbsent: []. + projectProcess offList]. + preemptedProcess _ projectProcess. + ] ifFalse:[ + preemptedProcess suspend offList. + ]. + Debugger openInterrupt: labelString onProcess: preemptedProcess + !

1 0

Etoys: ST80-bf.3.mcz
by commits＠source.squeak.org 08 May '10

08 May '10

Bert Freudenberg uploaded a new version of ST80 to project Etoys: http://source.squeak.org/etoys/ST80-bf.3.mcz ==================== Summary ==================== Name: ST80-bf.3 Author: bf Time: 8 May 2010, 11:30:46 am UUID: 00625adc-25c6-4aa5-880a-b5bba100937e Ancestors: ST80-bf.2 - Fix for SQ-489 (Alt-. does not always work): LowSpaceAndInterruptHandler-3-dtl-1 =============== Diff against ST80-bf.2 =============== Item was changed: ----- Method: ControlManager>>interruptName: (in category 'scheduling') ----- interruptName: labelString "Create a Notifier on the active scheduling process with the given label. Make the Notifier the active controller." - | suspendingList newActiveController | - (suspendingList _ activeControllerProcess suspendingList) == nil - ifTrue: [activeControllerProcess == Processor activeProcess - ifTrue: [activeControllerProcess suspend]] - ifFalse: [suspendingList remove: activeControllerProcess ifAbsent:[]. - activeControllerProcess offList]. + ^ self interruptName: labelString preemptedProcess: nil - activeController ~~ nil ifTrue: [ - "Carefully de-emphasis the current window." - activeController view topView deEmphasizeForDebugger]. - - newActiveController _ - (Debugger - openInterrupt: labelString - onProcess: activeControllerProcess) controller. - newActiveController centerCursorInView. - self activeController: newActiveController. ! Item was added: + ----- Method: ControlManager>>interruptName:preemptedProcess: (in category 'scheduling') ----- + interruptName: labelString preemptedProcess: theInterruptedProcess + "Create a Notifier on the active scheduling process with the given label. Make the Notifier the active controller." + | suspendingList newActiveController preemptedProcess | + + preemptedProcess _ theInterruptedProcess ifNil: [Processor preemptedProcess]. + preemptedProcess == activeControllerProcess + ifFalse: [(suspendingList _ preemptedProcess suspendingList) == nil + ifTrue: [preemptedProcess suspend] + ifFalse: [suspendingList remove: preemptedProcess. + preemptedProcess offList]]. + + (suspendingList _ activeControllerProcess suspendingList) == nil + ifTrue: [activeControllerProcess == Processor activeProcess + ifTrue: [activeControllerProcess suspend]] + ifFalse: [suspendingList remove: activeControllerProcess ifAbsent:[]. + activeControllerProcess offList]. + + activeController ~~ nil ifTrue: [ + "Carefully de-emphasis the current window." + activeController view topView deEmphasizeForDebugger]. + + newActiveController _ + (Debugger + openInterrupt: labelString + onProcess: preemptedProcess) controller. + newActiveController centerCursorInView. + self activeController: newActiveController. + !

1 0

Re: Brand new Ubuntu experience with etoys
by Jerome Peace 08 May '10

08 May '10

Argh. Address this to wrong list. --- On Fri, 5/7/10, Jerome Peace <peace_the_dreamer(a)yahoo.com> wrote: > From: Jerome Peace <peace_the_dreamer(a)yahoo.com> > Subject: Re: Brand new Ubuntu experience with etoys > To: squeak-dev(a)lists.squeakfoundation.org > Date: Friday, May 7, 2010, 9:17 PM > > Hi Bert, > > > >I just changed the wording on the "missing plugin" page > - is that better? > > Ouch no. See below. > > >And indeed, the distro package should register the > plugin. Maybe it doesn't, I don't know. > > FYI > > The eToys blurb from their distro: > > eToys > A media-rich model, simulation construction kit and > authoring tool > Installed > Squeak Etoys was inspired by LOGO, PARC-Smalltalk, > Hypercard, and starLOGO. It is a media-rich authoring > environment with a simple powerful scripted object model for > many kinds of objects created by end-users that runs on many > platforms, and is free and open source. It includes 2D and > 3D graphics, images, text, particles, pres-entations, > web-pages, videos, sound and MIDI, etc. It includes the > ability to share desktops with other Etoy users in > real-time, so many forms of immersive mentoring and play can > be done over the Internet. > > This is the Squeak image developed for the OLPC > project. > > Canonical does not provide updates for eToys. Some updates > may be provided by the Ubuntu community. > > License: Unknown Version: > 3.0.1916+svn132-2ubuntu1 (etoys) > > ===== > > Above is the info from the Ubuntu Software when You get to > eToys. > Note the version and the license info. > > After playing a bit I realized I needed to close firefox > and try again. > > So I did. > > Close. > then > > Firefox > Squeakland>Showcase>All>Musical Chords>launch > Which now sends me to the launch url. > Which now just shows me a blank page. > IMHO this is worse than before, at least then it seemed it > was trying to help. > > > launch page Url: > > http://squeakland.org/launcher/?http://squeakland.org/content/showcase/ever… > > This page (after Bert's changes) now shows up as a blank > white page on my screen. > > > page source: <extra lines removed> > > <!DOCTYPE html PUBLIC "-//W3C//DTD > XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd > "> > <html> > <head> > > <meta http-equiv="Content-Type" > content="text/html;charset=iso-8859-1"> > >  > > <title>Etoys Project</title> > </head> > > <body> > >  > > <script language="javascript"> > > //This script detects the Squeakland > plugin > > var agt = > navigator.userAgent.toLowerCase(); > var ie = (agt.indexOf("msie") != -1); > var ns = > (navigator.appName.indexOf("Netscape") != -1); > var win = ((agt.indexOf("win") != -1) || > (agt.indexOf("32bit") != -1)); > var mac = (agt.indexOf("mac") != -1); > var olpc = (agt.indexOf("olpc") != -1); > var url = document.URL; > var src = > url.substr(url.indexOf("?")+1); > var prj = > unescape(src.substr(src.lastIndexOf("/")+1)); > > if ( ie && win ) > { > SqueakInstalled = > detectIE("SqueakOCX2.SqueakOCX.1", "Squeak"); > } > > if ( ns || !win ) > { > nse = ""; > for ( var i = 0; i < > navigator.mimeTypes.length; i++ ) nse += > navigator.mimeTypes[i].type.toLowerCase(); > > SqueakInstalled = > nse.indexOf("application/x-squeak-source") != -1; > } > > function detectIE( ClassID, name ) > { > result = false; > document.write('<' + 'SCRIPT > LANGUAGE=VBScript>\n on error resume next \n result = > IsObject(CreateObject("' + ClassID + '"))<' + > '/SCRIPT>\n'); > if ( result ) return true; > else return false; > } > > if ( SqueakInstalled ) > { > document.write('<OBJECT\n' + > > 'ID="SqueakOCX Control"\n' + > > 'WIDTH=800 HEIGHT=600\n' + > > 'ALIGN=center BORDER=2\n' + > > > 'CLASSID="CLSID:2BE9C39E-8386-4435-B337-FCDAD8EAB006"\n' > + > > > 'CODEBASE="/content/installers/EtoysInstaller.exe">\n' > + > > '<PARAM name="src" value="' + > src + '">\n' + > > '<PARAM name="pluginspage" > value="/download/">\n' + > > '<PARAM name="apiSupported" > value="false">\n' + > > '<embed\n' + > > > 'type="application/x-squeak-source"\n' + > > 'ALIGN="CENTER"\n' + > > 'WIDTH="800"\n' + > > 'HEIGHT="600"\n' + > > 'src="' + src + '"\n' + > > 'apiSupported="FALSE"\n' + > > 'pluginspage="/download/"\n' + > > '></embed>\n' + > > '</OBJECT><br>\n'+ > > 'You may also download <a > href="' + src + '">' + prj +'</a> and open it in > Etoys.') > } > else > { > if ( olpc ) > { > document.write( > 'Downloading Etoys > project <a href="' + src + '">' + prj + '</a>. > Please wait.\n'+ > > '<br><br><br><big>When > the download is finished, start <b>' + prj + > '</b> from your Journal.</big>' ); > window.location = src; > } > else > { > > document.write('You do not seem to have the Etoys plugin > installed.<br>\n' + > 'If you > are using a Macintosh or Windows PC, please download the ' + > > '<a > href="/download/">plugin here</a> and then run the > installer.<br>\n' + > 'As a > Linux user, please install your distribution's "Etoys" > package.<br><br>\n' + > 'You could > also download <a href="' + src + '">' + prj > +'</a> and open it in Etoys.<br>\n'+ > 'Perhaps > you want to use <a > href="/download/">Etoys-To-Go</a> for that, which > should work ' + > 'equally > well on Linux, Mac, or Windows machines.\n'); > } > } > > </script> > > </body> > > </html> > > ====== > > Anyway to reiterate, > > 1) First it should work out of the box and it does not. > Is the plugin present? > What specifically is detected to determine the plugin is > there or not on Ubuntu? > I can't test for windows or macs at this point. > > 2) How should Squeakland help with the troubleshooting? > IMO a specific help should be provided for fixing > the plugin problem. > It should mention the plugin problem. > And Either provide a remedy for just the plugin > problem OR > direct the user to remove the Ubuntu provided > installation. (I.E. go to where you got it and press > REMOVE). > Then direct then how to reinstall the whole Magila > from the Squeakland distribution. > Basicly do not leave a user with the need to make a > choice they have not been given enough information to make. > Better still help make the choice for them. > > Yours in curiosity and service, --Jerome Peace > P.S. Please cc: me personally as well as replying to the > list. The only list I let send me mail right now is the > beginners. Cheers --Jer > > > > >

1 0

Re: Brand new Ubuntu experience with etoys
by Jerome Peace 08 May '10

08 May '10

Hi all, Bert has mentioned to me that loading from the distributor is the desired way to go. So here is a report on installing etoys after a fresh install of Ubuntu 10.04 LTS FYI The Ubuntu install was straight forward. iso download. burn bootable disk. boot from cd. install. Ubuntu software center > education > etoys > select install. Done. Open firefox > Squeakland.org > Showcase > All > Music Chord game > launch ---> You do not seem to have the Etoys plugin installed. Please download the plugin here and then run the installer. You could also download Musit Chord game.011.pr and open it in Etoys. Following the plugin here link gets me to the download page. This gives me several options Windows Macintosh Etoys to Go Older Versions ...Final-Win.exe ...Final-Mac.dmg ...Final-Linux.rpm ...Final-Linux.deb Okay. The option I wanted to find was: Given that Etoys is already installed install it as a plugin for the Firefox (or Opera) or etc. browser. What I think I am being offered is a chance to install Etoys from scratch or to install it over the Ubuntu provided package. I do not wish to risk this since one of my purposes is to observe the Etoys package provided. So this is a heads up. The Ubuntu provided package for 10.04 does not include hooking up the plugin. (It probably should.) The download page does not include an explicit option to just install the plugin. It should definitely mention it explicitly since you link there from a place that tells me I will find the plugin there. The download page does not make it clear if I can used my installed Etoys as the basis for the plugin or not. Without that information proceeding would invalidate my experiments. I look forward to you response. Yours in curiosity and service, --Jerome Peace

2 1

About dev image fonts and default directory
by Ricardo Moran 07 May '10

07 May '10

Hi, I'm configuring the dev image to fit my taste and I think some of the fonts are too big. With this code snippet etoys looks way better IMHO: font := (TTCFont family: 'Bitstream Vera Sans' size: 12). Preferences setSystemFontTo: font; setListFontTo: font; setCodeFontTo: font. This change will not affect etoys users (I think) because it only changes what we developers always use. So I think it could be a good addition to the dev image. If you happen to think the same I would be happy to upload it to the inbox. The only thing is: I don't know how to do it :P. Another question: how can I change the default directory to always use the directory where the image file is located? Thanks! Richo

2 9

GSoC Squeakland project
by Ricardo Moran 07 May '10

07 May '10

Hi, as you may already know, this year Squeak was accepted for the Google Summer of Code program as part of the ESUG organization. I'm currently working on the Squeakland Education project (details here: http://gsoc2010.esug.org/projects/squeakland-education) and I would be glad if you could check out my progress. I don't mean to bother you but if you're interested and you're willing to help, you can subscribe to the following group http://groups.google.com.ar/group/squeakland-education-gsoc-project where I will try to keep all the discussions, project examples and so on. Thanks in advance! Richo Ps: Sorry for crossposting...

1 0

Fwd: Accepted etoys 4.0.2340-1 (source all)
by Bert Freudenberg 07 May '10

07 May '10

Yay! :) - Bert - Begin forwarded message: > > From: jredrejo(a)debian.org (José L. Redrejo Rodríguez) > Date: 6. Mai 2010 06:03:53 GMT-07:00 > To: debian-devel-changes(a)lists.debian.org > Subject: Accepted etoys 4.0.2340-1 (source all) > > -----BEGIN PGP SIGNED MESSAGE----- > Hash: SHA1 > > Format: 1.8 > Date: Thu, 06 May 2010 13:37:18 +0200 > Source: etoys > Binary: etoys etoys-doc > Architecture: source all > Version: 4.0.2340-1 > Distribution: unstable > Urgency: low > Maintainer: José L. Redrejo Rodríguez <jredrejo(a)debian.org> > Changed-By: José L. Redrejo Rodríguez <jredrejo(a)debian.org> > Description: > etoys - A media-rich model, simulation construction kit and authoring too > etoys-doc - Documentation for etoys > Closes: 559057 580391 > Changes: > etoys (4.0.2340-1) unstable; urgency=low > . > * New upstream release (Closes: #559057) > * Switch to dpkg-source 3.0 (quilt) format > * debian/control: > - bumped standards version to 3.8.4. > - added quilt build dependency > * debian/rules: modified to use quilt > * debian/patches/vm_path.patch : Fix vm path (Closes: #580391) > Checksums-Sha1: > 5d7727ab8813c8f48b5a57da9a93cb06dd147c9b 1083 etoys_4.0.2340-1.dsc > b1b88a169b047d65b0d8527343540e0898ed970c 40583583 etoys_4.0.2340.orig.tar.gz > c64e0cc8045393ca5808963942f80c76fecb5e05 6457 etoys_4.0.2340-1.debian.tar.gz > aeb4abc8a149b8a91adc09be9f21b170338dc843 15405264 etoys_4.0.2340-1_all.deb > 5060f91065d64d71b71b66fae6ebd243075ea64e 10733618 etoys-doc_4.0.2340-1_all.deb > Checksums-Sha256: > 6c862c106beb28185cd75ef2b1d7a65f75f699d4aa523601004837d19633ce86 1083 etoys_4.0.2340-1.dsc > 85c725fee28bfd14bce41b02dabe3fd2c7eb4642cd3cadd10b3838ff465a4dbe 40583583 etoys_4.0.2340.orig.tar.gz > 298dd340c1fea2074648afa03f4346edd37e0f6f8bffc29bb5cf1baf331174c2 6457 etoys_4.0.2340-1.debian.tar.gz > b2dfec4b7feff7b85838893e83dde32792a5d35dbfa597c9ac07f992c776de86 15405264 etoys_4.0.2340-1_all.deb > d82ce101d6f16c8c417f0b60f73a04f6a9643105b3f273426597dbc5d8085c69 10733618 etoys-doc_4.0.2340-1_all.deb > Files: > fd08f00192d7d81cd724eb8afdd7869e 1083 non-free/games extra etoys_4.0.2340-1.dsc > 5fa107cebd180566aa851a4054c91703 40583583 non-free/games extra etoys_4.0.2340.orig.tar.gz > c5373bce3730f55f2c59fd02d5f0c4ff 6457 non-free/games extra etoys_4.0.2340-1.debian.tar.gz > ae433aa4dbcf2177fea00fed8e3c5d18 15405264 non-free/games extra etoys_4.0.2340-1_all.deb > b97b6d1c28cf90c059a42d41e5e43d14 10733618 non-free/doc extra etoys-doc_4.0.2340-1_all.deb > > -----BEGIN PGP SIGNATURE----- > Version: GnuPG v1.4.10 (GNU/Linux) > > iEYEARECAAYFAkviub8ACgkQmqVR2WapDeJ1GQCg3fDZjftwNnLJLw/boSHBRY/k > uhkAoICXVCHjSQ8cllxtZdtHGBisUwFC > =7ZrW > -----END PGP SIGNATURE----- > > > Accepted: > etoys-doc_4.0.2340-1_all.deb > to non-free/e/etoys/etoys-doc_4.0.2340-1_all.deb > etoys_4.0.2340-1.debian.tar.gz > to non-free/e/etoys/etoys_4.0.2340-1.debian.tar.gz > etoys_4.0.2340-1.dsc > to non-free/e/etoys/etoys_4.0.2340-1.dsc > etoys_4.0.2340-1_all.deb > to non-free/e/etoys/etoys_4.0.2340-1_all.deb > etoys_4.0.2340.orig.tar.gz > to non-free/e/etoys/etoys_4.0.2340.orig.tar.gz > >

1 0

Etoys: System-bf.10.mcz
by commits＠source.squeak.org 05 May '10

05 May '10

Bert Freudenberg uploaded a new version of System to project Etoys: http://source.squeak.org/etoys/System-bf.10.mcz ==================== Summary ==================== Name: System-bf.10 Author: bf Time: 4 May 2010, 7:39:52 pm UUID: a04c31d3-5dfc-420f-9e3e-e93714a32238 Ancestors: System-bf.9 - add defaultRepositoryChangeLogOn: to Utilities =============== Diff against System-bf.9 =============== Item was changed: ----- Method: Utilities class>>versionNumberAndDateFromConfig: (in category 'fetching updates') ----- versionNumberAndDateFromConfig: anMCConfiguration "Answer the latest date found in anMCConfiguration (or the associated working copy), and the sum of its version numbers." | versionNumbers versionDates | versionNumbers := anMCConfiguration dependencies collect: [:d | (d versionInfo name copyAfterLast: $.) asInteger]. versionDates := anMCConfiguration dependencies collect: [:d | d versionInfo date + ifNil: [((d package workingCopy ancestry findAncestor: d versionInfo) + ifNotNilDo: [:v | v date]) + ifNil: [Date fromDays: 0]]]. - ifNil: [d package workingCopy ancestors first date - ifNil: [Date fromDays: 0]]]. ^{versionNumbers sum. versionDates max}. ! Item was added: + ----- Method: Utilities class>>defaultRepositoryChangeLogOn: (in category 'fetching updates') ----- + defaultRepositoryChangeLogOn: aStream + "Transcript clear. Utilities defaultRepositoryChangeLogOn: Transcript" + | repo updates latest previous latestVersion previousVersion added removed latestPackages previousPackages prevDep prevInfo latestInfo | + repo := MCRepositoryGroup default repositories detect: [:r | + r description = MCMcmUpdater defaultUpdateURL]. + updates := repo allFileNames select: [:each | 'update-*.mcm' match: each]. + updates := updates asSortedCollection: + [:a :b | a splitInteger second > b splitInteger second]. + latest := repo versionFromFileNamed: updates first. + previous := repo versionFromFileNamed: updates second. + latestVersion := self versionNumberAndDateFromConfig: latest. + previousVersion := self versionNumberAndDateFromConfig: previous. + aStream nextPutAll: 'Changes from v'; print: previousVersion first; + nextPutAll: ' of '; print: previousVersion second; + nextPutAll: ' to v'; print: latestVersion first; + nextPutAll: ' of '; print: latestVersion second; + nextPutAll: ':'; cr. + aStream flush. + latestPackages := latest dependencies collect: [:dep | dep package]. + previousPackages := previous dependencies collect: [:dep | dep package]. + added := latestPackages difference: previousPackages. + removed := previousPackages difference: latestPackages. + added ifNotEmpty: [ + aStream nextPutAll: 'Added packages:'. + added do: [:each | aStream space; nextPutAll: each name]. + aStream cr]. + removed ifNotEmpty: [ + aStream nextPutAll: 'Removed packages:'. + removed do: [:each | aStream space; nextPutAll: each name]. + aStream cr]. + latest dependencies do: [:latestDep | + prevDep := previous dependencies detect: [:p | latestDep package = p package] ifNone: []. + (prevDep notNil and: [prevDep versionInfo ~= latestDep versionInfo]) + ifTrue: [ + aStream nextPutAll: '--------------------'; cr. + prevInfo := prevDep package workingCopy ancestry findAncestor: prevDep versionInfo. + latestInfo := latestDep package workingCopy ancestry findAncestor: latestDep versionInfo. + (latestInfo allAncestorsOnPathTo: prevInfo) reverse, {latestInfo} + do: [:ver | aStream nextPutAll: ver name; cr; nextPutAll: ver message; cr] + separatedBy: [aStream cr]]]. + aStream flush + !

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

etoys-dev May 2010