Packages June 2010

packages@lists.squeakfoundation.org

1 participants
276 discussions

The Trunk: Monticello-eem.396.mcz
by commits＠source.squeak.org 30 Jun '10

30 Jun '10

Eliot Miranda uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-eem.396.mcz ==================== Summary ==================== Name: Monticello-eem.396 Author: eem Time: 29 June 2010, 6:30:15.515 pm UUID: 4bfae8e6-8254-4d67-8f17-5317a3cf4cb0 Ancestors: Monticello-ar.395 Make sure MCWorkingCopy receives system change notifications by reregistering for them on startup. File-out-all for PatchBrowser (package changes). =============== Diff against Monticello-ar.395 =============== Item was changed: ----- Method: MCWorkingCopy class>>initialize (in category 'as yet unclassified') ----- initialize Smalltalk at: #MczInstaller ifPresent: [:installer | self adoptVersionInfoFrom: installer]. self updateInstVars. "Temporary conversion code -- remove later" registry ifNotNil:[registry rehash]. "changed #=" self allInstancesDo:[:each| "moved notifications" Smalltalk at: #SystemChangeNotifier ifPresent:[:cls| cls uniqueInstance noMoreNotificationsFor: each. ]. ]. + self registerForNotifications. + Smalltalk addToStartUpList: self! - self registerForNotifications.! Item was added: + ----- Method: MCPackageManager class>>reregisterForNotificationsWith: (in category 'system changes') ----- + reregisterForNotificationsWith: aSystemChangeNotifier + aSystemChangeNotifier + notify: self ofSystemChangesOfItem: #class change: #Added using: #classModified:; + notify: self ofSystemChangesOfItem: #class change: #Modified using: #classModified:; + notify: self ofSystemChangesOfItem: #class change: #Renamed using: #classModified:; + notify: self ofSystemChangesOfItem: #class change: #Commented using: #classModified:; + notify: self ofSystemChangesOfItem: #class change: #Recategorized using: #classMoved:; + notify: self ofSystemChangesOfItem: #class change: #Removed using: #classRemoved:; + notify: self ofSystemChangesOfItem: #method change: #Added using: #methodModified:; + notify: self ofSystemChangesOfItem: #method change: #Modified using: #methodModified:; + notify: self ofSystemChangesOfItem: #method change: #Recategorized using: #methodMoved:; + notify: self ofSystemChangesOfItem: #method change: #Removed using: #methodRemoved:! Item was changed: ----- Method: MCCodeTool>>methodListMenu: (in category 'menus') ----- methodListMenu: aMenu "Build the menu for the selected method, if any." + self selectedMessageName + ifNil: [items notEmpty ifTrue: + [aMenu addList:#(('fileOut (o)' fileOutMessage))]] + ifNotNil: [ - self selectedMessageName ifNotNil: [ aMenu addList:#( ('browse full (b)' browseMethodFull) ('browse hierarchy (h)' classHierarchy) ('browse method (O)' openSingleMessageBrowser) ('browse protocol (p)' browseFullProtocol) - ('fileOut (o)' fileOutMessage) ('printOut' printOutMessage) ('copy selector (c)' copySelector)). aMenu addList: #( - ('browse senders (n)' browseSendersOfMessages) ('browse implementors (m)' browseMessages) ('inheritance (i)' methodHierarchy) ('versions (v)' browseVersions) ('change sets with this method' findMethodInChangeSets) " ('x revert to previous version' revertToPreviousVersion)" ('remove from current change set' removeFromCurrentChanges) " ('x revert & remove from changes' revertAndForget)" ('add to current change set' adoptMessageInCurrentChangeset) " ('x copy up or copy down...' copyUpOrCopyDown)" " ('x remove method (x)' removeMessage)" "-" ). ]. " aMenu addList: #( ('x inst var refs...' browseInstVarRefs) ('x inst var defs...' browseInstVarDefs) ('x class var refs...' browseClassVarRefs) ('x class variables' browseClassVariables) ('x class refs (N)' browseClassRefs) ). " ^ aMenu ! Item was changed: ----- Method: MCPackageManager class>>registerForNotifications (in category 'system changes') ----- registerForNotifications + Smalltalk + at: #SystemChangeNotifier + ifPresent: + [:cls| + cls uniqueInstance noMoreNotificationsFor: self. + self reregisterForNotificationsWith: cls uniqueInstance]! - Smalltalk at: #SystemChangeNotifier ifPresent:[:cls| - (cls uniqueInstance) - noMoreNotificationsFor: self; - notify: self ofSystemChangesOfItem: #class change: #Added using: #classModified:; - notify: self ofSystemChangesOfItem: #class change: #Modified using: #classModified:; - notify: self ofSystemChangesOfItem: #class change: #Renamed using: #classModified:; - notify: self ofSystemChangesOfItem: #class change: #Commented using: #classModified:; - notify: self ofSystemChangesOfItem: #class change: #Recategorized using: #classMoved:; - notify: self ofSystemChangesOfItem: #class change: #Removed using: #classRemoved:; - notify: self ofSystemChangesOfItem: #method change: #Added using: #methodModified:; - notify: self ofSystemChangesOfItem: #method change: #Modified using: #methodModified:; - notify: self ofSystemChangesOfItem: #method change: #Recategorized using: #methodMoved:; - notify: self ofSystemChangesOfItem: #method change: #Removed using: #methodRemoved: - ].! Item was added: + ----- Method: MCWorkingCopy class>>startUp: (in category 'system startup') ----- + startUp: resuming + "Ensure Monticello is receiving system change notifications." + + resuming ifTrue: + [Smalltalk + at: #SystemChangeNotifier + ifPresent: [:scn| self reregisterForNotificationsWith: scn uniqueInstance]] + ! Item was changed: ----- Method: MCCodeTool>>fileOutMessage (in category 'menus') ----- fileOutMessage "Put a description of the selected message on a file" + | fileName | self selectedMessageName ifNotNil: [Cursor write showWhile: + [self selectedClassOrMetaClass fileOutMethod: self selectedMessageName]. + ^self]. + items isEmpty ifTrue: + [^self]. + fileName := UIManager default request: 'File out on which file?' initialAnswer: 'methods'. + Cursor write showWhile: + [| internalStream | + internalStream := WriteStream on: (String new: 1000). + internalStream header; timeStamp. + items do: + [:patchOp| + patchOp definition isMethodDefinition ifTrue: + [(patchOp definition actualClass notNil + and: [patchOp definition actualClass includesSelector: patchOp definition selector]) + ifTrue: + [patchOp definition actualClass + printMethodChunk: patchOp definition selector + withPreamble: true + on: internalStream + moveSource: false + toFile: nil] + ifFalse: + [internalStream nextChunkPut: patchOp definition className, ' removeSelector: ', patchOp definition selector printString]]. + patchOp definition isClassDefinition ifTrue: + [patchOp definition actualClass + ifNotNil: + [internalStream nextChunkPut: patchOp definition actualClass definition. + patchOp definition comment ifNotNil: + [patchOp definition actualClass organization + putCommentOnFile: internalStream + numbered: 1 + moveSource: false + forClass: patchOp definition actualClass]] + ifNil: + [internalStream nextChunkPut: patchOp definition className, ' removeFromSystem']]]. + FileStream writeSourceCodeFrom: internalStream baseName: fileName isSt: true useHtml: false]! - [self selectedClassOrMetaClass fileOutMethod: self selectedMessageName]]!

1 0

The Trunk: System-eem.345.mcz
by commits＠source.squeak.org 30 Jun '10

30 Jun '10

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.345.mcz ==================== Summary ==================== Name: System-eem.345 Author: eem Time: 29 June 2010, 5:48:20.596 pm UUID: 1ba583d2-9788-4bfd-b1d5-9b88c7769cd2 Ancestors: System-tbn.344 Changes to ChangeRecord to support remove unchanged definitions and file-in reorganizations in the ChangeList. =============== Diff against System-tbn.344 =============== Item was added: + ----- Method: ChangeRecord>>commentClass (in category 'access') ----- + commentClass + | commentClass | + type == #classComment ifFalse: [^ nil]. + (Smalltalk includesKey: class asSymbol) ifFalse: [^ nil]. + commentClass := Smalltalk at: class asSymbol. + ^meta ifTrue: [commentClass class] + ifFalse: [commentClass]! Item was changed: ----- Method: ChangeRecord>>methodClassName (in category 'access') ----- methodClassName + | text tokens | + (class isNil + and: [type = #doIt + and: [((text := self text) includes: $.) not "exclude multi-statement doits" + and: [(tokens := Scanner new scanTokens: text) size >= 4 + and: [tokens first isSymbol + and: [tokens first isKeyword not + and: [tokens first first canBeGlobalVarInitial + and: [tokens includes: #instanceVariableNames:]]]]]]]) ifTrue: + ["Could be a class definition. + Class definitions start with Superclass blahSubclass: #ClassName + Metaclass definitions start with ClassName class instanceVariableNames:" + (tokens second isSymbol + and: [tokens second isKeyword + and: [tokens third isSymbol + and: [tokens third isKeyword not + and: [(2 to: tokens size by: 2) allSatisfy: [:i| (tokens at: i) isKeyword]]]]]) ifTrue: + [^tokens third]. + (tokens size = 4 + and: [tokens second = #class + and: [tokens third = #instanceVariableNames: + and: [tokens last isString]]]) ifTrue: + [^tokens first]]. ^class! Item was changed: ----- Method: ChangeRecord>>fileIn (in category 'initialization') ----- fileIn + "File the receiver in. If I represent a method or a class-comment, file the method in and make a note of it in the recent-submissions list; if I represent a do-it, then, well, do it; if I represent a reorganization then get organized!!" - "File the receiver in. If I represent a method or a class-comment, file the method in and make a note of it in the recent-submissions list; if I represent a do-it, then, well, do it." Cursor read showWhile: + [| s cls aSelector | + type == #doIt + ifTrue: + [((s := self string) beginsWith: '----') ifFalse: [Compiler evaluate: s]] + ifFalse: + [cls := Smalltalk at: class asSymbol. + cls := meta ifTrue: [cls class] ifFalse: [cls]. + type == #method ifTrue: + [cls compile: self text classified: category withStamp: stamp notifying: nil. + (aSelector := self methodSelector) ifNotNil: + [Utilities noteMethodSubmission: aSelector forClass: cls]]. + type == #classComment ifTrue: + [cls comment: self text stamp: stamp. + Utilities noteMethodSubmission: #Comment forClass: cls ]. + type == #reorganize ifTrue: + [cls organization changeFromString: self text]]]! - [| methodClass s aSelector | - (methodClass := self methodClass) notNil ifTrue: - [methodClass compile: self text classified: category withStamp: stamp notifying: nil. - (aSelector := self methodSelector) ifNotNil: - [Utilities noteMethodSubmission: aSelector forClass: methodClass]]. - (type == #doIt) ifTrue: - [((s := self string) beginsWith: '----') ifFalse: [Compiler evaluate: s]]. - (type == #classComment) ifTrue: - [ | cls | (cls := Smalltalk at: class asSymbol) comment: self text stamp: stamp. - Utilities noteMethodSubmission: #Comment forClass: cls ]]! Item was changed: ----- Method: ChangeRecord>>fileIndex (in category 'access') ----- fileIndex + SourceFiles withIndexDo: [:sf :i| sf name = file name ifTrue: [^i]]. + ^nil! - ^ (SourceFiles collect: [ :sf | sf name]) - indexOf: file name ifAbsent: [^ nil]. - !

1 0

The Trunk: System-eem.345.mcz
by commits＠source.squeak.org 30 Jun '10

30 Jun '10

1 0

The Trunk: System-eem.345.mcz
by commits＠source.squeak.org 30 Jun '10

30 Jun '10

1 0

The Trunk: Graphics-nice.140.mcz
by commits＠source.squeak.org 25 Jun '10

25 Jun '10

Nicolas Cellier uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-nice.140.mcz ==================== Summary ==================== Name: Graphics-nice.140 Author: nice Time: 25 June 2010, 11:09:20.113 pm UUID: a1f90174-88db-499e-858e-5e58b7222015 Ancestors: Graphics-cmm.138 Replace some underscore assignments... =============== Diff against Graphics-cmm.138 =============== Item was changed: ----- Method: PNMReadWriter>>nextImage (in category 'reading') ----- nextImage "read one image" | data p | first ifNil:[ + first := false. + data := stream contentsOfEntireFile. + stream := (RWBinaryOrTextStream with: data) reset. - first _ false. - data _ stream contentsOfEntireFile. - stream _ (RWBinaryOrTextStream with: data) reset. ] ifNotNil:[ type < 4 ifTrue:[ self error:'Plain PBM, PGM or PPM have only one image' ]. ]. stream ascii. + p := stream next. + type := (stream next) asInteger - 48. - p _ stream next. - type _ (stream next) asInteger - 48. (p = $P and:[type > 0 and:[type < 8]]) ifFalse:[ self error:'Not a PNM file' ]. type = 7 ifTrue:[ self readHeaderPAM ] ifFalse: [ self readHeader ]. type caseOf: { [1] -> [^self readPlainBW]. [2] -> [^self readPlainGray]. [3] -> [^self readPlainRGB]. [4] -> [^self readBWreverse: false]. [5] -> [^self readGray]. [6] -> [^self readRGB]. [7] -> [ "PAM" (tupleType asUppercase) caseOf: { ['BLACKANDWHITE'] -> [^self readBWreverse: true]. ['GRAYSCALE'] -> [^self readGray]. ['RGB'] -> [^self readRGB]. ['RGB_ALPHA'] -> [^self error:'Not implemented']. ['GRAYSCALE_ALPHA'] -> [^self error:'Not implemented']. } otherwise: [^self readData]. ] }! Item was changed: ----- Method: BDFFontReader>>read (in category 'reading') ----- read | xTable strikeWidth glyphs ascent descent minAscii maxAscii maxWidth chars charsNum height form encoding bbx array width blt lastAscii pointSize ret stream | + form := encoding := bbx := nil. - form _ encoding _ bbx _ nil. self readAttributes. + height := Integer readFromString: ((properties at: #FONTBOUNDINGBOX) at: 2). + ascent := Integer readFromString: (properties at: 'FONT_ASCENT' asSymbol) first. + descent := Integer readFromString: (properties at: 'FONT_DESCENT' asSymbol) first. + pointSize := (Integer readFromString: (properties at: 'POINT_SIZE' asSymbol) first) // 10. - height _ Integer readFromString: ((properties at: #FONTBOUNDINGBOX) at: 2). - ascent _ Integer readFromString: (properties at: 'FONT_ASCENT' asSymbol) first. - descent _ Integer readFromString: (properties at: 'FONT_DESCENT' asSymbol) first. - pointSize _ (Integer readFromString: (properties at: 'POINT_SIZE' asSymbol) first) // 10. + maxWidth := 0. + minAscii := 9999. + strikeWidth := 0. + maxAscii := 0. - maxWidth _ 0. - minAscii _ 9999. - strikeWidth _ 0. - maxAscii _ 0. + charsNum := Integer readFromString: (properties at: #CHARS) first. + chars := Set new: charsNum. - charsNum _ Integer readFromString: (properties at: #CHARS) first. - chars _ Set new: charsNum. 1 to: charsNum do: [:i | + array := self readOneCharacter. + stream := ReadStream on: array. + form := stream next. + encoding := stream next. + bbx := stream next. - array _ self readOneCharacter. - stream _ ReadStream on: array. - form _ stream next. - encoding _ stream next. - bbx _ stream next. form ifNotNil: [ + width := bbx at: 1. + maxWidth := maxWidth max: width. + minAscii := minAscii min: encoding. + maxAscii := maxAscii max: encoding. + strikeWidth := strikeWidth + width. - width _ bbx at: 1. - maxWidth _ maxWidth max: width. - minAscii _ minAscii min: encoding. - maxAscii _ maxAscii max: encoding. - strikeWidth _ strikeWidth + width. chars add: array. ]. ]. + chars := chars asSortedCollection: [:x :y | (x at: 2) <= (y at: 2)]. + charsNum := chars size. "undefined encodings make this different" - chars _ chars asSortedCollection: [:x :y | (x at: 2) <= (y at: 2)]. - charsNum _ chars size. "undefined encodings make this different" charsNum > 256 ifTrue: [ "it should be 94x94 charset, and should be fixed width font" + strikeWidth := 94*94*maxWidth. + maxAscii := 94*94. + minAscii := 0. + xTable := XTableForFixedFont new. - strikeWidth _ 94*94*maxWidth. - maxAscii _ 94*94. - minAscii _ 0. - xTable _ XTableForFixedFont new. xTable maxAscii: 94*94. xTable width: maxWidth. ] ifFalse: [ + xTable := (Array new: 258) atAllPut: 0. - xTable _ (Array new: 258) atAllPut: 0. ]. + glyphs := Form extent: strikeWidth@height. + blt := BitBlt toForm: glyphs. + lastAscii := 0. - glyphs _ Form extent: strikeWidth@height. - blt _ BitBlt toForm: glyphs. - lastAscii _ 0. charsNum > 256 ifTrue: [ 1 to: charsNum do: [:i | + stream := ReadStream on: (chars at: i). + form := stream next. + encoding := stream next. + bbx := stream next. + encoding := ((encoding // 256) - 33) * 94 + ((encoding \\ 256) - 33). - stream _ ReadStream on: (chars at: i). - form _ stream next. - encoding _ stream next. - bbx _ stream next. - encoding _ ((encoding // 256) - 33) * 94 + ((encoding \\ 256) - 33). blt copy: ((encoding * maxWidth)@0 extent: maxWidth@height) from: 0@0 in: form. ]. ] ifFalse: [ 1 to: charsNum do: [:i | + stream := ReadStream on: (chars at: i). + form := stream next. + encoding := stream next. + bbx := stream next. - stream _ ReadStream on: (chars at: i). - form _ stream next. - encoding _ stream next. - bbx _ stream next. lastAscii+1 to: encoding-1 do: [:a | xTable at: a+2 put: (xTable at: a+1)]. blt copy: (((xTable at: encoding+1)@(ascent - (bbx at: 2) - (bbx at: 4))) extent: (bbx at: 1)@(bbx at: 2)) from: 0@0 in: form. xTable at: encoding+2 put: (xTable at: encoding+1)+(bbx at: 1). + lastAscii := encoding. - lastAscii _ encoding. ] ]. + ret := Array new: 8. - ret _ Array new: 8. ret at: 1 put: xTable. ret at: 2 put: glyphs. ret at: 3 put: minAscii. ret at: 4 put: maxAscii. ret at: 5 put: maxWidth. ret at: 6 put: ascent. ret at: 7 put: descent. ret at: 8 put: pointSize. ^ret. " ^{xTable. glyphs. minAscii. maxAscii. maxWidth. ascent. descent. pointSize}" ! Item was changed: ----- Method: StrikeFont>>makeAssignArrow (in category 'make arrows') ----- makeAssignArrow "Replace the underline character with an arrow for this font" | arrowForm arrowCanvas arrowY arrowLeft arrowRight arrowHeadLength | + arrowForm := (self characterFormAt: $_) copy. + arrowCanvas := arrowForm getCanvas. - arrowForm _ (self characterFormAt: $_) copy. - arrowCanvas _ arrowForm getCanvas. arrowCanvas fillColor: Color white. + arrowY := arrowForm height // 2. + arrowLeft := 0. + arrowRight := arrowForm width - 2. + arrowHeadLength := (arrowRight - arrowLeft) * 2 // 5. - arrowY _ arrowForm height // 2. - arrowLeft _ 0. - arrowRight _ arrowForm width - 2. - arrowHeadLength _ (arrowRight - arrowLeft) * 2 // 5. "Draw the lines" arrowCanvas line: (arrowLeft@arrowY) to: (arrowRight@arrowY) color: Color black. arrowCanvas line: (arrowLeft@arrowY) to: ((arrowLeft + arrowHeadLength)@(arrowY - arrowHeadLength)) color: Color black. arrowCanvas line: (arrowLeft@arrowY) to: ((arrowLeft + arrowHeadLength)@(arrowY + arrowHeadLength)) color: Color black. "Replace the glyph" self characterFormAt: $_ put: arrowForm. ! Item was changed: ----- Method: XBMReadWriter>>readHeader (in category 'private') ----- readHeader "Set width and height, and position stream at start of bytes" | number setwidth setheight fieldName | + setwidth := setheight := false. - setwidth _ setheight _ false. [((stream atEnd) or: [setwidth and: [setheight]])] whileFalse: [ self skipCComments. (stream nextMatchAll: '#define ') ifFalse: [^ false]. (stream skipTo: $_) ifFalse: [^ false]. + fieldName := String streamContents: - fieldName _ String streamContents: [:source | [(stream atEnd) or: [ stream peek isSeparator ]] whileFalse: [ source nextPut: stream next]]. (fieldName = 'width') ifTrue: [ stream skipSeparators. + number := Integer readFrom: stream. - number _ Integer readFrom: stream. (number > 0) ifTrue: [setwidth _true]. + width := number.]. - width _ number.]. (fieldName = 'height') ifTrue: [ stream skipSeparators. + number := Integer readFrom: stream. + (number > 0) ifTrue: [setheight := true]. + height := number. - number _ Integer readFrom: stream. - (number > 0) ifTrue: [setheight _ true]. - height _ number. ]. ]. (setwidth & setheight) ifFalse: [^ false]. ^ stream skipTo: ${ ! Item was changed: ----- Method: PNGReadWriter class>>test1 (in category 'as yet unclassified') ----- test1 "PNGReadWriter test1" | d0 d1 fileInfo book d2 f | + Debugging := true. - Debugging _ true. 1 = 1 ifTrue: [ + book := BookMorph new. - book _ BookMorph new. book setProperty: #transitionSpec toValue: {'silence'. #none. #none}. ]. + d0 := FileDirectory default. + d1 := d0 directoryNamed: 'PngSuite Folder'. + d2 := d0 directoryNamed: 'BIG PNG'. - d0 _ FileDirectory default. - d1 _ d0 directoryNamed: 'PngSuite Folder'. - d2 _ d0 directoryNamed: 'BIG PNG'. {d0. d1. d2}. "keep compiler quiet" "== citrus_none_sub.png citrus_adm7_adap.png citrus_adm7_aver.png citrus_adm7_non.png citrus_adm7_paeth.png pngs-img-ie5mac.png ==" + fileInfo := { - fileInfo _ { d2. {'citrus_adm7_adap.png'}. "d1. d1 fileNames." }. fileInfo pairsDo: [ :dir :fileNames | fileNames do: [ :each | | error data t | Transcript cr; show: each. + data := (dir fileNamed: each) contentsOfEntireFile. + error := ''. - data _ (dir fileNamed: each) contentsOfEntireFile. - error _ ''. MessageTally spyOn: [ + t := [ | result | + result := self createAFormFrom: data. - t _ [ | result | - result _ self createAFormFrom: data. f_ result first. + error := result second. - error _ result second. ] timeToRun.]. self insertMorph: f asMorph named: each into: book. Transcript show: each,' ',data size printString,' = ',t printString,' ms',error; cr. ]. ]. book ifNotNil: [book openInWorld]. + Debugging := false.! - Debugging _ false.! Item was changed: ----- Method: BDFFontReader>>readChars (in category 'reading') ----- readChars | strikeWidth ascent descent minAscii maxAscii maxWidth chars charsNum height form encoding bbx array width pointSize stream | + form := encoding := bbx := nil. - form _ encoding _ bbx _ nil. self readAttributes. + height := Integer readFromString: ((properties at: #FONTBOUNDINGBOX) at: 2). + ascent := Integer readFromString: (properties at: 'FONT_ASCENT' asSymbol) first. + descent := Integer readFromString: (properties at: 'FONT_DESCENT' asSymbol) first. + pointSize := (Integer readFromString: (properties at: 'POINT_SIZE' asSymbol) first) // 10. - height _ Integer readFromString: ((properties at: #FONTBOUNDINGBOX) at: 2). - ascent _ Integer readFromString: (properties at: 'FONT_ASCENT' asSymbol) first. - descent _ Integer readFromString: (properties at: 'FONT_DESCENT' asSymbol) first. - pointSize _ (Integer readFromString: (properties at: 'POINT_SIZE' asSymbol) first) // 10. + maxWidth := 0. + minAscii := 9999. + strikeWidth := 0. + maxAscii := 0. - maxWidth _ 0. - minAscii _ 9999. - strikeWidth _ 0. - maxAscii _ 0. + charsNum := Integer readFromString: (properties at: #CHARS) first. + chars := Set new: charsNum. - charsNum _ Integer readFromString: (properties at: #CHARS) first. - chars _ Set new: charsNum. 1 to: charsNum do: [:i | + array := self readOneCharacter. + stream := ReadStream on: array. + form := stream next. + encoding := stream next. + bbx := stream next. - array _ self readOneCharacter. - stream _ ReadStream on: array. - form _ stream next. - encoding _ stream next. - bbx _ stream next. form ifNotNil: [ + width := bbx at: 1. + maxWidth := maxWidth max: width. + minAscii := minAscii min: encoding. + maxAscii := maxAscii max: encoding. + strikeWidth := strikeWidth + width. - width _ bbx at: 1. - maxWidth _ maxWidth max: width. - minAscii _ minAscii min: encoding. - maxAscii _ maxAscii max: encoding. - strikeWidth _ strikeWidth + width. chars add: array. ]. ]. + chars := chars asSortedCollection: [:x :y | (x at: 2) <= (y at: 2)]. - chars _ chars asSortedCollection: [:x :y | (x at: 2) <= (y at: 2)]. ^ chars. !

1 0

The Trunk: Graphics-nice.140.mcz
by commits＠source.squeak.org 25 Jun '10

25 Jun '10

1 0

The Trunk: Graphics-nice.140.mcz
by commits＠source.squeak.org 25 Jun '10

25 Jun '10

1 0

The Trunk: Morphic-bf.449.mcz
by commits＠source.squeak.org 24 Jun '10

24 Jun '10

Bert Freudenberg uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-bf.449.mcz ==================== Summary ==================== Name: Morphic-bf.449 Author: bf Time: 24 June 2010, 3:41:52.939 pm UUID: f588bcdb-0e0e-4541-aa83-224c90a97e60 Ancestors: Morphic-bf.448 - grow equally in all directions on ctrl-halo drag =============== Diff against Morphic-bf.448 =============== Item was changed: ----- Method: HaloMorph>>mouseMove: (in category 'event handling') ----- mouseMove: evt "Drag our target around or resize it" growingOrRotating ifTrue: [ + | oldExtent newExtent newPosition | + newExtent := originalExtent + (evt position - positionOffset * 2). - | newExtent | - newExtent := originalExtent + evt position - positionOffset. (newExtent x > 1 and: [newExtent y > 1]) + ifTrue: [ + oldExtent := target extent. + target setExtentFromHalo: newExtent. + newPosition := target position - (target extent - oldExtent // 2). + target setConstrainedPosition: newPosition hangOut: true]] - ifTrue: [ target renderedMorph setExtentFromHalo: newExtent]] ifFalse: [ | thePoint | thePoint := target point: (evt position - positionOffset) from: owner. target setConstrainedPosition: thePoint hangOut: true. ]!

1 0

The Trunk: Morphic-bf.449.mcz
by commits＠source.squeak.org 24 Jun '10

24 Jun '10

1 0

The Trunk: Morphic-bf.449.mcz
by commits＠source.squeak.org 24 Jun '10

24 Jun '10

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages June 2010