Squeak-dev August 2011

squeak-dev@lists.squeakfoundation.org

55 participants
171 discussions

The Trunk: Files-ul.112.mcz
by commits＠source.squeak.org 04 Aug '11

04 Aug '11

Levente Uzonyi uploaded a new version of Files to project The Trunk: http://source.squeak.org/trunk/Files-ul.112.mcz ==================== Summary ==================== Name: Files-ul.112 Author: ul Time: 3 August 2011, 1:44:29.679 am UUID: 5409c0c6-6b2b-bc4f-9a69-edc3b16dfbbc Ancestors: Files-ul.111 Removed unnecessary blocks. =============== Diff against Files-ul.111 =============== Item was changed: ----- Method: FileDirectory>>entryAt:ifAbsent: (in category 'file status') ----- entryAt: fileName ifAbsent: aBlock "Find the entry with local name fileName and answer it. If not found, answer the result of evaluating aBlock." | comparisonBlock | self isCaseSensitive ifTrue: [comparisonBlock := [:entry | entry name = fileName]] ifFalse: [comparisonBlock := [:entry | entry name sameAs: fileName]]. + ^ self entries detect: comparisonBlock ifNone: aBlock! - ^ self entries detect: comparisonBlock ifNone: [aBlock value]!

1 0

The Trunk: EToys-ul.85.mcz
by commits＠source.squeak.org 04 Aug '11

04 Aug '11

Levente Uzonyi uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-ul.85.mcz ==================== Summary ==================== Name: EToys-ul.85 Author: ul Time: 3 August 2011, 1:44:01.315 am UUID: 01c59f19-66f0-7541-8421-9d374c2325bb Ancestors: EToys-cmm.84 Removed unnecessary blocks. =============== Diff against EToys-cmm.84 =============== Item was changed: ----- Method: Player class>>userScriptsDo: (in category 'scripts') ----- userScriptsDo: aBlock + + self scripts do: aBlock! - self scripts do: - [:aUserScript | aBlock value: aUserScript]! Item was changed: ----- Method: UserScript>>allScriptVersionsDo: (in category 'script editor') ----- allScriptVersionsDo: aBlock + self isTextuallyCoded ifFalse: [aBlock value: currentScriptEditor]. + formerScriptEditors ifNotNil: [ formerScriptEditors do: aBlock ]! - formerScriptEditors ifNotNil: [formerScriptEditors do: - [:ed | aBlock value: ed]]!

1 0

The Trunk: Compression-ul.29.mcz
by commits＠source.squeak.org 04 Aug '11

04 Aug '11

Levente Uzonyi uploaded a new version of Compression to project The Trunk: http://source.squeak.org/trunk/Compression-ul.29.mcz ==================== Summary ==================== Name: Compression-ul.29 Author: ul Time: 3 August 2011, 1:43:44.835 am UUID: cbbfcf21-2c4b-454f-88ce-d57b58abe41a Ancestors: Compression-ul.28 Removed unnecessary blocks. =============== Diff against Compression-ul.28 =============== Item was changed: ----- Method: Archive>>addTree:removingFirstCharacters:match: (in category 'archive operations') ----- addTree: aFileNameOrDirectory removingFirstCharacters: n match: aBlock | dir fullPath relativePath | dir := (aFileNameOrDirectory isString) ifTrue: [ FileDirectory on: aFileNameOrDirectory ] ifFalse: [ aFileNameOrDirectory ]. fullPath := dir pathName, dir slash. relativePath := fullPath copyFrom: n + 1 to: fullPath size. + (dir entries select: aBlock) - (dir entries select: [ :entry | aBlock value: entry]) do: [ :ea | | fullName newMember | fullName := fullPath, ea name. newMember := ea isDirectory ifTrue: [ self memberClass newFromDirectory: fullName ] ifFalse: [ self memberClass newFromFile: fullName ]. newMember localFileName: relativePath, ea name. self addMember: newMember. ea isDirectory ifTrue: [ self addTree: fullName removingFirstCharacters: n match: aBlock]. ]. !

1 0

The Trunk: Collections-ul.452.mcz
by commits＠source.squeak.org 04 Aug '11

04 Aug '11

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.452.mcz ==================== Summary ==================== Name: Collections-ul.452 Author: ul Time: 3 August 2011, 1:43:28.439 am UUID: 41117943-c9ee-8142-ae4f-908517bf8352 Ancestors: Collections-ul.451 Removed unnecessary blocks. =============== Diff against Collections-ul.451 =============== Item was changed: ----- Method: RunArray>>mapValues: (in category 'private') ----- mapValues: mapBlock "NOTE: only meaningful to an entire set of runs" + + values := values collect: mapBlock! - values := values collect: [:val | mapBlock value: val]!

1 0

Re: [squeak-dev] The Trunk: Collections-ul.450.mcz
by Enrico Spinielli 04 Aug '11

04 Aug '11

Levente (and all), what do you think about implementing SequenceableCollection>>polynomialEval: as follows: SequenceableCollection>>polynomialEval: thisX self reverse inject: 0 into: [:sum :each | thisX * sum + each] The above version uses Horner's rule [1] and reads simpler IMHO. Of course reverse is needed only because the convention is to have the constant term as first in the list, should it be the other way around we could save a copy of the collection. (In my image (little more than trunk) there are only 2 senders of polynomialEval: so maybe a change of semantics could be proposed to get rid of reverse...) Hope it helps Bye Enrico [1] Horner's rule/scheme http://en.wikipedia.org/wiki/Horner_scheme On Mon, Jul 25, 2011 at 11:21, <commits(a)source.squeak.org> wrote: > Levente Uzonyi uploaded a new version of Collections to project The Trunk: > http://source.squeak.org/trunk/Collections-ul.450.mcz > > ==================== Summary ==================== > > Name: Collections-ul.450 > Author: ul > Time: 25 July 2011, 1:37:20.234 am > UUID: 2d09bd44-bfdf-1840-87cb-81ced69f9948 > Ancestors: Collections-nice.449 > > Avoid a multiplication, use low level methods in > SequenceableCollection >> #polynomialEval: for better performance. > > =============== Diff against Collections-nice.449 =============== > > Item was changed: > ----- Method: SequenceableCollection>>polynomialEval: (in category 'enumerating') ----- > polynomialEval: thisX > - | sum valToPower | > "Treat myself as the coeficients of a polynomial in X. Evaluate it with thisX. First element is the constant and last is the coeficient for the highest power." > " #(1 2 3) polynomialEval: 2 " "is 3*X^2 + 2*X + 1 with X = 2" > > + | size sum valToPower | > + sum := self at: 1. > + (size := self size) = 1 ifTrue: [ ^sum ]. > - sum := self first. > valToPower := thisX. > + 2 to: size - 1 do: [ :ind | > - 2 to: self size do: [:ind | > sum := sum + ((self at: ind) * valToPower). > + valToPower := valToPower * thisX ]. > + ^sum + ((self at: size) * valToPower)! > - valToPower := valToPower * thisX]. > - ^ sum! > > > -- Enrico Spinielli "Do Androids dream of electric sheep?"— Philip K. Dick "Hear and forget; see and remember;do and understand."—Mitchel Resnick

2 2

Making a Morphic Book released, please critique
by Gary Dunn 04 Aug '11

04 Aug '11

I have released a first version of my first Chalk Dust book, "How to Make a Chalk Dust Morphic Book." This book makes a reference to my next book, which describes using the Squeak mouse. That should be done soon. The intended audience for this book is a teacher or college student who is at least a beginner at using Squeak -- this book does not teach someone how to use Squeak, but it does focus on fundamentals relavent to using a book morph. The intended audience for Chalk Dust books are students at the middle and high school level, say 14 - 18 years old. An older demographic than OLPC. One of the goals for this effort is to use Squeak "out of the box." I realize that to you folks, a little code here and there is easy. Picture an alternative to PowerPoint and you will be close to what I have in mind. As an author gains experience with Squeak they should be able to create increasingly fancy books. If anyone has some time (ha ha) I would appreciate any and all comments, starting with spelling and grammer and going up from there as far as you like. After I have had time to incorporate your suggestions I will make a formal announcement on the Open Slate web site and mailing list. Read about the new book on the wiki: http://wiki.openslate.net/mediawiki/index.php?title=Chalk_Dust_Applications… Link to the project file: http://www.aloha.com/~knowtree/openslate/projects/ChalkDust_MakingAMorphicB… In closing let me say thanks to all of you who have responded to my queations here. -- Gary Dunn Open Slate Project Honolulu

1 0

Re: [squeak-dev] The Trunk: Morphic-nice.560.mcz
by Levente Uzonyi 04 Aug '11

04 Aug '11

Wow, great improvements. On Wed, 3 Aug 2011, commits(a)source.squeak.org wrote: > Nicolas Cellier uploaded a new version of Morphic to project The Trunk: > http://source.squeak.org/trunk/Morphic-nice.560.mcz > > ==================== Summary ==================== > > Name: Morphic-nice.560 > Author: nice > Time: 4 August 2011, 12:13:33.583 am > UUID: f816651e-2c1a-402f-b4be-d7fc194061a0 > Ancestors: Morphic-nice.559 > > Correct forwardDelete: that I just broke. > Note that (cmd+z) fail to undo this action. I think it was previously the case before I changed anything. I think it would be better to leech the undo framework from Pharo. Having "infinite" undo/redo is better than just a single (and sometimes broken) undo/redo which is (guess what) global... Levente > > =============== Diff against Morphic-nice.559 =============== > > Item was changed: > ----- Method: TextEditor>>forwardDelete: (in category 'typing/selecting keys') ----- > forwardDelete: aKeyboardEvent > "Delete forward over the next character. > Make Undo work on the whole type-in, not just the one char. > wod 11/3/1998: If there was a selection use #zapSelectionWith: rather than #backspace: which was 'one off' in deleting the selection. Handling of things like undo or typeIn area were not fully considered." > | startIndex usel upara uinterval ind stopIndex | > startIndex := self markIndex. > startIndex > self text size ifTrue: [ > ^ false]. > self hasSelection ifTrue: [ > "there was a selection" > self zapSelectionWith: self nullText. > ^ false]. > "Null selection - do the delete forward" > beginTypeInIndex ifNil: [ "no previous typing. openTypeIn" > self openTypeIn. UndoSelection := self nullText]. > uinterval := UndoInterval copy. > upara := UndoParagraph copy. > stopIndex := startIndex. > (aKeyboardEvent keyValue = 127 and: [ aKeyboardEvent shiftPressed ]) > + ifTrue: [stopIndex := (self nextWord: stopIndex) - 1]. > - ifTrue: [stopIndex := (self nextWordStart: stopIndex) - 1]. > self selectFrom: startIndex to: stopIndex. > self replaceSelectionWith: self nullText. > self selectFrom: startIndex to: startIndex-1. > UndoParagraph := upara. UndoInterval := uinterval. > UndoMessage selector == #noUndoer ifTrue: [ > (UndoSelection isText) ifTrue: [ > usel := UndoSelection. > ind := startIndex. "UndoInterval startIndex" > usel replaceFrom: usel size + 1 to: usel size with: > (UndoParagraph text copyFrom: ind to: ind). > UndoParagraph text replaceFrom: ind to: ind with: self nullText]]. > ^false! > > >

1 0

The Trunk: ST80-nice.134.mcz
by commits＠source.squeak.org 04 Aug '11

04 Aug '11

Nicolas Cellier uploaded a new version of ST80 to project The Trunk: http://source.squeak.org/trunk/ST80-nice.134.mcz ==================== Summary ==================== Name: ST80-nice.134 Author: nice Time: 4 August 2011, 2:04:27.825 am UUID: 64bde7ed-cd1c-4823-9cfe-384e95f4e770 Ancestors: ST80-nice.133 Let cmd+| insert/remove a pair of bars around the selection Let clicking twice between bars select the range between bars. =============== Diff against ST80-nice.133 =============== Item was changed: ----- Method: ParagraphEditor class>>initializeCmdKeyShortcuts (in category 'keyboard shortcut tables') ----- initializeCmdKeyShortcuts "Initialize the (unshifted) command-key (or alt-key) shortcut table." "NOTE: if you don't know what your keyboard generates, use Sensor kbdTest" "ParagraphEditor initialize" | cmdMap | cmdMap := Array new: 256 withAll: #noop:. "use temp in case of a crash" cmdMap at: 1 + 1 put: #cursorHome:. "home key" cmdMap at: 4 + 1 put: #cursorEnd:. "end key" cmdMap at: 8 + 1 put: #backspace:. "ctrl-H or delete key" cmdMap at: 11 + 1 put: #cursorPageUp:. "page up key" cmdMap at: 12 + 1 put: #cursorPageDown:. "page down key" cmdMap at: 13 + 1 put: #crWithIndent:. "cmd-Return" cmdMap at: 27 + 1 put: #offerMenuFromEsc:. "escape key" cmdMap at: 28 + 1 put: #cursorLeft:. "left arrow key" cmdMap at: 29 + 1 put: #cursorRight:. "right arrow key" cmdMap at: 30 + 1 put: #cursorUp:. "up arrow key" cmdMap at: 31 + 1 put: #cursorDown:. "down arrow key" cmdMap at: 32 + 1 put: #selectWord:. "space bar key" cmdMap at: 127 + 1 put: #forwardDelete:. "del key" '0123456789-=' do: [:char | cmdMap at: char asciiValue + 1 put: #changeEmphasis:]. + '([<{|"''' do: [:char | cmdMap at: char asciiValue + 1 put: #enclose:]. - '([{''"<' do: [:char | cmdMap at: char asciiValue + 1 put: #enclose:]. cmdMap at: $, asciiValue + 1 put: #shiftEnclose:. "triplet = {character. comment selector. novice appropiated}" #( ($a #selectAll: true) ($b #browseIt: false) ($c #copySelection: true) ($d #doIt: false) ($e #exchange: true) ($f #find: true) ($g #findAgain: true) ($h #setSearchString: true) ($i #inspectIt: false) ($j #doAgainOnce: true) ($k #offerFontMenu: true) ($l #cancel: true) ($m #implementorsOfIt: false) ($n #sendersOfIt: false) ($o #spawnIt: false) ($p #printIt: false) ($q #querySymbol: false) ($s #save: true) ($t #tempCommand: false) ($u #align: true) ($v #paste: true) ($w #backWord: true) ($x #cut: true) ($y #swapChars: true) ($z #undo: true) ) select:[:triplet | Preferences noviceMode not or:[triplet third]] thenDo:[:triplet | cmdMap at: triplet first asciiValue + 1 put: triplet second]. CmdActions := cmdMap. ! Item was changed: ----- Method: ParagraphEditor>>enclose: (in category 'editing keys') ----- enclose: characterStream "Insert or remove bracket characters around the current selection. Flushes typeahead." | char left right startIndex stopIndex oldSelection which text | char := sensor keyboard. self closeTypeIn. startIndex := self startIndex. stopIndex := self stopIndex. oldSelection := self selection. + which := '([<{|"''' indexOf: char ifAbsent: [ ^true ]. + left := '([<{|"''' at: which. + right := ')]>}|"''' at: which. - which := '([<{"''' indexOf: char ifAbsent: [ ^true ]. - left := '([<{"''' at: which. - right := ')]>}"''' at: which. text := paragraph text. ((startIndex > 1 and: [stopIndex <= text size]) and: [(text at: startIndex-1) = left and: [(text at: stopIndex) = right]]) ifTrue: ["already enclosed; strip off brackets" self selectFrom: startIndex-1 to: stopIndex. self replaceSelectionWith: oldSelection] ifFalse: ["not enclosed; enclose by matching brackets" self replaceSelectionWith: (Text string: (String with: left), oldSelection string ,(String with: right) emphasis: emphasisHere). self selectFrom: startIndex+1 to: stopIndex]. ^true! Item was changed: ----- Method: ParagraphEditor>>selectWord (in category 'new selection') ----- selectWord "Select delimited text or word--the result of double-clicking." | openDelimiter closeDelimiter direction match level leftDelimiters rightDelimiters string here hereChar start stop | string := paragraph text string. here := self pointIndex. (here between: 2 and: string size) ifFalse: ["if at beginning or end, select entire string" ^self selectFrom: 1 to: string size]. + leftDelimiters := '([{<|''" - leftDelimiters := '([{<''" '. + rightDelimiters := ')]}>|''" - rightDelimiters := ')]}>''" '. openDelimiter := string at: here - 1. match := leftDelimiters indexOf: openDelimiter. match > 0 ifTrue: ["delimiter is on left -- match to the right" start := here. direction := 1. here := here - 1. closeDelimiter := rightDelimiters at: match] ifFalse: [openDelimiter := string at: here. match := rightDelimiters indexOf: openDelimiter. match > 0 ifTrue: ["delimiter is on right -- match to the left" stop := here - 1. direction := -1. closeDelimiter := leftDelimiters at: match] ifFalse: ["no delimiters -- select a token" direction := -1]]. level := 1. [level > 0 and: [direction > 0 ifTrue: [here < string size] ifFalse: [here > 1]]] whileTrue: [hereChar := string at: (here := here + direction). match = 0 ifTrue: ["token scan goes left, then right" hereChar tokenish ifTrue: [here = 1 ifTrue: [start := 1. "go right if hit string start" direction := 1]] ifFalse: [direction < 0 ifTrue: [start := here + 1. "go right if hit non-token" direction := 1] ifFalse: [level := 0]]] ifFalse: ["bracket match just counts nesting level" hereChar = closeDelimiter ifTrue: [level := level - 1"leaving nest"] ifFalse: [hereChar = openDelimiter ifTrue: [level := level + 1"entering deeper nest"]]]]. level > 0 ifTrue: ["in case ran off string end" here := here + direction]. direction > 0 ifTrue: [self selectFrom: start to: here - 1] ifFalse: [self selectFrom: here + 1 to: stop]! Item was changed: ----- Method: ParagraphEditor>>shiftEnclose: (in category 'editing keys') ----- shiftEnclose: characterStream "Insert or remove bracket characters around the current selection. Flushes typeahead." | char left right startIndex stopIndex oldSelection which text | char := sensor keyboard. char = $9 ifTrue: [ char := $( ]. char = $, ifTrue: [ char := $< ]. char = $[ ifTrue: [ char := ${ ]. char = $' ifTrue: [ char := $" ]. char asciiValue = 27 ifTrue: [ char := ${ ]. "ctrl-[" self closeTypeIn. startIndex := self startIndex. stopIndex := self stopIndex. oldSelection := self selection. + which := '([<{|"''' indexOf: char ifAbsent: [1]. + left := '([<{|"''' at: which. + right := ')]>}|"''' at: which. - which := '([<{"''' indexOf: char ifAbsent: [1]. - left := '([<{"''' at: which. - right := ')]>}"''' at: which. text := paragraph text. ((startIndex > 1 and: [stopIndex <= text size]) and: [(text at: startIndex-1) = left and: [(text at: stopIndex) = right]]) ifTrue: ["already enclosed; strip off brackets" self selectFrom: startIndex-1 to: stopIndex. self replaceSelectionWith: oldSelection] ifFalse: ["not enclosed; enclose by matching brackets" self replaceSelectionWith: (Text string: (String with: left), oldSelection string ,(String with: right) emphasis: emphasisHere). self selectFrom: startIndex+1 to: stopIndex]. ^true!

1 0

The Trunk: Morphic-nice.564.mcz
by commits＠source.squeak.org 04 Aug '11

04 Aug '11

Nicolas Cellier uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-nice.564.mcz ==================== Summary ==================== Name: Morphic-nice.564 Author: nice Time: 4 August 2011, 2:00:08.195 am UUID: 53207bf1-76d6-494a-84ff-e151e65080cd Ancestors: Morphic-nice.563 Let cmd+| insert/remove a pair of bars around the selection =============== Diff against Morphic-nice.563 =============== Item was changed: ----- Method: TextEditor class>>initializeCmdKeyShortcuts (in category 'keyboard shortcut tables') ----- initializeCmdKeyShortcuts "Initialize the (unshifted) command-key (or alt-key) shortcut table." "NOTE: if you don't know what your keyboard generates, use Sensor kbdTest" "TextEditor initialize" | cmdMap cmds | cmdMap := Array new: 256 withAll: #noop:. "use temp in case of a crash" cmdMap at: 1 + 1 put: #cursorHome:. "home key" cmdMap at: 4 + 1 put: #cursorEnd:. "end key" cmdMap at: 8 + 1 put: #backspace:. "ctrl-H or delete key" cmdMap at: 11 + 1 put: #cursorPageUp:. "page up key" cmdMap at: 12 + 1 put: #cursorPageDown:. "page down key" cmdMap at: 13 + 1 put: #crWithIndent:. "cmd-Return" cmdMap at: 27 + 1 put: #offerMenuFromEsc:. "escape key" cmdMap at: 28 + 1 put: #cursorLeft:. "left arrow key" cmdMap at: 29 + 1 put: #cursorRight:. "right arrow key" cmdMap at: 30 + 1 put: #cursorUp:. "up arrow key" cmdMap at: 31 + 1 put: #cursorDown:. "down arrow key" cmdMap at: 32 + 1 put: #selectWord:. "space bar key" cmdMap at: 127 + 1 put: #forwardDelete:. "del key" '0123456789-=' do: [:char | cmdMap at: char asciiValue + 1 put: #changeEmphasis:]. + '([<{|"''' do: [:char | cmdMap at: char asciiValue + 1 put: #enclose:]. - '([{''"<' do: [:char | cmdMap at: char asciiValue + 1 put: #enclose:]. cmds := #($a #selectAll: $c #copySelection: $e #exchange: $f #find: $g #findAgain: $h #setSearchString: $k #offerFontMenu: $u #align: $v #paste: $w #backWord: $x #cut: $y #swapChars: $z #undo:). 1 to: cmds size by: 2 do: [:i | cmdMap at: (cmds at: i) asciiValue + 1 put: (cmds at: i + 1)]. cmdActions := cmdMap! Item was changed: ----- Method: TextEditor>>enclose: (in category 'editing keys') ----- enclose: aKeyboardEvent "Insert or remove bracket characters around the current selection." | left right startIndex stopIndex oldSelection which t | self closeTypeIn. startIndex := self startIndex. stopIndex := self stopIndex. oldSelection := self selection. + which := '([<{|"''' indexOf: aKeyboardEvent keyCharacter ifAbsent: [ ^true ]. + left := '([<{|"''' at: which. + right := ')]>}|"''' at: which. - which := '([<{"''' indexOf: aKeyboardEvent keyCharacter ifAbsent: [ ^true ]. - left := '([<{"''' at: which. - right := ')]>}"''' at: which. t := self text. ((startIndex > 1 and: [stopIndex <= t size]) and: [ (t at: startIndex-1) = left and: [(t at: stopIndex) = right]]) ifTrue: [ "already enclosed; strip off brackets" self selectFrom: startIndex-1 to: stopIndex. self replaceSelectionWith: oldSelection] ifFalse: [ "not enclosed; enclose by matching brackets" self replaceSelectionWith: (Text string: (String with: left), oldSelection string, (String with: right) attributes: emphasisHere). self selectFrom: startIndex+1 to: stopIndex]. ^true! Item was changed: ----- Method: TextEditor>>shiftEnclose: (in category 'editing keys') ----- shiftEnclose: aKeyboardEvent "Insert or remove bracket characters around the current selection. Flushes typeahead." | char left right startIndex stopIndex oldSelection which text | char := aKeyboardEvent keyCharacter. char = $9 ifTrue: [ char := $( ]. char = $, ifTrue: [ char := $< ]. char = $[ ifTrue: [ char := ${ ]. char = $' ifTrue: [ char := $" ]. char asciiValue = 27 ifTrue: [ char := ${ ]. "ctrl-[" self closeTypeIn. startIndex := self startIndex. stopIndex := self stopIndex. oldSelection := self selection. + which := '([<{|"''' indexOf: char ifAbsent: [1]. + left := '([<{|"''' at: which. + right := ')]>}|"''' at: which. - which := '([<{"''' indexOf: char ifAbsent: [1]. - left := '([<{"''' at: which. - right := ')]>}"''' at: which. text := paragraph text. ((startIndex > 1 and: [stopIndex <= text size]) and: [ (text at: startIndex-1) = left and: [(text at: stopIndex) = right]]) ifTrue: [ "already enclosed; strip off brackets" self selectFrom: startIndex-1 to: stopIndex. self replaceSelectionWith: oldSelection] ifFalse: [ "not enclosed; enclose by matching brackets" self replaceSelectionWith: (Text string: (String with: left), oldSelection string, (String with: right) attributes: emphasisHere). self selectFrom: startIndex+1 to: stopIndex]. ^true!

1 0

Daily Commit Log
by commits＠source.squeak.org 04 Aug '11

04 Aug '11

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2011-August/004885.html Name: Tools-fbs.372 Ancestors: Tools-bf.371 When you rename a system category, you should have the newly-named system category selected after the rename. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-August/004886.html Name: ST80-nice.131 Ancestors: ST80-cmm.130 cosmetic: use self normalCharacter: rather than self perform: #normalCharacter: ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-August/004887.html Name: Morphic-nice.558 Ancestors: Morphic-ul.557 ParagraphEditor is an old st-80 class implemented for a polling UI via the use of sensor inst. var.. TextMorphEditor is a glue that enable using a ParagraphEditor in an event driven morphic world. There was a hack for feeding a sensor fake with morphic events. This hack was located in TextMorph. When 100% morphic Cuis-designed TextEditor was introduced in Squeak-trunk, it was made sensor-dependent instead of sensor-less and purely event driven. This should not be so. This version moves the hack where in belongs to, in TextMorphEditor>>fakeSensorWithEvent: It also temporarily duplicates it in TextEditor, in the interim before we remove it's sensor inst. var.. NOTE 1: the hack did also previously apply to #mouseUp: #mouseDown: #mouseUp: events. It does not anymore because I saw no use to it. If I'm wrong, correct it by sending (self fakeSensorWithEvent: anEvent) in the TextMorphEditor implementation of these messages. NOTE2: the change does not change the behaviour of MVC projects. Keyboard typing still "works" (cough...) ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-August/004888.html Name: ST80-nice.132 Ancestors: ST80-nice.131 Let old Paragraph respond to #string like NewParagraph. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-August/004889.html Name: Morphic-nice.559 Ancestors: Morphic-nice.558 Let TextEditor be event driven and let us ban sensor usage from it. Details: I tried to apply Cuis 3.3 methods where possible and kept Squeakism where necessary. There are unused methods that crept into the Editor classes, but we'll see later about further convergence with Cuis or not... Like Cuis, I renamed ivar beginTypeInBlock -> beginTypeInIndex because this is an Integer index, not a CharacterBlock. Code is already long enough to avoid such traps. I also removed sensor and the structure of the TextEditor did change a lot. So it's hard to say if code is reloadable... The inbox will be a test place. Like Cuis I removed the typeAheadStream which was useless already since we recompose after each key stroke. Instead of such stream, the keyboard event is passed as argument to editing methods. Some small divergences: I did not define TextEditor>>#processKeyboardEvent: but TextEditor>>#keyStroke: My rationale was that mouseUp: mouseDown: and mouseMove: were not renamed, so why renaming keyStroke: ? On the other hand, it would be easier to follow code with different selectors, and maybe also good for a VM to reduce unecessary polymorphism. I did not define TextEditor>>#dispathOn: but TextEditor>>#dispatchOnKeyboardEvent: I felt this was more clear... less unecessary polymorphism. My mood was changing ;) These above two behaviours have not been unified (Cuis only deal with 256 characters and can offer a dispatch table for all characters, we can't). Unlike Cuis I did not implement multi selection (?). I also kept the oldInterval and otherInterval ivars because I don't know if I can touch them. I also kept selectionShowing because I'm totally unaware of these details. I did not yet imported the SimpleEditor. Thanks to Juan for leading the process, and cross the fingers to see if update is possible or require intermediate stages. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-August/004890.html Name: Morphic-nice.560 Ancestors: Morphic-nice.559 Correct forwardDelete: that I just broke. Note that (cmd+z) fail to undo this action. I think it was previously the case before I changed anything. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-August/004891.html Name: Morphic-nice.561 Ancestors: Morphic-nice.560 Always try to logDebuggerStackToFile first if Preferences is enabled, and discard Errors occuring in this phase. That can help debugging the emergency situations when the debugger fail to open itself. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-August/004892.html Name: ST80-nice.133 Ancestors: ST80-nice.132 Always try to logDebuggerStackToFile first if Preferences is enabled, and discard Errors occuring in this phase. That can help debugging the emergency situations when the debugger fail to open itself. ESPECIALLY IN MVC CASE... ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-August/004893.html Name: Morphic-nice.562 Ancestors: Morphic-nice.561 Restore correct behaviour of selecting between delimiters when clicking twice. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-August/004894.html Name: Morphic-nice.563 Ancestors: Morphic-nice.562 Also select between vertical bars when clicking twice. =============================================

1 0

Jump to page: