Packages August 2011

packages@lists.squeakfoundation.org

1 participants
171 discussions

The Trunk: Kernel-nice.613.mcz
by commits＠source.squeak.org 28 Aug '11

28 Aug '11

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.613.mcz ==================== Summary ==================== Name: Kernel-nice.613 Author: nice Time: 29 August 2011, 12:20:33.523 am UUID: c5ac2f0a-3419-41d9-a4e5-0331ff55467d Ancestors: Kernel-cmm.612 Don't provide separate setters for Complex #real: and #imaginary: parts. Instead, provide a single #real:imaginary: initializer, that's faster and safer (like Magnitude, Complex numbers might be shared and it would be dangerous to modify a Complex in place). =============== Diff against Kernel-cmm.612 =============== Item was changed: ----- Method: Complex class>>real:imaginary: (in category 'instance creation') ----- real: aNumber1 imaginary: aNumber2 + ^self basicNew real: aNumber1 imaginary: aNumber2! - | newComplex | - newComplex := super new. - newComplex - real: aNumber1; - imaginary: aNumber2. - ^ newComplex! Item was removed: - ----- Method: Complex>>imaginary: (in category 'private') ----- - imaginary: aNumber - imaginary := aNumber.! Item was removed: - ----- Method: Complex>>real: (in category 'private') ----- - real: aNumber - real := aNumber.! Item was added: + ----- Method: Complex>>real:imaginary: (in category 'private') ----- + real: aNumber1 imaginary: aNumber2 + "Private - initialize the real and imaginary parts of a Complex" + real := aNumber1. + imaginary := aNumber2.!

1 0

The Trunk: Kernel-nice.613.mcz
by commits＠source.squeak.org 28 Aug '11

28 Aug '11

1 0

The Trunk: Kernel-nice.613.mcz
by commits＠source.squeak.org 28 Aug '11

28 Aug '11

1 0

The Trunk: MonticelloConfigurations-dtl.98.mcz
by commits＠source.squeak.org 21 Aug '11

21 Aug '11

David T. Lewis uploaded a new version of MonticelloConfigurations to project The Trunk: http://source.squeak.org/trunk/MonticelloConfigurations-dtl.98.mcz ==================== Summary ==================== Name: MonticelloConfigurations-dtl.98 Author: dtl Time: 21 August 2011, 1:23:49.864 pm UUID: 0a3ef28c-0cbb-4dd2-9a08-3923a305d67e Ancestors: MonticelloConfigurations-cmm.97 A configuration should not copy files into a target repository without knowledge or permission of the user. Revert prior changes until a safer implementation is proposed. =============== Diff against MonticelloConfigurations-cmm.97 =============== Item was changed: ----- Method: MCConfigurationBrowser>>checkDependencies (in category 'dependencies') ----- checkDependencies + ^self checkModified and: [self checkMissing]! - | missing | - missing := (self dependencies collect: - [ : ea | ea versionInfo name ]) asSet. - self repositories do: - [ : eachRepository | eachRepository cacheAllFileNamesDuring: - [ missing copy do: - [ : eachVersionName | (eachRepository includesVersionNamed: eachVersionName) ifTrue: [ missing remove: eachVersionName ] ] ] ]. - ^ missing isEmpty or: - [ self selectDependency: missing anyOne. - self confirm: - (String streamContents: - [ : strm | strm - nextPutAll: 'No repository found for' ; - cr. - missing do: - [ : r | strm - nextPutAll: r ; - cr ]. - strm nextPutAll: 'Do you still want to store?' ]) ]! Item was added: + ----- Method: MCConfigurationBrowser>>checkMissing (in category 'dependencies') ----- + checkMissing + | missing | + missing := (self dependencies collect: + [ : ea | ea versionInfo name ]) asSet. + self repositories do: + [ : eachRepository | eachRepository cacheAllFileNamesDuring: + [ missing copy do: + [ : eachVersionName | (eachRepository includesVersionNamed: eachVersionName) ifTrue: [ missing remove: eachVersionName ] ] ] ]. + ^ missing isEmpty or: + [ self selectDependency: missing anyOne. + self confirm: + (String streamContents: + [ : strm | strm + nextPutAll: 'No repository found for' ; + cr. + missing do: + [ : r | strm + nextPutAll: r ; + cr ]. + strm nextPutAll: 'Do you still want to store?' ]) ]! Item was changed: ----- Method: MCConfigurationBrowser>>store (in category 'actions') ----- store + (self checkRepositories and: [self checkDependencies]) ifFalse: [^self]. + self pickName ifNotNil: [:name | + self configuration name: name. + self pickRepository ifNotNil: [:repo | + repo storeVersion: self configuration]].! - (self checkRepositories and: [ self checkDependencies ]) ifFalse: [ ^ self ]. - self pickName ifNotNil: - [ : name | self configuration name: name. - self pickRepository ifNotNil: - [ : repo | repo cacheAllFileNamesDuring: - [ self configuration dependencies do: - [ : each | repo - versionWithInfo: each versionInfo - ifAbsent: [ repo storeVersion: (MCRepositoryGroup default versionWithInfo: each versionInfo) ] ] ]. - repo storeVersion: self configuration ] ]!

1 0

The Trunk: MonticelloConfigurations-dtl.98.mcz
by commits＠source.squeak.org 21 Aug '11

21 Aug '11

1 0

The Trunk: MonticelloConfigurations-dtl.98.mcz
by commits＠source.squeak.org 21 Aug '11

21 Aug '11

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.571.mcz
by commits＠source.squeak.org 20 Aug '11

20 Aug '11

1 0

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

20 Aug '11

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

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages August 2011