--- a/VersionDiffBrowser.st Sun Feb 12 13:04:02 2017 +0100
+++ b/VersionDiffBrowser.st Sun Feb 12 13:04:44 2017 +0100
@@ -100,202 +100,200 @@
<resource: #canvas>
- ^
- #(FullSpec
- name: windowSpec
- window:
- (WindowSpec
- label: 'Version DiffBrowser'
- name: 'Version DiffBrowser'
- min: (Point 10 10)
- bounds: (Rectangle 0 0 865 504)
- menu: mainMenu
- )
- component:
- (SpecCollection
- collection: (
- (VariableVerticalPanelSpec
- name: 'VariableVerticalPanel1'
- layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 -25 1.0)
- component:
- (SpecCollection
- collection: (
- (HorizontalPanelViewSpec
- name: 'TopHorizontalPanel'
- horizontalLayout: fit
- verticalLayout: fit
- horizontalSpace: 3
- verticalSpace: 3
- component:
- (SpecCollection
- collection: (
- (ViewSpec
- name: 'BoxA'
- level: 0
- visibilityChannel: boxAVisible
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Only in A'
- name: 'OnlyInALabel'
- layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 20 0)
- translateLabel: true
- labelChannel: onlyInALabelHolder
- )
- (SequenceViewSpec
- name: 'ListA'
- layout: (LayoutFrame 0 0.0 20 0.0 0 1.0 -3 1.0)
- model: methodsOnlyInASelection
- menu: menuAHolder
- hasHorizontalScrollBar: true
- hasVerticalScrollBar: true
- miniScrollerHorizontal: true
- doubleClickSelector: methodInADoubleClicked:
- valueChangeSelector: methodsOnlyInASelectionChanged
- useIndex: true
- sequenceList: methodsOnlyInA
- )
+ ^
+ #(FullSpec
+ name: windowSpec
+ window:
+ (WindowSpec
+ label: 'Version DiffBrowser'
+ name: 'Version DiffBrowser'
+ min: (Point 10 10)
+ bounds: (Rectangle 0 0 865 504)
+ menu: mainMenu
+ )
+ component:
+ (SpecCollection
+ collection: (
+ (VariableVerticalPanelSpec
+ name: 'VariableVerticalPanel1'
+ layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 -25 1.0)
+ component:
+ (SpecCollection
+ collection: (
+ (HorizontalPanelViewSpec
+ name: 'TopHorizontalPanel'
+ horizontalLayout: fit
+ verticalLayout: fit
+ horizontalSpace: 3
+ verticalSpace: 3
+ component:
+ (SpecCollection
+ collection: (
+ (ViewSpec
+ name: 'BoxA'
+ level: 0
+ visibilityChannel: boxAVisible
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Only in A'
+ name: 'OnlyInALabel'
+ layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 20 0)
+ translateLabel: true
+ labelChannel: onlyInALabelHolder
)
-
- )
- extent: (Point 286 199)
- )
- (ViewSpec
- name: 'BoxM'
- visibilityChannel: boxMVisible
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Changed'
- name: 'ChangedLabel'
- layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 20 0)
- translateLabel: true
- labelChannel: changedLabelHolder
- )
- (SequenceViewSpec
- name: 'ListM'
- layout: (LayoutFrame 0 0.0 20 0.0 0 1.0 -3 1.0)
- model: methodsChangedSelection
- menu: menuMHolder
- hasHorizontalScrollBar: true
- hasVerticalScrollBar: true
- miniScrollerHorizontal: true
- doubleClickSelector: methodInChangedDoubleClicked:
- valueChangeSelector: methodsChangedSelectionChanged
- useIndex: true
- sequenceList: methodsChanged
- )
+ (SequenceViewSpec
+ name: 'ListA'
+ layout: (LayoutFrame 0 0.0 20 0.0 0 1.0 -3 1.0)
+ model: methodsOnlyInASelection
+ menu: menuAHolder
+ hasHorizontalScrollBar: true
+ hasVerticalScrollBar: true
+ miniScrollerHorizontal: true
+ doubleClickSelector: methodInADoubleClicked:
+ valueChangeSelector: methodsOnlyInASelectionChanged
+ useIndex: true
+ sequenceList: methodsOnlyInA
+ )
+ )
+
+ )
+ extent: (Point 286 199)
+ )
+ (ViewSpec
+ name: 'BoxM'
+ visibilityChannel: boxMVisible
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Changed'
+ name: 'ChangedLabel'
+ layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 20 0)
+ translateLabel: true
+ labelChannel: changedLabelHolder
+ )
+ (SequenceViewSpec
+ name: 'ListM'
+ layout: (LayoutFrame 0 0.0 20 0.0 0 1.0 -3 1.0)
+ model: methodsChangedSelection
+ menu: menuMHolder
+ hasHorizontalScrollBar: true
+ hasVerticalScrollBar: true
+ miniScrollerHorizontal: true
+ doubleClickSelector: methodInChangedDoubleClicked:
+ valueChangeSelector: methodsChangedSelectionChanged
+ useIndex: true
+ sequenceList: methodsChanged
)
-
- )
- extent: (Point 286 199)
- )
- (ViewSpec
- name: 'BoxB'
- visibilityChannel: boxBVisible
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Only in B'
- name: 'OnlyInBLabel'
- layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 20 0)
- translateLabel: true
- labelChannel: onlyInBLabelHolder
- )
- (SequenceViewSpec
- name: 'ListB'
- layout: (LayoutFrame 0 0.0 20 0.0 0 1.0 -3 1.0)
- model: methodsOnlyInBSelection
- menu: menuBHolder
- hasHorizontalScrollBar: true
- hasVerticalScrollBar: true
- miniScrollerHorizontal: true
- doubleClickSelector: methodInBDoubleClicked:
- valueChangeSelector: methodsOnlyInBSelectionChanged
- useIndex: true
- sequenceList: methodsOnlyInB
- )
+ )
+
+ )
+ extent: (Point 286 199)
+ )
+ (ViewSpec
+ name: 'BoxB'
+ visibilityChannel: boxBVisible
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Only in B'
+ name: 'OnlyInBLabel'
+ layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 20 0)
+ translateLabel: true
+ labelChannel: onlyInBLabelHolder
)
-
- )
- extent: (Point 287 199)
- )
+ (SequenceViewSpec
+ name: 'ListB'
+ layout: (LayoutFrame 0 0.0 20 0.0 0 1.0 -3 1.0)
+ model: methodsOnlyInBSelection
+ menu: menuBHolder
+ hasHorizontalScrollBar: true
+ hasVerticalScrollBar: true
+ miniScrollerHorizontal: true
+ doubleClickSelector: methodInBDoubleClicked:
+ valueChangeSelector: methodsOnlyInBSelectionChanged
+ useIndex: true
+ sequenceList: methodsOnlyInB
+ )
+ )
+
+ )
+ extent: (Point 287 199)
)
-
- )
- )
- (ViewSpec
- name: 'Box4'
- component:
- (SpecCollection
- collection: (
- (ViewSpec
- name: 'diffTextViewBox'
- layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
- initiallyInvisible: true
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'A'
- name: 'DiffTextLabelA'
- layout: (LayoutFrame 0 0 0 0 0 0.5 20 0)
- translateLabel: true
- labelChannel: diffTextLabelA
- )
- (LabelSpec
- label: 'B'
- name: 'DiffTextLabelB'
- layout: (LayoutFrame 0 0.5 0 0 0 1 20 0)
- translateLabel: true
- labelChannel: diffTextLabelB
- )
- (ArbitraryComponentSpec
- name: 'diffTextView'
- layout: (LayoutFrame 0 0.0 20 0.0 0 1.0 0 1.0)
- hasBorder: false
- component: diffTextView
- )
+ )
+
+ )
+ )
+ (ViewSpec
+ name: 'DiffOrSingleMethodCodeBox'
+ component:
+ (SpecCollection
+ collection: (
+ (ViewSpec
+ name: 'diffTextViewBox'
+ layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
+ initiallyInvisible: true
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'A'
+ name: 'DiffTextLabelA'
+ layout: (LayoutFrame 0 0 0 0 0 0.5 20 0)
+ translateLabel: true
+ labelChannel: diffTextLabelA
+ )
+ (LabelSpec
+ label: 'B'
+ name: 'DiffTextLabelB'
+ layout: (LayoutFrame 0 0.5 0 0 0 1 20 0)
+ translateLabel: true
+ labelChannel: diffTextLabelB
+ )
+ (ArbitraryComponentSpec
+ name: 'diffTextView'
+ layout: (LayoutFrame 0 0.0 20 0.0 0 1.0 0 1.0)
+ hasBorder: false
+ component: diffTextView
)
-
- )
- )
- (CodeViewSpec
- name: 'singleTextView'
- layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
- model: methodText
- hasHorizontalScrollBar: true
- hasVerticalScrollBar: true
- miniScrollerHorizontal: true
- isReadOnly: true
- hasKeyboardFocusInitially: false
- )
+ )
+
+ )
)
-
- )
- )
+ (CodeViewSpec
+ name: 'singleTextView'
+ layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
+ model: methodText
+ hasHorizontalScrollBar: true
+ hasVerticalScrollBar: true
+ miniScrollerHorizontal: true
+ isReadOnly: true
+ hasKeyboardFocusInitially: false
+ )
+ )
+
+ )
)
-
- )
- handles: (Any 0.42379958246347 1.0)
- )
- (LabelSpec
- name: 'InfoLabel'
- layout: (LayoutFrame 0 0 -25 1 0 1 0 1)
- level: -1
- translateLabel: true
- labelChannel: infoHolder
- adjust: left
- )
+ )
+
+ )
+ handles: (Any 0.41999999999999998 1.0)
)
-
- )
- )
-
- "Modified: / 05-02-2017 / 10:08:34 / cg"
+ (LabelSpec
+ name: 'InfoLabel'
+ layout: (LayoutFrame 0 0 -25 1 0 1 0 1)
+ level: -1
+ translateLabel: true
+ labelChannel: infoHolder
+ adjust: left
+ )
+ )
+
+ )
+ )
!
windowSpecForMultipleVersions