Squeak-dev August 2011

squeak-dev@lists.squeakfoundation.org

55 participants
171 discussions

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

21 Aug '11

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2011-August/004938.html Name: Morphic-cmm.570 Ancestors: Morphic-cmm.568 - Properly capture UndoSelection like the old TextEditor. The recent conversion of the TextEditor to be event-based was a great piece of work, but I cannot live without important functions of the Squeak text-editor, such as Command+j, and Command+z which stopped working. The old design would not update the start and mark blocks until after the UndoSelection was captured. The new design could not do that easily because the typeAhead was replaced with an KeyboardEvent. The solution was to make typeAhead an instance-variable, and put back the interpret-key / update-paragraph cycle back. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-August/004939.html Name: Morphic-cmm.571 Ancestors: Morphic-cmm.570, Morphic-jmg.569 - Merged. - Show seconds on DockingBar clock because it's useful for quick-and-rough timings as well as to know if the UI process is available. It is not distracting. - Make the docking bar dropEnabled:, so that custom buttons can be dropped there. =============================================

1 0

Spoon 3 alpha 3 released
by Chris Cunnington 20 Aug '11

20 Aug '11

>> You mean GDB: The GNU Project Debugger ? Or ? Yea, the GNU debugger. It spits out lots of paths about where the VM has looked for plugins. Some of them may contain Flow if that plugin is having difficulty being found. Chris

1 0

The Trunk: Morphic-cmm.571.mcz
by commits＠source.squeak.org 20 Aug '11

20 Aug '11

Chris Muller uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cmm.571.mcz ==================== Summary ==================== Name: Morphic-cmm.571 Author: cmm Time: 20 August 2011, 2:30:06.341 pm UUID: 34d25112-deac-451e-ac1e-aa9a27f95f25 Ancestors: Morphic-cmm.570, Morphic-jmg.569 - Merged. - Show seconds on DockingBar clock because it's useful for quick-and-rough timings as well as to know if the UI process is available. It is not distracting. - Make the docking bar dropEnabled:, so that custom buttons can be dropped there. =============== Diff against Morphic-cmm.570 =============== Item was changed: ----- Method: DockingBarMorph>>initialize (in category 'initialize-release') ----- initialize "initialize the receiver" super initialize. - "" selectedItem := nil. activeSubMenu := nil. fillsOwner := true. avoidVisibleBordersAtEdge := true. autoGradient := Preferences gradientMenu. + self + setDefaultParameters ; + beFloating ; + beSticky ; + layoutInset: 0 ; + dropEnabled: true. - "" - self setDefaultParameters. - "" - self beFloating; beSticky. - "" - self layoutInset: 0. Project current world activeHand addKeyboardListener: self! Item was changed: ----- Method: TheWorldMainDockingBar>>clockOn: (in category 'right side') ----- clockOn: aDockingBar - aDockingBar + addMorphBack: ClockMorph new ; - addMorphBack: ( - ClockMorph new - showSeconds: false; - yourself); addDefaultSpace! Item was added: + ----- Method: TheWorldMainDockingBar>>methodFinderMenuItemOn: (in category 'submenu - tools') ----- + methodFinderMenuItemOn: menu + + menu addItem: [:item | + item + contents: 'Method Finder' translated; + help: 'Open the Method Finder' translated; + icon: (self colorIcon: Preferences methodFinderWindowColor); + target: StandardToolSet; + selector: #openSelectorBrowser]! Item was changed: ----- Method: TheWorldMainDockingBar>>toolsMenuOn: (in category 'construction') ----- toolsMenuOn: aDockingBar aDockingBar addItem: [ :item | item contents: 'Tools' translated; addSubMenu: [ :menu | self browserMenuItemOn: menu; workspaceMenuItemOn: menu; transcriptMenuItemOn: menu; + testRunnerMenuItemOn: menu; + methodFinderMenuItemOn: menu. - testRunnerMenuItemOn: menu. menu addLine. self monticelloBrowserMenuItemOn: menu; monticelloConfigurationsMenuItemOn: menu; simpleChangeSorterMenuItemOn: menu; dualChangeSorterMenuItemOn: menu. menu addLine. self processBrowserMenuItemOn: menu; preferenceBrowserMenuItemOn: menu; fileListMenuItemOn: menu. ] ]!

1 0

The Trunk: Morphic-cmm.570.mcz
by commits＠source.squeak.org 20 Aug '11

20 Aug '11

Chris Muller uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cmm.570.mcz ==================== Summary ==================== Name: Morphic-cmm.570 Author: cmm Time: 17 August 2011, 10:48:32.088 pm UUID: b521400f-04c1-4cc3-9d26-929e2a1c1c9f Ancestors: Morphic-cmm.568 - Properly capture UndoSelection like the old TextEditor. The recent conversion of the TextEditor to be event-based was a great piece of work, but I cannot live without important functions of the Squeak text-editor, such as Command+j, and Command+z which stopped working. The old design would not update the start and mark blocks until after the UndoSelection was captured. The new design could not do that easily because the typeAhead was replaced with an KeyboardEvent. The solution was to make typeAhead an instance-variable, and put back the interpret-key / update-paragraph cycle back. =============== Diff against Morphic-cmm.568 =============== Item was changed: ----- Method: Editor>>cursorDown: (in category 'nonediting/nontyping keys') ----- cursorDown: aKeyboardEvent "Private - Move cursor from position in current line to same position in next line. If next line too short, put at end. If shift key down, select." + self insertAndCloseTypeIn. - self closeTypeIn. self moveCursor: [:position | self sameColumn: position newLine: [:line | line + 1] forward: true] forward: true event: aKeyboardEvent specialBlock: [:dummy | dummy]. ^true! Item was changed: ----- Method: Editor>>cursorLeft: (in category 'nonediting/nontyping keys') ----- cursorLeft: aKeyboardEvent "Private - Move cursor left one character if nothing selected, otherwise move cursor to beginning of selection. If the shift key is down, start selecting or extending current selection. Don't allow cursor past beginning of text" + self insertAndCloseTypeIn. - self closeTypeIn. self moveCursor:[:position | position - 1 max: 1] forward: false event: aKeyboardEvent specialBlock:[:position | self previousWord: position]. ^ true! Item was changed: ----- Method: Editor>>cursorPageDown: (in category 'nonediting/nontyping keys') ----- cursorPageDown: aKeyboardEvent + self insertAndCloseTypeIn. - self closeTypeIn. self moveCursor: [:position | self sameColumn: position newLine: [:lineNo | lineNo + self pageHeight] forward: true] forward: true event: aKeyboardEvent specialBlock:[:dummy | dummy]. ^true! Item was changed: ----- Method: Editor>>cursorPageUp: (in category 'nonediting/nontyping keys') ----- cursorPageUp: aKeyboardEvent + self insertAndCloseTypeIn. - self closeTypeIn. self moveCursor: [:position | self sameColumn: position newLine: [:lineNo | lineNo - self pageHeight] forward: false] forward: false event: aKeyboardEvent specialBlock:[:dummy | dummy]. ^true! Item was changed: ----- Method: Editor>>cursorRight: (in category 'nonediting/nontyping keys') ----- cursorRight: aKeyboardEvent "Private - Move cursor right one character if nothing selected, otherwise move cursor to end of selection. If the shift key is down, start selecting characters or extending already selected characters. Don't allow cursor past end of text" + self insertAndCloseTypeIn. - self closeTypeIn. self moveCursor: [:position | position + 1] forward: true event: aKeyboardEvent specialBlock:[:position | self nextWord: position]. ^ true! Item was changed: ----- Method: Editor>>cursorUp: (in category 'nonediting/nontyping keys') ----- cursorUp: aKeyboardEvent "Private - Move cursor from position in current line to same position in prior line. If prior line too short, put at end" + self insertAndCloseTypeIn. - self closeTypeIn. self moveCursor: [:position | self sameColumn: position newLine:[:line | line - 1] forward: false] forward: false event: aKeyboardEvent specialBlock:[:dummy | dummy]. ^true! Item was changed: ----- Method: Editor>>paste: (in category 'editing keys') ----- paste: aKeyboardEvent "Replace the current text selection by the text in the shared buffer." + self insertAndCloseTypeIn. - self closeTypeIn. self paste. ^true! Item was changed: ----- Method: Editor>>selectAll: (in category 'typing/selecting keys') ----- selectAll: aKeyboardEvent "select everything, invoked by cmd-a. 1/17/96 sw" + self insertAndCloseTypeIn. - self closeTypeIn. self selectFrom: 1 to: self string size. ^ true! Item was changed: ----- Method: Editor>>selectWord: (in category 'nonediting/nontyping keys') ----- selectWord: aKeyboardEvent + self insertAndCloseTypeIn. - self closeTypeIn. self selectWord. ^ true! Item was changed: Editor subclass: #TextEditor + instanceVariableNames: 'model paragraph markBlock pointBlock beginTypeInIndex emphasisHere lastParenLocation otherInterval oldInterval typeAhead' - instanceVariableNames: 'model paragraph markBlock pointBlock beginTypeInIndex emphasisHere lastParenLocation otherInterval oldInterval' classVariableNames: 'AutoEnclose AutoIndent ChangeText FindText UndoInterval UndoMessage UndoParagraph UndoSelection Undone' poolDictionaries: '' category: 'Morphic-Text Support'! TextEditor class instanceVariableNames: 'cmdActions shiftCmdActions yellowButtonMenu shiftedYellowButtonMenu'! !TextEditor commentStamp: '<historical>' prior: 0! See comment in Editor. My instances edit Text, this is, they support multiple lines and TextAttributes. They have no specific facilities for editing Smalltalk code. Those are found in SmalltalkEditor.! TextEditor class instanceVariableNames: 'cmdActions shiftCmdActions yellowButtonMenu shiftedYellowButtonMenu'! Item was changed: ----- Method: TextEditor>>addString: (in category 'typing support') ----- addString: aString + self typeAhead nextPutAll: aString! - "Think of a better name" - - self zapSelectionWith: aString! Item was changed: ----- Method: TextEditor>>againOnce: (in category 'private') ----- againOnce: indices "Find the next occurrence of FindText. If none, answer false. Append the start index of the occurrence to the stream indices, and, if ChangeText is not the same object as FindText, replace the occurrence by it. Note that the search is case-sensitive for replacements, otherwise not." | where | where := self text findString: FindText startingAt: self stopIndex caseSensitive: ((ChangeText ~~ FindText) or: [Preferences caseSensitiveFinds]). where = 0 ifTrue: [^ false]. + self deselect; selectInvisiblyFrom: where to: where + FindText size - 1. "Repeat it here. Senders beware: only one of these should last" - self selectInvisiblyFrom: where to: where + FindText size - 1. "Repeat it here. Senders beware: only one of these should last" ChangeText ~~ FindText ifTrue: [ self zapSelectionWith: ChangeText ]. indices nextPut: where. ^ true! Item was changed: ----- Method: TextEditor>>argAdvance: (in category 'typing/selecting keys') ----- argAdvance: aKeyboardEvent "Invoked by Ctrl-a. Useful after Ctrl-q. Search forward from the end of the selection for a colon followed by a space. Place the caret after the space. If none are found, place the caret at the end of the text. Does not affect the undoability of the previous command." | start | + self insertAndCloseTypeIn. - self closeTypeIn. start := paragraph text findString: ': ' startingAt: self stopIndex. start = 0 ifTrue: [start := paragraph text size + 1]. self selectAt: start + 2. ^true! Item was changed: ----- Method: TextEditor>>backTo: (in category 'typing support') ----- backTo: startIndex "During typing, backspace to startIndex. Deleted characters fall into three clusters, from left to right in the text: (1) preexisting characters that were backed over; (2) newly typed characters that were backed over; (3) preexisting characters that were highlighted before typing began. If typing has not yet been opened, open it and watch for the first and third cluster. If typing has been opened, watch for the first and second cluster. Save characters from the first and third cluster in UndoSelection. Tally characters from the first cluster in UndoMessage's parameter. Delete all the clusters. Do not alter Undoer or UndoInterval (except via openTypeIn). The code is shorter than the comment." | saveLimit newBackovers | saveLimit := beginTypeInIndex ifNil: [self openTypeIn. UndoSelection := self nullText. self stopIndex]. markBlock := paragraph characterBlockForIndex: startIndex. startIndex < saveLimit ifTrue: [ newBackovers := beginTypeInIndex - startIndex. beginTypeInIndex := self startIndex. UndoSelection replaceFrom: 1 to: 0 with: (self text copyFrom: startIndex to: saveLimit - 1). UndoMessage arguments size > 0 ifTrue: [ UndoMessage argument: (UndoMessage argument ifNil: [1]) + newBackovers]]. self zapSelectionWith: self nullText. + self unselect! - markBlock := pointBlock! Item was changed: ----- Method: TextEditor>>changeEmphasis: (in category 'editing keys') ----- changeEmphasis: aKeyboardEvent "Change the emphasis of the current selection or prepare to accept characters with the change in emphasis. Emphasis change amounts to a font change. Keeps typeahead." "control 0..9 -> 0..9" | keyCode attribute oldAttributes index thisSel colors extras | keyCode := ('0123456789-=' indexOf: aKeyboardEvent keyCharacter ifAbsent: [1]) - 1. oldAttributes := paragraph text attributesAt: self pointIndex. thisSel := self selection. "Decipher keyCodes for Command 0-9..." (keyCode between: 1 and: 5) ifTrue: [attribute := TextFontChange fontNumber: keyCode]. keyCode = 6 ifTrue: [ colors := #(#black #magenta #red #yellow #green #blue #cyan #white). extras := self emphasisExtras. index := UIManager default chooseFrom:colors , #('choose color...' ), extras lines: (Array with: colors size + 1). index = 0 ifTrue: [^true]. index <= colors size ifTrue: [attribute := TextColor color: (Color perform: (colors at: index))] ifFalse: [ index := index - colors size - 1. "Re-number!!!!!!" index = 0 ifTrue: [attribute := self chooseColor] ifFalse:[^self handleEmphasisExtra: index with: aKeyboardEvent] "handle an extra"]]. (keyCode between: 7 and: 11) ifTrue: [ aKeyboardEvent shiftPressed ifTrue: [ keyCode = 10 ifTrue: [attribute := TextKern kern: -1]. keyCode = 11 ifTrue: [attribute := TextKern kern: 1]] ifFalse: [ attribute := TextEmphasis perform: (#(#bold #italic #narrow #underlined #struckOut) at: keyCode - 6). oldAttributes do: [:att | (att dominates: attribute) ifTrue: [attribute turnOff]]]]. keyCode = 0 ifTrue: [attribute := TextEmphasis normal]. attribute ifNotNil: [ thisSel size = 0 ifTrue: [ "only change emphasisHere while typing" + self insertTypeAhead. emphasisHere := Text addAttribute: attribute toArray: oldAttributes ] ifFalse: [ self replaceSelectionWith: (thisSel asText addAttribute: attribute) ]]. ^true! Item was changed: ----- Method: TextEditor>>changeStyle: (in category 'typing/selecting keys') ----- changeStyle: aKeyboardEvent "Put up the style-change menu" + self insertAndCloseTypeIn. - self closeTypeIn. self changeStyle. ^ true! Item was removed: - ----- Method: TextEditor>>cursorDown: (in category 'nonediting/nontyping keys') ----- - cursorDown: aKeyboardEvent - - "Private - Move cursor from position in current line to same position in - next line. If next line too short, put at end. If shift key down, - select." - self closeTypeIn. - self - moveCursor:[:position | self - sameColumn: position - newLine:[:line | line + 1] - forward: true] - forward: true - event: aKeyboardEvent - specialBlock:[:dummy | dummy]. - ^true! Item was changed: ----- Method: TextEditor>>cursorEnd: (in category 'nonediting/nontyping keys') ----- cursorEnd: aKeyboardEvent "Private - Move cursor end of current line." | string | + self insertAndCloseTypeIn. - self closeTypeIn. string := paragraph text string. self moveCursor: [:position | Preferences wordStyleCursorMovement ifTrue:[| targetLine | targetLine := paragraph lines at:(paragraph lineIndexOfCharacterIndex: position). targetLine = paragraph lastLine ifTrue:[targetLine last + 1] ifFalse:[targetLine last]] ifFalse:[ string indexOfAnyOf: CharacterSet crlf startingAt: position ifAbsent:[string size + 1]]] forward: true event: aKeyboardEvent specialBlock:[:dummy | string size + 1]. ^true! Item was added: + ----- Method: TextEditor>>destructiveBackWord: (in category 'typing/selecting keys') ----- + destructiveBackWord: aKeyboardEvent + typeAhead isEmpty + ifTrue: [ super destructiveBackWord: aKeyboardEvent ] + ifFalse: [ typeAhead reset ]. + ^ false! Item was changed: ----- Method: TextEditor>>dispatchOnEnterWith: (in category 'typing support') ----- dispatchOnEnterWith: aKeyboardEvent "Enter key hit. Treat is as an 'accept', viz a synonym for cmd-s. If cmd key is down, treat is as a synonym for print-it. " aKeyboardEvent commandKeyPressed ifTrue: [self printIt.] ifFalse: + [self insertAndCloseTypeIn. - [self closeTypeIn. self accept]. ^ true! Item was changed: ----- Method: TextEditor>>dispatchOnKeyboardEvent: (in category 'typing support') ----- dispatchOnKeyboardEvent: aKeyboardEvent "Carry out the action associated with this character, if any. Type-ahead is passed so some routines can flush or use it." | honorCommandKeys openers closers result | (aKeyboardEvent keyCharacter == Character cr and: [ morph acceptOnCR ]) ifTrue: [ self closeTypeIn. ^ true ]. self clearParens. aKeyboardEvent keyValue = 13 ifTrue: [ aKeyboardEvent controlKeyPressed ifTrue: [ ^ self normalCharacter: aKeyboardEvent ]. aKeyboardEvent shiftPressed ifTrue: [ ^ self lf: aKeyboardEvent ]. aKeyboardEvent commandKeyPressed ifTrue: [ ^ self crlf: aKeyboardEvent ]. ^ self crWithIndent: aKeyboardEvent ]. ((honorCommandKeys := Preferences cmdKeysInText) and: [ aKeyboardEvent keyCharacter = Character enter ]) ifTrue: [ ^ self dispatchOnEnterWith: aKeyboardEvent ]. "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: aKeyboardEvent keyValue) and: [ aKeyboardEvent keyValue < 27 ]) ifTrue: [ ^ aKeyboardEvent controlKeyPressed ifTrue: [ self perform: (self class shiftCmdActions at: aKeyboardEvent keyValue + 1) with: aKeyboardEvent ] ifFalse: [ self perform: (self class cmdActions at: aKeyboardEvent keyValue + 1) with: aKeyboardEvent ] ]. "backspace, and escape keys (ascii 8 and 27) are command keys" ((honorCommandKeys and: [ aKeyboardEvent commandKeyPressed ]) or: [ self class specialShiftCmdKeys includes: aKeyboardEvent keyValue ]) ifTrue: [ ^ aKeyboardEvent shiftPressed ifTrue: [ self perform: (self class shiftCmdActions at: aKeyboardEvent keyValue + 1) with: aKeyboardEvent ] ifFalse: [ self perform: (self class cmdActions at: aKeyboardEvent keyValue + 1) with: aKeyboardEvent ] ]. "the control key can be used to invoke shift-cmd shortcuts" (honorCommandKeys and: [ aKeyboardEvent controlKeyPressed ]) + ifTrue: [ ^ self perform: (self class shiftCmdActions at: aKeyboardEvent keyValue + 1) with: aKeyboardEvent ]. - ifTrue: [^ self perform: (self class shiftCmdActions at: (aKeyboardEvent keyValue + 1)) with: aKeyboardEvent ]. openers := '([{'. closers := ')]}'. result := self normalCharacter: aKeyboardEvent. (closers includes: aKeyboardEvent keyCharacter) ifTrue: [ self blinkPrevParen: aKeyboardEvent ]. (self class autoEnclose and: [ openers includes: aKeyboardEvent keyCharacter ]) ifTrue: [ + self + addString: (closers at: (openers indexOf: aKeyboardEvent keyCharacter)) asString; + insertTypeAhead ; + + moveCursor: [ :position | position - 1 ] + forward: false + select: false ]. - markBlock := pointBlock. - self addString: (closers at: (openers indexOf: aKeyboardEvent keyCharacter)) asString. - markBlock := pointBlock. - self moveCursor: [ :position | position - 1 ] forward: false select: false "no special behavior" ]. ^ result! Item was changed: ----- Method: TextEditor>>doAgainMany: (in category 'typing/selecting keys') ----- doAgainMany: aKeyboardEvent "Do the previous thing again repeatedly. 1/26/96 sw" + self insertAndCloseTypeIn. - self closeTypeIn. self againOrSame: (UndoMessage sends: #undoAgain:andReselect:typedKey:) many: true. ^ true! Item was changed: ----- Method: TextEditor>>doAgainOnce: (in category 'typing/selecting keys') ----- doAgainOnce: aKeyboardEvent "Do the previous thing again once. 1/26/96 sw" + self insertAndCloseTypeIn. - self closeTypeIn. self again. ^ true! Item was changed: ----- Method: TextEditor>>exchange: (in category 'editing keys') ----- exchange: eKeyboardEvent "Exchange the current and prior selections. Keeps typeahead." + self insertAndCloseTypeIn. - self closeTypeIn. self exchange. ^true! Item was changed: ----- Method: TextEditor>>find: (in category 'typing/selecting keys') ----- find: aKeyboardEvent "Prompt the user for what to find, then find it, searching from the current selection onward. 1/24/96 sw" + self insertAndCloseTypeIn. - self closeTypeIn. self find. ^ true! Item was changed: ----- Method: TextEditor>>findAgain: (in category 'typing/selecting keys') ----- findAgain: aKeyboardEvent "Find the desired text again. 1/24/96 sw" + self insertAndCloseTypeIn. - self closeTypeIn. self againOrSame: true many: aKeyboardEvent shiftPressed. ^ true! Item was added: + ----- Method: TextEditor>>insertAndCloseTypeIn (in category 'typing support') ----- + insertAndCloseTypeIn + self + insertTypeAhead ; + closeTypeIn! Item was added: + ----- Method: TextEditor>>insertTypeAhead (in category 'typing support') ----- + insertTypeAhead + self typeAhead position = 0 ifFalse: + [self zapSelectionWith: (Text string: self typeAhead contents emphasis: emphasisHere). + self typeAhead reset. + self unselect]! Item was changed: ----- Method: TextEditor>>keyStroke: (in category 'events') ----- keyStroke: anEvent + self resetTypeAhead; deselect. - self deselect. (self dispatchOnKeyboardEvent: anEvent) ifTrue: [self doneTyping. self storeSelectionInParagraph. ^self]. self openTypeIn. self hasSelection ifTrue: [ "save highlighted characters" UndoSelection := self selection]. + self + zapSelectionWith: self typeAhead contents ; + resetTypeAhead ; + unselect ; + storeSelectionInParagraph! - markBlock := pointBlock. - self storeSelectionInParagraph! Item was changed: ----- Method: TextEditor>>offerFontMenu: (in category 'editing keys') ----- offerFontMenu: aKeyboardEvent "The user typed the command key that requests a font change; Offer the font menu. 5/27/96 sw" + self insertAndCloseTypeIn. - self closeTypeIn. self offerFontMenu. ^ true! Item was changed: ----- Method: TextEditor>>pasteInitials: (in category 'editing keys') ----- pasteInitials: aKeyboardEvent "Replace the current text selection by an authorship name/date stamp; invoked by cmd-shift-v, easy way to put an authorship stamp in the comments of an editor." + self insertAndCloseTypeIn. - self closeTypeIn. self replace: self selectionInterval with: (Text fromString: Utilities changeStamp) and: [self selectAt: self stopIndex]. ^ true! Item was changed: ----- Method: TextEditor>>querySymbol: (in category 'typing/selecting keys') ----- querySymbol: aKeyboardEvent "Invoked by Ctrl-q to query the Symbol table and display alternate symbols. See comment in completeSymbol:lastOffering: for details." + self insertAndCloseTypeIn. - self closeTypeIn. self hasCaret ifTrue: "Ctrl-q typed when a caret" [self perform: #completeSymbol:lastOffering: withArguments: ((UndoParagraph == paragraph and: [UndoMessage sends: #undoQuery:lastOffering:]) ifTrue: [UndoMessage arguments] "repeated Ctrl-q" ifFalse: [Array with: nil with: nil])] "initial Ctrl-q" ifFalse: "Ctrl-q typed when statements were highlighted" [morph flash]. ^true! Item was added: + ----- Method: TextEditor>>resetTypeAhead (in category 'private') ----- + resetTypeAhead + typeAhead := WriteStream on: (String new: 1)! Item was changed: ----- Method: TextEditor>>save: (in category 'editing keys') ----- save: aKeyboardEvent "Submit the current text. Equivalent to 'accept' 1/18/96 sw" + self insertAndCloseTypeIn. - self closeTypeIn. self accept. ^ true! Item was changed: ----- Method: TextEditor>>search: (in category 'typing/selecting keys') ----- search: aKeyboardEvent "Invoked by Ctrl-S. Same as 'again', but always uses the existing FindText and ChangeText regardless of the last edit." + self insertAndCloseTypeIn. - self closeTypeIn. self againOrSame: true "true means use same keys" many: aKeyboardEvent shiftPressed. ^true! Item was changed: ----- Method: TextEditor>>selectCurrentTypeIn: (in category 'nonediting/nontyping keys') ----- selectCurrentTypeIn: aKeyboardEvent "Select what would be replaced by an undo (e.g., the last typeIn)." | prior | + self insertAndCloseTypeIn. - self closeTypeIn. prior := otherInterval. + self insertAndCloseTypeIn. - self closeTypeIn. self selectInterval: UndoInterval. otherInterval := prior. ^ true! Item was changed: ----- Method: TextEditor>>setSearchString: (in category 'nonediting/nontyping keys') ----- setSearchString: aKeyboardEvent "Establish the current selection as the current search string." | aString | + self insertAndCloseTypeIn. - self closeTypeIn. self lineSelectAndEmptyCheck: [^ true]. aString := self selection string. aString size = 0 ifTrue: [self flash] ifFalse: [self setSearch: aString]. ^ true! Item was added: + ----- Method: TextEditor>>typeAhead (in category 'private') ----- + typeAhead + ^ typeAhead ifNil: + [ self resetTypeAhead. + typeAhead ]! Item was changed: ----- Method: TextEditor>>undo: (in category 'editing keys') ----- undo: aKeyboardEvent "Undo the last edit." + self insertAndCloseTypeIn. - self closeTypeIn. self undo. ^true! Item was added: + ----- Method: TextEditor>>unselect (in category 'accessing-selection') ----- + unselect + markBlock := pointBlock copy!

1 0

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

20 Aug '11

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2011-August/004936.html Name: Compiler-eem.213 Ancestors: Compiler-eem.212 Help exotic compiler writers by pointing out that bindBlockTemp: should not be used in BytecodeEncoder. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-August/004937.html Name: Morphic-jmg.569 Ancestors: Morphic-cmm.568 I use the method finder all the time so it didn't make sense to me that I could access the other tools from the World Docking Bar, but I had to use the World Menu to get to the method finder. I added an entry to the Docking Bar adding the method finder as an item to select. =============================================

1 0

Re: [squeak-dev] The Trunk: Morphic-jmg.569.mcz
by Edgar J. De Cleene 19 Aug '11

19 Aug '11

On 8/19/11 12:00 AM, "commits(a)source.squeak.org" <commits(a)source.squeak.org> wrote: > I use the method finder all the time so it didn't make sense to me that I > could access the other tools from the World Docking Bar, but I had to use the > World Menu to get to the method finder. I added an entry to the Docking Bar > adding the method finder as an item to select. This tool needs more good examples of use IMHO. If you have some, could share with the rest of us , please ? Edgar

1 0

Squeak/Pharo on touchscreen: requesting opinions
by Dimitry Golubovsky 19 Aug '11

19 Aug '11

Hi, As I am progressing through the Stack Cog port for Android (basically I can load a recent PharoCore or Squeak image althoug some stability issues still exist), I would like to collect opinions from prospective users, which is a better way to interact with Squeak (meaning Pharo and others as well) on a touch screen. 9" tabet screen is not much smaller than say EEE PC netbook's, so at 800x480 px resolution menus and other Squeak GUI elements are well readable, and can be easily pointed at with a stylus. So Squeak environment itself can be as well used even on my rather cheap device. Squeak requires a lot of mousing to interact. On an Android device, there is a touch screen, and possibly several hardware buttons. In the current implementation taps on the screen are treated as "red" clicks, and pressing one of hardware buttons prior to tapping the screen change click color just for one click: see this picture: http://wiki.squeakvm-tablet.googlecode.com/hg/pics/pdn-land.jpg That is, in order to get a context menu in Squeak, one has to press the "Yellow" hardware button (in PharoCore it is the "Blue" button), and then tap the screen; the menu appears. See the whole explanation at http://code.google.com/p/squeakvm-tablet/wiki/TestDrive This is how the classic (based on Andreas' code) Squeak VM port works now, and I have the same working in Stack Cog. Advantages of this method: it is close to the way traditional mobile applications interact. In a Squeak application, a Morph has to set proper handling of red button clicks in order to enable interaction with user. Morph drag can be done with one hand (however by a reason I could not explain, morphs disappear from the screen while being dragged, and reappear in new location only when tap is released). Disadvantages: current mouse position is unknown/invisible to the user, mouse over is impossible (hence no balloon help). Also due to high touchscreen sensitivity, holding a finger/stylus on the screen may generate many events within short period of time, since even one pixel change in touch position causes an event to be generated, and some involuntary finger movements always take place. Such frequently reported events may "choke" the interpreter, given the CPU is slow, and Android OS quickly kills it due to unresponsiveness. While I am trying to address these issues in various ways, there seems to be another way to interact via touchscreen. This method has not been implemented yet, and I would like to hear from the community whether it could be good to have. A mouse pointer is displayed as part of the activity interface (maybe even done entirely in Java, so mouse movement itself will not put any load on the interpreter). Finger movements on the screen move the pointer, but new position is reported (with button mask 0) only when the screen tap is released. So mouse over becomes possible: just leave the pointer where needed. The hardware buttons are used as before (one becomes Red, another Blue, and a chord would be Yellow), but clicks only are reported when those buttons are pressed or released*. To drag a Morph, one would have to hold one of the hardware buttons, and slide their finger/stylus on the screen. So this hypothetical mode is more like laptops' trackpads work. One obvious advantage of this method is less load on the interpreter in terms of the frequency of events, and hence greater stability, although less convenience. Again, to run an end-user application, the former mouse tracking method may be enabled. I am asking your opinion here (as much of opinion can be had about something only imaginary) - is the latter method worth implementing: would one like to use it if available? Thanks. ------------------------- * or long taps may be recognized as red clicks -- Dimitry Golubovsky Anywhere on the Web

3 2

The Trunk: Morphic-jmg.569.mcz
by commits＠source.squeak.org 19 Aug '11

19 Aug '11

Chris Muller uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-jmg.569.mcz ==================== Summary ==================== Name: Morphic-jmg.569 Author: jmg Time: 18 August 2011, 5:56:31.921 pm UUID: 7546291e-f540-c443-ba99-2baf056df166 Ancestors: Morphic-cmm.568 I use the method finder all the time so it didn't make sense to me that I could access the other tools from the World Docking Bar, but I had to use the World Menu to get to the method finder. I added an entry to the Docking Bar adding the method finder as an item to select. =============== Diff against Morphic-cmm.568 =============== Item was added: + ----- Method: TheWorldMainDockingBar>>methodFinderMenuItemOn: (in category 'submenu - tools') ----- + methodFinderMenuItemOn: menu + + menu addItem: [:item | + item + contents: 'Method Finder' translated; + help: 'Open the Method Finder' translated; + icon: (self colorIcon: Preferences methodFinderWindowColor); + target: StandardToolSet; + selector: #openSelectorBrowser]! Item was changed: ----- Method: TheWorldMainDockingBar>>toolsMenuOn: (in category 'construction') ----- toolsMenuOn: aDockingBar aDockingBar addItem: [ :item | item contents: 'Tools' translated; addSubMenu: [ :menu | self browserMenuItemOn: menu; workspaceMenuItemOn: menu; transcriptMenuItemOn: menu; + testRunnerMenuItemOn: menu; + methodFinderMenuItemOn: menu. - testRunnerMenuItemOn: menu. menu addLine. self monticelloBrowserMenuItemOn: menu; monticelloConfigurationsMenuItemOn: menu; simpleChangeSorterMenuItemOn: menu; dualChangeSorterMenuItemOn: menu. menu addLine. self processBrowserMenuItemOn: menu; preferenceBrowserMenuItemOn: menu; fileListMenuItemOn: menu. ] ]!

1 0

The Trunk: Compiler-eem.213.mcz
by commits＠source.squeak.org 19 Aug '11

19 Aug '11

Eliot Miranda uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-eem.213.mcz ==================== Summary ==================== Name: Compiler-eem.213 Author: eem Time: 18 August 2011, 5:45:08.905 pm UUID: 4168834b-c57f-477e-90ad-603e15b345c5 Ancestors: Compiler-eem.212 Help exotic compiler writers by pointing out that bindBlockTemp: should not be used in BytecodeEncoder. =============== Diff against Compiler-eem.212 =============== Item was added: + ----- Method: BytecodeEncoder>>bindBlockTemp: (in category 'temps') ----- + bindBlockTemp: name + "This shouldn't be used with BytecodeEncoder. Use bindBlockTemp:within: instead." + self shouldNotImplement!

1 0

The Inbox: Morphic-jmg.569.mcz
by commits＠source.squeak.org 19 Aug '11

19 Aug '11

A new version of Morphic was added to project The Inbox: http://source.squeak.org/inbox/Morphic-jmg.569.mcz ==================== Summary ==================== Name: Morphic-jmg.569 Author: jmg Time: 18 August 2011, 5:56:31.921 pm UUID: 7546291e-f540-c443-ba99-2baf056df166 Ancestors: Morphic-cmm.568 I use the method finder all the time so it didn't make sense to me that I could access the other tools from the World Docking Bar, but I had to use the World Menu to get to the method finder. I added an entry to the Docking Bar adding the method finder as an item to select. =============== Diff against Morphic-cmm.568 =============== Item was added: + ----- Method: TheWorldMainDockingBar>>methodFinderMenuItemOn: (in category 'submenu - tools') ----- + methodFinderMenuItemOn: menu + + menu addItem: [:item | + item + contents: 'Method Finder' translated; + help: 'Open the Method Finder' translated; + icon: (self colorIcon: Preferences methodFinderWindowColor); + target: StandardToolSet; + selector: #openSelectorBrowser]! Item was changed: ----- Method: TheWorldMainDockingBar>>toolsMenuOn: (in category 'construction') ----- toolsMenuOn: aDockingBar aDockingBar addItem: [ :item | item contents: 'Tools' translated; addSubMenu: [ :menu | self browserMenuItemOn: menu; workspaceMenuItemOn: menu; transcriptMenuItemOn: menu; + testRunnerMenuItemOn: menu; + methodFinderMenuItemOn: menu. - testRunnerMenuItemOn: menu. menu addLine. self monticelloBrowserMenuItemOn: menu; monticelloConfigurationsMenuItemOn: menu; simpleChangeSorterMenuItemOn: menu; dualChangeSorterMenuItemOn: menu. menu addLine. self processBrowserMenuItemOn: menu; preferenceBrowserMenuItemOn: menu; fileListMenuItemOn: menu. ] ]!

1 0

← Newer
1
2
3
4
5
6
7
8
9
...
18
Older →

Jump to page: