printOn: aStream indent: level aStream dialect = #SQ00 ifTrue: [aStream withStyleFor: #setOrReturn do: [aStream nextPutAll: 'Set ']. variable printOn: aStream indent: level. aStream withStyleFor: #setOrReturn do: [aStream nextPutAll: ' to ']. value printOn: aStream indent: level + 2] ifFalse: [variable printOn: aStream indent: level. aStream nextPutAll: ' := '.aStream nextPutAll: ' ← '.value printOn: aStream indent: level + 2]
prettyPrintCommand: characterStream sensor keyboard. self prettyPrint. ^ true
initializeCmdKeyShortcuts | cmdMap cmds | cmdMap := Array new: 256 withAll: #noop:. "use temp in case of a crash" cmdMap at: (1 + 1) put: #cursorHome:. "home key" ・ ・(中略) ・ $t tempCommand: $u align: $v paste: $w prettyPrintCommand:$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
ParagraphEditor initialize
Preferences setPreference: #warnIfNoChangesFile toValue: false
SEO | [PR] 爆速!無料ブログ 無料ホームページ開設 無料ライブ放送 | ||