Thanks, I applied that to the server image and enabled serverMode. I'm
not sure the Delay fixes are in though - Ken?

OTOH, don't the outages bother anyone enough to move the source server
to a trunk image and new vm?

- Bert -

On 09.11.2009, at 20:33, John M McIntosh wrote:

> Well assuming it's bug
> http://bugs.squeak.org/view.php?id=6581
>
> any chance someone in charge can update the image that supports
source.squeak.org
> ?
>
>
> On 2009-11-09, at 10:04 AM, Julian Fitzell wrote:
>
>> Umm... wow. :)
>>
>> On Mon, Nov 9, 2009 at 3:42 AM, Bert Freudenberg <bert@...
>> > wrote:
>>>
>>> On 09.11.2009, at 00:55, Nicolas Cellier wrote:
>>>
>>>> Sorry, i blocked source.squeak.org again...
>>>> I just commited a Kernel.mcz ... It does not block at each
>>>> commit, but
>>>> last one took a few hours...
>>>
>>> Solved by a mouse wiggle :/
>>>
>>> - Bert -
>>>
>>>
>>>
>>>
>>
>
> --
> =
> =
> =
> =
> =
> ======================================================================
> John M. McIntosh <johnmci@...>   Twitter:
> squeaker68882
> Corporate Smalltalk Consulting Ltd.  http://
> www.smalltalkconsulting.com
> =
> =
> =
> =
> =
> ======================================================================
>
>
>
>
>

David T. Lewis uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-dtl.162.mcz

==================== Summary ====================

Name: System-dtl.162
Author: dtl
Time: 7 November 2009, 11:57:44 am
UUID: 6f140160-1c75-48a9-b282-d51b609c8d0f
Ancestors: System-dtl.161

Move three methods from MorphicProject back to Project, undoing prior change.
These are required for creating and entering an MVC project from Morphic.

=============== Diff against System-dtl.161 ===============

Item was added:
+ ----- Method: Project>>showSharedFlaps (in category 'flaps support') -----
+ showSharedFlaps
+  "Answer whether shared flaps are shown or suppressed in this project"
+
+  | result |
+  result := Preferences showSharedFlaps.
+  ^ self == Project current
+ 	 ifTrue:
+ 		 [result]
+ 	 ifFalse:
+ 		 [self projectPreferenceAt: #showSharedFlaps ifAbsent: [result]]!

Item was added:
+ ----- Method: Project>>flapsSuppressed (in category 'flaps support') -----
+ flapsSuppressed
+  "Answer whether flaps are suppressed in this project"
+
+  ^ self showSharedFlaps not!

Item was added:
+ ----- Method: Project>>flapsSuppressed: (in category 'flaps support') -----
+ flapsSuppressed: aBoolean
+  "Make the setting of the flag that governs whether global flaps are
suppressed in the project be as indicated and add or remove the actual flaps"
+
+  self projectPreferenceFlagDictionary at: #showSharedFlaps put: aBoolean not.
+  self == Project current  "Typical case"
+ 	 ifTrue:
+ 		 [Preferences setPreference: #showSharedFlaps toValue: aBoolean not]
+ 	 ifFalse:   "Anomalous case where this project is not the current one."
+ 		 [aBoolean
+ 			 ifTrue:
+ 				 [Flaps globalFlapTabsIfAny do:
+ 					 [:aFlapTab | Flaps removeFlapTab: aFlapTab keepInList: true]]
+
+ 			 ifFalse:
+ 				 [Smalltalk isMorphic  ifTrue:
+ 					 [self currentWorld addGlobalFlaps]]].
+  Project current assureNavigatorPresenceMatchesPreference!

David T. Lewis uploaded a new version of ST80 to project The Trunk:
http://source.squeak.org/trunk/ST80-dtl.64.mcz

==================== Summary ====================

Name: ST80-dtl.64
Author: dtl
Time: 9 November 2009, 9:02:38 am
UUID: 7a7b05e8-b147-4aa4-a732-3b083bc39d05
Ancestors: ST80-nice.63

Continue factoring Project into MVCProject and MorphicProject. Add method
category 'enter' for methods associated with entering one project from another,
including MVC-Morphic transition. Project>>enter: revert:saveForRevert: is
significantly modified. Changes are in packages System, Morphic, and ST-80.

=============== Diff against ST80-nice.63 ===============

Item was added:
+ ----- Method: MVCProject>>pauseSoundPlayers (in category 'enter') -----
+ pauseSoundPlayers
+  "Pause sound players, subject to preference settings"
+
+  Smalltalk at: #ScorePlayer
+ 	 ifPresentAndInMemory: [:playerClass | playerClass
+ 			 allSubInstancesDo: [:player | player pause]]!

Item was added:
+ ----- Method: MVCProject>>scheduleProcessForEnter: (in category 'enter') -----
+ scheduleProcessForEnter: showZoom
+  "Complete the enter: by launching a new process"
+
+  | newProcess |
+  SystemWindow clearTopWindow. "break external ref to this project"
+  newProcess := [
+ 	 ScheduledControllers resetActiveController. "in case of walkback in
#restore"
+ 	 showZoom ifFalse: [ScheduledControllers restore].
+ 	 ScheduledControllers searchForActiveController
+  ] fixTemps newProcess priority: Processor userSchedulingPriority.
+  newProcess resume.  "lose the current process and its referenced morphs"
+  Processor terminateActive
+ !

Item was added:
+ ----- Method: MVCProject>>viewLocFor: (in category 'display') -----
+ viewLocFor: exitedProject
+  "Look for a view of the exitedProject, and return its center"
+
+  (world controllerWhoseModelSatisfies: [:p | p == exitedProject])
+ 	 ifNotNilDo: [:ctlr | ^ctlr view windowBox center].
+  ^Sensor cursorPoint "default result"!

Item was added:
+ ----- Method: MVCProject>>setWorldForEnterFrom:recorder: (in category 'enter')
-----
+ setWorldForEnterFrom: old recorder: recorderOrNil
+  "Prepare world for enter."
+
+  World := nil.  "Signifies MVC"
+  Smalltalk at: #ScheduledControllers put: world
+ !

Item was added:
+ ----- Method: MVCProject>>setWorldForEmergencyRecovery (in category 'enter')
-----
+ setWorldForEmergencyRecovery
+  "Prepare world for enter with an absolute minimum of mechanism.
+  An unrecoverable error has been detected in an isolated project."
+
+  World := nil.
+  Smalltalk at: #ScheduledControllers put: world.
+  ScheduledControllers restore
+ !

Item was added:
+ ----- Method: MVCProject>>armsLengthCommand:withDescription: (in category
'file in/out') -----
+ armsLengthCommand: aCommand withDescription: aString
+  | pvm |
+  "Set things up so that this aCommand is sent to self as a message
+ after jumping to the parentProject.  For things that can't be executed
+ while in this project, such as saveAs, loadFromServer, storeOnServer.  See
+ ProjectViewMorph step."
+
+  parentProject ifNil: [^ self inform: 'The top project can''t do that'].
+  pvm := parentProject findProjectView: self.
+  pvm armsLengthCommand: {self. aCommand}.
+  self exit
+ !

Nicolas Cellier uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-nice.290.mcz

==================== Summary ====================

Name: Kernel-nice.290
Author: nice
Time: 9 November 2009, 12:25:05 pm
UUID: 4cff06dd-bd14-4b39-8867-ff5f1331f558
Ancestors: Kernel-nice.289

clean-up isSelfEvaluating

=============== Diff against Kernel-nice.289 ===============

Item was removed:
- ----- Method: Object>>isSelfEvaluating (in category 'self evaluating') -----
- isSelfEvaluating
-  "Answer true if the receiver will print in a format evaluating to itself,
that is
-  (Compiler evaluate: self printString) = self"
-
-  ^ self isLiteral!

Item was removed:
- ----- Method: Fraction>>isSelfEvaluating (in category 'self evaluating') -----
- isSelfEvaluating
-  ^ true!

Item was removed:
- ----- Method: Class>>isSelfEvaluating (in category 'self evaluating') -----
- isSelfEvaluating
-  ^ true!

Item was removed:
- ----- Method: Boolean>>isSelfEvaluating (in category 'self evaluating') -----
- isSelfEvaluating
-  ^ true!

Item was removed:
- ----- Method: Metaclass>>isSelfEvaluating (in category 'testing') -----
- isSelfEvaluating
-  ^ true!

Nicolas Cellier uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-nice.140.mcz

==================== Summary ====================

Name: Tools-nice.140
Author: nice
Time: 9 November 2009, 12:22:56 pm
UUID: b12808f4-1605-4e5d-bdef-55a4dfdb2c9a
Ancestors: Tools-nice.139

clean-up isSelfEvaluating

=============== Diff against Tools-nice.139 ===============

Item was removed:
- ----- Method: PointerFinder>>isSelfEvaluating (in category 'self evaluating')
-----
- isSelfEvaluating
-  ^ false!

Nicolas Cellier uploaded a new version of CollectionsTests to project The Trunk:
http://source.squeak.org/trunk/CollectionsTests-nice.108.mcz

==================== Summary ====================

Name: CollectionsTests-nice.108
Author: nice
Time: 9 November 2009, 12:11:15 pm
UUID: ebea61c9-bc17-42b2-b874-56322d0ec84f
Ancestors: CollectionsTests-nice.107

clean-up isSelfEvaluating

=============== Diff against CollectionsTests-nice.107 ===============

Item was removed:
- ----- Method: AssociationTest>>testIsSelfEvaluating (in category 'tests')
-----
- testIsSelfEvaluating
-  | anotherAssociation |
-  self
- 	 assert: (a isSelfEvaluating).
-  anotherAssociation := Object new -> Object new.
-  anotherAssociation isSelfEvaluating ifTrue: [self
- 	 assert: (Compiler evaluate: anotherAssociation printString) =
anotherAssociation
- 	 description: 'a self evaluating should evaluate as self'].!

Item was removed:
- ----- Method: IntervalTest>>testIsEvaluating (in category 'tests') -----
- testIsEvaluating
-  self assert: (1 to: 10) isSelfEvaluating.
-  self assert: (1 to: 10 by: 2) isSelfEvaluating!

Item was removed:
- ----- Method: ArrayTest>>testIsSelfEvaluating (in category 'testing') -----
- testIsSelfEvaluating
-
-  self assert: example1 isSelfEvaluating.
-  example1 at: 1 put: Bag new.
-  self deny: example1 isSelfEvaluating.
-  example1 at: 1 put: 1.!

Item was removed:
- ----- Method: RunArrayTest>>testIsSelfEvaluating (in category 'tests -
instance creation') -----
- testIsSelfEvaluating
-  | array array2 |
-  array := RunArray new: 5 withAll: 2.
-  self assert: array isSelfEvaluating.
-  array2 := RunArray new: 5 withAll: Object new.
-  array2 isSelfEvaluating ifTrue: [self
- 	 assert: (Compiler evaluate: array2 printString) = array2
- 	 description: 'a self evaluating should evaluate as self'].!

Nicolas Cellier uploaded a new version of Collections to project The Trunk:
http://source.squeak.org/trunk/Collections-nice.184.mcz

==================== Summary ====================

Name: Collections-nice.184
Author: nice
Time: 9 November 2009, 12:13:57 pm
UUID: 06a26ea1-20b5-4e30-8452-7b74fef5afba
Ancestors: Collections-ar.183

clean-up isSelfEvaluating

=============== Diff against Collections-ar.183 ===============

Item was removed:
- ----- Method: Array>>isSelfEvaluating (in category 'self evaluating') -----
- isSelfEvaluating
-  ^ (self allSatisfy: [:each | each isSelfEvaluating]) and: [self class ==
Array]!

Item was removed:
- ----- Method: Interval>>isSelfEvaluating (in category 'self evaluating') -----
- isSelfEvaluating
-  ^ self class == Interval!

Item was removed:
- ----- Method: RunArray>>isSelfEvaluating (in category 'self evaluating') -----
- isSelfEvaluating
-  ^ self class == RunArray and: [values isSelfEvaluating]!

Item was removed:
- ----- Method: Association>>isSelfEvaluating (in category 'self evaluating')
-----
- isSelfEvaluating
-  ^ self class == Association and: [self key isSelfEvaluating and: [self value
isSelfEvaluating]]!

Nicolas Cellier uploaded a new version of KernelTests to project The Trunk:
http://source.squeak.org/trunk/KernelTests-nice.107.mcz

==================== Summary ====================

Name: KernelTests-nice.107
Author: nice
Time: 9 November 2009, 12:20:16 pm
UUID: 1f3d8a7f-1966-40d2-b81d-52a51b0357c2
Ancestors: KernelTests-nice.106

clean-up isSelfEvaluating

=============== Diff against KernelTests-nice.106 ===============

Item was removed:
- TestCase subclass: #SelfEvaluatingObjectTest
-  instanceVariableNames: ''
-  classVariableNames: ''
-  poolDictionaries: ''
-  category: 'KernelTests-Objects'!

Item was removed:
- ----- Method: SelfEvaluatingObjectTest>>testArray (in category 'tests') -----
- testArray
-  "self run: #testArray"
-
-  self assertCode: '#(1 2 3)' print: '#(1 2 3)'.
-  self assertCode: '{1 . 2 . 3}' print: '#(1 2 3)'.
-  self assertCode: '{1 + 0 . 2 . 3}' print: '#(1 2 3)'.
-  self assertCode: '{1 + 0 . 1 @ 2 . 3}' print: '{1 . 1@2 . 3}'.
-  self assertCode: '{2@3}' print: '{2@3}'.
-  self assertCode: '{Object new}' print:  'an Array(an Object)'.
-  self assertCode: '{Rectangle new . Object new}' print:  'an Array(nil corner:
nil an Object)'.
-  self assertCode: '{10@10 corner: 20@20 . 100@100 corner: 200@200}' print:
'{10@10 corner: 20@20 . 100@100 corner: 200@200}'!

Item was removed:
- ----- Method: SelfEvaluatingObjectTest>>assertCode:print: (in category
'utilities') -----
- assertCode: code print: aString
-  self assert: (self compile: code) printString = aString!

Item was removed:
- ----- Method: SelfEvaluatingObjectTest>>testObjects (in category 'tests')
-----
- testObjects
-  "self debug: #testObjects"
-
-  self assert: 10 isSelfEvaluating.
-  self assert: $a isSelfEvaluating.
-  self assert: 3.14157 isSelfEvaluating.
-  self assert: #(1 2 3) isSelfEvaluating.
-  self assert: #abc isSelfEvaluating.
-  self assert: 'abc' isSelfEvaluating.
-
-  self assert: Object isSelfEvaluating.
-  self assert: Object new isSelfEvaluating not.
-
-  self assert: (Array with: 10) isSelfEvaluating.
-  self assert: (Array with: Object new) isSelfEvaluating not.
-
-  self assert: true isSelfEvaluating.
-  self assert: false isSelfEvaluating.
-
-  self assert: nil isSelfEvaluating.
-
-  self assert: (1 to: 10) isSelfEvaluating.
-  self assert: (1->2) isSelfEvaluating.
-  self assert: Color red isSelfEvaluating.
-  self assert: RunArray new isSelfEvaluating.!

Item was removed:
- ----- Method: SelfEvaluatingObjectTest>>compile: (in category 'utilities')
-----
- compile: aString
-  ^ Compiler evaluate: aString!

Nicolas Cellier uploaded a new version of Graphics to project The Trunk:
http://source.squeak.org/trunk/Graphics-nice.88.mcz

==================== Summary ====================

Name: Graphics-nice.88
Author: nice
Time: 9 November 2009, 12:06:03 pm
UUID: 8eb14cc5-d266-4c44-8d5b-9b4de8f555e1
Ancestors: Graphics-nice.87

clean-up isSelfEvaluating

=============== Diff against Graphics-nice.87 ===============

Item was removed:
- ----- Method: Rectangle>>isSelfEvaluating (in category 'self evaluating')
-----
- isSelfEvaluating
-  ^ self class == Rectangle!

Item was removed:
- ----- Method: Color>>isSelfEvaluating (in category 'self evaluating') -----
- isSelfEvaluating
-  ^ self class == Color!

Item was removed:
- ----- Method: Point>>isSelfEvaluating (in category 'self evaluating') -----
- isSelfEvaluating
-  ^ self class == Point!

Nicolas Cellier uploaded a new version of ST80 to project The Trunk:
http://source.squeak.org/trunk/ST80-nice.63.mcz

==================== Summary ====================

Name: ST80-nice.63
Author: nice
Time: 8 November 2009, 11:52:42 am
UUID: 7dfed6ff-83ed-4f76-ab2d-65eb00d6f78f
Ancestors: ST80-dtl.62

Fix from http://bugs.squeak.org/view.php?id=7071 for unicode character input

=============== Diff against ST80-dtl.62 ===============

Item was changed:
   ----- Method: ParagraphEditor>>readKeyboard (in category 'typing support')
-----
   readKeyboard
  	 "Key struck on the keyboard. Find out which one and, if special, carry
  	 out the associated special action. Otherwise, add the character to the
  	 stream of characters.  Undoer & Redoer: see closeTypeIn."

  	 | typeAhead char |
  	 typeAhead := WriteStream on: (String new: 128).
  	 [sensor keyboardPressed] whileTrue:
  		 [self deselect.
  		  [sensor keyboardPressed] whileTrue:
  			 [char := sensor keyboardPeek.
  			 (self dispatchOnCharacter: char with: typeAhead) ifTrue:
  				 [self doneTyping.
  				 self setEmphasisHere.
  				 ^self selectAndScroll; updateMarker].
  			 self openTypeIn].
  		 self hasSelection ifTrue: "save highlighted characters"
  			 [UndoSelection := self selection].
+ 	 self zapSelectionWithCompositionWith: typeAhead contents.
- 	 self zapSelectionWith:
- 		 (Text string: typeAhead contents emphasis: emphasisHere).
  		 typeAhead reset.
  		 self unselect.
  		 sensor keyboardPressed ifFalse:
  			 [self selectAndScroll.
  			 sensor keyboardPressed
  				 ifFalse: [self updateMarker]]]!

Item was added:
+ ----- Method: ParagraphEditor>>charBefore (in category 'accessing-selection')
-----
+ charBefore
+
+  | start |
+  (start := self startIndex) > 1 ifTrue: [^ paragraph text at: start - 1].
+  ^ nil.
+ !

Item was changed:
   ----- Method: ParagraphEditor>>dispatchOnCharacter:with: (in category
'parenblinking') -----
   dispatchOnCharacter: char with: typeAheadStream
  	 "Carry out the action associated with this character, if any.
  	 Type-ahead is passed so some routines can flush or use it."

  	 | honorCommandKeys |
  	 self clearParens.

  	 "mikki 1/3/2005 21:31 Preference for auto-indent on return added."
  	 char asciiValue = 13 ifTrue: [
  		 ^Preferences autoIndent
  			 ifTrue: [
  				 sensor controlKeyPressed
  					 ifTrue: [self normalCharacter: typeAheadStream]
  					 ifFalse: [self crWithIndent: typeAheadStream]]
  			 ifFalse: [
  				 sensor controlKeyPressed
  					 ifTrue: [self crWithIndent: typeAheadStream]
  					 ifFalse: [self normalCharacter: typeAheadStream]]].

  	 ((honorCommandKeys := Preferences cmdKeysInText) and: [char = Character
enter])
  		 ifTrue: [^ self dispatchOnEnterWith: typeAheadStream].

  	 "Special keys overwrite crtl+key combinations - at least on Windows. To
resolve this
  	 conflict, assume that keys other than cursor keys aren't used together with
Crtl."
  	 ((self class specialShiftCmdKeys includes: char asciiValue) and: [char
asciiValue < 27])
  		 ifTrue: [^ sensor controlKeyPressed
  			 ifTrue: [self perform: (ShiftCmdActions at: char asciiValue + 1) with:
typeAheadStream]
  			 ifFalse: [self perform: (CmdActions at: char asciiValue + 1) with:
typeAheadStream]].

  	 "backspace, and escape keys (ascii 8 and 27) are command keys"
  	 ((honorCommandKeys and: [sensor commandKeyPressed]) or: [self class
specialShiftCmdKeys includes: char asciiValue]) ifTrue:
  		 [^ sensor leftShiftDown
  			 ifTrue:
+ 			 [self perform: (ShiftCmdActions at: char asciiValue + 1 ifAbsent:
[#noop:]) with: typeAheadStream]
- 			 [self perform: (ShiftCmdActions at: char asciiValue + 1) with:
typeAheadStream]
  			 ifFalse:
+ 			 [self perform: (CmdActions at: char asciiValue + 1 ifAbsent: [#noop:])
with: typeAheadStream]].
- 			 [self perform: (CmdActions at: char asciiValue + 1) with:
typeAheadStream]].

  	 "the control key can be used to invoke shift-cmd shortcuts"
  	 (honorCommandKeys and: [sensor controlKeyPressed])
  		 ifTrue:
+ 		 [^ self perform: (ShiftCmdActions at: char asciiValue + 1 ifAbsent:
[#noop:]) with: typeAheadStream].
- 		 [^ self perform: (ShiftCmdActions at: char asciiValue + 1) with:
typeAheadStream].

  	 (')]}' includes: char)
  		 ifTrue: [self blinkPrevParen].

  	 ^ self perform: #normalCharacter: with: typeAheadStream!

Item was added:
+ ----- Method: ParagraphEditor>>wasComposition (in category
'accessing-selection') -----
+ wasComposition
+
+  ^ wasComposition ifNil: [^ false].
+ !

Item was added:
+ ----- Method: ParagraphEditor>>zapSelectionWithCompositionWith: (in category
'accessing-selection') -----
+ zapSelectionWithCompositionWith: aString
+  "Deselect, and replace the selection text by aString.
+ 	 Remember the resulting selectionInterval in UndoInterval and otherInterval.
+ 	 Do not set up for undo."
+
+  | stream newString aText beforeChar |
+  wasComposition := false.
+  ((aString isEmpty or: [(beforeChar := self charBefore) isNil]) or: [
+ 	 aString size = 1 and: [(Unicode isComposition: aString first) not]]) ifTrue:
[
+ 		 ^ self zapSelectionWith: (Text string: aString emphasis: emphasisHere)].
+
+  stream := UnicodeCompositionStream on: (String new: 16).
+  stream nextPut: beforeChar.
+  stream nextPutAll: aString.
+  newString := stream contents.
+  aText := Text string: newString emphasis: emphasisHere.
+  self markBlock < self pointBlock
+ 	 ifTrue: [self setMark: self markBlock stringIndex - 1]
+ 	 ifFalse: [self setPoint: self  pointBlock stringIndex - 1].
+
+  wasComposition := true.
+  self zapSelectionWith: aText.
+ !

Item was changed:
   ----- Method: ParagraphEditor>>zapSelectionWith: (in category
'accessing-selection') -----
   zapSelectionWith: aText
  	 "Deselect, and replace the selection text by aText.
  	  Remember the resulting selectionInterval in UndoInterval and otherInterval.
  	  Do not set up for undo."

  	 | start stop |
  	 self deselect.
  	 start := self startIndex.
  	 stop := self stopIndex.
  	 (aText isEmpty and: [stop > start]) ifTrue:
  		 ["If deleting, then set emphasisHere from 1st character of the deletion"
  		 emphasisHere := (paragraph text attributesAt: start forStyle: paragraph
textStyle)
  					 select: [:att | att mayBeExtended]].
  	 (start = stop and: [aText size = 0]) ifFalse:
  		 [paragraph
  			 replaceFrom: start
  			 to: stop - 1
  			 with: aText
  			 displaying: true.
  		 self computeIntervalFrom: start to: start + aText size - 1.
+ 	 self wasComposition ifTrue: [wasComposition := false. self setPoint: start +
1].
  		 UndoInterval := otherInterval := self selectionInterval]!

Item was changed:
   ScrollController subclass: #ParagraphEditor
+  instanceVariableNames: 'paragraph startBlock stopBlock beginTypeInBlock
emphasisHere initialText selectionShowing otherInterval lastParentLocation
wasComposition'
-  instanceVariableNames: 'paragraph startBlock stopBlock beginTypeInBlock
emphasisHere initialText selectionShowing otherInterval lastParentLocation'
  	 classVariableNames: 'ChangeText CmdActions FindText Keyboard ShiftCmdActions
UndoInterval UndoMessage UndoParagraph UndoSelection Undone'
  	 poolDictionaries: 'TextConstants'
  	 category: 'ST80-Controllers'!

   !ParagraphEditor commentStamp: '<historical>' prior: 0!
   I am a Controller for editing a Paragraph. I am a kind of ScrollController, so
that more text can be created for the Paragraph than can be viewed on the
screen. Editing messages are sent by issuing commands from a yellow button menu
or from keys on the keyboard. My instances keep control as long as the cursor is
within the view when the red or yellow mouse button is pressed; they give up
control if the blue button is pressed.!

Nicolas Cellier uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-nice.223.mcz

==================== Summary ====================

Name: Morphic-nice.223
Author: nice
Time: 8 November 2009, 11:56:54 am
UUID: 6598f01d-0db7-46b4-8d95-971fa10ba667
Ancestors: Morphic-dtl.222

Fix from http://bugs.squeak.org/view.php?id=7071 for unicode input

=============== Diff against Morphic-dtl.222 ===============

Item was changed:
   ----- Method: TextMorphEditor>>zapSelectionWith: (in category 'menu messages')
-----
   zapSelectionWith: aText
  	 "**overridden to inhibit old-style display"
  	 | start stop rText rInterval isInTypeRun |
  	 self deselect.
  	 start := self startIndex.
  	 stop := self stopIndex.
  	 (aText isEmpty and: [stop > start]) ifTrue:
  		 ["If deleting, then set emphasisHere from 1st character of the deletion"
  		 emphasisHere := (paragraph text attributesAt: start forStyle: paragraph
textStyle)
  					 select: [:att | att mayBeExtended]].
  	 (start = stop and: [aText size = 0]) ifFalse:
  		 [
  		 "===Support for multilevel undo start ==="
  		 rText := (paragraph text copyFrom: start to: (stop - 1)).
  		 rInterval := start to: (stop - 1).
  		 isInTypeRun := self isInTypeRun.
  		 "===Support for multilevel undo end ==="

  		 paragraph replaceFrom: start to: stop - 1
  			 with: aText displaying: false.  "** was true in super"
+ 	 self wasComposition ifTrue: [wasComposition := false. self setPoint: start +
1].
  		 self computeIntervalFrom: start to: start + aText size - 1.
  		 UndoInterval := otherInterval := self selectionInterval.

  		 "===Support for multilevel undo start ==="
  		  (Preferences multipleTextUndo and: [isInTypeRun not])ifTrue:
  				 [ self addEditCommand:
  							 (EditCommand
  									 textMorph: morph
  									 replacedText: rText
  									 replacedTextInterval: rInterval
  									 newText: aText
  									 newTextInterval: super selectionInterval)].
  		 "===Support for multilevel undo end ==="].

  	 self userHasEdited  " -- note text now dirty"!

Nicolas Cellier uploaded a new version of KernelTests to project The Trunk:
http://source.squeak.org/trunk/KernelTests-nice.106.mcz

==================== Summary ====================

Name: KernelTests-nice.106
Author: nice
Time: 8 November 2009, 11:48:32 am
UUID: d630ecd9-7c2c-4d0a-9712-7338ad410c31
Ancestors: KernelTests-nice.105

Add a test for Float storeOn: (strange, I thought I already commited this one)

=============== Diff against KernelTests-nice.104 ===============

Item was added:
+ ----- Method: FloatTest>>testStoreOn (in category 'testing') -----
+ testStoreOn
+  "If storeOn: prints exactly and the parser avoid cumulating round off Errors,
+  then Float should be read back exactly.
+  Note: there is no guarantee to restore the bit pattern of NaN though"
+
+  self assert: (Compiler evaluate: Float halfPi storeString) = Float halfPi.
+  self assert: (Compiler evaluate: Float halfPi negated storeString) = Float
halfPi negated.
+  self assert: (Compiler evaluate: Float infinity storeString) = Float
infinity.
+  self assert: (Compiler evaluate: Float infinity negated storeString) = Float
infinity negated.
+  self assert: (Compiler evaluate: Float nan storeString) isNaN.!

Nicolas Cellier uploaded a new version of Multilingual to project The Trunk:
http://source.squeak.org/trunk/Multilingual-nice.59.mcz

==================== Summary ====================

Name: Multilingual-nice.59
Author: nice
Time: 8 November 2009, 11:23:05 am
UUID: f5e20f14-d4a3-4024-a014-893ec0de6481
Ancestors: Multilingual-ar.58

File in fixes from http://bugs.squeak.org/view.php?id=7071 for handling unicode
input

==== ERROR ===

Error: subscript is out of bounds: 0

9 November 2009 10:51:40 pm

VM: unix - a SmalltalkImage
Image: Squeak3.7 [latest update: #5989]

SecurityManager state:
Restricted: false
FileAccess: true
SocketAccess: true
Working Dir /home/squeaksource
Trusted Dir /home/squeaksource/secure
Untrusted Dir /home/squeaksource/My Squeak

Array(Object)>>error:
	 Receiver: #(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary
#xBinary #xDelimiter #xDe...etc...
	 Arguments and temporary variables:
		 aString:  'subscript is out of bounds: 0'
	 Receiver's instance variables:
#(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary
#xDelimiter #xDe...etc...

Array(Object)>>errorSubscriptBounds:
	 Receiver: #(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary
#xBinary #xDelimiter #xDe...etc...
	 Arguments and temporary variables:
		 index:  0
	 Receiver's instance variables:
#(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary
#xDelimiter #xDe...etc...

Array(Object)>>at:
	 Receiver: #(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary
#xBinary #xDelimiter #xDe...etc...
	 Arguments and temporary variables:
		 index:  0
	 Receiver's instance variables:
#(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary
#xDelimiter #xDe...etc...

Parser(Scanner)>>scanToken
	 Receiver: a Parser
	 Arguments and temporary variables:

	 Receiver's instance variables:
		 source:  a ReadStream
		 mark:  nil
		 hereChar:  $

Nicolas Cellier uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-nice.289.mcz

==================== Summary ====================

Name: Kernel-nice.289
Author: nice
Time: 8 November 2009, 1:03:07 am
UUID: 1a0c4764-9a36-4944-a87c-dfe5299dcc32
Ancestors: Kernel-tbn.288

Fix from http://code.google.com/p/pharo/issues/detail?id=1424
This will allow comparing
a MethodProperties analogousCodeTo: an AdditionalMethodState
et vice et versa

=============== Diff against Kernel-tbn.288 ===============

Item was added:
+ ----- Method: AdditionalMethodState>>hasAtLeastTheSamePropertiesAs: (in
category 'testing') -----
+ hasAtLeastTheSamePropertiesAs: aMethodProperties
+  "Answer if the recever has at least the same properties as the argument.
+ 	 N.B. The receiver may have additional properties and still answer true."
+  aMethodProperties keysAndValuesDo:
+ 	 [:k :v|
+ 	 (v isKindOf: Pragma)
+ 		 "ifTrue: [Pragmas have already been checked]"
+ 		 ifFalse: [
+ 			 (self includes: k->v) ifFalse: [^false]]].
+  ^true!

Item was changed:
   ----- Method: MethodProperties>>hasAtLeastTheSamePropertiesAs: (in category
'testing') -----
   hasAtLeastTheSamePropertiesAs: aMethodProperties
  	 "Answer if the recever has at least the same properties as the argument.
  	  N.B. The receiver may have additional properties and still answer true."
  	 aMethodProperties keysAndValuesDo:
  		 [:k :v|
+ 	 (v isKindOf: Pragma)
+ 		 "ifTrue: [Pragmas have already been checked]"
+ 		 ifFalse: [
+ 			 properties ifNil: [^false].
+ 			 ^(properties at: k ifAbsent: [^false]) = v]].
- 	 properties ifNil: [^false].
- 	 ^(properties at: k ifAbsent: [^false]) = v].
  	 ^true!

Item was changed:
   ----- Method: AdditionalMethodState>>analogousCodeTo: (in category 'testing')
-----
   analogousCodeTo: aMethodProperties
  	 | bs |
+  (aMethodProperties isKindOf: MethodProperties) ifTrue: [^aMethodProperties
analogousCodeTo: self].
  	 (bs := self basicSize) ~= aMethodProperties basicSize ifTrue:
  		 [^false].
  	 1 to: bs do:
  		 [:i|
  		 ((self basicAt: i) analogousCodeTo: (aMethodProperties basicAt: i)) ifFalse:
  			 [^false]].
  	 ^true!

David T. Lewis uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-dtl.222.mcz

==================== Summary ====================

Name: Morphic-dtl.222
Author: dtl
Time: 8 November 2009, 12:10:36 pm
UUID: f86670be-9739-4124-a5f8-3a70136d1afe
Ancestors: Morphic-ar.221

Move three methods from MorphicProject back to Project, undoing prior change.
These are required for creating and entering an MVC project from Morphic.

=============== Diff against Morphic-ar.221 ===============

Item was removed:
- ----- Method: MorphicProject>>flapsSuppressed: (in category 'flaps support')
-----
- flapsSuppressed: aBoolean
-  "Make the setting of the flag that governs whether global flaps are
suppressed in the project be as indicated and add or remove the actual flaps"
-
-  self projectPreferenceFlagDictionary at: #showSharedFlaps put: aBoolean not.
-  self == Project current  "Typical case"
- 	 ifTrue:
- 		 [Preferences setPreference: #showSharedFlaps toValue: aBoolean not]
- 	 ifFalse:   "Anomalous case where this project is not the current one."
- 		 [aBoolean
- 			 ifTrue:
- 				 [Flaps globalFlapTabsIfAny do:
- 					 [:aFlapTab | Flaps removeFlapTab: aFlapTab keepInList: true]]
-
- 			 ifFalse:
- 				 [self currentWorld addGlobalFlaps]].
-  Project current assureNavigatorPresenceMatchesPreference!

Item was removed:
- ----- Method: MorphicProject>>showSharedFlaps (in category 'flaps support')
-----
- showSharedFlaps
-  "Answer whether shared flaps are shown or suppressed in this project"
-
-  | result |
-  result := Preferences showSharedFlaps.
-  ^ self == Project current
- 	 ifTrue:
- 		 [result]
- 	 ifFalse:
- 		 [self projectPreferenceAt: #showSharedFlaps ifAbsent: [result]]!

Item was removed:
- ----- Method: MorphicProject>>flapsSuppressed (in category 'flaps support')
-----
- flapsSuppressed
-  "Answer whether flaps are suppressed in this project"
-
-  ^ self showSharedFlaps not!

Nicolas Cellier uploaded a new version of Network to project The Trunk:
http://source.squeak.org/trunk/Network-nice.40.mcz

==================== Summary ====================

Name: Network-nice.40
Author: nice
Time: 7 November 2009, 9:30:57 am
UUID: 41f7cb4d-5d90-47f2-b9cf-fb68878f5012
Ancestors: Network-nice.39

Borrow excellent fix from http://code.google.com/p/pharo/issues/detail?id=1152
and let these instVarAt:put:  out of our sight

=============== Diff against Network-nice.39 ===============

Item was changed:
   ----- Method: HTTPSocket>>getResponseUpTo:ignoring: (in category 'as yet
unclassified') -----
   getResponseUpTo: markerString ignoring: ignoreString
  	 "Keep reading, until the marker is seen, skipping characters in ignoreString
when
         comparing to the marker.  Return three parts: header, marker,
beginningOfData.
        Fails if no marker in first 2000 chars."

+  | buf position bytesRead tester mm skipped |
-  | buf response bytesRead tester mm skipped |
  	 buf := String new: 2000.
+  position := 0.
-  response := WriteStream on: buf.
  	 tester := 1. mm := 1.
  	 skipped := 0.
  	 [tester := tester - markerString size + 1 max: 1.  "rewind a little, in case
the marker crosses a read boundary"
+  tester to: position do: [:tt |
-  tester to: response position do: [:tt |
  		 (buf at: tt) = (markerString at: mm) ifFalse:
  			 [[ignoreString includes: (markerString at: mm)] whileTrue:
  				 [mm := mm + 1. skipped := skipped + 1]].
  		 (buf at: tt) = (markerString at: mm)
  			 ifTrue: [mm := mm + 1]
  			 ifFalse: [mm := 1. skipped := 0].
  			 "Not totally correct for markers like xx0xx"
  		 mm > markerString size ifTrue: ["got it"
  			 ^ Array with: (buf copyFrom: 1 to: tt+1-mm+skipped)
  				 with: markerString
+ 			 with: (buf copyFrom: tt+1 to: position)]].
+ 	 tester := 1 max: position. "OK if mm in the middle"
+ 	 (position < buf size) & (self isConnected | self dataAvailable)] whileTrue:
[
- 			 with: (buf copyFrom: tt+1 to: response position)]].
- 	 tester := 1 max: response position. "OK if mm in the middle"
- 	 (response position < buf size) & (self isConnected | self dataAvailable)]
whileTrue: [
  		 (self waitForDataUntil: (Socket deadlineSecs: 5)) ifFalse: [
  			 Transcript show: 'data was late'; cr].
  		 bytesRead := self primSocket: socketHandle receiveDataInto: buf
+ 		 startingAt: position + 1 count: buf size - position..
+ 	 position := position + bytesRead].
- 		 startingAt: response position + 1 count: buf size - response position.
- 	 "response position+1 to: response position+bytesRead do: [:ii |
- 		 response nextPut: (buf at: ii)]. totally redundant, but needed to advance
position!!"
- 	 response instVarAt: 2 "position" put:
- 		 (response position + bytesRead)]. "horrible, but fast"

+  ^ Array with: (buf copyFrom: 1 to: position)
-  ^ Array with: response contents
  		 with: ''
  		 with: ''  "Marker not found and connection closed"
   !

Item was changed:
   ----- Method: HTTPSocket>>getResponseUpTo: (in category 'as yet unclassified')
-----
   getResponseUpTo: markerString
  	 "Keep reading until the marker is seen.  Return three parts: header, marker,
beginningOfData.  Fails if no marker in first 2000 chars."

+  | buf position bytesRead tester mm tries |
-  | buf response bytesRead tester mm tries |
  	 buf := String new: 2000.
+  position := 0.
-  response := WriteStream on: buf.
  	 tester := 1. mm := 1.
  	 tries := 3.
  	 [tester := tester - markerString size + 1 max: 1.  "rewind a little, in case
the marker crosses a read boundary"
+  tester to: position do: [:tt |
-  tester to: response position do: [:tt |
  		 (buf at: tt) = (markerString at: mm) ifTrue: [mm := mm + 1] ifFalse: [mm :=
1].
  			 "Not totally correct for markers like xx0xx"
  		 mm > markerString size ifTrue: ["got it"
  			 ^ Array with: (buf copyFrom: 1 to: tt+1-mm)
  				 with: markerString
+ 			 with: (buf copyFrom: tt+1 to: position)]].
+ 	 tester := 1 max: position. "OK if mm in the middle"
+ 	 (position < buf size) & (self isConnected | self dataAvailable)
- 			 with: (buf copyFrom: tt+1 to: response position)]].
- 	 tester := 1 max: response position. "OK if mm in the middle"
- 	 (response position < buf size) & (self isConnected | self dataAvailable)
  			 & ((tries := tries - 1) >= 0)] whileTrue: [
  		 (self waitForDataUntil: (Socket deadlineSecs: 5)) ifFalse: [
  			 Transcript show: ' <response was late> '].
  		 bytesRead := self primSocket: socketHandle receiveDataInto: buf
+ 		 startingAt: position + 1 count: buf size - position.
+ 	 position := position + bytesRead].
- 		 startingAt: response position + 1 count: buf size - response position.
- 	 "response position+1 to: response position+bytesRead do: [:ii |
- 		 response nextPut: (buf at: ii)]. totally redundant, but needed to advance
position!!"
- 	 response instVarAt: 2 "position" put:
- 		 (response position + bytesRead)]. "horrible, but fast"

+  ^ Array with: (buf copyFrom: 1 to position)
-  ^ Array with: response contents
  		 with: ''
  		 with: ''  "Marker not found and connection closed"
   !

Torsten Bergmann uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-tbn.288.mcz

==================== Summary ====================

Name: Kernel-tbn.288
Author: tbn
Time: 6 November 2009, 11:34:20 am
UUID: aad7e55c-fd95-f744-8a85-e7b176c70810
Ancestors: Kernel-ul.287

categorize and format ChronologyConstants>>initialize as a first commit test

=============== Diff against Kernel-ul.287 ===============

Item was changed:
+ ----- Method: ChronologyConstants class>>initialize (in category 'class
initialization') -----
- ----- Method: ChronologyConstants class>>initialize (in category 'as yet
unclassified') -----
   initialize
+  "ChronologyConstants initialize"
+
+  SqueakEpoch := 2415386. 	 "Julian day number of 1 Jan 1901"
-  "ChronologyConstants initialize"  SqueakEpoch := 2415386. 	 "Julian day
number of 1 Jan 1901"
  	 SecondsInDay := 86400.
  	 SecondsInHour := 3600.
  	 SecondsInMinute := 60.
  	 NanosInSecond := 10 raisedTo: 9.
  	 NanosInMillisecond := 10 raisedTo: 6.
  	 DayNames := #(Sunday Monday Tuesday Wednesday Thursday Friday Saturday).

  	 MonthNames := #(January February March April May June July
   			 August September October November December).
  	 DaysInMonth := #(31 28 31 30 31 30 31 31 30 31 30 31)
   !

Well assuming it's bug
http://bugs.squeak.org/view.php?id=6581

any chance someone in charge can update the image that supports
source.squeak.org
?


On 2009-11-09, at 10:04 AM, Julian Fitzell wrote:

> Umm... wow. :)
>
> On Mon, Nov 9, 2009 at 3:42 AM, Bert Freudenberg
> <bert@...> wrote:
>>
>> On 09.11.2009, at 00:55, Nicolas Cellier wrote:
>>
>>> Sorry, i blocked source.squeak.org again...
>>> I just commited a Kernel.mcz ... It does not block at each commit,
>>> but
>>> last one took a few hours...
>>
>> Solved by a mouse wiggle :/
>>
>> - Bert -
>>
>>
>>
>>
>

--
=
=
=
========================================================================
John M. McIntosh <johnmci@...>   Twitter:
squeaker68882
Corporate Smalltalk Consulting Ltd.  http://www.smalltalkconsulting.com
=
=
=
========================================================================

Perhaps some will find this of interest in relation to the current discussion of
the vision for Squeak:

Squeak: Open Personal Computing and Multimedia
<http://coweb.cc.gatech.edu/squeakbook/>

The Future of Squeak - Dan Shafer
<http://coweb.cc.gatech.edu/squeakbook/uploads/futuresqueak2.pdf>

Ken G. Brown

Every year, ACM Special Interest Group on Programming Languages
(SIGPLAN)
      names a distinguished member of the PL community as recipient of
      the Programming Language Achievement Award.  Nominations for this
award close on
      5th January.

      The Programming Languages Achievement Award is given to recognize
      an individual (or individuals) who has made a significant and
      lasting contribution to the field of programming languages. The
      contribution can be a single event or a life-time of
      achievement. The award includes a prize of $5,000.  Recent
      recipients of the award include Rod Burstall, Barbara Liskov, and
      Niklaus Wirth.

      Nominations can be submitted at any time to the secretary of
      SIGPLAN (secretary_sigplan@...).  Details of the nomination
      process an be found at
      http://www.sigplan.org/award-achievement.htm .  Please consider
      nominating a member of this community for this award.

Let's see the good side: it provides a kind of filter to avoid too
many [trunk] spams on this list

2009/11/9 Julian Fitzell <jfitzell@...>:
> Umm... wow. :)
>
> On Mon, Nov 9, 2009 at 3:42 AM, Bert Freudenberg <bert@...> wrote:
>>
>> On 09.11.2009, at 00:55, Nicolas Cellier wrote:
>>
>>> Sorry, i blocked source.squeak.org again...
>>> I just commited a Kernel.mcz ... It does not block at each commit, but
>>> last one took a few hours...
>>
>> Solved by a mouse wiggle :/
>>
>> - Bert -
>>
>>
>>
>>
>
>

Umm... wow. :)

On Mon, Nov 9, 2009 at 3:42 AM, Bert Freudenberg <bert@...> wrote:
>
> On 09.11.2009, at 00:55, Nicolas Cellier wrote:
>
>> Sorry, i blocked source.squeak.org again...
>> I just commited a Kernel.mcz ... It does not block at each commit, but
>> last one took a few hours...
>
> Solved by a mouse wiggle :/
>
> - Bert -
>
>
>
>

El lun, 09-11-2009 a las 08:09 -0200, Edgar J. De Cleene escribió:
>
>
> On 11/8/09 9:14 PM, "Miguel Enrique Cobá Martinez" <miguel.coba@...>
> wrote:
>
> > Do you need Squeak for some reason? If not, just use Pharo.
>
> This kind of mail UPSET me.

Too bad for you then.

>
> If you wish be lost in the fog of boredom and you only interest is Web, well
> go Pharo (or PHP or Perl or Python)

As most of the lately attention to squeak is. Lets be serious, there is
a tiny market for pure Squeak or desktop apps right now, no matter how
good the technology is.

>
> If as me you think Squeak have lots more , stay here.

For academic purposes I agree, in fact it is really wonderful the things
you found on squeak but, squeak isn't the only source of innovation.

- Squeak loudly promotes OODBs like magma but see the current times.
Non-relational and non-object-oriented databases are the way to go for
quite a few applications. No matter how good the OODBs are.

- That you can use the Squeak to teach children all around the world,
marvelous. Really marvelous, but my kids need real food right now and
the webapps are bringing food to my table.

- You like Squeak  a lot, great, I like to have a tool to sell software
or services to people willing to spend a few bucks on them, great for
me.

And no, I didn't say hey, don't use squeak, doesn't work, is bad, it is
the plage. No. I said:

> Do you need Squeak for some reason? If not, just use Pharo.

An honest questions, if he needs squeak then well try to fix the problem
for Squeak. If he doesn't need squeak, then why lose time, use Pharo and
get *the real problem in his hand* solved and go on.

Cheers.



>
> I don't ask you join us, but please don't fight against us.

Sorry but you are the one fighting.

>
> Edgar
>
>
>
--
Miguel Cobá
http://miguel.leugim.com.mx

FYI:

I was in the process of saving three related package updates, and I
have apparently wedged the server again. I will not be able to address
any problems until later today. It is possible that the ST80-dtl.64
update will need to be reverted, since it's missing the related changes
in Morphic and System. If Morphic-dtl.224 shows up on the server, that
may need to be reverted for the same reason. I will complete the updates
later today (about 12 hours from now).

Dave

On Mon, Nov 09, 2009 at 01:06:21PM +0000, commits@... wrote:
> David T. Lewis uploaded a new version of ST80 to project The Trunk:
> http://source.squeak.org/trunk/ST80-dtl.64.mcz
>
> ==================== Summary ====================
>
> Name: ST80-dtl.64
> Author: dtl
> Time: 9 November 2009, 9:02:38 am
> UUID: 7a7b05e8-b147-4aa4-a732-3b083bc39d05
> Ancestors: ST80-nice.63
>
> Continue factoring Project into MVCProject and MorphicProject. Add method
category 'enter' for methods associated with entering one project from another,
including MVC-Morphic transition. Project>>enter: revert:saveForRevert: is
significantly modified. Changes are in packages System, Morphic, and ST-80.
>

David T. Lewis uploaded a new version of ST80 to project The Trunk:
http://source.squeak.org/trunk/ST80-dtl.64.mcz

==================== Summary ====================

Name: ST80-dtl.64
Author: dtl
Time: 9 November 2009, 9:02:38 am
UUID: 7a7b05e8-b147-4aa4-a732-3b083bc39d05
Ancestors: ST80-nice.63

Continue factoring Project into MVCProject and MorphicProject. Add method
category 'enter' for methods associated with entering one project from another,
including MVC-Morphic transition. Project>>enter: revert:saveForRevert: is
significantly modified. Changes are in packages System, Morphic, and ST-80.

=============== Diff against ST80-nice.63 ===============

Item was added:
+ ----- Method: MVCProject>>pauseSoundPlayers (in category 'enter') -----
+ pauseSoundPlayers
+  "Pause sound players, subject to preference settings"
+
+  Smalltalk at: #ScorePlayer
+ 	 ifPresentAndInMemory: [:playerClass | playerClass
+ 			 allSubInstancesDo: [:player | player pause]]!

Item was added:
+ ----- Method: MVCProject>>scheduleProcessForEnter: (in category 'enter') -----
+ scheduleProcessForEnter: showZoom
+  "Complete the enter: by launching a new process"
+
+  | newProcess |
+  SystemWindow clearTopWindow. "break external ref to this project"
+  newProcess := [
+ 	 ScheduledControllers resetActiveController. "in case of walkback in
#restore"
+ 	 showZoom ifFalse: [ScheduledControllers restore].
+ 	 ScheduledControllers searchForActiveController
+  ] fixTemps newProcess priority: Processor userSchedulingPriority.
+  newProcess resume.  "lose the current process and its referenced morphs"
+  Processor terminateActive
+ !

Item was added:
+ ----- Method: MVCProject>>viewLocFor: (in category 'display') -----
+ viewLocFor: exitedProject
+  "Look for a view of the exitedProject, and return its center"
+
+  (world controllerWhoseModelSatisfies: [:p | p == exitedProject])
+ 	 ifNotNilDo: [:ctlr | ^ctlr view windowBox center].
+  ^Sensor cursorPoint "default result"!

Item was added:
+ ----- Method: MVCProject>>setWorldForEnterFrom:recorder: (in category 'enter')
-----
+ setWorldForEnterFrom: old recorder: recorderOrNil
+  "Prepare world for enter."
+
+  World := nil.  "Signifies MVC"
+  Smalltalk at: #ScheduledControllers put: world
+ !

Item was added:
+ ----- Method: MVCProject>>setWorldForEmergencyRecovery (in category 'enter')
-----
+ setWorldForEmergencyRecovery
+  "Prepare world for enter with an absolute minimum of mechanism.
+  An unrecoverable error has been detected in an isolated project."
+
+  World := nil.
+  Smalltalk at: #ScheduledControllers put: world.
+  ScheduledControllers restore
+ !

Item was added:
+ ----- Method: MVCProject>>armsLengthCommand:withDescription: (in category
'file in/out') -----
+ armsLengthCommand: aCommand withDescription: aString
+  | pvm |
+  "Set things up so that this aCommand is sent to self as a message
+ after jumping to the parentProject.  For things that can't be executed
+ while in this project, such as saveAs, loadFromServer, storeOnServer.  See
+ ProjectViewMorph step."
+
+  parentProject ifNil: [^ self inform: 'The top project can''t do that'].
+  pvm := parentProject findProjectView: self.
+  pvm armsLengthCommand: {self. aCommand}.
+  self exit
+ !

>This kind of mail UPSET me.

Why? The wiki page of the "Citezen" project clearly states that
the project can be loaded in Pharo easily - so whats wrong with
Miguel's post suggesting to use the distribution/image that may
provide a painless installation for the Citezen code
(which is Pharo in this case)

>If you wish be lost in the fog of boredom and you only interest is Web, >well
go Pharo (or PHP or Perl or Python)

"Citezen" doesnt look like a web thing to me and Seaside is still
running on Squeak too.

Hey: we now have several squeak distro's (Squeak, Pharo, Croquet,
Cuis, eToys, ST80, FunSqueak, ...) each satisfying special needs
of parts of the community. There is a reason for any of them,
otherwise they wouldnt exist.

We dont need another x vs. y image discussion...

Bye
T.











--
Jetzt kostenlos herunterladen: Internet Explorer 8 und Mozilla Firefox 3.5 -
sicherer, schneller und einfacher! http://portal.gmx.net/de/go/chbrowser

On 09.11.2009, at 00:55, Nicolas Cellier wrote:

> Sorry, i blocked source.squeak.org again...
> I just commited a Kernel.mcz ... It does not block at each commit, but
> last one took a few hours...

Solved by a mouse wiggle :/

- Bert -

Nicolas Cellier uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-nice.290.mcz

==================== Summary ====================

Name: Kernel-nice.290
Author: nice
Time: 9 November 2009, 12:25:05 pm
UUID: 4cff06dd-bd14-4b39-8867-ff5f1331f558
Ancestors: Kernel-nice.289

clean-up isSelfEvaluating

=============== Diff against Kernel-nice.289 ===============

Item was removed:
- ----- Method: Object>>isSelfEvaluating (in category 'self evaluating') -----
- isSelfEvaluating
-  "Answer true if the receiver will print in a format evaluating to itself,
that is
-  (Compiler evaluate: self printString) = self"
-
-  ^ self isLiteral!

Item was removed:
- ----- Method: Fraction>>isSelfEvaluating (in category 'self evaluating') -----
- isSelfEvaluating
-  ^ true!

Item was removed:
- ----- Method: Class>>isSelfEvaluating (in category 'self evaluating') -----
- isSelfEvaluating
-  ^ true!

Item was removed:
- ----- Method: Boolean>>isSelfEvaluating (in category 'self evaluating') -----
- isSelfEvaluating
-  ^ true!

Item was removed:
- ----- Method: Metaclass>>isSelfEvaluating (in category 'testing') -----
- isSelfEvaluating
-  ^ true!

On 11/8/09 9:14 PM, "Miguel Enrique Cobá Martinez" <miguel.coba@...>
wrote:

> Do you need Squeak for some reason? If not, just use Pharo.

This kind of mail UPSET me.

If you wish be lost in the fog of boredom and you only interest is Web, well
go Pharo (or PHP or Perl or Python)

If as me you think Squeak have lots more , stay here.

I don't ask you join us, but please don't fight against us.

Edgar

Sorry, i blocked source.squeak.org again...
I just commited a Kernel.mcz ... It does not block at each commit, but
last one took a few hours...

Nicolas