Squeak-dev November 2009

squeak-dev@lists.squeakfoundation.org

89 participants
351 discussions

The Trunk: KernelTests-nice.107.mcz
by commits＠source.squeak.org 09 Nov '09

09 Nov '09

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!

1 0

The Trunk: Collections-nice.184.mcz
by commits＠source.squeak.org 09 Nov '09

09 Nov '09

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]]!

1 0

The Trunk: CollectionsTests-nice.108.mcz
by commits＠source.squeak.org 09 Nov '09

09 Nov '09

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'].!

1 0

The Trunk: Graphics-nice.88.mcz
by commits＠source.squeak.org 09 Nov '09

09 Nov '09

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!

1 0

The Trunk: Morphic-nice.223.mcz
by commits＠source.squeak.org 08 Nov '09

08 Nov '09

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"!

1 0

The Trunk: ST80-nice.63.mcz
by commits＠source.squeak.org 08 Nov '09

08 Nov '09

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.!

1 0

The Trunk: KernelTests-nice.106.mcz
by commits＠source.squeak.org 08 Nov '09

08 Nov '09

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.!

1 0

The Trunk: Multilingual-nice.59.mcz
by commits＠source.squeak.org 08 Nov '09

08 Nov '09

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 8 November 2009 10:23:59 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: $ aheadChar: $ token: nil tokenType: nil currentComment: nil buffer: a WriteStream typeTable: #(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xB...etc... here: nil hereType: nil hereMark: nil hereEnd: nil prevMark: nil prevEnd: nil encoder: nil requestor: nil parseNode: nil failBlock: [] in Parser>>initPattern:notifying:return: {[^ nil]} requestorOffset: nil tempsMark: nil doitFlag: nil --- The full stack --- Array(Object)>>error: Array(Object)>>errorSubscriptBounds: Array(Object)>>at: Parser(Scanner)>>scanToken - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Parser(Scanner)>>scan: Parser>>init:notifying:failBlock: Parser>>initPattern:notifying:return: Parser>>parseSelector: ChangeList>>scanCategory:class:meta:stamp: ChangeList>>scanCategory [] in ChangeList>>scanFile:from:to: {[:bar | [file position < stopPosition] whileTrue: [bar value: file positi...]} ProgressInitiationException>>defaultAction UndefinedObject>>handleSignal: MethodContext(ContextPart)>>handleSignal: ProgressInitiationException(Exception)>>signal ProgressInitiationException>>display:at:from:to:during: ProgressInitiationException class>>display:at:from:to:during: String>>displayProgressAt:from:to:during: ChangeList>>scanFile:from:to: FilePackage>>fileInFrom: MCStReader>>loadDefinitions MCStReader(MCSnapshotReader)>>definitions [] in MCMczReader>>extractDefinitionsFrom: {[:rc | reader := rc on: member contentStream text. definitions addAll: rea...]} MCStReader class(Object)>>ifNotNilDo: MCMczReader>>extractDefinitionsFrom: [] in MCMczReader>>loadDefinitions {[:m | self extractDefinitionsFrom: m]} OrderedCollection>>do: MCMczReader>>loadDefinitions MCMczReader(MCVersionReader)>>definitions MCMczReader(MCVersionReader)>>snapshot [] in SSDiffyTextWriter>>writeVersion:for: {[ancestor ifNil: [self writeSnapshot: reader snapshot] ifNotNil: [patch ...]} BlockContext>>on:do: SSDiffyTextWriter>>writeVersion:for: SSEMailSubscription>>versionAdded:to: [] in SSProject>>versionAdded: {[each new versionAdded: aVersion to: self]} [] in BlockContext>>newProcess {[self value. Processor terminateActive]}

1 0

Re: [squeak-dev] More Installer and Sake/Packages documentation
by Eliot Miranda 08 Nov '09

08 Nov '09

Ken, thanks. This is a start. But how about a better structured document, following some structure like this: Overview, name of the system and high-level description of is function Context: context in which it can be used Major Workflows: what are the major workflows (what they achieve) along with code examples (how to achieve them) Implementation: a fractal part of the document, overview, major classes, major control flows, etc Links: further information Authors/Maintainers History On Sat, Nov 7, 2009 at 3:06 PM, Ken G. Brown <kbrown(a)mac.com> wrote: > For those who cannot be bothered to look in an Image for documentation, > here are some of the > Class Comments retrieved from an 090628-1523_Squeak3.10.2-lpf-atomic image > from <ftp://ftp.squeak.org/3.11/Squeak3.10.2-lpf-atomic/latest/> after > executing Installer install: 'Packages'. > This is also being posted to < > http://squeaktipsandtrickswatch.blogspot.com/>. > > Ken G. Brown > > -- > *Installer-Core/Installer* > > Documentation now available at http://installer.pbwiki.com/Installer > > useFileIn - flag to load source.st rather than using Monticello > > -- > *Installer-Core/InstallerMantis* > > Search feature is based upon a custom mantis query ceveloped and maintained > by Ken Causey <ken(a)kencausey.com> > > Installer mantis bugsAll select: [ :ea | ea status = 'testing' ]. > > -- > *Installer-Formats/SARInstaller* > > I am an object that handles the loading of SAR (Squeak ARchive) files. > > A SAR file is a Zip file that follows certain simple conventions: > > * it may have a member named "install/preamble". > > This member, if present, will be filed in as Smalltalk source code at the > beginning of installation. > Typically, the code in the preamble will make whatever installation > preparations are necessary, > and will then call methods in the "client services" method category to > extract or install other zip members. > > * It may have a member named "install/postscript". > > This member, if present, will be filed in as Smalltalk source code at the > end of installation. > Typically, the code in the postscript will set up the operating > environment, > and will perhaps put objects in flaps, open projects or README files, or > launch samples. > > Within the code in the preamble and postscript, "self" is set to the > instance of the SARInstaller. > > If neither an "install/preamble" nor an "install/postscript" file is > present, > all the members will be installed after prompting the user, > based on a best guess of the member file types that is based on member > filename extensions. > > This is new behavior. > > -- > *Installer-Scripts/InstallerScripts* > > (self new addPackage: 'Example') options collect: [ :ea | ea value > asLegalSelector asSymbol ] #(#scriptExampleSqueak310forKPH > #scriptExampleSqueak310 #scriptExampleSqueak310) > > -- > *Installer-Launcher/Launcher* > > A Launcher provides squeak with a range of capabilities that are intended > to be used from the command line. > > As a design goal, the startup process can invoke Launcher several times at > several points in the startup sequence. In particular 1) below aims to > provide a mechanism for getting in to images that are broken in some form, > so as to enable a script to be run before morphic has attempted to startup. > > 1) Launcher is registered to handle startup notification after Security > manager > any class which wishes to provide a service to be usable at this time > implements startFrom: > > 2) Launcher is wired in to ProjectLauncher to handle startup notification > when squeak is fully initialized. Any class wishing to provide a service to > be usable at this time implements launchFrom: > > #startFrom: and #launchFrom: are called providing a handle to the launcher > which may be used to obtain parameters using the desired scheme. > > a) launcher getParameters . key=value +yes -no > b) launcher getParametersOldStyle . key value key2 value2 > > Instance Variables > actionSelector: #startFrom: #launchFrom: > commandLineClass: aClass > image: the smalltalk image or self if being a mock > mock: the mock array of startup parameters > nextCommandLineDocument: aString > nextParameterIndex: anInteger > > -- > *Sake-Core/SakeBlock* > > Raise this if for some reason you find that the task you are doing is > blocked. This might occur in a multi builder build system where two building > threads decide to build the same item. > > (implementation idea - not implemented yet) > > When a Block is detected, Sake, looks for any following dependent task that > is not dependant upon the blocked task. > Alternatively, Sake could simply randomise the task order and re-sort > them, tryng again. > > -- > *Sake-Core/SakeCompiler* > > Enables methods to include raw uncompiled text for documentation purposes > following a line containing 6 quotes """""" > > -- > *Sake-Core/SakeMeta* > > I'm a dictionary which can be used using any method call instead of > #at:put: and at:. Use me like: > > - (aSakeMeta foo: 'bar') which is equivalent to (aSakeMeta at: 'foo' put: > 'bar') > - (aSakeMeta foo) which is equivalent to (aSakeMeta at: 'foo') > > The instance variable 'order' remembers the order in which the elements > have been added. The methods #withIndexDo: and #printOn: use this variable > to iterate in the same order. > > | s | > s := ReadWriteStream on: String new. > (self new a: 1; b: 2; yourself) storeOn: s. > s reset contents > -- > *Sake-Core/SakeTask* > > SakeTasks are typically defined as class side methods, which return an > instance of SakeTask. > > To obtain a list of available tasks, do "Senders of #define: " > > MyClass-task1: aParameter > > ^ SakeTask define: [ :task | > task dependsOn: {self ruleL3.}. > task if: [ <return true if action is needed> ]. > task action: [ <do something> ] > ] > > The 'unique id' of a task is the method context in which it is > instanciated, and its paramters. > Therefore only one task should be instanciated per method. > > Note: Sake tasks can have parameters, Rake tasks dont. > > To execute a task... > > (MyClass task1: 'param') run. > > Results of the prior tasks are available via #results. > > FAQ > ==== > How can I call one Sake task from inside another task? > > Generally, if you want invoke one task from another task, the proper way to > do that is to include the task to be invoked as a prerequisite of the task > doing the invoking. > > For example: > > MyTasks-c-#taskPrimary > > ^ SakeTask define: [ :task | > task dependsOn: { self taskSecondary }. > task action: [ self log sake: 'Doing Primary Task'. ]. > ] > > MyTasks-c-#taskSecondary > ^ SakeTask define: [ :task | > task action: [ self log sake: 'Doing Secondary Task' ]. > ] > > In this case, if the secondary task fails, the whole task stops. > > Secondary tasks can also be passed to the ifBlock. In that case, if the > task succeeds then the action is performed, if the task fails then the > action is considered not needed. > > ^ SakeTask define: [ :task | > task if: { self taskSecondary }. > task action: [ self log sake: 'Doing Primary Task'. ]. > ] > > Action, can also take a list of tasks. > > ^ SakeTask define: [ :task | > task action: { > self taskSecondary. > [ self log sake: 'Doing Primary Task' ]. "a block > task" > } > ]. > > > -- > *Sake-Packages/Packages* > > Sake/Packages usage: > > Definitions Search Path > ============================ > Packages named: 'PackageName'. > > Will obtain a package definition. Subclasses of Packages are searched using > the order defined by #findPath which is specified by #priority. > > e.g. Packages findPath => {PackagesSqueak310 . PackagesDev . PackagesAll . > PackagesSeaside29} > > Packages-#priority is used to sort classes like so: > > The class with defns for a relevant version (listed in #relevantVersions) > => 100 > The class with defns for dev version (PackagesDev) => 400 > The class with defns for all versions (PackagesAll) => 500 > > Additional package "universes" can define their own priority in order to > specify where to appear in the #findPath. > PackagesSeaside29 > PackagesGjaller > PackagesBeach > > Usage: > ======== > verbose usage specifying run style. > > (Packages named: 'Seaside') run. " or runQuietly, runStepping, runLogging" > > #runStepping , - presents a confirm/debug dialog before each action. > #run - default. > #runQuietly - auto-confirms any SakeConfirm dialogs. > #runLogging - Writes any SakeStop warnings to self log. > > default usage: > > Packages load: 'Seaside'. > Packages latest: 'Seaside'. "as above, but use latest versions of > everything" > Packages unload: 'Seaside'. > > multiples: > > Packages load: #('Seaside' 'Magma' 'Logging') > > Unloading > ======== > Unloading comes in two variants. > > Each package task loaded by Sake/Packages is remembered in the 'provided' > list > If you perform: > > Packages unload: 'Seaside' . > > Packages unloadStepping: 'Seaside' . > > Then the 'historical' unload scripts are used, as defined when the original > load tasks were run. > > If instead you perform: > > (Packages current named: 'Seaside') beUnloading runStepping. > > Then the most recently defined unload script will be run. > > Note: If packages such as "Magma server" and "Magma client" provides > "Magma", then > > Packages unload: 'Magma'. > > Will unload whichever of the two are loaded. > === > Misc notes... > > Universes are using 'instance side' task definition, so the task extensions > mechanism does not work in this context. > > If a package appears in Packages under an obscure name, it can > tell the PackageInfo instance what name was used to load it via #mcName: > > If a package has a version number with a '+' after it, then 'Packages > upgrade' will always attempt to load the latest code, leaving Monticello to > determine if there are any code changed that need to be applied. > > To generate all of the methods based upon universes definitions: > > Packages taskGenerateAllUniverses run. > or > Packages taskGenerateAll run. > > -- > *Packages-Library/PackagesDevU* > > Package definitions for this version as obtained automatically from the > Universes server. > > To override the definitions in the univere add to my subclass in > PackagesSqueak310 > > To re-read the package definitions from the universes server. > > self taskGeneratePackageTasks run > > -- > > > > > >

1 0

The Trunk: Kernel-nice.289.mcz
by commits＠source.squeak.org 08 Nov '09

08 Nov '09

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!

1 0

← Newer
1
...
28
29
30
31
32
33
34
35
36
Older →

Jump to page: