From VisualWorks®, 7.6 of February 1, 2008 on February 1, 2008 at 12:29:45 pm (Dialog confirm: 'You are filing-in a Parcel source file!\\While this is possible it will not have\the same effect as loading the parcel.\None of the Parcel''s prerequisites will\be loaded and none of its load actions\will be performed.\\Are you sure you want to file-in?' withCRs) ifFalse: [self error: 'Parcel file-in abandoned. Choose terminate or close.'] <methods> UI.ParagraphEditor <category>editing-functions</category>
backspaceKey: aCharEvent "Backspace over the last character--i.e., cut the previous character." | startIndex | self notePossibleBeginingOfTypeIn. self selectionStartIndex < self selectionStopIndex ifTrue: [self silentDelete] ifFalse: [startIndex := 1 max: self selectionStartIndex - 1. self selectionStartIndex: startIndex. self beginTypeInIndex: (self beginTypeInIndex min: startIndex). self replaceSelectionWith: Text new. view displayContents wordWrap ifFalse: [view placeSelectionPointAt: startIndex]]
</methods> <methods> UI.ParagraphEditor <category>private</category>
silentCut "Remove the current selection and place it in the paste buffer. Do not affect visual selection." self replaceSelectionWith: Text new.
silentDelete "Remove the current selection forever. Do not affect visual selection. Do not save the currentSelection" self replaceSelectionWith: Text new.
</methods> "Imported Classes:" self error: 'Attempting to file-in parcel imports. Choose terminate or close' <class> <name>ParagraphEditor</name> <environment>UI</environment> <super>UI.ControllerWithMenu</super> <private>false</private> none beginTypeInIndex anchorIndex emphasisHere dispatchTable charComposer textHasChanged feelPolicy supportCodeEditingFeels localMenuItems extendingDown <imports> private Graphics.TextConstants.* </imports> <category>UIBasics-Support</category> <attributes> <package>UIBasics-Support</package> </attributes> </class>