The Trunk: Kernel-topa.912.mcz

Tobias Pape uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-topa.912.mcz

==================== Summary ====================

Name: Kernel-topa.912
Author: topa
Time: 18 March 2015, 10:36:24.019 am
UUID: 959778ec-8547-43f1-89a5-6f0f93238617
Ancestors: Kernel-cmm.911

Move methods from Kernel to Tools/Morphic for basic Models (3/3)

Load this last.

=============== Diff against Kernel-cmm.911 ===============

Item was removed:
- ----- Method: Model>>arrowKey:from: (in category 'keyboard') -----
- arrowKey: aChar from: view
- "backstop; all the PluggableList* classes actually handle arrow keys, and the models handle other keys."
- ^false!

Item was removed:
- ----- Method: Model>>perform:orSendTo: (in category 'menus') -----
- perform: selector orSendTo: otherTarget
- "Selector was just chosen from a menu by a user.  If can respond, then perform it on myself.  If not, send it to otherTarget, presumably the editPane from which the menu was invoked."
-
- "default is that the editor does all"
- ^ otherTarget perform: selector.!

Item was removed:
- ----- Method: Model>>selectedClass (in category 'menus') -----
- selectedClass
- "All owners of TextViews are asked this during a doIt"
- ^ nil!

Item was removed:
- ----- Method: Model>>step (in category 'menus') -----
- step
- "Default for morphic models is no-op"!

Item was removed:
- ----- Method: Model>>trash (in category 'menus') -----
- trash
- "What should be displayed if a trash pane is restored to initial state"
-
- ^ ''!

Item was removed:
- ----- Method: Model>>trash: (in category 'menus') -----
- trash: ignored
- "Whatever the user submits to the trash, it need not be saved."
-
- ^ true!

Item was removed:
- ----- Method: StringHolder class>>codePaneMenu:shifted: (in category 'yellow button menu') -----
- codePaneMenu: aMenu shifted: shifted
- "Utility method for the 'standard' codePane menu"
- aMenu addList: (shifted
- ifTrue:[self shiftedYellowButtonMenuItems]
- ifFalse:[self yellowButtonMenuItems]).
- ^aMenu!

Item was removed:
- ----- Method: StringHolder class>>shiftedYellowButtonMenuItems (in category 'yellow button menu') -----
- shiftedYellowButtonMenuItems
- "Returns the standard yellow button menu items"
- | entries |
- entries := OrderedCollection withAll:
- {
- {'explain' translated. #explain}.
- {'pretty print' translated. #prettyPrint}.
- {'pretty print with color' translated. #prettyPrintWithColor}.
- {'file it in (G)' translated. #fileItIn}.
- {'spawn (o)' translated. #spawn}.
- #-.
- {'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}.
- #-.
- }.
- Smalltalk isMorphic ifFalse: [ entries add:
- {'special menu...' translated. #presentSpecialMenu}.].
- entries add:
- {'more...' translated. #yellowButtonActivity}.
- ^ entries!

Item was removed:
- ----- Method: StringHolder class>>yellowButtonMenuItems (in category 'yellow button menu') -----
- yellowButtonMenuItems
- "Returns the standard yellow button menu items"
- ^{
- {'set font... (k)' translated. #offerFontMenu}.
- {'set style... (K)' translated. #changeStyle}.
- {'set alignment... (u)' translated. #chooseAlignment}.
- #-.
- {'make project link (P)' translated. #makeProjectLink}.
- #-.
- {'find...(f)' translated. #find}.
- {'find again (g)' translated. #findAgain}.
- {'set search string (h)' translated. #setSearchString}.
- #-.
- {'do again (j)' translated. #again}.
- {'undo (z)' translated. #undo}.
- #-.
- {'copy (c)' translated. #copySelection}.
- {'cut (x)' translated. #cut}.
- {'paste (v)' translated. #paste}.
- {'paste...' translated. #pasteRecent}.
- #-.
- {'do it (d)' translated. #doIt}.    
- {'print it (p)' translated. #printIt}.    
- {'inspect it (i)' translated. #inspectIt}.    
- {'explore it (I)' translated. #exploreIt}.    
- {'debug it' translated. #debugIt}.    
- {'button for it' translated. #buttonForIt}.    
- {'tally it' translated. #tallyIt}.
- #-.
- {'accept (s)' translated. #accept}.
- {'cancel (l)' translated. #cancel}.
- #-.
- {'show bytecodes' translated. #showBytecodes}.
- #-.
- {'copy html' translated. #copyHtml}.
- #-.
- {'more...' translated. #shiftedTextPaneMenuRequest}.
- }!

Item was removed:
- ----- Method: StringHolder>>codePaneMenu:shifted: (in category 'code pane menu') -----
- codePaneMenu: aMenu shifted: shifted
- "Fill in the given menu with additional items. The menu is prepoulated with the 'standard' text commands that the editor supports. Note that unless we override perform:orSendTo:, the editor will respond to all menu items in a text pane"
- ^self class codePaneMenu: aMenu shifted: shifted!

Item was removed:
- ----- Method: StringHolder>>contents:notifying: (in category 'code pane menu') -----
- contents: aString notifying: aController
- "Accept text"
- ^self acceptContents: aString!

Item was removed:
- ----- Method: StringHolder>>menuHook:named:shifted: (in category 'code pane menu') -----
- menuHook: aMenu named: aSymbol shifted: aBool
- "Provide a hook for supplemental menu items.  Answer the appropriately-enhanced menu."
- ^ aMenu!

Item was removed:
- ----- Method: StringHolder>>perform:orSendTo: (in category 'code pane menu') -----
- perform: selector orSendTo: otherTarget
- "Selector was just chosen from a menu by a user.  If can respond, then
- perform it on myself. If not, send it to otherTarget, presumably the
- editPane from which the menu was invoked."
-
- (self respondsTo: selector)
- ifTrue: [^ self perform: selector]
- ifFalse: [^ otherTarget perform: selector]!

Item was removed:
- ----- Method: StringHolder>>showBytecodes (in category 'code pane menu') -----
- showBytecodes
- "We don't know how to do this"
-
- ^ self changed: #flash!

Item was removed:
- ----- Method: StringHolder>>wantsAnnotationPane (in category 'optional panes') -----
- wantsAnnotationPane
- "Answer whether the receiver, seen in some browser window, would like to have the so-called  annotationpane included.  By default, various browsers defer to the global preference 'optionalButtons' -- but individual subclasses can insist to the contrary."
-
- ^ Preferences annotationPanes!

Item was removed:
- ----- Method: StringHolder>>wantsOptionalButtons (in category 'optional panes') -----
- wantsOptionalButtons
- "Answer whether the receiver, seen in some browser window, would like to have the so-called optional button pane included.  By default, various browsers defer to the global preference 'optionalButtons' -- but individual subclasses can insist to the contrary."
-
- ^ Preferences optionalButtons!