Andreas Raab uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-ar.368.mcz
==================== Summary ====================
Name: Morphic-ar.368
Author: ar
Time: 1 March 2010, 7:43:55.198 pm
UUID: 6f160ddd-4ffb-404b-80c7-067f0d2d3d81
Ancestors: Morphic-dtl.367
Add a preference to restore simple rectangular feedback for indicating changes.
=============== Diff against Morphic-dtl.367 ===============
Item was added:
+ ----- Method: PluggableTextMorph class>>simpleFrameAdornments: (in category 'frame adornments') -----
+ simpleFrameAdornments: aBool
+ "Sets the simpleFrameAdornment preference
+ PluggableTextMorph simpleFrameAdornments: true.
+ PluggableTextMorph simpleFrameAdornments: false.
+ "
+ SimpleFrameAdornments := aBool
+ !
Item was added:
+ ----- Method: PluggableTextMorph class>>simpleFrameAdornments (in category 'frame adornments') -----
+ simpleFrameAdornments
+ <preference: 'Simple Frame Adornments'
+ category: 'Morphic'
+ description: 'When true, use a simple rectangular feedback for indicating unsaved changes in text editors'
+ type: #Boolean>
+ ^SimpleFrameAdornments ifNil:[false]!
Item was changed:
----- Method: PluggableTextMorph>>drawFrameAdornment:on: (in category 'drawing') -----
drawFrameAdornment: aColor on: aCanvas
"Indicate edit status for the text editor"
| form |
- "The old frame adornment style in case you care"
- false ifTrue:[^aCanvas frameRectangle: self innerBounds width: 2 color: aColor].
+ self class simpleFrameAdornments
+ ifTrue:[^aCanvas frameRectangle: self innerBounds width: 2 color: aColor].
+
"Class-side adornment cache is currently using pre-multiplied alpha,
so we need to use rule 34 which works for < 32bpp, too."
form := self class adornmentWithColor: aColor.
aCanvas image: form at: (self innerBounds topRight - (form width@0))
sourceRect: form boundingBox rule: 34.
!
Item was changed:
ScrollPane subclass: #PluggableTextMorph
instanceVariableNames: 'textMorph getTextSelector setTextSelector getSelectionSelector hasUnacceptedEdits askBeforeDiscardingEdits selectionInterval hasEditingConflicts'
+ classVariableNames: 'AdornmentCache SimpleFrameAdornments'
- classVariableNames: 'AdornmentCache'
poolDictionaries: ''
category: 'Morphic-Pluggable Widgets'!
Andreas Raab uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-ar.368.mcz
==================== Summary ====================
Name: Morphic-ar.368
Author: ar
Time: 1 March 2010, 7:43:55.198 pm
UUID: 6f160ddd-4ffb-404b-80c7-067f0d2d3d81
Ancestors: Morphic-dtl.367
Add a preference to restore simple rectangular feedback for indicating changes.
=============== Diff against Morphic-dtl.367 ===============
Item was added:
+ ----- Method: PluggableTextMorph class>>simpleFrameAdornments: (in category 'frame adornments') -----
+ simpleFrameAdornments: aBool
+ "Sets the simpleFrameAdornment preference
+ PluggableTextMorph simpleFrameAdornments: true.
+ PluggableTextMorph simpleFrameAdornments: false.
+ "
+ SimpleFrameAdornments := aBool
+ !
Item was added:
+ ----- Method: PluggableTextMorph class>>simpleFrameAdornments (in category 'frame adornments') -----
+ simpleFrameAdornments
+ <preference: 'Simple Frame Adornments'
+ category: 'Morphic'
+ description: 'When true, use a simple rectangular feedback for indicating unsaved changes in text editors'
+ type: #Boolean>
+ ^SimpleFrameAdornments ifNil:[false]!
Item was changed:
----- Method: PluggableTextMorph>>drawFrameAdornment:on: (in category 'drawing') -----
drawFrameAdornment: aColor on: aCanvas
"Indicate edit status for the text editor"
| form |
- "The old frame adornment style in case you care"
- false ifTrue:[^aCanvas frameRectangle: self innerBounds width: 2 color: aColor].
+ self class simpleFrameAdornments
+ ifTrue:[^aCanvas frameRectangle: self innerBounds width: 2 color: aColor].
+
"Class-side adornment cache is currently using pre-multiplied alpha,
so we need to use rule 34 which works for < 32bpp, too."
form := self class adornmentWithColor: aColor.
aCanvas image: form at: (self innerBounds topRight - (form width@0))
sourceRect: form boundingBox rule: 34.
!
Item was changed:
ScrollPane subclass: #PluggableTextMorph
instanceVariableNames: 'textMorph getTextSelector setTextSelector getSelectionSelector hasUnacceptedEdits askBeforeDiscardingEdits selectionInterval hasEditingConflicts'
+ classVariableNames: 'AdornmentCache SimpleFrameAdornments'
- classVariableNames: 'AdornmentCache'
poolDictionaries: ''
category: 'Morphic-Pluggable Widgets'!
Andreas Raab uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-ar.368.mcz
==================== Summary ====================
Name: Morphic-ar.368
Author: ar
Time: 1 March 2010, 7:43:55.198 pm
UUID: 6f160ddd-4ffb-404b-80c7-067f0d2d3d81
Ancestors: Morphic-dtl.367
Add a preference to restore simple rectangular feedback for indicating changes.
=============== Diff against Morphic-dtl.367 ===============
Item was added:
+ ----- Method: PluggableTextMorph class>>simpleFrameAdornments: (in category 'frame adornments') -----
+ simpleFrameAdornments: aBool
+ "Sets the simpleFrameAdornment preference
+ PluggableTextMorph simpleFrameAdornments: true.
+ PluggableTextMorph simpleFrameAdornments: false.
+ "
+ SimpleFrameAdornments := aBool
+ !
Item was added:
+ ----- Method: PluggableTextMorph class>>simpleFrameAdornments (in category 'frame adornments') -----
+ simpleFrameAdornments
+ <preference: 'Simple Frame Adornments'
+ category: 'Morphic'
+ description: 'When true, use a simple rectangular feedback for indicating unsaved changes in text editors'
+ type: #Boolean>
+ ^SimpleFrameAdornments ifNil:[false]!
Item was changed:
----- Method: PluggableTextMorph>>drawFrameAdornment:on: (in category 'drawing') -----
drawFrameAdornment: aColor on: aCanvas
"Indicate edit status for the text editor"
| form |
- "The old frame adornment style in case you care"
- false ifTrue:[^aCanvas frameRectangle: self innerBounds width: 2 color: aColor].
+ self class simpleFrameAdornments
+ ifTrue:[^aCanvas frameRectangle: self innerBounds width: 2 color: aColor].
+
"Class-side adornment cache is currently using pre-multiplied alpha,
so we need to use rule 34 which works for < 32bpp, too."
form := self class adornmentWithColor: aColor.
aCanvas image: form at: (self innerBounds topRight - (form width@0))
sourceRect: form boundingBox rule: 34.
!
Item was changed:
ScrollPane subclass: #PluggableTextMorph
instanceVariableNames: 'textMorph getTextSelector setTextSelector getSelectionSelector hasUnacceptedEdits askBeforeDiscardingEdits selectionInterval hasEditingConflicts'
+ classVariableNames: 'AdornmentCache SimpleFrameAdornments'
- classVariableNames: 'AdornmentCache'
poolDictionaries: ''
category: 'Morphic-Pluggable Widgets'!
Matthew Fulmer uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-mtf.388.mcz
==================== Summary ====================
Name: Kernel-mtf.388
Author: mtf
Time: 4 February 2010, 5:23:44.746 pm
UUID: 97896701-ce97-4a36-a281-71ae723ce7e8
Ancestors: Kernel-mtf.387
Made a note about the island and env instance variables in the Process class comment
=============== Diff against Kernel-ar.386 ===============
Item was changed:
Link subclass: #Process
+ instanceVariableNames: 'suspendedContext priority myList errorHandler name island env'
- instanceVariableNames: 'suspendedContext priority myList errorHandler name'
classVariableNames: ''
poolDictionaries: ''
category: 'Kernel-Processes'!
+ !Process commentStamp: 'mtf 2/4/2010 17:21' prior: 0!
- !Process commentStamp: '<historical>' prior: 0!
I represent an independent path of control in the system. This path of control may be stopped (by sending the message suspend) in such a way that it can later be restarted (by sending the message resume). When any one of several paths of control can be advanced, the single instance of ProcessorScheduler named Processor determines which one will actually be advanced partly using the value of priority.
+ (If anyone ever makes a subclass of Process, be sure to use allSubInstances in anyProcessesAbove:.)
+
+ The island and env instance variables are not used by core squeak, but are used by external packages and included here because Monticello cannot handle external instance variables:
+ island: used by Tweak and Croquet to partition the image into multiple address spaces
+ env: used by ProcessSpecific to implement per-process variables!
- (If anyone ever makes a subclass of Process, be sure to use allSubInstances in anyProcessesAbove:.)!
Matthew Fulmer uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-mtf.388.mcz
==================== Summary ====================
Name: Kernel-mtf.388
Author: mtf
Time: 4 February 2010, 5:23:44.746 pm
UUID: 97896701-ce97-4a36-a281-71ae723ce7e8
Ancestors: Kernel-mtf.387
Made a note about the island and env instance variables in the Process class comment
=============== Diff against Kernel-ar.386 ===============
Item was changed:
Link subclass: #Process
+ instanceVariableNames: 'suspendedContext priority myList errorHandler name island env'
- instanceVariableNames: 'suspendedContext priority myList errorHandler name'
classVariableNames: ''
poolDictionaries: ''
category: 'Kernel-Processes'!
+ !Process commentStamp: 'mtf 2/4/2010 17:21' prior: 0!
- !Process commentStamp: '<historical>' prior: 0!
I represent an independent path of control in the system. This path of control may be stopped (by sending the message suspend) in such a way that it can later be restarted (by sending the message resume). When any one of several paths of control can be advanced, the single instance of ProcessorScheduler named Processor determines which one will actually be advanced partly using the value of priority.
+ (If anyone ever makes a subclass of Process, be sure to use allSubInstances in anyProcessesAbove:.)
+
+ The island and env instance variables are not used by core squeak, but are used by external packages and included here because Monticello cannot handle external instance variables:
+ island: used by Tweak and Croquet to partition the image into multiple address spaces
+ env: used by ProcessSpecific to implement per-process variables!
- (If anyone ever makes a subclass of Process, be sure to use allSubInstances in anyProcessesAbove:.)!
Matthew Fulmer uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-mtf.388.mcz
==================== Summary ====================
Name: Kernel-mtf.388
Author: mtf
Time: 4 February 2010, 5:23:44.746 pm
UUID: 97896701-ce97-4a36-a281-71ae723ce7e8
Ancestors: Kernel-mtf.387
Made a note about the island and env instance variables in the Process class comment
=============== Diff against Kernel-ar.386 ===============
Item was changed:
Link subclass: #Process
+ instanceVariableNames: 'suspendedContext priority myList errorHandler name island env'
- instanceVariableNames: 'suspendedContext priority myList errorHandler name'
classVariableNames: ''
poolDictionaries: ''
category: 'Kernel-Processes'!
+ !Process commentStamp: 'mtf 2/4/2010 17:21' prior: 0!
- !Process commentStamp: '<historical>' prior: 0!
I represent an independent path of control in the system. This path of control may be stopped (by sending the message suspend) in such a way that it can later be restarted (by sending the message resume). When any one of several paths of control can be advanced, the single instance of ProcessorScheduler named Processor determines which one will actually be advanced partly using the value of priority.
+ (If anyone ever makes a subclass of Process, be sure to use allSubInstances in anyProcessesAbove:.)
+
+ The island and env instance variables are not used by core squeak, but are used by external packages and included here because Monticello cannot handle external instance variables:
+ island: used by Tweak and Croquet to partition the image into multiple address spaces
+ env: used by ProcessSpecific to implement per-process variables!
- (If anyone ever makes a subclass of Process, be sure to use allSubInstances in anyProcessesAbove:.)!
Matthew Fulmer uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-mtf.389.mcz
==================== Summary ====================
Name: Kernel-mtf.389
Author: mtf
Time: 4 February 2010, 7:44:03.918 pm
UUID: 6a4c765f-eddf-4ff3-963b-98ca79013299
Ancestors: Kernel-nice.387
7219: Improve Streams Usage Readability
http://bugs.squeak.org/view.php?id=7219
Adds << to streams to be mostly like nextPutAll, but uses putOn: so that it works with any object.
=============== Diff against Kernel-nice.387 ===============
Item was added:
+ ----- Method: Magnitude>>putOn: (in category 'streaming') -----
+ putOn: aStream
+
+ (aStream isBinary ifTrue: [ self asByteArray ] ifFalse: [ self asString]) putOn: aStream
+
+ !