The Trunk: Tools-ar.264.mcz

Andreas Raab uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-ar.264.mcz

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

Name: Tools-ar.264
Author: ar
Time: 2 September 2010, 8:56:00.467 am
UUID: 080d57f9-b94d-be4f-a0fa-06f001ded182
Ancestors: Tools-ar.263

Fix some dependencies in the tools package.

=============== Diff against Tools-ar.263 ===============

Item was changed:
  ----- Method: ArchiveViewer>>commentArchive (in category 'archive operations') -----
  commentArchive
  | newName |
  archive ifNil: [ ^self ].
+ newName := UIManager default
- newName := FillInTheBlankMorph
  request: 'New comment for archive:'
+ initialAnswer: archive zipFileComment.
- initialAnswer: archive zipFileComment
- centerAt: Sensor cursorPoint
- inWorld: self world
- onCancelReturn: archive zipFileComment
- acceptOnCR: true.
  archive zipFileComment: newName.!

Item was changed:
  ----- Method: ArchiveViewer>>renameMember (in category 'member operations') -----
  renameMember
  | newName |
  self canRenameMember ifFalse: [ ^self ].
+ newName := UIManager default
- newName := FillInTheBlankMorph
  request: 'New name for member:'
  initialAnswer: self selectedMember fileName.
  newName notEmpty ifTrue: [
  self selectedMember fileName: newName.
  self changed: #memberList
  ]!

Item was changed:
  ----- Method: ArchiveViewer>>addMemberFromClipboard (in category 'member operations') -----
  addMemberFromClipboard
  | string newName |
  self canAddMember ifFalse: [ ^self ].
  string := Clipboard clipboardText asString.
+ newName := UIManager default
- newName := FillInTheBlankMorph
  request: 'New name for member:'
  initialAnswer: 'clipboardText'.
  newName notEmpty ifTrue: [
  (archive addString: string as: newName) desiredCompressionMethod: ZipArchive compressionDeflated.
  self memberIndex: self members size.
  self changed: #memberList.
  ]
  !

Item was changed:
  ----- Method: ArchiveViewer>>commentMember (in category 'member operations') -----
  commentMember
  | newName |
+ newName := UIManager default
- newName := FillInTheBlankMorph
  request: 'New comment for member:'
+ initialAnswer: self selectedMember fileComment.
- initialAnswer: self selectedMember fileComment
- centerAt: Sensor cursorPoint
- inWorld: self world
- onCancelReturn: self selectedMember fileComment
- acceptOnCR: true.
  self selectedMember fileComment: newName.!

Item was removed:
- ----- Method: CodeHolder>>regularDiffButton (in category 'diffs') -----
- regularDiffButton
- "Return a checkbox that lets the user decide whether regular diffs should be shown or not"
-
- |  outerButton aButton |
- outerButton := AlignmentMorph newRow.
- outerButton wrapCentering: #center; cellPositioning: #leftCenter.
- outerButton color:  Color transparent.
- outerButton hResizing: #shrinkWrap; vResizing: #shrinkWrap.
- outerButton addMorph: (aButton := UpdatingThreePhaseButtonMorph checkBox).
- aButton
- target: self;
- actionSelector: #toggleRegularDiffing;
- getSelector: #showingRegularDiffs.
- outerButton addMorphBack: (StringMorph contents: 'diffs') lock.
- outerButton setBalloonText: 'If checked, then code differences from the previous version, if any, will be shown.'.
-
- ^ outerButton
- !

Item was removed:
- ----- Method: CodeHolder>>prettyDiffButton (in category 'diffs') -----
- prettyDiffButton
- "Return a checkbox that lets the user decide whether prettyDiffs should be shown or not"
-
- |  outerButton aButton |
- outerButton := AlignmentMorph newRow.
- outerButton wrapCentering: #center; cellPositioning: #leftCenter.
- outerButton color:  Color transparent.
- outerButton hResizing: #shrinkWrap; vResizing: #shrinkWrap.
- outerButton addMorph: (aButton := UpdatingThreePhaseButtonMorph checkBox).
- aButton
- target: self;
- actionSelector: #togglePrettyDiffing;
- getSelector: #showingPrettyDiffs.
- outerButton addMorphBack: (StringMorph contents: 'prettyDiffs') lock.
- (self isKindOf: VersionsBrowser)
- ifTrue:
- [outerButton setBalloonText: 'If checked, then pretty-printed code differences from the previous version, if any, will be shown.']
- ifFalse:
- [outerButton setBalloonText: 'If checked, then pretty-printed code differences between the file-based method and the in-memory version, if any, will be shown.'].
-
- ^ outerButton
- !

Item was removed:
- ----- Method: CodeHolder>>codePaneProvenanceButton (in category 'controls') -----
- codePaneProvenanceButton
- "Answer a button that reports on, and allow the user to modify,
- the code-pane-provenance setting"
- | aButton |
- aButton := UpdatingSimpleButtonMorph newWithLabel: 'source'.
- aButton setNameTo: 'codeProvenance'.
- aButton useSquareCorners.
- aButton target: self;
- wordingSelector: #codePaneProvenanceString;
- actionSelector: #offerWhatToShowMenu.
- aButton setBalloonText: 'Governs what view is shown in the code pane.  Click here to change the view'.
- aButton actWhen: #buttonDown.
- aButton color: Color white;
- borderStyle: BorderStyle thinGray; vResizing: #spaceFill.
- ^ aButton!

Item was removed:
- ----- Method: CodeHolder>>diffButton (in category 'diffs') -----
- diffButton
- "Return a checkbox that lets the user decide whether diffs should be shown or not.  Not sent any more but retained against the possibility of existing subclasses outside the base image using it."
-
- |  outerButton aButton |
- outerButton := AlignmentMorph newRow.
- outerButton wrapCentering: #center; cellPositioning: #leftCenter.
- outerButton color:  Color transparent.
- outerButton hResizing: #shrinkWrap; vResizing: #shrinkWrap.
- outerButton addMorph: (aButton := UpdatingThreePhaseButtonMorph checkBox).
- aButton
- target: self;
- actionSelector: #toggleRegularDiffing;
- getSelector: #showingRegularDiffs.
- outerButton addMorphBack: (StringMorph contents: 'diffs') lock.
- outerButton setBalloonText: 'If checked, then code differences from the previous version, if any, will be shown.'.
-
- ^ outerButton
- !

Item was removed:
- ----- Method: CodeHolder>>menuButton (in category 'misc') -----
- menuButton
- "Answer a button that brings up a menu.  Useful when adding new features, but at present is between uses"
-
- | aButton |
- aButton := IconicButton new target: self;
- borderWidth: 0;
- labelGraphic: (ScriptingSystem formAtKey: #TinyMenu);
- color: Color transparent;
- actWhen: #buttonDown;
- actionSelector: #offerMenu;
- yourself.
- aButton setBalloonText: 'click here to get a menu with further options'.
- ^ aButton
- !

Item was removed:
- ----- Method: CodeHolder>>addOptionalAnnotationsTo:at:plus: (in category 'annotation') -----
- addOptionalAnnotationsTo: window at: fractions plus: verticalOffset
- "Add an annotation pane to the window if preferences indicate a desire for it, and return the incoming verticalOffset plus the height of the added pane, if any"
-
- | aTextMorph divider delta |
- self wantsAnnotationPane ifFalse: [^ verticalOffset].
- aTextMorph := PluggableTextMorph
- on: self
- text: #annotation
- accept: #annotation:
- readSelection: nil
- menu: #annotationPaneMenu:shifted:.
- aTextMorph
- askBeforeDiscardingEdits: true;
- acceptOnCR: true;
- borderWidth: 0;
- hideScrollBarsIndefinitely.
- divider := BorderedSubpaneDividerMorph forBottomEdge.
- divider extent: 4@4; color: Color transparent; borderColor: #raised; borderWidth: 2.
- delta := self defaultAnnotationPaneHeight.
- window
- addMorph: aTextMorph
- fullFrame: (LayoutFrame
- fractions: fractions
- offsets: (0@verticalOffset corner: 0@(verticalOffset + delta - 2))).
- window
- addMorph: divider
- fullFrame: (LayoutFrame
- fractions: fractions
- offsets: (0@(verticalOffset + delta - 2) corner: 0@(verticalOffset + delta))).
- ^ verticalOffset + delta!