--- a/mercurial/HGSourceCodeManagementSettingsAppl.st Mon Apr 14 20:10:34 2014 +0100
+++ b/mercurial/HGSourceCodeManagementSettingsAppl.st Mon Apr 14 21:47:26 2014 +0100
@@ -161,196 +161,194 @@
<resource: #canvas>
- ^
- #(FullSpec
- name: windowSpec
- window:
- (WindowSpec
- label: 'Mercurial Settings'
- name: 'Mercurial Settings'
- min: (Point 10 10)
- bounds: (Rectangle 0 0 695 627)
- )
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: ' Mercurial Settings'
- name: 'MercurialSettingsTitle'
- layout: (LayoutFrame 0 0 0 0 0 1 66 0)
- style: (FontDescription helvetica medium roman 18 #'iso10646-1')
- backgroundColor: (Color 100.0 100.0 100.0)
- translateLabel: true
- adjust: left
- )
- (LabelSpec
- label: 'Logo'
- name: 'MercurialLogo'
- layout: (LayoutFrame -71 1 -1 0 4 1 65 0)
- hasCharacterOrientedLabel: false
- backgroundColor: (Color 100.0 100.0 100.0)
- translateLabel: true
- labelChannel: defaultLogo
- )
- (CheckBoxSpec
- label: 'Show in Menus'
- name: 'CheckBox1'
- layout: (LayoutFrame 0 0 73 0 0 1 95 0)
- activeHelpKey: shownInBrowserMenus
- model: shownInBrowserMenusHolder
- translateLabel: true
- )
- (ViewSpec
- name: 'Settings'
- layout: (LayoutFrame 0 0 105 0 0 1 0 1)
- component:
- (SpecCollection
- collection: (
- (VerticalPanelViewSpec
- name: 'GeneralSettingsPanel'
- layout: (LayoutFrame 0 0 0 0 0 1 0 1)
- horizontalLayout: fit
- verticalLayout: top
- horizontalSpace: 3
- verticalSpace: 3
- component:
- (SpecCollection
- collection: (
- (ViewSpec
- name: 'Panel1'
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: '''hg'' command:'
- name: 'CommandLabel'
- layout: (LayoutFrame 5 0 0 0 100 0 30 0)
- translateLabel: true
- adjust: left
- )
- (FilenameInputFieldSpec
- name: 'HGCommand'
- layout: (LayoutFrame 105 0 0 0 -100 1 0 1)
- model: hgCommand
- acceptOnPointerLeave: true
- emptyFieldReplacementText: 'Autodetect'
- )
- (ActionButtonSpec
- label: 'Test'
- name: 'HGCommandTest'
- layout: (LayoutFrame -100 1 0 0 -8 1 0 1)
- translateLabel: true
- model: doTestHGCommand
- enableChannel: svnEnabled
- )
+ ^
+ #(FullSpec
+ name: windowSpec
+ window:
+ (WindowSpec
+ label: 'Mercurial Settings'
+ name: 'Mercurial Settings'
+ min: (Point 10 10)
+ bounds: (Rectangle 0 0 695 627)
+ )
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: ' Mercurial Settings'
+ name: 'MercurialSettingsTitle'
+ layout: (LayoutFrame 0 0 0 0 0 1 66 0)
+ style: (FontDescription helvetica medium roman 18 #'iso10646-1')
+ backgroundColor: (Color 100.0 100.0 100.0)
+ translateLabel: true
+ adjust: left
+ )
+ (LabelSpec
+ label: 'Logo'
+ name: 'MercurialLogo'
+ layout: (LayoutFrame -71 1 -1 0 4 1 65 0)
+ hasCharacterOrientedLabel: false
+ backgroundColor: (Color 100.0 100.0 100.0)
+ translateLabel: true
+ labelChannel: defaultLogo
+ )
+ (CheckBoxSpec
+ label: 'Show in Menus'
+ name: 'CheckBox1'
+ layout: (LayoutFrame 0 0 73 0 0 1 103 0)
+ activeHelpKey: shownInBrowserMenus
+ model: shownInBrowserMenusHolder
+ translateLabel: true
+ )
+ (ViewSpec
+ name: 'Settings'
+ layout: (LayoutFrame 0 0 105 0 0 1 0 1)
+ component:
+ (SpecCollection
+ collection: (
+ (VerticalPanelViewSpec
+ name: 'GeneralSettingsPanel'
+ layout: (LayoutFrame 0 0 0 0 0 1 0 1)
+ horizontalLayout: fit
+ verticalLayout: top
+ horizontalSpace: 3
+ verticalSpace: 3
+ component:
+ (SpecCollection
+ collection: (
+ (ViewSpec
+ name: 'Panel1'
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: '''hg'' command:'
+ name: 'CommandLabel'
+ layout: (LayoutFrame 5 0 0 0 150 0 30 0)
+ translateLabel: true
+ adjust: right
+ )
+ (FilenameInputFieldSpec
+ name: 'HGCommand'
+ layout: (LayoutFrame 150 0 0 0 -100 1 0 1)
+ model: hgCommand
+ acceptOnPointerLeave: true
+ emptyFieldReplacementText: 'Autodetect'
+ )
+ (ActionButtonSpec
+ label: 'Test'
+ name: 'HGCommandTest'
+ layout: (LayoutFrame -100 1 0 0 -8 1 0 1)
+ translateLabel: true
+ model: doTestHGCommand
+ enableChannel: svnEnabled
)
-
- )
- extent: (Point 695 25)
- )
- (ViewSpec
- name: 'Spacer'
- extent: (Point 695 15)
- )
- (FramedBoxSpec
- label: 'External Tools'
- name: 'ToolsSettings'
- initiallyInvisible: true
- labelPosition: topLeft
- translateLabel: true
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Diff2:'
- name: 'Label1'
- layout: (LayoutFrame 0 0 0 0 80 0 30 0)
- translateLabel: true
- adjust: left
- )
- (FilenameInputFieldSpec
- name: 'FilenameEntryField1'
- layout: (LayoutFrame 80 0 3 0 0 1 28 0)
- enableChannel: svnEnabled
- model: hgDiff2Command
- acceptOnPointerLeave: true
- )
- (LabelSpec
- label: 'Diff3:'
- name: 'Label2'
- layout: (LayoutFrame 0 0 30 0 80 0 0 1.0)
- translateLabel: true
- adjust: left
- )
- (FilenameInputFieldSpec
- name: 'FilenameEntryField2'
- layout: (LayoutFrame 80 0 33 0 0 1 58 0)
- enableChannel: svnEnabled
- model: hgDiff3Command
- acceptOnPointerLeave: true
- )
+ )
+
+ )
+ extent: (Point 695 30)
+ )
+ (ViewSpec
+ name: 'Spacer'
+ extent: (Point 695 15)
+ )
+ (FramedBoxSpec
+ label: 'External Tools'
+ name: 'ToolsSettings'
+ initiallyInvisible: true
+ labelPosition: topLeft
+ translateLabel: true
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Diff2:'
+ name: 'Label1'
+ layout: (LayoutFrame 0 0 0 0 80 0 30 0)
+ translateLabel: true
+ adjust: left
+ )
+ (FilenameInputFieldSpec
+ name: 'FilenameEntryField1'
+ layout: (LayoutFrame 80 0 3 0 0 1 28 0)
+ enableChannel: svnEnabled
+ model: hgDiff2Command
+ acceptOnPointerLeave: true
+ )
+ (LabelSpec
+ label: 'Diff3:'
+ name: 'Label2'
+ layout: (LayoutFrame 0 0 30 0 80 0 0 1.0)
+ translateLabel: true
+ adjust: left
+ )
+ (FilenameInputFieldSpec
+ name: 'FilenameEntryField2'
+ layout: (LayoutFrame 80 0 33 0 0 1 58 0)
+ enableChannel: svnEnabled
+ model: hgDiff3Command
+ acceptOnPointerLeave: true
)
-
- )
- extent: (Point 695 95)
- )
- (FramedBoxSpec
- label: 'Debugging'
- name: 'DebugSettings'
- initiallyInvisible: true
- labelPosition: topLeft
- translateLabel: true
- component:
- (SpecCollection
- collection: (
- (VerticalPanelViewSpec
- name: 'VerticalPanel1'
- layout: (LayoutFrame 0 0 0 0 0 1 0 1)
- horizontalLayout: fit
- verticalLayout: top
- horizontalSpace: 3
- verticalSpace: 3
- component:
- (SpecCollection
- collection: (
- (CheckBoxSpec
- label: 'Verbose (Traces svn commands to Transcript)'
- name: 'Verbose'
- enableChannel: svnEnabled
- model: svnVerbose
- translateLabel: true
- useDefaultExtent: true
- )
+ )
+
+ )
+ extent: (Point 695 95)
+ )
+ (FramedBoxSpec
+ label: 'Debugging'
+ name: 'DebugSettings'
+ initiallyInvisible: true
+ labelPosition: topLeft
+ translateLabel: true
+ component:
+ (SpecCollection
+ collection: (
+ (VerticalPanelViewSpec
+ name: 'VerticalPanel1'
+ layout: (LayoutFrame 0 0 0 0 0 1 0 1)
+ horizontalLayout: fit
+ verticalLayout: top
+ horizontalSpace: 3
+ verticalSpace: 3
+ component:
+ (SpecCollection
+ collection: (
+ (CheckBoxSpec
+ label: 'Verbose (Traces svn commands to Transcript)'
+ name: 'Verbose'
+ enableChannel: svnEnabled
+ model: svnVerbose
+ translateLabel: true
+ useDefaultExtent: true
)
-
- )
- )
+ )
+
+ )
)
-
- )
- extent: (Point 695 70)
- )
- (CheckBoxSpec
- label: 'Automatically push changes to upstream repository'
- name: 'CheckBox2'
- model: hgAutopush
- translateLabel: true
- extent: (Point 695 22)
- )
+ )
+
+ )
+ extent: (Point 695 70)
+ )
+ (CheckBoxSpec
+ label: 'Automatically push changes to upstream repository'
+ name: 'CheckBox2'
+ model: hgAutopush
+ translateLabel: true
+ extent: (Point 695 30)
)
-
- )
- )
+ )
+
+ )
)
-
- )
- )
+ )
+
+ )
)
-
- )
- )
-
- "Modified: / 01-08-2013 / 15:14:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ )
+
+ )
+ )
! !
!HGSourceCodeManagementSettingsAppl class methodsFor:'queries'!
@@ -549,6 +547,14 @@
!HGSourceCodeManagementSettingsAppl class methodsFor:'documentation'!
+version
+ ^ '$Header$'
+!
+
+version_CVS
+ ^ '$Header$'
+!
+
version_HG
^ '$Changeset: <not expanded> $'