'From Squeak3.9alpha of ''2 November 2004'' [latest update: #6532] on 7 December 2004 at 3:50:30 pm'! "Change Set: KCPrmCharRecog Date: 4 December 2004 Author: stéphane ducasse remove CharRecog from the system. I published it on squeaksource for the archeologists."! !ParagraphEditor class methodsFor: 'class initialization' stamp: 'sd 12/4/2004 22:14'! shiftedYellowButtonMenu "Answer the menu to be presented when the yellow button is pressed while the shift key is down" ^ SelectionMenu fromArray: { {'set font... (k)' translated. #offerFontMenu}. {'set style... (K)' translated. #changeStyle}. {'set alignment...' translated. #chooseAlignment}. #-. {'explain' translated. #explain}. {'pretty print' translated. #prettyPrint}. {'pretty print with color' translated. #prettyPrintWithColor}. {'file it in (G)' translated. #fileItIn}. {'tiles from it' translated. #selectionAsTiles}. {'spawn (o)' translated. #spawn}. #-. {'definition of word' translated. #wordDefinition}. {'verify spelling of word' translated. #verifyWordSpelling}. {'translate it' translated. #translateIt}. {'choose language' translated. #languagePrefs}. #-. {'browse it (b)' translated. #browseIt}. {'senders of it (n)' translated. #sendersOfIt}. {'implementors of it (m)' translated. #implementorsOfIt}. {'references to it (N)' translated. #referencesToIt}. #-. {'selectors containing it (W)' translated. #methodNamesContainingIt}. {'method strings with it (E)' translated. #methodStringsContainingit}. {'method source with it' translated. #methodSourceContainingIt}. {'class names containing it' translated. #classNamesContainingIt}. {'class comments with it' translated. #classCommentsContainingIt}. {'change sets with it' translated. #browseChangeSetsWithSelector}. #-. {'save contents to file...' translated. #saveContentsInFile}. {'send contents to printer' translated. #sendContentsToPrinter}. {'printer setup' translated. #printerSetup}. #-. {'special menu...' translated. #presentSpecialMenu}. {'more...' translated. #yellowButtonActivity}. } ! ! !ParagraphEditor class methodsFor: 'keyboard shortcut tables' stamp: 'sd 12/4/2004 22:16'! initializeCmdKeyShortcuts "Initialize the (unshifted) command-key (or alt-key) shortcut table." "NOTE: if you don't know what your keyboard generates, use Sensor kbdTest" "ParagraphEditor initialize" | cmdMap cmds | cmdMap := Array new: 256 withAll: #noop:. "use temp in case of a crash" cmdMap at: 1 + 1 put: #cursorHome:. "home key" cmdMap at: 4 + 1 put: #cursorEnd:. "end key" cmdMap at: 8 + 1 put: #backspace:. "ctrl-H or delete key" cmdMap at: 11 + 1 put: #cursorPageUp:. "page up key" cmdMap at: 12 + 1 put: #cursorPageDown:. "page down key" cmdMap at: 13 + 1 put: #crWithIndent:. "cmd-Return" cmdMap at: 27 + 1 put: #offerMenuFromEsc:. "escape key" cmdMap at: 28 + 1 put: #cursorLeft:. "left arrow key" cmdMap at: 29 + 1 put: #cursorRight:. "right arrow key" cmdMap at: 30 + 1 put: #cursorUp:. "up arrow key" cmdMap at: 31 + 1 put: #cursorDown:. "down arrow key" cmdMap at: 32 + 1 put: #selectWord:. "space bar key" cmdMap at: 127 + 1 put: #forwardDelete:. "del key" '0123456789-=' do: [:char | cmdMap at: char asciiValue + 1 put: #changeEmphasis:]. '([{''"<' do: [:char | cmdMap at: char asciiValue + 1 put: #enclose:]. cmdMap at: $, asciiValue + 1 put: #shiftEnclose:. cmds := #($a #selectAll: $b #browseIt: $c #copySelection: $d #doIt: $e #exchange: $f #find: $g #findAgain: $h #setSearchString: $i #inspectIt: $j #doAgainOnce: $k #offerFontMenu: $l #cancel: $m #implementorsOfIt: $n #sendersOfIt: $o #spawnIt: $p #printIt: $q #querySymbol: $s #save: $t #tempCommand: $u #align: $v #paste: $w #backWord: $x #cut: $y #swapChars: $z #undo:). 1 to: cmds size by: 2 do: [:i | cmdMap at: (cmds at: i) asciiValue + 1 put: (cmds at: i + 1)]. CmdActions := cmdMap! ! !SystemDictionary methodsFor: 'shrinking' stamp: 'sd 12/4/2004 22:17'! discardOddsAndEnds "This method throws out lots of classes that are not frequently used." "Smalltalk discardOddsAndEnds" self organization removeSystemCategory: 'System-Serial Port'. self organization removeSystemCategory: 'ST80-Symbols'. self organization removeSystemCategory: 'Tools-File Contents Browser'. self organization removeSystemCategory: 'System-Compression'. self organization removeSystemCategory: 'Tools-Explorer'. self organization removeSystemCategory: 'System-Digital Signatures'. Form removeSelector: #edit. self at: #FormView ifPresent: [:c | c compile: 'defaultControllerClass ^ NoController' classified: 'controller access']. self removeClassNamed: #FormEditorView. self removeClassNamed: #FormEditor. self organization removeSystemCategory: 'ST80-Paths'. "bit editor (remove Form editor first):" Form removeSelector: #bitEdit. Form removeSelector: #bitEditAt:scale:. StrikeFont removeSelector: #edit:. self removeClassNamed: #FormButtonCache. self removeClassNamed: #FormMenuController. self removeClassNamed: #FormMenuView. self removeClassNamed: #BitEditor. "inspector for Dictionaries of Forms" Dictionary removeSelector: #inspectFormsWithLabel:. SystemDictionary removeSelector: #viewImageImports. ScreenController removeSelector: #viewImageImports. self removeClassNamed: #FormHolderView. self removeClassNamed: #FormInspectView. "experimental updating object viewer:" Object removeSelector: #evaluate:wheneverChangeIn:. self removeClassNamed: #ObjectViewer. self removeClassNamed: #ObjectTracer. "miscellaneous classes:" self removeClassNamed: #Array2D. self removeClassNamed: #DriveACar. self removeClassNamed: #EventRecorder. self removeClassNamed: #FindTheLight. self removeClassNamed: #PluggableTest. self removeClassNamed: #SystemMonitor. self removeClassNamed: #DocLibrary. self removeClassNamed: #ProtocolBrowser. self removeClassNamed: #ObjectExplorerWrapper. self removeClassNamed: #HierarchyBrowser. self removeClassNamed: #LinkedMessageSet. self removeClassNamed: #ObjectExplorer. self removeClassNamed: #PackageBrowser. self removeClassNamed: #AbstractHierarchicalList. self removeClassNamed: #ChangeList. self removeClassNamed: #VersionsBrowser. self removeClassNamed: #ChangeRecord. self removeClassNamed: #SelectorBrowser. self removeClassNamed: #HtmlFileStream. self removeClassNamed: #CrLfFileStream. self removeClassNamed: #FXGrafPort. self removeClassNamed: #FXBlt. self at: #SampledSound ifPresent: [:c | c initialize]. #(#Helvetica #Palatino #Courier #ComicBold #ComicPlain ) do: [:k | TextConstants removeKey: k ifAbsent: []]. Preferences setButtonFontTo: (StrikeFont familyName: #NewYork size: 12). Preferences setFlapsFontTo: (StrikeFont familyName: #NewYork size: 12). #(#GZipConstants #ZipConstants #KlattResonatorIndices ) do: [:k | self removeKey: k ifAbsent: []]! ! TextMorphEditor removeSelector: #recognizeCharacters! PluggableTextMorph removeSelector: #recognizeCharacters! ParagraphEditor removeSelector: #recognizeCharacters! ParagraphEditor removeSelector: #recognizeCharactersWhileMouseIn:! ParagraphEditor removeSelector: #recognizer:! "Postscript:" ParagraphEditor initialize !