Packages November 2015

packages@lists.squeakfoundation.org

1 participants
228 discussions

The Trunk: Morphic-mt.1050.mcz
by commits＠source.squeak.org 20 Nov '15

20 Nov '15

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1050.mcz ==================== Summary ==================== Name: Morphic-mt.1050 Author: mt Time: 20 November 2015, 2:16:41.426 pm UUID: 188b4bcf-d1d3-4d41-a0dd-927519e120fb Ancestors: Morphic-mt.1049 Another update for indent/outdent after the suggestion from Levente and Chris. Indent only with TAB if multiple lines are selected. =============== Diff against Morphic-mt.1049 =============== 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 typedChar | typedChar := aKeyboardEvent keyCharacter. "Create a new command for separating characters." (Character separators includes: typedChar) ifTrue: [self closeTypeIn]. "Handle one-line input fields." (typedChar == Character cr and: [morph acceptOnCR]) ifTrue: [^ true]. "Clear highlight for last opened parenthesis." self clearParens. "Handle line breaks and auto indent." typedChar == Character cr ifTrue: [ aKeyboardEvent controlKeyPressed ifTrue: [^ self normalCharacter: aKeyboardEvent]. aKeyboardEvent shiftPressed ifTrue: [^ self lf: aKeyboardEvent]. aKeyboardEvent commandKeyPressed ifTrue: [^ self crlf: aKeyboardEvent]. ^ self crWithIndent: aKeyboardEvent]. "Handle indent/outdent with selected text block." + typedChar == Character tab ifTrue: [ + aKeyboardEvent shiftPressed + ifTrue: [self outdent: aKeyboardEvent. ^ true] + ifFalse: [self hasMultipleLinesSelected + ifTrue: [self indent: aKeyboardEvent. ^ true]]]. - ((typedChar == Character tab - and: [self hasSelection]) - and: [self isInWhitespaceAtStartOfLine]) ifTrue: [ - aKeyboardEvent shiftPressed - ifTrue: [self outdent: aKeyboardEvent] - ifFalse: [self indent: aKeyboardEvent]. - ^ true]. honorCommandKeys := Preferences cmdKeysInText. (honorCommandKeys and: [typedChar == 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]. "Automatically enclose paired characters such as brackets." self class autoEnclose ifTrue: [((self hasSelection and: [self enclose: aKeyboardEvent]) or: [self autoEncloseFor: typedChar]) ifTrue: [^ true]]. self normalCharacter: aKeyboardEvent. ^ false! Item was added: + ----- Method: TextEditor>>hasMultipleLinesSelected (in category 'typing support') ----- + hasMultipleLinesSelected + + ^ self hasSelection and: [self startBlock top < self stopBlock top]! Item was removed: - ----- Method: TextEditor>>isInWhitespaceAtStartOfLine (in category 'typing support') ----- - isInWhitespaceAtStartOfLine - - ^ (self selectionStringFromBeginningOfLine allSatisfy: [:c| c isSeparator]) - and: [self selection anySatisfy: [:c | c isSeparator not] "Ignore whitespace-only selections."]! Item was removed: - ----- Method: TextEditor>>selectionStringFromBeginningOfLine (in category 'accessing-selection') ----- - selectionStringFromBeginningOfLine - - ^ self paragraph string - copyFrom: (self beginningOfLine: self startIndex) to: self startIndex - 1!

1 0

The Trunk: Morphic-mt.1050.mcz
by commits＠source.squeak.org 20 Nov '15

20 Nov '15

1 0

The Trunk: Morphic-mt.1049.mcz
by commits＠source.squeak.org 20 Nov '15

20 Nov '15

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1049.mcz ==================== Summary ==================== Name: Morphic-mt.1049 Author: mt Time: 20 November 2015, 12:03:39.524 pm UUID: 5e8ed364-933c-4412-a21c-f9de5a0eead2 Ancestors: Morphic-kfr.1048 Fixes a bug with text selection and scrolling text boxes that have no soft line breaks. =============== Diff against Morphic-kfr.1048 =============== Item was changed: ----- Method: PluggableTextMorph>>scrollSelectionIntoView: (in category 'editor access') ----- scrollSelectionIntoView: event + "Scroll my text into view. Due to line composition mechanism, we must never use the right of a character block because the lines last character block right value always comes from a global container and is *not* line specific." + - "Scroll my text into view if necessary and return true, else return false" - | selRects rectToTest transform cpHere | selectionInterval := textMorph editor selectionInterval. + + textMorph editor hasSelection + ifFalse: [self scrollToShow: (textMorph editor startBlock withWidth: 1)] + ifTrue: [ + self scrollToShow: (textMorph editor startBlock topLeft corner: textMorph editor stopBlock bottomLeft). + self scrollToShow: (textMorph editor pointBlock withWidth: 1). "Ensure text cursor visibility."]. + - selRects := textMorph paragraph selectionRects. - selRects isEmpty ifTrue: [^ false]. - rectToTest := selRects reduce: [:r1 :r2 | r1 quickMerge: r2]. - transform := scroller transformFrom: self. - (event notNil and: [event anyButtonPressed]) ifTrue: "Check for autoscroll" - [cpHere := transform localPointToGlobal: event cursorPoint. - cpHere y <= self top - ifTrue: [rectToTest := selRects first topLeft extent: 2@2] - ifFalse: [cpHere y >= self bottom - ifTrue: [rectToTest := selRects last bottomRight extent: 2@2] - ifFalse: [^ false]]]. - self scrollToShow: rectToTest. - self scrollToShow: textMorph editor pointBlock. "Ensure text cursor visibility." ^ true! Item was changed: ----- Method: PluggableTextMorph>>setSelection: (in category 'model access') ----- setSelection: sel selectionInterval := sel. textMorph editor selectFrom: sel first to: sel last. + self scrollSelectionIntoView.! - self scrollSelectionIntoView ifFalse: [scroller changed].! Item was changed: ----- Method: TextMorph>>container (in category 'geometry') ----- container "Return the container for composing this text. There are four cases: 1. container is specified as, eg, an arbitrary shape, 2. container is specified as the bound rectangle, because this morph is linked to others, 3. container is nil, and wrap is true -- grow downward as necessary, + 4. container is nil, and wrap is false -- grow in 2D as necessary." - 4. container is nil, and wrap is false -- grow in 2D as nexessary." container ifNil: [successor ifNotNil: [^ self compositionRectangle]. + wrapFlag ifTrue: [^ self compositionRectangle withHeight: self maximumContainerExtent y]. + ^ self compositionRectangle topLeft extent: self maximumContainerExtent]. - wrapFlag ifTrue: [^ self compositionRectangle withHeight: 9999999]. - ^ self compositionRectangle topLeft extent: 9999999@9999999]. ^ container! Item was added: + ----- Method: TextMorph>>maximumContainerExtent (in category 'geometry') ----- + maximumContainerExtent + "For text composition. Returns the maximum area for text to be composed." + + ^ 9999999@9999999!

1 0

The Trunk: Morphic-mt.1049.mcz
by commits＠source.squeak.org 20 Nov '15

20 Nov '15

1 0

The Trunk: Morphic-kfr.1048.mcz
by commits＠source.squeak.org 19 Nov '15

19 Nov '15

Karl Ramberg uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-kfr.1048.mcz ==================== Summary ==================== Name: Morphic-kfr.1048 Author: kfr Time: 19 November 2015, 9:00:00.723 pm UUID: 63b86f93-377e-4fb1-a338-3968d13dce13 Ancestors: Morphic-mt.1047 ProgressMorph and ProgressBarMorph are not used as widgets. Moved to MorphicExtras-Obsolete =============== Diff against Morphic-mt.1047 =============== Item was removed: - BorderedMorph subclass: #ProgressBarMorph - instanceVariableNames: 'value progressColor lastValue' - classVariableNames: '' - poolDictionaries: '' - category: 'Morphic-Widgets'! Item was removed: - ----- Method: ProgressBarMorph>>addCustomMenuItems:hand: (in category 'menu') ----- - addCustomMenuItems: aCustomMenu hand: aHandMorph - super addCustomMenuItems: aCustomMenu hand: aHandMorph. - aCustomMenu addList: { - {'progress color...' translated. #changeProgressColor:}. - {'progress value...' translated. #changeProgressValue:}. - }! Item was removed: - ----- Method: ProgressBarMorph>>changeProgressColor: (in category 'menu') ----- - changeProgressColor: evt - | aHand | - aHand := evt ifNotNil: [evt hand] ifNil: [self primaryHand]. - self changeColorTarget: self selector: #progressColor: originalColor: self progressColor hand: aHand.! Item was removed: - ----- Method: ProgressBarMorph>>changeProgressValue: (in category 'menu') ----- - changeProgressValue: evt - | answer | - answer := UIManager default - request: 'Enter new value (0 - 1.0)' - initialAnswer: self value contents asString. - answer isEmptyOrNil ifTrue: [^ self]. - self value contents: answer asNumber! Item was removed: - ----- Method: ProgressBarMorph>>drawOn: (in category 'drawing') ----- - drawOn: aCanvas - | width inner | - super drawOn: aCanvas. - inner := self innerBounds. - width := (inner width * lastValue) truncated min: inner width. - aCanvas fillRectangle: (inner origin extent: width @ inner height) color: progressColor.! Item was removed: - ----- Method: ProgressBarMorph>>initialize (in category 'initialization') ----- - initialize - super initialize. - progressColor := Color green. - self value: (ValueHolder new contents: 0.0). - lastValue := 0.0! Item was removed: - ----- Method: ProgressBarMorph>>progressColor (in category 'accessing') ----- - progressColor - ^progressColor! Item was removed: - ----- Method: ProgressBarMorph>>progressColor: (in category 'accessing') ----- - progressColor: aColor - progressColor = aColor - ifFalse: - [progressColor := aColor. - self changed]! Item was removed: - ----- Method: ProgressBarMorph>>update: (in category 'updating') ----- - update: aSymbol - aSymbol == #contents - ifTrue: - [lastValue := value contents. - self changed]! Item was removed: - ----- Method: ProgressBarMorph>>value (in category 'accessing') ----- - value - ^value! Item was removed: - ----- Method: ProgressBarMorph>>value: (in category 'accessing') ----- - value: aModel - value ifNotNil: [value removeDependent: self]. - value := aModel. - value ifNotNil: [value addDependent: self]! Item was removed: - RectangleMorph subclass: #ProgressMorph - instanceVariableNames: 'labelMorph subLabelMorph progress' - classVariableNames: '' - poolDictionaries: '' - category: 'Morphic-Widgets'! Item was removed: - ----- Method: ProgressMorph class>>example (in category 'example') ----- - example - "ProgressMorph example" - - | progress | - progress := ProgressMorph label: 'Test progress'. - progress subLabel: 'this is the subheading'. - progress openInWorld. - [10 timesRepeat: - [(Delay forMilliseconds: 200) wait. - progress incrDone: 0.1]. - progress delete] fork! Item was removed: - ----- Method: ProgressMorph class>>label: (in category 'instance creation') ----- - label: aString - ^self new label: aString! Item was removed: - ----- Method: ProgressMorph>>done (in category 'accessing') ----- - done - ^self progress value contents! Item was removed: - ----- Method: ProgressMorph>>done: (in category 'accessing') ----- - done: amountDone - self progress value contents: ((amountDone min: 1.0) max: 0.0). - self currentWorld displayWorld! Item was removed: - ----- Method: ProgressMorph>>fontOfPointSize: (in category 'private') ----- - fontOfPointSize: size - ^ (TextConstants at: Preferences standardEToysFont familyName ifAbsent: [TextStyle default]) fontOfPointSize: size! Item was removed: - ----- Method: ProgressMorph>>incrDone: (in category 'accessing') ----- - incrDone: incrDone - self done: self done + incrDone! Item was removed: - ----- Method: ProgressMorph>>initLabelMorph (in category 'initialization') ----- - initLabelMorph - ^ labelMorph := StringMorph contents: '' font: (self fontOfPointSize: 14)! Item was removed: - ----- Method: ProgressMorph>>initProgressMorph (in category 'initialization') ----- - initProgressMorph - progress := ProgressBarMorph new. - progress borderWidth: 1. - progress color: Color white. - progress progressColor: Color gray. - progress extent: 200 @ 15. - ! Item was removed: - ----- Method: ProgressMorph>>initSubLabelMorph (in category 'initialization') ----- - initSubLabelMorph - ^ subLabelMorph := StringMorph contents: '' font: (self fontOfPointSize: 12)! Item was removed: - ----- Method: ProgressMorph>>initialize (in category 'initialization') ----- - initialize - super initialize. - self setupMorphs! Item was removed: - ----- Method: ProgressMorph>>label (in category 'accessing') ----- - label - ^self labelMorph contents! Item was removed: - ----- Method: ProgressMorph>>label: (in category 'accessing') ----- - label: aString - self labelMorph contents: aString. - self currentWorld displayWorld! Item was removed: - ----- Method: ProgressMorph>>labelMorph (in category 'private') ----- - labelMorph - ^labelMorph ifNil: [self initLabelMorph]! Item was removed: - ----- Method: ProgressMorph>>progress (in category 'accessing') ----- - progress - ^progress ifNil: [self initProgressMorph]! Item was removed: - ----- Method: ProgressMorph>>setupMorphs (in category 'initialization') ----- - setupMorphs - | | - self initProgressMorph. - self - layoutPolicy: TableLayout new; - listDirection: #topToBottom; - cellPositioning: #topCenter; - listCentering: #center; - hResizing: #shrinkWrap; - vResizing: #shrinkWrap; - color: Color transparent. - - self addMorphBack: self labelMorph. - self addMorphBack: self subLabelMorph. - self addMorphBack: self progress. - - self borderWidth: 2. - self borderColor: Color black. - - self color: Color veryLightGray. - self align: self fullBounds center with: Display boundingBox center - ! Item was removed: - ----- Method: ProgressMorph>>subLabel (in category 'accessing') ----- - subLabel - ^self subLabelMorph contents! Item was removed: - ----- Method: ProgressMorph>>subLabel: (in category 'accessing') ----- - subLabel: aString - self subLabelMorph contents: aString. - self currentWorld displayWorld! Item was removed: - ----- Method: ProgressMorph>>subLabelMorph (in category 'private') ----- - subLabelMorph - ^subLabelMorph ifNil: [self initSubLabelMorph]!

1 0

The Trunk: Morphic-kfr.1048.mcz
by commits＠source.squeak.org 19 Nov '15

19 Nov '15

1 0

The Trunk: MorphicExtras-kfr.167.mcz
by commits＠source.squeak.org 19 Nov '15

19 Nov '15

Karl Ramberg uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-kfr.167.mcz ==================== Summary ==================== Name: MorphicExtras-kfr.167 Author: kfr Time: 19 November 2015, 8:55:15.765 pm UUID: d101e159-825d-4c86-a582-8bd22029b3bf Ancestors: MorphicExtras-mt.166 ProgressMorph and ProgressBarMorph are not used as widgets. Moved to MorphicExtras-Obsolete =============== Diff against MorphicExtras-mt.166 =============== Item was added: + BorderedMorph subclass: #ProgressBarMorph + instanceVariableNames: 'value progressColor lastValue' + classVariableNames: '' + poolDictionaries: '' + category: 'MorphicExtras-Obsolete'! Item was added: + ----- Method: ProgressBarMorph>>addCustomMenuItems:hand: (in category 'menu') ----- + addCustomMenuItems: aCustomMenu hand: aHandMorph + super addCustomMenuItems: aCustomMenu hand: aHandMorph. + aCustomMenu addList: { + {'progress color...' translated. #changeProgressColor:}. + {'progress value...' translated. #changeProgressValue:}. + }! Item was added: + ----- Method: ProgressBarMorph>>changeProgressColor: (in category 'menu') ----- + changeProgressColor: evt + | aHand | + aHand := evt ifNotNil: [evt hand] ifNil: [self primaryHand]. + self changeColorTarget: self selector: #progressColor: originalColor: self progressColor hand: aHand.! Item was added: + ----- Method: ProgressBarMorph>>changeProgressValue: (in category 'menu') ----- + changeProgressValue: evt + | answer | + answer := UIManager default + request: 'Enter new value (0 - 1.0)' + initialAnswer: self value contents asString. + answer isEmptyOrNil ifTrue: [^ self]. + self value contents: answer asNumber! Item was added: + ----- Method: ProgressBarMorph>>drawOn: (in category 'drawing') ----- + drawOn: aCanvas + | width inner | + super drawOn: aCanvas. + inner := self innerBounds. + width := (inner width * lastValue) truncated min: inner width. + aCanvas fillRectangle: (inner origin extent: width @ inner height) color: progressColor.! Item was added: + ----- Method: ProgressBarMorph>>initialize (in category 'initialization') ----- + initialize + super initialize. + progressColor := Color green. + self value: (ValueHolder new contents: 0.0). + lastValue := 0.0! Item was added: + ----- Method: ProgressBarMorph>>progressColor (in category 'accessing') ----- + progressColor + ^progressColor! Item was added: + ----- Method: ProgressBarMorph>>progressColor: (in category 'accessing') ----- + progressColor: aColor + progressColor = aColor + ifFalse: + [progressColor := aColor. + self changed]! Item was added: + ----- Method: ProgressBarMorph>>update: (in category 'updating') ----- + update: aSymbol + aSymbol == #contents + ifTrue: + [lastValue := value contents. + self changed]! Item was added: + ----- Method: ProgressBarMorph>>value (in category 'accessing') ----- + value + ^value! Item was added: + ----- Method: ProgressBarMorph>>value: (in category 'accessing') ----- + value: aModel + value ifNotNil: [value removeDependent: self]. + value := aModel. + value ifNotNil: [value addDependent: self]! Item was added: + RectangleMorph subclass: #ProgressMorph + instanceVariableNames: 'labelMorph subLabelMorph progress' + classVariableNames: '' + poolDictionaries: '' + category: 'MorphicExtras-Obsolete'! Item was added: + ----- Method: ProgressMorph class>>example (in category 'example') ----- + example + "ProgressMorph example" + + | progress | + progress := ProgressMorph label: 'Test progress'. + progress subLabel: 'this is the subheading'. + progress openInWorld. + [10 timesRepeat: + [(Delay forMilliseconds: 200) wait. + progress incrDone: 0.1]. + progress delete] fork! Item was added: + ----- Method: ProgressMorph class>>label: (in category 'instance creation') ----- + label: aString + ^self new label: aString! Item was added: + ----- Method: ProgressMorph>>done (in category 'accessing') ----- + done + ^self progress value contents! Item was added: + ----- Method: ProgressMorph>>done: (in category 'accessing') ----- + done: amountDone + self progress value contents: ((amountDone min: 1.0) max: 0.0). + self currentWorld displayWorld! Item was added: + ----- Method: ProgressMorph>>fontOfPointSize: (in category 'private') ----- + fontOfPointSize: size + ^ (TextConstants at: Preferences standardEToysFont familyName ifAbsent: [TextStyle default]) fontOfPointSize: size! Item was added: + ----- Method: ProgressMorph>>incrDone: (in category 'accessing') ----- + incrDone: incrDone + self done: self done + incrDone! Item was added: + ----- Method: ProgressMorph>>initLabelMorph (in category 'initialization') ----- + initLabelMorph + ^ labelMorph := StringMorph contents: '' font: (self fontOfPointSize: 14)! Item was added: + ----- Method: ProgressMorph>>initProgressMorph (in category 'initialization') ----- + initProgressMorph + progress := ProgressBarMorph new. + progress borderWidth: 1. + progress color: Color white. + progress progressColor: Color gray. + progress extent: 200 @ 15. + ! Item was added: + ----- Method: ProgressMorph>>initSubLabelMorph (in category 'initialization') ----- + initSubLabelMorph + ^ subLabelMorph := StringMorph contents: '' font: (self fontOfPointSize: 12)! Item was added: + ----- Method: ProgressMorph>>initialize (in category 'initialization') ----- + initialize + super initialize. + self setupMorphs! Item was added: + ----- Method: ProgressMorph>>label (in category 'accessing') ----- + label + ^self labelMorph contents! Item was added: + ----- Method: ProgressMorph>>label: (in category 'accessing') ----- + label: aString + self labelMorph contents: aString. + self currentWorld displayWorld! Item was added: + ----- Method: ProgressMorph>>labelMorph (in category 'private') ----- + labelMorph + ^labelMorph ifNil: [self initLabelMorph]! Item was added: + ----- Method: ProgressMorph>>progress (in category 'accessing') ----- + progress + ^progress ifNil: [self initProgressMorph]! Item was added: + ----- Method: ProgressMorph>>setupMorphs (in category 'initialization') ----- + setupMorphs + | | + self initProgressMorph. + self + layoutPolicy: TableLayout new; + listDirection: #topToBottom; + cellPositioning: #topCenter; + listCentering: #center; + hResizing: #shrinkWrap; + vResizing: #shrinkWrap; + color: Color transparent. + + self addMorphBack: self labelMorph. + self addMorphBack: self subLabelMorph. + self addMorphBack: self progress. + + self borderWidth: 2. + self borderColor: Color black. + + self color: Color veryLightGray. + self align: self fullBounds center with: Display boundingBox center + ! Item was added: + ----- Method: ProgressMorph>>subLabel (in category 'accessing') ----- + subLabel + ^self subLabelMorph contents! Item was added: + ----- Method: ProgressMorph>>subLabel: (in category 'accessing') ----- + subLabel: aString + self subLabelMorph contents: aString. + self currentWorld displayWorld! Item was added: + ----- Method: ProgressMorph>>subLabelMorph (in category 'private') ----- + subLabelMorph + ^subLabelMorph ifNil: [self initSubLabelMorph]!

1 0

The Trunk: MorphicExtras-kfr.167.mcz
by commits＠source.squeak.org 19 Nov '15

19 Nov '15

1 0

The Trunk: Morphic-mt.1047.mcz
by commits＠source.squeak.org 19 Nov '15

19 Nov '15

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1047.mcz ==================== Summary ==================== Name: Morphic-mt.1047 Author: mt Time: 19 November 2015, 10:25:04.425 am UUID: f799616d-945d-4e5e-975d-9b03a1b2c9ba Ancestors: Morphic-mt.1046 Makes intent/outdent via TAB resp. SHIFT+TAB more robust and fixes some bugs like replacing whitespace-only selections with tabs or indenting a block where the selection starts before the first character in a line. =============== Diff against Morphic-mt.1046 =============== 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 typedChar | typedChar := aKeyboardEvent keyCharacter. "Create a new command for separating characters." (Character separators includes: typedChar) ifTrue: [self closeTypeIn]. "Handle one-line input fields." (typedChar == Character cr and: [morph acceptOnCR]) ifTrue: [^ true]. "Clear highlight for last opened parenthesis." self clearParens. "Handle line breaks and auto indent." typedChar == Character cr ifTrue: [ aKeyboardEvent controlKeyPressed ifTrue: [^ self normalCharacter: aKeyboardEvent]. aKeyboardEvent shiftPressed ifTrue: [^ self lf: aKeyboardEvent]. aKeyboardEvent commandKeyPressed ifTrue: [^ self crlf: aKeyboardEvent]. ^ self crWithIndent: aKeyboardEvent]. "Handle indent/outdent with selected text block." + ((typedChar == Character tab + and: [self hasSelection]) + and: [self isInWhitespaceAtStartOfLine]) ifTrue: [ + aKeyboardEvent shiftPressed + ifTrue: [self outdent: aKeyboardEvent] + ifFalse: [self indent: aKeyboardEvent]. + ^ true]. - (typedChar == Character tab and: [self isInWhitespaceAtStartOfLine]) ifTrue: [ - aKeyboardEvent shiftPressed - ifTrue: [self outdent: aKeyboardEvent] - ifFalse: [self indent: aKeyboardEvent]. - ^ true]. honorCommandKeys := Preferences cmdKeysInText. (honorCommandKeys and: [typedChar == 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]. "Automatically enclose paired characters such as brackets." self class autoEnclose ifTrue: [((self hasSelection and: [self enclose: aKeyboardEvent]) or: [self autoEncloseFor: typedChar]) ifTrue: [^ true]]. self normalCharacter: aKeyboardEvent. ^ false! Item was changed: ----- Method: TextEditor>>isInWhitespaceAtStartOfLine (in category 'typing support') ----- isInWhitespaceAtStartOfLine + + ^ (self selectionStringFromBeginningOfLine allSatisfy: [:c| c isSeparator]) + and: [self selection anySatisfy: [:c | c isSeparator not] "Ignore whitespace-only selections."]! - ^self selectionStringFromBeginningOfLine allSatisfy: [:c| c isSeparator]! Item was changed: ----- Method: TextEditor>>selectionStringFromBeginningOfLine (in category 'accessing-selection') ----- selectionStringFromBeginningOfLine + + ^ self paragraph string + copyFrom: (self beginningOfLine: self startIndex) to: self startIndex - 1! - ^paragraph string copyFrom: (self beginningOfLine: self startBlock stringIndex) to: (self startBlock stringIndex min: paragraph string size)!

1 0

The Trunk: Morphic-mt.1047.mcz
by commits＠source.squeak.org 19 Nov '15

19 Nov '15

1 0

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

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages November 2015