Packages December 2013

packages@lists.squeakfoundation.org

1 participants
477 discussions

The Trunk: System-fbs.651.mcz
by commits＠source.squeak.org 30 Dec '13

30 Dec '13

Frank Shearar uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-fbs.651.mcz ==================== Summary ==================== Name: System-fbs.651 Author: fbs Time: 30 December 2013, 10:13:35.195 am UUID: c3a1cfb8-ac50-4440-b875-47822cb57459 Ancestors: System-fbs.650 Move Transcripter's invoker to System-Recovery. All #primitiveError: senders are in Tools, so this completes the move of recovery things to System-Recovery. =============== Diff against System-fbs.650 =============== Item was added: + ----- Method: Object>>primitiveError: (in category '*System-Recovery-error handling') ----- + primitiveError: aString + "This method is called when the error handling results in a recursion in + calling on error: or halt or halt:." + | hasTranscripter transcripter | + hasTranscripter := (Smalltalk classNamed: #Transcripter) + ifNotNil: [ :t | transcripter := t. true] + ifNil: [false]. + (String + streamContents: + [:s | + | context | + s nextPutAll: '***System error handling failed***'. + s cr; nextPutAll: aString. + context := thisContext sender sender. + 20 timesRepeat: [context == nil ifFalse: [s cr; print: (context := context sender)]]. + s cr; nextPutAll: '-------------------------------'. + hasTranscripter + ifTrue: [ + s cr; nextPutAll: 'Type CR to enter an emergency evaluator.'. + s cr; nextPutAll: 'Type any other character to restart.'] + ifFalse: [ + s cr; nextPutAll: 'Type any character to restart.']]) + displayAt: 0 @ 0. + [Sensor keyboardPressed] whileFalse. + Sensor keyboard = Character cr ifTrue: [ + hasTranscripter ifTrue: [transcripter emergencyEvaluator]]. + Project current resetDisplay!

1 0

The Trunk: System-fbs.651.mcz
by commits＠source.squeak.org 30 Dec '13

30 Dec '13

1 0

The Trunk: System-fbs.651.mcz
by commits＠source.squeak.org 30 Dec '13

30 Dec '13

1 0

The Trunk: Kernel-fbs.827.mcz
by commits＠source.squeak.org 30 Dec '13

30 Dec '13

Frank Shearar uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-fbs.827.mcz ==================== Summary ==================== Name: Kernel-fbs.827 Author: fbs Time: 30 December 2013, 10:13:12.71 am UUID: d83c2233-41dd-e24f-9386-04a55ab9318c Ancestors: Kernel-nice.826 Move Transcripter's invoker to System-Recovery. All #primitiveError: senders are in Tools, so this completes the move of recovery things to System-Recovery. =============== Diff against Kernel-nice.826 =============== Item was removed: - ----- Method: Object>>primitiveError: (in category 'private') ----- - primitiveError: aString - "This method is called when the error handling results in a recursion in - calling on error: or halt or halt:." - | hasTranscripter transcripter | - hasTranscripter := (Smalltalk classNamed: #Transcripter) - ifNotNil: [ :t | transcripter := t. true] - ifNil: [false]. - (String - streamContents: - [:s | - | context | - s nextPutAll: '***System error handling failed***'. - s cr; nextPutAll: aString. - context := thisContext sender sender. - 20 timesRepeat: [context == nil ifFalse: [s cr; print: (context := context sender)]]. - s cr; nextPutAll: '-------------------------------'. - hasTranscripter - ifTrue: [ - s cr; nextPutAll: 'Type CR to enter an emergency evaluator.'. - s cr; nextPutAll: 'Type any other character to restart.'] - ifFalse: [ - s cr; nextPutAll: 'Type any character to restart.']]) - displayAt: 0 @ 0. - [Sensor keyboardPressed] whileFalse. - Sensor keyboard = Character cr ifTrue: [ - hasTranscripter ifTrue: [transcripter emergencyEvaluator]]. - Project current resetDisplay!

1 0

The Trunk: Kernel-fbs.827.mcz
by commits＠source.squeak.org 30 Dec '13

30 Dec '13

1 0

The Trunk: Kernel-fbs.827.mcz
by commits＠source.squeak.org 30 Dec '13

30 Dec '13

1 0

The Trunk: System-fbs.650.mcz
by commits＠source.squeak.org 30 Dec '13

30 Dec '13

Frank Shearar uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-fbs.650.mcz ==================== Summary ==================== Name: System-fbs.650 Author: fbs Time: 30 December 2013, 10:01:04.803 am UUID: 46142ef7-bfcf-f445-be72-03a4103bb3b1 Ancestors: System-fbs.649 System-Recovery contains all the tools we use to attempt to recover from very bad state. At the moment it only contains the Transcripter, also known as the emergency evaluator. =============== Diff against System-fbs.649 =============== Item was changed: SystemOrganization addCategory: #'System-Applications'! SystemOrganization addCategory: #'System-Change Notification'! SystemOrganization addCategory: #'System-Changes'! SystemOrganization addCategory: #'System-Digital Signatures'! SystemOrganization addCategory: #'System-Download'! SystemOrganization addCategory: #'System-Exceptions'! SystemOrganization addCategory: #'System-FilePackage'! SystemOrganization addCategory: #'System-FileRegistry'! SystemOrganization addCategory: #'System-Finalization'! SystemOrganization addCategory: #'System-Localization'! SystemOrganization addCategory: #'System-Object Events'! SystemOrganization addCategory: #'System-Object Storage'! SystemOrganization addCategory: #'System-Preferences'! + SystemOrganization addCategory: #'System-Recovery'! SystemOrganization addCategory: #'System-Serial Port'! SystemOrganization addCategory: #'System-Support'! SystemOrganization addCategory: #'System-Tools'! Item was added: + ReadWriteStream subclass: #Transcripter + instanceVariableNames: 'frame para' + classVariableNames: '' + poolDictionaries: '' + category: 'System-Recovery'! + + !Transcripter commentStamp: '<historical>' prior: 0! + Transcripter is a dog-simple scrolling stream with display. It is intended to operate with no support from MVC or color in a minimal, or headless version of Squeak. No attention has been paid to appearance or performance.! Item was added: + ----- Method: Transcripter class>>emergencyEvaluator (in category 'utilities') ----- + emergencyEvaluator + (Transcripter newInFrame: (0@0 corner: 320@200)) + show: 'Type ''revert'' to revert your last method change. + Type ''exit'' to exit the emergency evaluator.'; + readEvalPrint! Item was added: + ----- Method: Transcripter class>>newInFrame: (in category 'instance creation') ----- + newInFrame: frame + " + (Transcripter newInFrame: (0@0 extent: 100@200)) + nextPutAll: 'Hello there'; endEntry; + cr; print: 355.0/113; endEntry; + readEvalPrint. + " + | transcript | + transcript := self on: (String new: 100). + transcript initInFrame: frame. + ^ transcript clear! Item was added: + ----- Method: Transcripter class>>startTranscriptProcess (in category 'instance creation') ----- + startTranscriptProcess "Transcripter startTranscriptProcess" + | activeProcess | + Transcript := self newInFrame: Display boundingBox. + activeProcess := [Transcript readEvalPrint. + Smalltalk processShutDownList: true; quitPrimitive] + newProcess + priority: Processor userSchedulingPriority. + activeProcess resume. + Processor terminateActive + ! Item was added: + ----- Method: Transcripter>>black (in category 'private') ----- + black + Display depth = 1 ifTrue: [^ Bitmap with: 16rFFFFFFFF "Works without color support"]. + ^ Color black! Item was added: + ----- Method: Transcripter>>clear (in category 'accessing') ----- + clear + Display fill: (frame insetBy: -2) fillColor: self black; + fill: frame fillColor: self white. + self on: (String new: 100); endEntry! Item was added: + ----- Method: Transcripter>>confirm: (in category 'command line') ----- + confirm: queryString + + | choice | + [choice := self request: queryString , ' + Please type yes or no followed by return'. + choice first asUppercase = $Y ifTrue: [^ true]. + choice first asUppercase = $N ifTrue: [^ false]] repeat! Item was added: + ----- Method: Transcripter>>endEntry (in category 'accessing') ----- + endEntry + | c d cb | + c := self contents. + Display extent ~= DisplayScreen actualScreenSize ifTrue: + ["Handle case of user resizing physical window" + DisplayScreen startUp. + frame := frame intersect: Display boundingBox. + ^ self clear; show: c]. + Project current displayTranscripter: self. + d := para compositionRectangle bottom - frame bottom. + d > 0 ifTrue: + ["Scroll up to keep all contents visible" + cb := para characterBlockAtPoint: para compositionRectangle topLeft + + (0@(d+para lineGrid)). + self on: (c copyFrom: cb stringIndex to: c size). + readLimit:= position:= collection size. + ^ self endEntry]. + ! Item was added: + ----- Method: Transcripter>>initInFrame: (in category 'initialization') ----- + initInFrame: rect + frame := rect insetBy: 2. "Leave room for border" + Project current initializeParagraphForTranscripter: self + ! Item was added: + ----- Method: Transcripter>>readEvalPrint (in category 'command line') ----- + readEvalPrint + | line okToRevert | + okToRevert := true. + [#('quit' 'exit' 'done' ) includes: (line := self request: '>')] + whileFalse: + [line = 'revert' + ifTrue: [okToRevert + ifTrue: [RecentMessages default revertMostRecent. + self cr; show: 'reverted: ' , RecentMessages default mostRecent. + okToRevert := false] + ifFalse: [self cr; show: 'Only one level of revert currently supported']] + ifFalse: [self cr; show: ([Compiler evaluate: line] ifError: [:err :ex | err])]]! Item was added: + ----- Method: Transcripter>>request: (in category 'command line') ----- + request: prompt + | startPos char contents | + self cr; show: prompt. + startPos := position. + [[Sensor keyboardPressed] whileFalse. + (char := Sensor keyboard) = Character cr] + whileFalse: + [char = Character backspace + ifTrue: [readLimit := position := (position - 1 max: startPos)] + ifFalse: [self nextPut: char]. + self endEntry]. + contents := self contents. + ^ contents copyFrom: startPos + 1 to: contents size! Item was added: + ----- Method: Transcripter>>show: (in category 'accessing') ----- + show: anObject + self nextPutAll: anObject asString; endEntry! Item was added: + ----- Method: Transcripter>>white (in category 'private') ----- + white + Display depth = 1 ifTrue: [^ Bitmap with: 0 "Works without color support"]. + ^ Color white!

1 0

The Trunk: System-fbs.650.mcz
by commits＠source.squeak.org 30 Dec '13

30 Dec '13

1 0

The Trunk: System-fbs.650.mcz
by commits＠source.squeak.org 30 Dec '13

30 Dec '13

1 0

The Trunk: Collections-fbs.555.mcz
by commits＠source.squeak.org 30 Dec '13

30 Dec '13

Frank Shearar uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-fbs.555.mcz ==================== Summary ==================== Name: Collections-fbs.555 Author: fbs Time: 30 December 2013, 9:59:59.491 am UUID: 3b044956-1e6b-3e4e-a427-7fd939032a30 Ancestors: Collections-fbs.554 Move Transcripter out of Collections to a new home, in System-Recovery. =============== Diff against Collections-fbs.554 =============== Item was changed: WriteStream subclass: #TranscriptStream instanceVariableNames: 'lastChar' classVariableNames: 'AccessSema' poolDictionaries: '' category: 'Collections-Streams'! + !TranscriptStream commentStamp: 'fbs 12/30/2013 09:53' prior: 0! + This class is a much simpler implementation of Transcript protocol that supports multiple views and very simple conversion to morphic. Because it inherits from Stream, it is automatically compatible with code that is designed to write to streams.! - !TranscriptStream commentStamp: '<historical>' prior: 0! - This class is a much simpler implementation of Transcript protocol that supports multiple views and very simple conversion to morphic. Because it inherits from Stream, it is automatically compatible with code that is designe to write to streams.! Item was removed: - ReadWriteStream subclass: #Transcripter - instanceVariableNames: 'frame para' - classVariableNames: '' - poolDictionaries: '' - category: 'Collections-Streams'! - - !Transcripter commentStamp: '<historical>' prior: 0! - Transcripter is a dog-simple scrolling stream with display. It is intended to operate with no support from MVC or color in a minimal, or headless version of Squeak. No attention has been paid to appearance or performance.! Item was removed: - ----- Method: Transcripter class>>emergencyEvaluator (in category 'utilities') ----- - emergencyEvaluator - (Transcripter newInFrame: (0@0 corner: 320@200)) - show: 'Type ''revert'' to revert your last method change. - Type ''exit'' to exit the emergency evaluator.'; - readEvalPrint! Item was removed: - ----- Method: Transcripter class>>newInFrame: (in category 'instance creation') ----- - newInFrame: frame - " - (Transcripter newInFrame: (0@0 extent: 100@200)) - nextPutAll: 'Hello there'; endEntry; - cr; print: 355.0/113; endEntry; - readEvalPrint. - " - | transcript | - transcript := self on: (String new: 100). - transcript initInFrame: frame. - ^ transcript clear! Item was removed: - ----- Method: Transcripter class>>startTranscriptProcess (in category 'instance creation') ----- - startTranscriptProcess "Transcripter startTranscriptProcess" - | activeProcess | - Transcript := self newInFrame: Display boundingBox. - activeProcess := [Transcript readEvalPrint. - Smalltalk processShutDownList: true; quitPrimitive] - newProcess - priority: Processor userSchedulingPriority. - activeProcess resume. - Processor terminateActive - ! Item was removed: - ----- Method: Transcripter>>black (in category 'private') ----- - black - Display depth = 1 ifTrue: [^ Bitmap with: 16rFFFFFFFF "Works without color support"]. - ^ Color black! Item was removed: - ----- Method: Transcripter>>clear (in category 'accessing') ----- - clear - Display fill: (frame insetBy: -2) fillColor: self black; - fill: frame fillColor: self white. - self on: (String new: 100); endEntry! Item was removed: - ----- Method: Transcripter>>confirm: (in category 'command line') ----- - confirm: queryString - - | choice | - [choice := self request: queryString , ' - Please type yes or no followed by return'. - choice first asUppercase = $Y ifTrue: [^ true]. - choice first asUppercase = $N ifTrue: [^ false]] repeat! Item was removed: - ----- Method: Transcripter>>endEntry (in category 'accessing') ----- - endEntry - | c d cb | - c := self contents. - Display extent ~= DisplayScreen actualScreenSize ifTrue: - ["Handle case of user resizing physical window" - DisplayScreen startUp. - frame := frame intersect: Display boundingBox. - ^ self clear; show: c]. - Project current displayTranscripter: self. - d := para compositionRectangle bottom - frame bottom. - d > 0 ifTrue: - ["Scroll up to keep all contents visible" - cb := para characterBlockAtPoint: para compositionRectangle topLeft - + (0@(d+para lineGrid)). - self on: (c copyFrom: cb stringIndex to: c size). - readLimit:= position:= collection size. - ^ self endEntry]. - ! Item was removed: - ----- Method: Transcripter>>initInFrame: (in category 'initialization') ----- - initInFrame: rect - frame := rect insetBy: 2. "Leave room for border" - Project current initializeParagraphForTranscripter: self - ! Item was removed: - ----- Method: Transcripter>>readEvalPrint (in category 'command line') ----- - readEvalPrint - | line okToRevert | - okToRevert := true. - [#('quit' 'exit' 'done' ) includes: (line := self request: '>')] - whileFalse: - [line = 'revert' - ifTrue: [okToRevert - ifTrue: [RecentMessages default revertMostRecent. - self cr; show: 'reverted: ' , RecentMessages default mostRecent. - okToRevert := false] - ifFalse: [self cr; show: 'Only one level of revert currently supported']] - ifFalse: [self cr; show: ([Compiler evaluate: line] ifError: [:err :ex | err])]]! Item was removed: - ----- Method: Transcripter>>request: (in category 'command line') ----- - request: prompt - | startPos char contents | - self cr; show: prompt. - startPos := position. - [[Sensor keyboardPressed] whileFalse. - (char := Sensor keyboard) = Character cr] - whileFalse: - [char = Character backspace - ifTrue: [readLimit := position := (position - 1 max: startPos)] - ifFalse: [self nextPut: char]. - self endEntry]. - contents := self contents. - ^ contents copyFrom: startPos + 1 to: contents size! Item was removed: - ----- Method: Transcripter>>show: (in category 'accessing') ----- - show: anObject - self nextPutAll: anObject asString; endEntry! Item was removed: - ----- Method: Transcripter>>white (in category 'private') ----- - white - Display depth = 1 ifTrue: [^ Bitmap with: 0 "Works without color support"]. - ^ Color white!

1 0

← Newer
1
2
3
4
5
6
7
...
48
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages December 2013