'From Squeak 3.2 of 11 July 2002 [latest update: #4917] on 1 October 2002 at 12:16:10 am'! !ArrayedCollection methodsFor: 'private' stamp: 'sumim 9/11/2002 12:36'! asSwikiSource | source | (self class == String or: [self class == MultiString]) ifFalse: [self error: 'StringもしくはMultiStringのためのメソッドです']. source _ self. {'&'. '&'. '*'. '☆'. '\|'. '\ |'. '\#'. '\ #'. '\!!'. '\ !!'. '<'. '<'. '>'. '>'. String tab. '  '} pairsDo: [ :risky :safe | source _ source copyReplaceAll: risky withCRs with: safe withCRs ]. #(first last) do: [ :sel | [ source size ~= 0 and: [(source perform: sel) = Character cr]] whileTrue: [ source _ source perform: ('allBut', sel asString capitalized) asSymbol]]. ^ '', source, '', String cr.! ! !ParagraphEditor methodsFor: 'menu messages' stamp: 'sumim 9/10/2002 17:24'! swikiSource self cancel. (Workspace new contents: paragraph text string asSwikiSource) openLabel: 'Workspace' ! ! !ParagraphEditor class methodsFor: 'class initialization' stamp: 'sumim 9/10/2002 17:21'! shiftedYellowButtonMenu "Answer the menu to be presented when the yellow button is pressed while the shift key is down" ^ SelectionMenu fromArray: #( ('set font... (k)' offerFontMenu) ('set style... (K)' changeStyle) ('set alignment...' chooseAlignment) - ('explain' explain) ('pretty print' prettyPrint) ('pretty print with color' prettyPrintWithColor) ('file it in (G)' fileItIn) ('tiles from it' selectionAsTiles) ('recognizer (r)' recognizeCharacters) ('spawn (o)' spawn) - ('show swiki source' swikiSource) - ('definition of word' wordDefinition) ('verify spelling of word' verifyWordSpelling) " ('spell check it' spellCheckIt) " ('translate it' translateIt) ('choose language' languagePrefs) - ('browse it (b)' browseIt) ('senders of it (n)' sendersOfIt) ('implementors of it (m)' implementorsOfIt) ('references to it (N)' referencesToIt) - ('selectors containing it (W)' methodNamesContainingIt) ('method strings with it (E)' methodStringsContainingit) ('method source with it' methodSourceContainingIt) ('class comments with it' classCommentsContainingIt) ('change sets with it' browseChangeSetsWithSelector) - ('save contents to file...' saveContentsInFile) ('send contents to printer' sendContentsToPrinter) ('printer setup' printerSetup) - ('special menu...' presentSpecialMenu) ('more...' yellowButtonActivity))! ! !PluggableTextMorph methodsFor: 'menu commands' stamp: 'sumim 9/10/2002 17:28'! swikiSource self handleEdit: [textMorph editor swikiSource]. self cancel! !