MercurialSourceCodeManagementSettingsAppl.st
author Stefan Vogel <sv@exept.de>
Fri, 09 May 2014 14:57:45 +0200
changeset 14340 015e211830cc
parent 14338 b47a603778bf
child 14405 46314d7c2f0c
permissions -rw-r--r--
Mark program icons with resource
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     1
"
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     2
 COPYRIGHT (c) 2012 by eXept Software AG
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     3
              All Rights Reserved
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     5
 This software is furnished under a license and may be used
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     6
 only in accordance with the terms of that license and with the
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
 be provided or otherwise made available to, or used by, any
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     9
 other person.  No title to or ownership of the software is
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    10
 hereby transferred.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    11
"
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
"{ Package: 'stx:libtool' }"
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
AbstractSourceCodeManagementSettingsAppl subclass:#MercurialSourceCodeManagementSettingsAppl
11357
fac80d1a9ce2 workdir
Claus Gittinger <cg@exept.de>
parents: 11352
diff changeset
    15
	instanceVariableNames:'workDirectoryHolder repositoryHolder manager repository
fac80d1a9ce2 workdir
Claus Gittinger <cg@exept.de>
parents: 11352
diff changeset
    16
		repositoryPrototypeList addPerModuleRepository
fac80d1a9ce2 workdir
Claus Gittinger <cg@exept.de>
parents: 11352
diff changeset
    17
		removePerModuleRepository perModuleRepository
fac80d1a9ce2 workdir
Claus Gittinger <cg@exept.de>
parents: 11352
diff changeset
    18
		defaultRepositoryHolder selectedPerModuleRepository
fac80d1a9ce2 workdir
Claus Gittinger <cg@exept.de>
parents: 11352
diff changeset
    19
		hgBinDirectoryHolder hgExecutableHolder hgCommandTimeoutHolder
fac80d1a9ce2 workdir
Claus Gittinger <cg@exept.de>
parents: 11352
diff changeset
    20
		repositoriesPerModule perModuleRepositoryModule selectedPushURL
fac80d1a9ce2 workdir
Claus Gittinger <cg@exept.de>
parents: 11352
diff changeset
    21
		pushURL pushURLPrototypeList listOfPushURLs'
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
	classVariableNames:'RecentlyUsedRepositoryURLS'
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    23
	poolDictionaries:''
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    24
	category:'System-SourceCodeManagement'
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
!
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    26
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    27
!MercurialSourceCodeManagementSettingsAppl class methodsFor:'documentation'!
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
copyright
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    30
"
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    31
 COPYRIGHT (c) 2012 by eXept Software AG
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    32
              All Rights Reserved
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    33
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    34
 This software is furnished under a license and may be used
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    35
 only in accordance with the terms of that license and with the
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    36
 inclusion of the above copyright notice.   This software may not
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    37
 be provided or otherwise made available to, or used by, any
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    38
 other person.  No title to or ownership of the software is
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    39
 hereby transferred.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    40
"
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    41
!
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    42
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    43
documentation
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    44
"
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    45
    Mercurial part of the source code settings. 
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    46
    This settings app controls the parameters of the MercurialSourceCodeManager.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    47
11334
ac3464062356 changed: #documentation
Claus Gittinger <cg@exept.de>
parents: 11332
diff changeset
    48
    Extracted for pluggability from SourceCodeManagerSettings in the AbstractSettingsApplication.
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    49
"
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    50
! !
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    51
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    52
!MercurialSourceCodeManagementSettingsAppl class methodsFor:'defaults'!
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    53
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    54
defaultRepositoryName
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    55
11652
7935d2f03e29 changed:
Claus Gittinger <cg@exept.de>
parents: 11620
diff changeset
    56
    ^ './hgRepository'
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    57
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    58
    "Created: / 19-04-2011 / 11:00:11 / cg"
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    59
! !
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    60
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    61
!MercurialSourceCodeManagementSettingsAppl class methodsFor:'help specs'!
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    62
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    63
helpSpec
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    64
    "This resource specification was automatically generated
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    65
     by the UIHelpTool of ST/X."
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    66
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    67
    "Do not manually edit this!! If it is corrupted,
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    68
     the UIHelpTool may not be able to read the specification."
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    69
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    70
    "
11146
Claus Gittinger <cg@exept.de>
parents: 11133
diff changeset
    71
     UIHelpTool openOnClass:MercurialSourceCodeManagementSettingsAppl    
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    72
    "
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    73
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    74
    <resource: #help>
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    75
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    76
    ^ super helpSpec addPairsFrom:#(
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    77
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    78
#addPerModuleRoot
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    79
'Add this per-module entry'
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    80
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    81
#addPerPackageManager
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    82
'Add a new per-package manager definition'
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    83
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    84
#browseSourceCache
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    85
'Open a file browser on the source cache directory'
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    86
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    87
#checkPerPackageManager
11736
ab369307a4b7 changed: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 11652
diff changeset
    88
'Open a window to show which scm-manager is responsible for which package'
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    89
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    90
#condenseSourceCache
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    91
'Cleanup old cached versions from the source cache.\Will keep only the current (newest) version in the cache.\Access to older code versions will be slowed down (compare with old version browser function)'
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    92
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    93
#defaultManagerType
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    94
'The default repository type.\This is used for packages for which no entry matches in the list below'
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    95
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    96
#editPerPackageManager
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    97
'Modify the selected per-package manager definition'
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    98
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    99
#flushSourceCache
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   100
'Remove all files from the source cache.\Access to source code will temporarily be slowed down,\until sources have been refetched from the repository'
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   101
11165
c75bf5c6721d changed:
Claus Gittinger <cg@exept.de>
parents: 11146
diff changeset
   102
#hgAddPushURL
13284
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   103
'Add a repository to the push-URL list.\A repository-push operation will synchronize your changes with this repository as well'
11165
c75bf5c6721d changed:
Claus Gittinger <cg@exept.de>
parents: 11146
diff changeset
   104
11146
Claus Gittinger <cg@exept.de>
parents: 11133
diff changeset
   105
#hgCheckAccess
13284
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   106
'Perform a "hg status" command in the default repository\to see if the repository is accessable'
11146
Claus Gittinger <cg@exept.de>
parents: 11133
diff changeset
   107
Claus Gittinger <cg@exept.de>
parents: 11133
diff changeset
   108
#hgCheckAccessPerModuleRoot
13284
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   109
'Perform a "hg status" command in this module''s repository\to see if the repository is accessable'
11146
Claus Gittinger <cg@exept.de>
parents: 11133
diff changeset
   110
Claus Gittinger <cg@exept.de>
parents: 11133
diff changeset
   111
#hgCommand
13284
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   112
'The command to use for mercurial operations\(the path to the "hg" or "hg.exe"-command.\Not needed, if already in the shell''s PATH value)'
11146
Claus Gittinger <cg@exept.de>
parents: 11133
diff changeset
   113
Claus Gittinger <cg@exept.de>
parents: 11133
diff changeset
   114
#hgCommandTimeout
11736
ab369307a4b7 changed: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 11652
diff changeset
   115
'The command timeout.\For slow connections (ssl-tunnel), it may make sense to increase this value'
11146
Claus Gittinger <cg@exept.de>
parents: 11133
diff changeset
   116
Claus Gittinger <cg@exept.de>
parents: 11133
diff changeset
   117
#hgInit
Claus Gittinger <cg@exept.de>
parents: 11133
diff changeset
   118
'Perform a "hg init" command to setup the repository for the very first time'
Claus Gittinger <cg@exept.de>
parents: 11133
diff changeset
   119
11165
c75bf5c6721d changed:
Claus Gittinger <cg@exept.de>
parents: 11146
diff changeset
   120
#hgPushURLs
13284
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   121
'The push-URL list.\A repository-push operation will send your changes to these repositories as well'
11165
c75bf5c6721d changed:
Claus Gittinger <cg@exept.de>
parents: 11146
diff changeset
   122
c75bf5c6721d changed:
Claus Gittinger <cg@exept.de>
parents: 11146
diff changeset
   123
#hgRemovePushURL
13284
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   124
'Remove the selected repository from the push-URL list.\A repository-push operation will no longer synchronize your changes with this repository'
11165
c75bf5c6721d changed:
Claus Gittinger <cg@exept.de>
parents: 11146
diff changeset
   125
11146
Claus Gittinger <cg@exept.de>
parents: 11133
diff changeset
   126
#hgRootDefault
13284
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   127
'The default mercurial repository.\This will be used for all mercurial modules which are not listed below'
11146
Claus Gittinger <cg@exept.de>
parents: 11133
diff changeset
   128
Claus Gittinger <cg@exept.de>
parents: 11133
diff changeset
   129
#hgRootPerModule
Claus Gittinger <cg@exept.de>
parents: 11133
diff changeset
   130
'The mercurial repository for which this specific module is defined'
Claus Gittinger <cg@exept.de>
parents: 11133
diff changeset
   131
Claus Gittinger <cg@exept.de>
parents: 11133
diff changeset
   132
#hgRootPerModuleModule
13284
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   133
'The module for which a specific mercurial repository is defined.\The module is the first component of the packageID ("module:directoryPath")\by which applications and classes are grouped.'
11146
Claus Gittinger <cg@exept.de>
parents: 11133
diff changeset
   134
Claus Gittinger <cg@exept.de>
parents: 11133
diff changeset
   135
#hgRootPerModuleRoot
13284
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   136
'The mercurial repository for which this specific module is defined.\The module is the first component of the packageID ("module:directoryPath")\by which applications and classes are grouped.'
11146
Claus Gittinger <cg@exept.de>
parents: 11133
diff changeset
   137
13286
72b25058832c class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13284
diff changeset
   138
#hgWorkingDirectory
72b25058832c class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13284
diff changeset
   139
'The mercurial working directory.\This is used to hold temporary files during mercurial checkin/checkout operations'
72b25058832c class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13284
diff changeset
   140
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   141
#loginPerModuleRoot
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   142
'Execute a "cvs login" operation for this CVSROOT'
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   143
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   144
#moveManagerDown
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   145
'Move the selected entry down in the list.\(The first matching definition is used to determine which repository type is used.)'
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   146
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   147
#moveManagerUp
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   148
'Move the selected entry up in the list.\(The first matching definition is used to determine which repository type is used.)'
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   149
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   150
#perPackageConfiguration
11736
ab369307a4b7 changed: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 11652
diff changeset
   151
'Define per-package repository types here.\For any non-matching package-id, the default repository type is used'
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   152
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   153
#removePerModuleRoot
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   154
'Remove this per-module entry'
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   155
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   156
#removePerPackageManager
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   157
'Remove the selected per-package manager definition'
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   158
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   159
#sourceCache
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   160
'After checkout, keep the sourcefile in a local file (to avoid repeated checkout of the same file)'
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   161
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   162
#useLocalSources
11736
ab369307a4b7 changed: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 11652
diff changeset
   163
'If present, use the local source files (from the development system''s tree).\If checkout fails, these will always be tried as second chance'
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   164
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   165
#useManager
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   166
'Enable source code management.\If off, all queries for sourcecode are resolved by local files (offline operation)'
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   167
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   168
#verboseSourceCodeAccess
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   169
'Output debugging messages on the Transcript\(mostly traces of the underlying scm mechanism, such as cvs commands)'
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   170
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   171
)
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   172
13286
72b25058832c class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13284
diff changeset
   173
    "Modified: / 31-07-2013 / 19:35:22 / cg"
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   174
! !
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   175
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   176
!MercurialSourceCodeManagementSettingsAppl class methodsFor:'image specs'!
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   177
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   178
defaultIcon
14338
b47a603778bf Mark program icons with resource
Stefan Vogel <sv@exept.de>
parents: 14325
diff changeset
   179
    <resource: #programImage>
b47a603778bf Mark program icons with resource
Stefan Vogel <sv@exept.de>
parents: 14325
diff changeset
   180
11133
fb5acac1388d added: #defaultIcon3
Claus Gittinger <cg@exept.de>
parents: 11132
diff changeset
   181
    ^ self defaultIcon3
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   182
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   183
    "Created: / 22-12-2011 / 13:47:11 / cg"
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   184
!
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   185
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   186
defaultIcon1
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   187
    "This resource specification was automatically generated
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   188
     by the ImageEditor of ST/X."
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   189
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   190
    "Do not manually edit this!! If it is corrupted,
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   191
     the ImageEditor may not be able to read the specification."
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   192
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   193
    "
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   194
     self defaultIcon1 inspect
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   195
     ImageEditor openOnClass:self andSelector:#defaultIcon1
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   196
     Icon flushCachedIcons
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   197
    "
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   198
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   199
    <resource: #image>
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   200
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   201
    ^Icon
11132
c5fad2575a88 changed:
Claus Gittinger <cg@exept.de>
parents: 11130
diff changeset
   202
        constantNamed:'MercurialSourceCodeManagementSettingsAppl class defaultIcon1'
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   203
        ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
11132
c5fad2575a88 changed:
Claus Gittinger <cg@exept.de>
parents: 11130
diff changeset
   204
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PHCA@PEA D@@@@@@@@@@@@@@@@@@@@GA@ HB@ HB@$C
c5fad2575a88 changed:
Claus Gittinger <cg@exept.de>
parents: 11130
diff changeset
   205
B @@@@@@@@@@@@@@@@,IB@ HB@ HB@ LA@4@@@@@@@@@@@@@C LLB@ HB@ HB@ HB@<P@@@@@@@@@@@@BPPHB@ HB@ HB@ HBADR@@@@@@@@@@@@D0$HB@ H
c5fad2575a88 changed:
Claus Gittinger <cg@exept.de>
parents: 11130
diff changeset
   206
B@ HB@ HB@ SA@@@@@@@@@@@@APLB@ HB@ HB@ HB@ IEP@@@@@VA@LW@Q OC@ HB@ HB@ HB@ LFPD@@@DLBP\Q@@@ZF0 LB@ HB@ HB@ IF@X@@A0HA!!4^
c5fad2575a88 changed:
Claus Gittinger <cg@exept.de>
parents: 11130
diff changeset
   207
@@@SF!!<_@@$HB@ HB@0FH@L@@BDI@AHC@@@@HP@O@BHIB@ HB@LFH0H@@@@ABQ0@@@@@@@@!!A@@DB@ HCA0OI@8@@@@@@@@@@A\@@@@@@@XDB@ HBP8%I D@
c5fad2575a88 changed:
Claus Gittinger <cg@exept.de>
parents: 11130
diff changeset
   208
@@@@@@@BA@$D@P@@@@8IB@ LC P''C0@@@@@@@@DIB@ HBQ0@@@8LA@XA@Q<Y@0@@@@@@@@PLB@ DA@@@@@PCB" JC2T[@@@@@@@@@@PLB@PPBP@@@@P)JB$I
c5fad2575a88 changed:
Claus Gittinger <cg@exept.de>
parents: 11130
diff changeset
   209
J!!HA@@@@@@@@@B,LBQXCKB,@A XACQP-F0L@@@@@@@@@@@(RK"T,D0@@BA,/LCD@L @@@@@@@@@@@@@@@ $!!@@@@@QTTC@ 3@@@@@@@@@@@@@@@@@@@@@@@@
c5fad2575a88 changed:
Claus Gittinger <cg@exept.de>
parents: 11130
diff changeset
   210
@CP\L0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[143 136 136 208 208 208 192 192 184 176 176 176 175 168 168 176 168 168 191 184 184 191 176 176 159 152 144 160 160 160 239 232 224 192 184 184 159 152 160 207 192 200 207 200 200 144 144 144 224 224 224 160 152 160 127 120 120 144 144 136 128 128 128 111 104 104 207 200 208 239 232 240 95 88 88 96 96 96 79 72 80 112 112 120 192 192 200 223 208 208 111 104 96 80 80 80 64 64 64 223 216 216 128 120 128 31 24 24 32 32 24 79 72 64 64 56 56 47 40 40 240 240 240 239 224 224 63 48 48 191 184 176 112 112 104 64 64 56 63 56 56 48 48 48 48 40 48 127 112 120 160 160 168 208 200 208 224 224 216]; mask:((Depth1Image new) width: 24; height: 24; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@G>@@O? @_?0@??8@??8@??<@??<O??>__?>_O?>_G?>NA?>@P_>A<_<C>_<C>_8C>_8C>?0C<? @8?@@@\@@@@@') ; yourself); yourself]
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   211
!
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   212
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   213
defaultIcon2
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   214
    "This resource specification was automatically generated
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   215
     by the ImageEditor of ST/X."
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   216
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   217
    "Do not manually edit this!! If it is corrupted,
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   218
     the ImageEditor may not be able to read the specification."
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   219
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   220
    "
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   221
     self defaultIcon2 inspect
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   222
     ImageEditor openOnClass:self andSelector:#defaultIcon2
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   223
     Icon flushCachedIcons
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   224
    "
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   225
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   226
    <resource: #image>
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   227
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   228
    ^Icon
11132
c5fad2575a88 changed:
Claus Gittinger <cg@exept.de>
parents: 11130
diff changeset
   229
        constantNamed:'MercurialSourceCodeManagementSettingsAppl class defaultIcon2'
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   230
        ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
11132
c5fad2575a88 changed:
Claus Gittinger <cg@exept.de>
parents: 11130
diff changeset
   231
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PHCA@PEA D@@@@@@@@@@@@@@@@@@@@GA@ HB@ HB@$C
c5fad2575a88 changed:
Claus Gittinger <cg@exept.de>
parents: 11130
diff changeset
   232
B @@@@@@@@@@@@@@@@,IB@ HB@ HB@ LA@4@@@@@@@@@@@@@C LLB@ HB@ HB@ HB@<P@@@@@@@@@@@@BPPHB@ HB@ HB@ HBADR@@@@@@@@@@@@D0$HB@ H
c5fad2575a88 changed:
Claus Gittinger <cg@exept.de>
parents: 11130
diff changeset
   233
B@ HB@ HB@ SA@@@@@@@@@@@@APLB@ HB@ HB@ HB@ IEP@@@@@VA@LW@Q OC@ HB@ HB@ HB@ LFPD@@@DLBP\Q@@@ZF0 LB@ HB@ HB@ IF@X@@A0HA!!4^
c5fad2575a88 changed:
Claus Gittinger <cg@exept.de>
parents: 11130
diff changeset
   234
@@@SF!!<_@@$HB@ HB@0FH@L@@BDI@AH:N#\7HP@O@BHIB@ HB@LFH0H@@@@ABS\:N#(:M0@!!A@@DB@ HCA0OI@8@@@@@M#(:@A\@@C\@@@XDB@ HBP8%I D@
c5fad2575a88 changed:
Claus Gittinger <cg@exept.de>
parents: 11130
diff changeset
   235
@@@@M3 7A@$D@P@@@@8IB@ LC P''C0@@@C\7N#$:N0 HHA0@@@8LA@XA@Q<Y@0@@@@@7NS(7B@  HB@@@@PCB" JC2T[@@@@@@@@M34LBB@<OAP @@P)JB$I
c5fad2575a88 changed:
Claus Gittinger <cg@exept.de>
parents: 11130
diff changeset
   236
J!!HA@@@@@@@@@B,LHB@YHB@ A XACQP-F0L@@@@@@@@ @@(RK"T H@@@BA,/LCD@L @@@@@@@@@@HB@ HB@ MP@@@QTTC@ 3@@@@@@@@@@@@@A$ HB@5@@@@
c5fad2575a88 changed:
Claus Gittinger <cg@exept.de>
parents: 11130
diff changeset
   237
@CP\L0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[143 136 136 208 208 208 192 192 184 176 176 176 175 168 168 176 168 168 191 184 184 191 176 176 159 152 144 160 160 160 239 232 224 192 184 184 159 152 160 207 192 200 207 200 200 144 144 144 224 224 224 160 152 160 127 120 120 144 144 136 128 128 128 111 104 104 207 200 208 239 232 240 95 88 88 96 96 96 79 72 80 112 112 120 192 192 200 223 208 208 111 104 96 80 80 80 64 64 64 223 216 216 128 120 128 31 24 24 32 32 24 79 72 64 64 56 56 47 40 40 240 240 240 239 224 224 63 48 48 191 184 176 112 112 104 64 64 56 63 56 56 48 48 48 48 40 48 127 112 120 160 160 168 208 200 208 224 224 216 0 0 0 0 64 0 32 96 32 96 192 128 32 128 64 32 160 64 32 128 32 32 32 32 32 64 32]; mask:((Depth1Image new) width: 24; height: 24; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@G>@@O? @_?0@??8@??8@??<@??<O??>__?>_O?>_??>O=?>GR_>G<_<_>_<O>_8G?_8C??0K<? G<?@C8\@@@@@') ; yourself); yourself]
11133
fb5acac1388d added: #defaultIcon3
Claus Gittinger <cg@exept.de>
parents: 11132
diff changeset
   238
!
fb5acac1388d added: #defaultIcon3
Claus Gittinger <cg@exept.de>
parents: 11132
diff changeset
   239
fb5acac1388d added: #defaultIcon3
Claus Gittinger <cg@exept.de>
parents: 11132
diff changeset
   240
defaultIcon3
fb5acac1388d added: #defaultIcon3
Claus Gittinger <cg@exept.de>
parents: 11132
diff changeset
   241
    "This resource specification was automatically generated
fb5acac1388d added: #defaultIcon3
Claus Gittinger <cg@exept.de>
parents: 11132
diff changeset
   242
     by the ImageEditor of ST/X."
fb5acac1388d added: #defaultIcon3
Claus Gittinger <cg@exept.de>
parents: 11132
diff changeset
   243
fb5acac1388d added: #defaultIcon3
Claus Gittinger <cg@exept.de>
parents: 11132
diff changeset
   244
    "Do not manually edit this!! If it is corrupted,
fb5acac1388d added: #defaultIcon3
Claus Gittinger <cg@exept.de>
parents: 11132
diff changeset
   245
     the ImageEditor may not be able to read the specification."
fb5acac1388d added: #defaultIcon3
Claus Gittinger <cg@exept.de>
parents: 11132
diff changeset
   246
fb5acac1388d added: #defaultIcon3
Claus Gittinger <cg@exept.de>
parents: 11132
diff changeset
   247
    "
fb5acac1388d added: #defaultIcon3
Claus Gittinger <cg@exept.de>
parents: 11132
diff changeset
   248
     self defaultIcon3 inspect
fb5acac1388d added: #defaultIcon3
Claus Gittinger <cg@exept.de>
parents: 11132
diff changeset
   249
     ImageEditor openOnClass:self andSelector:#defaultIcon3
fb5acac1388d added: #defaultIcon3
Claus Gittinger <cg@exept.de>
parents: 11132
diff changeset
   250
     Icon flushCachedIcons
fb5acac1388d added: #defaultIcon3
Claus Gittinger <cg@exept.de>
parents: 11132
diff changeset
   251
    "
fb5acac1388d added: #defaultIcon3
Claus Gittinger <cg@exept.de>
parents: 11132
diff changeset
   252
fb5acac1388d added: #defaultIcon3
Claus Gittinger <cg@exept.de>
parents: 11132
diff changeset
   253
    <resource: #image>
fb5acac1388d added: #defaultIcon3
Claus Gittinger <cg@exept.de>
parents: 11132
diff changeset
   254
fb5acac1388d added: #defaultIcon3
Claus Gittinger <cg@exept.de>
parents: 11132
diff changeset
   255
    ^Icon
fb5acac1388d added: #defaultIcon3
Claus Gittinger <cg@exept.de>
parents: 11132
diff changeset
   256
        constantNamed:'MercurialSourceCodeManagementSettingsAppl class defaultIcon3'
fb5acac1388d added: #defaultIcon3
Claus Gittinger <cg@exept.de>
parents: 11132
diff changeset
   257
        ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
fb5acac1388d added: #defaultIcon3
Claus Gittinger <cg@exept.de>
parents: 11132
diff changeset
   258
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PHCA@PEA D@@@@@@@@@@@@@@@@@@@@GA@ HB@ HB@$C
fb5acac1388d added: #defaultIcon3
Claus Gittinger <cg@exept.de>
parents: 11132
diff changeset
   259
B @@@@@@@@@@@@@@@@,IB@ HB@ HB@ LA@4@@@@@@@@@@@@@C LLB@ HB@ HB@ HB@<P@@@@@@@@@@@@BPPHB@ HB@ HB@ HBADR@@@@@@@@@@@@D0$HB@ H
fb5acac1388d added: #defaultIcon3
Claus Gittinger <cg@exept.de>
parents: 11132
diff changeset
   260
B@ HB@ HB@ SA@@@@@@@@@@@@APLB@ HB@ HB@ HB@ IEP@@@@@VA@LW@Q OC@ HB@ HB@ HB@ LFPD@@@DLBP\Q@@@ZF0 LB@ HB@ HB@ IF@X@@A0HA!!4^
fb5acac1388d added: #defaultIcon3
Claus Gittinger <cg@exept.de>
parents: 11132
diff changeset
   261
@@@SF!!<_@@$HB@ HB@0FH@L@@BDI@AH:N#\7HP@O@BHIB@ HB@LFH0H@@@@ABS\:N#(:M0@!!A@@DB@ HCA0OI@8@@@@@M#(:@A\@@C\@@@XDB@ HBP8%I D@
fb5acac1388d added: #defaultIcon3
Claus Gittinger <cg@exept.de>
parents: 11132
diff changeset
   262
@@@@M3 7A@$D@P@@@@8IB@ LC P''C0@@@C\7N#$:N0 HOA0@@@8LA@XA@Q<Y@0@@@@@7NS(7B@ <OC0@@@PCB" JC2T[@@@@@@@@M4@LBC0?O38<@@P)JB$I
fb5acac1388d added: #defaultIcon3
Claus Gittinger <cg@exept.de>
parents: 11132
diff changeset
   263
J!!HA@@@@@@@@@B,LOC0=OC0<A XACQP-F0L@@@@@@@@<@@(RK"T<O@@@BA,/LCD@L @@@@@@@@@@OC0<OC0<MP@@@QTTC@ 3@@@@@@@@@@@@@C4<OC05@@@@
fb5acac1388d added: #defaultIcon3
Claus Gittinger <cg@exept.de>
parents: 11132
diff changeset
   264
@CP\L0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[174 169 169 255 255 255 233 233 230 216 216 216 213 209 209 214 209 209 232 229 229 229 223 223 191 187 181 197 197 197 255 255 255 233 230 230 194 189 194 247 244 245 251 250 250 177 177 177 255 255 255 194 189 194 155 149 149 175 175 169 157 157 157 136 128 128 251 251 251 255 255 255 117 108 108 118 118 118 97 89 98 139 139 147 240 240 242 255 255 255 137 128 118 98 98 98 79 79 79 255 255 255 156 149 156 38 30 30 39 39 30 97 89 79 79 69 69 58 49 49 255 255 255 255 255 255 77 59 59 229 226 223 137 137 128 79 79 69 77 69 69 59 59 59 59 49 59 154 140 147 199 199 204 251 251 251 255 255 255 0 0 0 0 64 0 32 96 32 96 192 128 32 128 64 32 160 64 32 128 32 64 64 64 96 96 96 128 128 128 32 32 32 32 64 32]; mask:((Depth1Image new) width: 24; height: 24; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@G>@@O? @_?0@??8@??8@??<@??<O??>__?>_O?>_??>O=?>GR_>G<_<_>_<O>_8G?_8C??0K<? G<?@C8\@@@@@') ; yourself); yourself]
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   265
! !
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   266
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   267
!MercurialSourceCodeManagementSettingsAppl class methodsFor:'interface specs'!
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   268
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   269
windowSpec
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   270
    "This resource specification was automatically generated
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   271
     by the UIPainter of ST/X."
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   272
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   273
    "Do not manually edit this!! If it is corrupted,
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   274
     the UIPainter may not be able to read the specification."
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   275
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   276
    "
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   277
     UIPainter new openOnClass:MercurialSourceCodeManagementSettingsAppl andSelector:#windowSpec
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   278
     MercurialSourceCodeManagementSettingsAppl new openInterface:#windowSpec
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   279
     MercurialSourceCodeManagementSettingsAppl open
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   280
    "
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   281
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   282
    <resource: #canvas>
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   283
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   284
    ^ 
13284
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   285
    #(FullSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   286
       name: windowSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   287
       window: 
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   288
      (WindowSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   289
         label: 'Mercurial Settings'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   290
         name: 'Mercurial Settings'
14325
10d416d3296a class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14246
diff changeset
   291
         flags: 1
13284
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   292
         min: (Point 10 10)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   293
         bounds: (Rectangle 0 0 807 720)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   294
       )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   295
       component: 
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   296
      (SpecCollection
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   297
         collection: (
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   298
          (VerticalPanelViewSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   299
             name: 'VerticalPanel3'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   300
             layout: (LayoutFrame 0 0 0 0 0 1 0 1)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   301
             horizontalLayout: fit
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   302
             verticalLayout: topSpace
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   303
             horizontalSpace: 3
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   304
             verticalSpace: 4
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   305
             component: 
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   306
            (SpecCollection
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   307
               collection: (
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   308
                (LabelSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   309
                   label: 'Unfinished & Experimental'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   310
                   name: 'Label10'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   311
                   style: (FontDescription #'Segoe UI' medium roman 16 #'ms-default')
13668
fa213bf66a31 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13315
diff changeset
   312
                   initiallyInvisible: true
13284
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   313
                   foregroundColor: (Color 86.9993133440147 0.0 0.0)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   314
                   translateLabel: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   315
                   extent: (Point 807 37)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   316
                 )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   317
                (ViewSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   318
                   name: 'ManagerSetupBoxx'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   319
                   component: 
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   320
                  (SpecCollection
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   321
                     collection: (
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   322
                      (FramedBoxSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   323
                         label: 'Mercurial Sourcecode Manager Settings'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   324
                         name: 'HGSetupBox'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   325
                         layout: (LayoutFrame 0 0 0 0 0 1 0 1)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   326
                         labelPosition: topLeft
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   327
                         translateLabel: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   328
                         component: 
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   329
                        (SpecCollection
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   330
                           collection: (
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   331
                            (CheckBoxSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   332
                               label: 'Show in Browser Menus'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   333
                               name: 'CheckBox1'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   334
                               layout: (LayoutFrame 0 0 5 0 0 1 27 0)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   335
                               activeHelpKey: shownInBrowserMenus
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   336
                               model: shownInBrowserMenusHolder
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   337
                               translateLabel: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   338
                             )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   339
                            (ViewSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   340
                               name: 'CommandBox'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   341
                               layout: (LayoutFrame 0 0 35 0 0 1 60 0)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   342
                               component: 
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   343
                              (SpecCollection
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   344
                                 collection: (
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   345
                                  (LabelSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   346
                                     label: 'HG Command or Path:'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   347
                                     name: 'Label1'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   348
                                     layout: (LayoutFrame 0 0.0 0 0 60 0.25 22 0)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   349
                                     activeHelpKey: hgCommand
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   350
                                     level: 0
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   351
                                     translateLabel: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   352
                                     adjust: right
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   353
                                   )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   354
                                  (InputFieldSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   355
                                     name: 'HGExecutableField'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   356
                                     layout: (LayoutFrame 64 0.25 0 0 0 1 22 0)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   357
                                     activeHelpKey: hgCommand
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   358
                                     tabable: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   359
                                     model: hgExecutableHolder
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   360
                                     acceptChannel: acceptChannel
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   361
                                     acceptOnPointerLeave: true
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   362
                                   )
13284
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   363
                                  )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   364
                                
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   365
                               )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   366
                             )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   367
                            (ViewSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   368
                               name: 'TimeoutBox'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   369
                               layout: (LayoutFrame 0 0 61 0 0 1 86 0)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   370
                               component: 
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   371
                              (SpecCollection
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   372
                                 collection: (
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   373
                                  (LabelSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   374
                                     label: 'HG Command Timeout:'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   375
                                     name: 'Label2'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   376
                                     layout: (LayoutFrame 0 0.0 0 0 60 0.25 22 0)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   377
                                     activeHelpKey: hgCommandTimeout
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   378
                                     level: 0
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   379
                                     translateLabel: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   380
                                     adjust: right
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   381
                                   )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   382
                                  (InputFieldSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   383
                                     name: 'EntryField1'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   384
                                     layout: (LayoutFrame 64 0.25 0 0 168 0.25 22 0)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   385
                                     activeHelpKey: hgCommandTimeout
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   386
                                     tabable: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   387
                                     model: hgCommandTimeoutHolder
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   388
                                     type: timeDuration
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   389
                                     acceptChannel: acceptChannel
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   390
                                     acceptOnPointerLeave: true
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   391
                                   )
13284
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   392
                                  )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   393
                                
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   394
                               )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   395
                             )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   396
                            (ViewSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   397
                               name: 'WorkDirectoryBox'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   398
                               layout: (LayoutFrame 0 0.0 85 0 0 1 110 0)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   399
                               component: 
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   400
                              (SpecCollection
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   401
                                 collection: (
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   402
                                  (InputFieldSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   403
                                     name: 'EntryField2'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   404
                                     layout: (LayoutFrame 64 0.25 2 0 0 1 24 0)
13286
72b25058832c class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13284
diff changeset
   405
                                     activeHelpKey: hgWorkingDirectory
13284
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   406
                                     tabable: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   407
                                     model: workDirectoryHolder
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   408
                                     immediateAccept: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   409
                                     acceptOnLeave: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   410
                                     acceptOnReturn: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   411
                                     acceptOnTab: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   412
                                     acceptOnLostFocus: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   413
                                     acceptChannel: acceptChannel
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   414
                                     acceptOnPointerLeave: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   415
                                   )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   416
                                  (LabelSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   417
                                     label: 'Working Directory:'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   418
                                     name: 'Label9'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   419
                                     layout: (LayoutFrame 0 0.0 2 0 60 0.25 24 0)
13286
72b25058832c class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13284
diff changeset
   420
                                     activeHelpKey: hgWorkingDirectory
13284
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   421
                                     level: 0
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   422
                                     translateLabel: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   423
                                     adjust: right
11357
fac80d1a9ce2 workdir
Claus Gittinger <cg@exept.de>
parents: 11352
diff changeset
   424
                                   )
13284
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   425
                                  )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   426
                                
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   427
                               )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   428
                             )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   429
                            (ViewSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   430
                               name: 'RepositoryBox'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   431
                               layout: (LayoutFrame 0 0.0 120 0 0 1 145 0)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   432
                               component: 
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   433
                              (SpecCollection
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   434
                                 collection: (
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   435
                                  (LabelSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   436
                                     label: 'Default Repository:'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   437
                                     name: 'defaultCvsRootLabel'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   438
                                     layout: (LayoutFrame 0 0.0 2 0 60 0.25 24 0)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   439
                                     activeHelpKey: hgRootDefault
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   440
                                     level: 0
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   441
                                     translateLabel: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   442
                                     adjust: right
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   443
                                   )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   444
                                  (ComboBoxSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   445
                                     name: 'RepositoryComboBox'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   446
                                     layout: (LayoutFrame 64 0.25 2 0 0 1 24 0)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   447
                                     activeHelpKey: hgRootDefault
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   448
                                     tabable: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   449
                                     model: repositoryHolder
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   450
                                     immediateAccept: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   451
                                     acceptOnLeave: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   452
                                     acceptOnReturn: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   453
                                     acceptOnTab: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   454
                                     acceptOnLostFocus: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   455
                                     acceptChannel: acceptChannel
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   456
                                     acceptOnPointerLeave: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   457
                                     comboList: repositoryPrototypeList
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   458
                                   )
13284
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   459
                                  )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   460
                                
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   461
                               )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   462
                             )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   463
                            (ActionButtonSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   464
                               label: 'Init'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   465
                               name: 'Button2'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   466
                               layout: (LayoutFrame -201 1 150 0 -101 1 172 0)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   467
                               activeHelpKey: hgInit
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   468
                               translateLabel: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   469
                               tabable: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   470
                               model: initializeRepository
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   471
                               enableChannel: cvsLoginEnabled
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   472
                             )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   473
                            (ActionButtonSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   474
                               label: 'Check Access'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   475
                               name: 'Button1'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   476
                               layout: (LayoutFrame -100 1 150 0 0 1 172 0)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   477
                               activeHelpKey: hgCheckAccess
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   478
                               translateLabel: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   479
                               tabable: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   480
                               model: checkAccess
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   481
                               enableChannel: cvsLoginEnabled
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   482
                             )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   483
                            (LabelSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   484
                               label: 'Repository per Module:'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   485
                               name: 'knownModulesLabel'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   486
                               layout: (LayoutFrame 0 0.0 178 0 60 0.25 200 0)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   487
                               activeHelpKey: hgRootPerModule
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   488
                               translateLabel: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   489
                               adjust: right
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   490
                             )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   491
                            (SequenceViewSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   492
                               name: 'List1'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   493
                               layout: (LayoutFrame 64 0.25 178 0 0 1 262 0)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   494
                               activeHelpKey: hgRootPerModule
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   495
                               tabable: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   496
                               model: selectedPerModuleRepository
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   497
                               hasHorizontalScrollBar: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   498
                               hasVerticalScrollBar: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   499
                               miniScrollerHorizontal: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   500
                               useIndex: false
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   501
                               sequenceList: listOfModules
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   502
                             )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   503
                            (LabelSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   504
                               label: 'Module:'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   505
                               name: 'moduleLabel'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   506
                               layout: (LayoutFrame 0 0.0 275 0 60 0.25 292 0)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   507
                               activeHelpKey: hgRootPerModuleModule
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   508
                               translateLabel: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   509
                               adjust: right
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   510
                             )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   511
                            (ComboBoxSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   512
                               name: 'ComboBox3'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   513
                               layout: (LayoutFrame 64 0.25 271 0 0 1 293 0)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   514
                               activeHelpKey: hgRootPerModuleModule
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   515
                               tabable: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   516
                               model: perModuleRepositoryModule
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   517
                               acceptChannel: acceptChannel
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   518
                               acceptOnPointerLeave: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   519
                               comboList: sampleModuleList
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   520
                             )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   521
                            (LabelSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   522
                               label: 'Mercurial Repository:'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   523
                               name: 'hgRepository'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   524
                               layout: (LayoutFrame 0 0.0 300 0 60 0.25 317 0)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   525
                               activeHelpKey: hgRootPerModuleRoot
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   526
                               translateLabel: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   527
                               adjust: right
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   528
                             )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   529
                            (ComboBoxSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   530
                               name: 'perModuleRepositoryComboBox'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   531
                               layout: (LayoutFrame 64 0.25 296 0 0 1.0 318 0)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   532
                               activeHelpKey: hgRootPerModuleRoot
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   533
                               tabable: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   534
                               model: perModuleRepository
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   535
                               immediateAccept: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   536
                               acceptOnLeave: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   537
                               acceptOnReturn: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   538
                               acceptOnTab: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   539
                               acceptOnLostFocus: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   540
                               acceptChannel: acceptChannel
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   541
                               acceptOnPointerLeave: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   542
                               comboList: repositoryPrototypeList
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   543
                             )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   544
                            (HorizontalPanelViewSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   545
                               name: 'HorizontalPanel2'
13291
b136fdb911aa class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13287
diff changeset
   546
                               layout: (LayoutFrame 0 0.0 323 0 0 1.0 348 0)
13284
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   547
                               horizontalLayout: right
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   548
                               verticalLayout: center
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   549
                               horizontalSpace: 3
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   550
                               verticalSpace: 3
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   551
                               component: 
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   552
                              (SpecCollection
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   553
                                 collection: (
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   554
                                  (ActionButtonSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   555
                                     label: 'Add/Apply'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   556
                                     name: 'addButton'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   557
                                     activeHelpKey: addPerModuleRoot
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   558
                                     translateLabel: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   559
                                     tabable: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   560
                                     model: addPerModuleRoot
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   561
                                     extent: (Point 100 22)
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   562
                                   )
13284
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   563
                                  (ActionButtonSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   564
                                     label: 'Remove'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   565
                                     name: 'removeButton'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   566
                                     activeHelpKey: removePerModuleRoot
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   567
                                     translateLabel: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   568
                                     tabable: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   569
                                     model: removePerModuleRoot
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   570
                                     enableChannel: removeEnabled
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   571
                                     extent: (Point 100 22)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   572
                                   )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   573
                                  (ViewSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   574
                                     name: 'Box11'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   575
                                     extent: (Point 100 10)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   576
                                   )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   577
                                  (ActionButtonSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   578
                                     label: 'Init'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   579
                                     name: 'Button3'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   580
                                     activeHelpKey: hgLoginPerModuleRoot
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   581
                                     translateLabel: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   582
                                     tabable: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   583
                                     model: initializePerModuleRepository
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   584
                                     enableChannel: cvsLoginEnabled
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   585
                                     extent: (Point 100 22)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   586
                                   )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   587
                                  (ActionButtonSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   588
                                     label: 'Check Access'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   589
                                     name: 'checkButton2'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   590
                                     activeHelpKey: hgCheckAccessPerModuleRoot
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   591
                                     translateLabel: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   592
                                     tabable: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   593
                                     model: checkAccessPerModuleRepository
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   594
                                     enableChannel: cvsLoginInModuleEnabled
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   595
                                     extent: (Point 100 22)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   596
                                   )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   597
                                  )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   598
                                
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   599
                               )
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   600
                             )
13284
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   601
                            )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   602
                          
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   603
                         )
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   604
                       )
13284
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   605
                      )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   606
                    
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   607
                   )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   608
                   extent: (Point 807 384)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   609
                 )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   610
                (FramedBoxSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   611
                   label: 'Push URLs'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   612
                   name: 'FramedBox2'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   613
                   labelPosition: topLeft
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   614
                   translateLabel: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   615
                   component: 
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   616
                  (SpecCollection
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   617
                     collection: (
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   618
                      (LabelSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   619
                         label: 'URL to Push To:'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   620
                         name: 'Label6'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   621
                         layout: (LayoutFrame 0 0.0 7 0 60 0.25 29 0)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   622
                         activeHelpKey: hgPushURLs
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   623
                         translateLabel: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   624
                         adjust: right
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   625
                       )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   626
                      (SequenceViewSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   627
                         name: 'List2'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   628
                         layout: (LayoutFrame 64 0.25 7 0 0 1 65 0)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   629
                         activeHelpKey: hgPushURLs
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   630
                         tabable: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   631
                         model: selectedPushURL
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   632
                         hasHorizontalScrollBar: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   633
                         hasVerticalScrollBar: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   634
                         miniScrollerHorizontal: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   635
                         useIndex: false
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   636
                         sequenceList: listOfPushURLs
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   637
                       )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   638
                      (LabelSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   639
                         label: 'URL:'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   640
                         name: 'Label8'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   641
                         layout: (LayoutFrame 0 0.0 79 0 60 0.25 96 0)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   642
                         activeHelpKey: hgAddPushURL
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   643
                         translateLabel: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   644
                         adjust: right
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   645
                       )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   646
                      (ComboBoxSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   647
                         name: 'ComboBox2'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   648
                         layout: (LayoutFrame 64 0.25 75 0 0 1.0 97 0)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   649
                         activeHelpKey: hgAddPushURL
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   650
                         tabable: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   651
                         model: pushURL
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   652
                         immediateAccept: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   653
                         acceptOnLeave: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   654
                         acceptOnReturn: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   655
                         acceptOnTab: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   656
                         acceptOnLostFocus: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   657
                         acceptChannel: acceptChannel
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   658
                         acceptOnPointerLeave: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   659
                         comboList: pushURLPrototypeList
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   660
                       )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   661
                      (HorizontalPanelViewSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   662
                         name: 'HorizontalPanel3'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   663
                         layout: (LayoutFrame 64 0.25 103 0 -1 1 128 0)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   664
                         horizontalLayout: right
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   665
                         verticalLayout: center
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   666
                         horizontalSpace: 3
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   667
                         verticalSpace: 3
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   668
                         component: 
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   669
                        (SpecCollection
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   670
                           collection: (
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   671
                            (ActionButtonSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   672
                               label: 'Add/Apply'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   673
                               name: 'Button6'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   674
                               activeHelpKey: hgAddPushURL
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   675
                               translateLabel: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   676
                               tabable: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   677
                               model: addPushURL
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   678
                               extent: (Point 100 22)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   679
                             )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   680
                            (ActionButtonSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   681
                               label: 'Remove'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   682
                               name: 'Button7'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   683
                               activeHelpKey: hgRemovePushURL
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   684
                               translateLabel: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   685
                               tabable: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   686
                               model: removePushURL
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   687
                               enableChannel: removePushURLEnabled
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   688
                               extent: (Point 100 22)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   689
                             )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   690
                            (ViewSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   691
                               name: 'Box17'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   692
                               extent: (Point 100 10)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   693
                             )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   694
                            (ViewSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   695
                               name: 'Box18'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   696
                               extent: (Point 100 10)
11165
c75bf5c6721d changed:
Claus Gittinger <cg@exept.de>
parents: 11146
diff changeset
   697
                             )
13284
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   698
                            (ViewSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   699
                               name: 'Box19'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   700
                               extent: (Point 99 9)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   701
                             )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   702
                            )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   703
                          
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   704
                         )
11165
c75bf5c6721d changed:
Claus Gittinger <cg@exept.de>
parents: 11146
diff changeset
   705
                       )
13284
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   706
                      )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   707
                    
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   708
                   )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   709
                   extent: (Point 807 170)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   710
                 )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   711
                (FramedBoxSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   712
                   label: 'Source Cache'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   713
                   name: 'FramedBox1'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   714
                   visibilityChannel: false
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   715
                   labelPosition: topLeft
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   716
                   translateLabel: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   717
                   component: 
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   718
                  (SpecCollection
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   719
                     collection: (
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   720
                      (ViewSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   721
                         name: 'SourceCacheDirBox'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   722
                         layout: (LayoutFrame 0 0 0 0 0 1 30 0)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   723
                         component: 
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   724
                        (SpecCollection
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   725
                           collection: (
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   726
                            (LabelSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   727
                               label: 'Source Cache Dir:'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   728
                               name: 'SourceCacheDirLabel'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   729
                               layout: (LayoutFrame 0 0.0 0 0 60 0.25 22 0)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   730
                               translateLabel: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   731
                               adjust: right
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   732
                             )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   733
                            (InputFieldSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   734
                               name: 'SourceCacheDirEntryField'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   735
                               layout: (LayoutFrame 64 0.25 0 0 0 1 22 0)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   736
                               model: sourceCacheDir
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   737
                               immediateAccept: false
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   738
                               acceptOnReturn: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   739
                               acceptOnTab: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   740
                               acceptOnLostFocus: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   741
                               acceptOnPointerLeave: true
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   742
                             )
13284
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   743
                            )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   744
                          
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   745
                         )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   746
                       )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   747
                      (HorizontalPanelViewSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   748
                         name: 'CacheActionsHorizontalPanel'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   749
                         layout: (LayoutFrame 44 0.25 33 0 0 1 67 0)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   750
                         horizontalLayout: fitSpace
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   751
                         verticalLayout: center
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   752
                         horizontalSpace: 3
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   753
                         verticalSpace: 3
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   754
                         component: 
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   755
                        (SpecCollection
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   756
                           collection: (
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   757
                            (ActionButtonSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   758
                               label: 'Flush Cache now'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   759
                               name: 'FlushCacheNowButton'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   760
                               translateLabel: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   761
                               tabable: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   762
                               model: flushSourceCache
14325
10d416d3296a class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14246
diff changeset
   763
                               extent: (Point 263 22)
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   764
                             )
13284
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   765
                            (ActionButtonSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   766
                               label: 'Condense Cache now'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   767
                               name: 'CondenseCacheNowButton'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   768
                               translateLabel: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   769
                               tabable: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   770
                               model: condenseSourceCache
14325
10d416d3296a class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14246
diff changeset
   771
                               extent: (Point 264 22)
13284
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   772
                             )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   773
                            )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   774
                          
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   775
                         )
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   776
                       )
13284
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   777
                      )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   778
                    
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   779
                   )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   780
                   extent: (Point 807 95)
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   781
                 )
13284
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   782
                )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   783
              
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   784
             )
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   785
           )
13284
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   786
          )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   787
        
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   788
       )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   789
     )
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   790
! !
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   791
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   792
!MercurialSourceCodeManagementSettingsAppl class methodsFor:'queries'!
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   793
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   794
managerClass
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   795
    "backlink to my manager class (needed by the settings app)"
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   796
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   797
    ^ MercurialSourceCodeManager
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   798
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   799
    "Created: / 19-04-2011 / 12:46:52 / cg"
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   800
! !
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   801
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   802
!MercurialSourceCodeManagementSettingsAppl methodsFor:'actions'!
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   803
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   804
addModule:module withData:data
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   805
    (self listOfModules includes:module) ifFalse:[
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   806
        self listOfModules add:module; sort.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   807
    ].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   808
    repositoriesPerModule at:module put:data.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   809
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   810
    self updateModifiedChannel.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   811
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   812
    "Created: / 08-11-2006 / 19:25:21 / cg"
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   813
!
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   814
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   815
basicReadSettings
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   816
    |infoPerModule|
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   817
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   818
    self initialize.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   819
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   820
    self sourceCacheDir value:(MercurialSourceCodeManager cacheDirectoryName).
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   821
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   822
    repository := MercurialSourceCodeManager repositoryName.
11133
fb5acac1388d added: #defaultIcon3
Claus Gittinger <cg@exept.de>
parents: 11132
diff changeset
   823
    self repositoryHolder value:(repository ? '') asValue.
11357
fac80d1a9ce2 workdir
Claus Gittinger <cg@exept.de>
parents: 11352
diff changeset
   824
    self workDirectoryHolder value:MercurialSourceCodeManager workDirectory.
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   825
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   826
    infoPerModule := MercurialSourceCodeManager repositoryInfoPerModule.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   827
    infoPerModule keysAndValuesDo:[:module :info | 
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   828
        repositoriesPerModule at:module put:(Array with:MercurialSourceCodeManager with:info).
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   829
    ].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   830
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   831
    self repositoryHolder value:MercurialSourceCodeManager repositoryName ? self class defaultRepositoryName.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   832
    self hgExecutableHolder value:MercurialSourceCodeManager hgExecutable.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   833
    self hgCommandTimeoutHolder value:MercurialSourceCodeManager hgCommandTimeout.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   834
    self verboseSourceCodeAccess value:MercurialSourceCodeManager verboseSourceCodeAccess. 
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   835
    self shownInBrowserMenusHolder value:MercurialSourceCodeManager shownInBrowserMenus. 
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   836
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   837
    repositoriesPerModule notNil ifTrue:[
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   838
        self listOfModules removeAll.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   839
        listOfModules addAll:repositoriesPerModule keys asList.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   840
    ].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   841
"/    self selectedPerModuleRootChanged.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   842
11357
fac80d1a9ce2 workdir
Claus Gittinger <cg@exept.de>
parents: 11352
diff changeset
   843
    "Modified: / 03-03-2012 / 11:11:54 / cg"
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   844
!
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   845
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   846
basicSaveSettings
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   847
    |modules nm fn infoPerModule|
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   848
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   849
    nm := self sourceCacheDir value.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   850
    nm notEmptyOrNil ifTrue:[
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   851
        (fn := nm asFilename) exists ifFalse:[
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   852
            (self confirm:('Mercurial cache directory ''' , nm , ''' does not exist\create ?' withCRs)) ifTrue:[
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   853
                fn recursiveMakeDirectory; 
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   854
                   makeReadableForAll;
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   855
                   makeWritableForAll;
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   856
                   makeExecutableForAll.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   857
            ]
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   858
        ].
13235
d3abf0da20ec Use #isWritableDirectory
Stefan Vogel <sv@exept.de>
parents: 11736
diff changeset
   859
        (fn isWritableDirectory and:[fn isReadable]) ifTrue:[
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   860
            MercurialSourceCodeManager cacheDirectoryName:nm.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   861
        ] ifFalse:[
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   862
            self warn:'Invalid sourceCache directory.'
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   863
        ]
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   864
    ].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   865
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   866
    MercurialSourceCodeManager hgCommandTimeout:(self hgCommandTimeoutHolder value).
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   867
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   868
    modules := repositoriesPerModule select:[:entry | entry first == MercurialSourceCodeManager].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   869
    infoPerModule := Dictionary new.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   870
    modules keysAndValuesDo:[:module :entry | 
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   871
        entry first == MercurialSourceCodeManager ifTrue:[
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   872
            infoPerModule at:module put:(entry second).
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   873
        ].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   874
    ].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   875
    MercurialSourceCodeManager repositoryInfoPerModule:infoPerModule.
11357
fac80d1a9ce2 workdir
Claus Gittinger <cg@exept.de>
parents: 11352
diff changeset
   876
    MercurialSourceCodeManager workDirectory:self workDirectoryHolder value.
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   877
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   878
    self basicSaveMercurialSettings.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   879
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   880
    self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   881
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   882
    DebugView newDebugger. "/ ???
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   883
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   884
    self acceptChannel value.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   885
11357
fac80d1a9ce2 workdir
Claus Gittinger <cg@exept.de>
parents: 11352
diff changeset
   886
    "Modified: / 03-03-2012 / 11:24:56 / cg"
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   887
!
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   888
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   889
removePerModuleRoot
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   890
    |module|
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   891
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   892
    acceptChannel value:true.    
11199
24c54d30aad3 changed:
Claus Gittinger <cg@exept.de>
parents: 11175
diff changeset
   893
    module := self perModuleRepositoryModule value.
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   894
    self listOfModules remove:module ifAbsent:nil.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   895
    repositoriesPerModule removeKey:module ifAbsent:nil.
11199
24c54d30aad3 changed:
Claus Gittinger <cg@exept.de>
parents: 11175
diff changeset
   896
    self perModuleRepositoryModule value:nil.
24c54d30aad3 changed:
Claus Gittinger <cg@exept.de>
parents: 11175
diff changeset
   897
    self perModuleRepository value:nil.
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   898
    self updateModifiedChannel.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   899
11199
24c54d30aad3 changed:
Claus Gittinger <cg@exept.de>
parents: 11175
diff changeset
   900
    "Modified: / 26-01-2012 / 13:50:08 / cg"
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   901
! !
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   902
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   903
!MercurialSourceCodeManagementSettingsAppl methodsFor:'actions - mercurial'!
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   904
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   905
addPerModuleRoot
11199
24c54d30aad3 changed:
Claus Gittinger <cg@exept.de>
parents: 11175
diff changeset
   906
    |module hgRepository|
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   907
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   908
    acceptChannel value:true.    
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   909
11199
24c54d30aad3 changed:
Claus Gittinger <cg@exept.de>
parents: 11175
diff changeset
   910
    module := self perModuleRepositoryModule value.
24c54d30aad3 changed:
Claus Gittinger <cg@exept.de>
parents: 11175
diff changeset
   911
    hgRepository := self perModuleRepository value.
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   912
11199
24c54d30aad3 changed:
Claus Gittinger <cg@exept.de>
parents: 11175
diff changeset
   913
    hgRepository size > 0 ifTrue:[
24c54d30aad3 changed:
Claus Gittinger <cg@exept.de>
parents: 11175
diff changeset
   914
        self addModule:module withData:(Array with:MercurialSourceCodeManager with:hgRepository).
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   915
    ].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   916
11199
24c54d30aad3 changed:
Claus Gittinger <cg@exept.de>
parents: 11175
diff changeset
   917
    "Modified: / 26-01-2012 / 12:29:36 / cg"
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   918
!
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   919
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   920
basicSaveMercurialSettings
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   921
    |hgRepository|
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   922
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   923
    repositoryHolder notNil ifTrue:[
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   924
        repositoryHolder value size > 0 ifTrue:[
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   925
            manager notNil ifTrue:[
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   926
                manager initializeForRepository:repositoryHolder value.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   927
            ]
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   928
        ].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   929
    ].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   930
    MercurialSourceCodeManager hgExecutable:((self hgExecutableHolder value ? '') withoutSeparators).
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   931
    MercurialSourceCodeManager initializeForRepository:(hgRepository := self repositoryHolder value).
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   932
    MercurialSourceCodeManager verboseSourceCodeAccess: verboseSourceCodeAccess value. 
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   933
    MercurialSourceCodeManager shownInBrowserMenus:self shownInBrowserMenusHolder value. 
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   934
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   935
    RecentlyUsedRepositoryURLS isNil ifTrue:[
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   936
        RecentlyUsedRepositoryURLS := OrderedCollection new.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   937
    ].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   938
    (RecentlyUsedRepositoryURLS includes:hgRepository) ifFalse:[
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   939
        RecentlyUsedRepositoryURLS addFirst:hgRepository.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   940
        RecentlyUsedRepositoryURLS size > 20 ifTrue:[
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   941
            RecentlyUsedRepositoryURLS removeLast.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   942
        ].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   943
    ].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   944
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   945
    "Modified: / 10-01-2012 / 00:18:15 / cg"
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   946
    "Created: / 14-01-2012 / 20:01:47 / cg"
11146
Claus Gittinger <cg@exept.de>
parents: 11133
diff changeset
   947
!
Claus Gittinger <cg@exept.de>
parents: 11133
diff changeset
   948
Claus Gittinger <cg@exept.de>
parents: 11133
diff changeset
   949
checkAccess
Claus Gittinger <cg@exept.de>
parents: 11133
diff changeset
   950
    self halt:'unimplemented feature'
Claus Gittinger <cg@exept.de>
parents: 11133
diff changeset
   951
Claus Gittinger <cg@exept.de>
parents: 11133
diff changeset
   952
    "Created: / 17-01-2012 / 17:34:53 / cg"
Claus Gittinger <cg@exept.de>
parents: 11133
diff changeset
   953
!
Claus Gittinger <cg@exept.de>
parents: 11133
diff changeset
   954
13284
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   955
initializePerModuleRepository
13291
b136fdb911aa class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13287
diff changeset
   956
    |directory|
b136fdb911aa class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13287
diff changeset
   957
b136fdb911aa class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13287
diff changeset
   958
    directory := perModuleRepository value.
b136fdb911aa class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13287
diff changeset
   959
    directory asFilename exists ifFalse:[
b136fdb911aa class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13287
diff changeset
   960
        directory asFilename recursiveMakeDirectory.
b136fdb911aa class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13287
diff changeset
   961
    ].
b136fdb911aa class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13287
diff changeset
   962
    OperatingSystem executeCommand:'hg init' inDirectory:directory onError:[self halt].
13284
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   963
    self halt:'unimplemented feature'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   964
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   965
    "Created: / 31-07-2013 / 19:12:08 / cg"
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   966
!
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   967
11146
Claus Gittinger <cg@exept.de>
parents: 11133
diff changeset
   968
initializeRepository
Claus Gittinger <cg@exept.de>
parents: 11133
diff changeset
   969
    self halt:'unimplemented feature'
Claus Gittinger <cg@exept.de>
parents: 11133
diff changeset
   970
Claus Gittinger <cg@exept.de>
parents: 11133
diff changeset
   971
    "Created: / 17-01-2012 / 17:42:27 / cg"
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   972
! !
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   973
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   974
!MercurialSourceCodeManagementSettingsAppl methodsFor:'aspects'!
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   975
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   976
hgCommandTimeoutHolder
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   977
    hgCommandTimeoutHolder isNil ifTrue:[
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   978
        hgCommandTimeoutHolder := ValueHolder new.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   979
        hgCommandTimeoutHolder onChangeSend:#updateModifiedChannel to:self
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   980
    ].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   981
    ^ hgCommandTimeoutHolder.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   982
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   983
    "Created: / 14-01-2012 / 20:02:13 / cg"
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   984
!
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   985
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   986
hgExecutableHolder
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   987
    hgExecutableHolder isNil ifTrue:[
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   988
        hgExecutableHolder := ValueHolder new.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   989
        hgExecutableHolder onChangeSend:#updateModifiedChannel to:self
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   990
    ].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   991
    ^ hgExecutableHolder.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   992
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   993
    "Created: / 14-01-2012 / 20:02:22 / cg"
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   994
!
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   995
11332
6399027892e7 refactored common code
Claus Gittinger <cg@exept.de>
parents: 11323
diff changeset
   996
initialListOfModules
6399027892e7 refactored common code
Claus Gittinger <cg@exept.de>
parents: 11323
diff changeset
   997
    ^ repositoriesPerModule keys asList sort.
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   998
11332
6399027892e7 refactored common code
Claus Gittinger <cg@exept.de>
parents: 11323
diff changeset
   999
    "Created: / 02-03-2012 / 14:41:07 / cg"
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1000
!
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1001
11350
8c96fbd86add class definition
Claus Gittinger <cg@exept.de>
parents: 11348
diff changeset
  1002
listOfPushURLs
8c96fbd86add class definition
Claus Gittinger <cg@exept.de>
parents: 11348
diff changeset
  1003
8c96fbd86add class definition
Claus Gittinger <cg@exept.de>
parents: 11348
diff changeset
  1004
    listOfPushURLs isNil ifTrue:[
8c96fbd86add class definition
Claus Gittinger <cg@exept.de>
parents: 11348
diff changeset
  1005
        listOfPushURLs := List new.
8c96fbd86add class definition
Claus Gittinger <cg@exept.de>
parents: 11348
diff changeset
  1006
    ].
8c96fbd86add class definition
Claus Gittinger <cg@exept.de>
parents: 11348
diff changeset
  1007
    ^ listOfPushURLs.
8c96fbd86add class definition
Claus Gittinger <cg@exept.de>
parents: 11348
diff changeset
  1008
8c96fbd86add class definition
Claus Gittinger <cg@exept.de>
parents: 11348
diff changeset
  1009
    "Created: / 02-03-2012 / 16:22:13 / cg"
8c96fbd86add class definition
Claus Gittinger <cg@exept.de>
parents: 11348
diff changeset
  1010
!
8c96fbd86add class definition
Claus Gittinger <cg@exept.de>
parents: 11348
diff changeset
  1011
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1012
perModuleRepository
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1013
    perModuleRepository isNil ifTrue:[
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1014
        perModuleRepository := ValueHolder new.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1015
        perModuleRepository addDependent:self.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1016
    ].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1017
    ^ perModuleRepository.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1018
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1019
    "Created: / 14-01-2012 / 20:18:59 / cg"
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1020
!
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1021
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1022
perModuleRepositoryModule
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1023
    perModuleRepositoryModule isNil ifTrue:[
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1024
        perModuleRepositoryModule := ValueHolder new.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1025
    ].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1026
    ^ perModuleRepositoryModule.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1027
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1028
    "Created: / 14-01-2012 / 20:19:51 / cg"
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1029
!
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1030
11348
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1031
pushURL
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1032
    pushURL isNil ifTrue:[
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1033
        pushURL := ValueHolder new.
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1034
        pushURL addDependent:self.
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1035
    ].
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1036
    ^ pushURL.
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1037
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1038
    "Created: / 02-03-2012 / 15:53:11 / cg"
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1039
!
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1040
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1041
pushURLPrototypeList
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1042
    |prototypeList|
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1043
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1044
    pushURLPrototypeList isNil ifTrue:[
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1045
        prototypeList := OrderedSet new.
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1046
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1047
"/        cvsRoot := self cvsRootFromCVSRootFileOrNil.
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1048
"/        cvsRoot notNil ifTrue:[
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1049
"/            prototypeList add:cvsRoot    
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1050
"/        ].
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1051
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1052
        prototypeList add:('https://inst.kilnhg.com/Repo/Foo/Bar/Baz').
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1053
        "/ prototypeList add:('https://inst.kilnhg.com/Repo/Dino-VM/Group/Dino-VM').
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1054
        pushURLPrototypeList := prototypeList asOrderedCollection.
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1055
    ].
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1056
    ^ pushURLPrototypeList.
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1057
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1058
    "Created: / 02-03-2012 / 15:53:58 / cg"
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1059
!
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1060
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1061
repositoryHolder
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1062
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1063
    repositoryHolder isNil ifTrue:[
11652
7935d2f03e29 changed:
Claus Gittinger <cg@exept.de>
parents: 11620
diff changeset
  1064
        repositoryHolder := self class defaultRepositoryName asValue.
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1065
        repositoryHolder addDependent:self.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1066
    ].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1067
    ^ repositoryHolder.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1068
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1069
    "Created: / 14-01-2012 / 20:03:00 / cg"
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1070
!
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1071
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1072
repositoryPrototypeList
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1073
    |prototypeList|
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1074
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1075
    repositoryPrototypeList isNil ifTrue:[
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1076
        prototypeList := OrderedSet new.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1077
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1078
"/        cvsRoot := self cvsRootFromCVSRootFileOrNil.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1079
"/        cvsRoot notNil ifTrue:[
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1080
"/            prototypeList add:cvsRoot    
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1081
"/        ].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1082
13315
028263ad9c01 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13291
diff changeset
  1083
        prototypeList add:(Filename currentDirectory / 'hgRepository') name.
028263ad9c01 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13291
diff changeset
  1084
        prototypeList add:(Filename currentDirectory / '.hgRepository') name.
13284
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
  1085
        prototypeList add:(OperatingSystem getHomeDirectory asFilename / 'hgRepository') pathName.
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
  1086
        prototypeList add:(OperatingSystem getHomeDirectory asFilename / '.smalltalk' / 'hgRepository') pathName.
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1087
        prototypeList add:('https://inst.kilnhg.com/Repo/Foo/Bar/Baz').
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1088
        "/ prototypeList add:('https://inst.kilnhg.com/Repo/Dino-VM/Group/Dino-VM').
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1089
        repositoryPrototypeList := prototypeList asOrderedCollection.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1090
    ].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1091
    ^ repositoryPrototypeList.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1092
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1093
    "Created: / 14-01-2012 / 20:13:43 / cg"
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1094
!
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1095
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1096
selectedPerModuleRepository
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1097
    selectedPerModuleRepository isNil ifTrue:[
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1098
        selectedPerModuleRepository := ValueHolder new.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1099
        selectedPerModuleRepository addDependent:self.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1100
    ].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1101
    ^ selectedPerModuleRepository.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1102
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1103
    "Created: / 14-01-2012 / 20:14:04 / cg"
11348
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1104
!
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1105
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1106
selectedPushURL
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1107
    selectedPushURL isNil ifTrue:[
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1108
        selectedPushURL := ValueHolder new.
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1109
        selectedPushURL addDependent:self.
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1110
    ].
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1111
    ^ selectedPushURL.
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1112
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1113
    "Created: / 02-03-2012 / 15:52:09 / cg"
11357
fac80d1a9ce2 workdir
Claus Gittinger <cg@exept.de>
parents: 11352
diff changeset
  1114
!
fac80d1a9ce2 workdir
Claus Gittinger <cg@exept.de>
parents: 11352
diff changeset
  1115
fac80d1a9ce2 workdir
Claus Gittinger <cg@exept.de>
parents: 11352
diff changeset
  1116
workDirectoryHolder
fac80d1a9ce2 workdir
Claus Gittinger <cg@exept.de>
parents: 11352
diff changeset
  1117
    workDirectoryHolder isNil ifTrue:[
fac80d1a9ce2 workdir
Claus Gittinger <cg@exept.de>
parents: 11352
diff changeset
  1118
        workDirectoryHolder := ValueHolder new.
fac80d1a9ce2 workdir
Claus Gittinger <cg@exept.de>
parents: 11352
diff changeset
  1119
        workDirectoryHolder addDependent:self.
fac80d1a9ce2 workdir
Claus Gittinger <cg@exept.de>
parents: 11352
diff changeset
  1120
    ].
fac80d1a9ce2 workdir
Claus Gittinger <cg@exept.de>
parents: 11352
diff changeset
  1121
    ^ workDirectoryHolder.
fac80d1a9ce2 workdir
Claus Gittinger <cg@exept.de>
parents: 11352
diff changeset
  1122
fac80d1a9ce2 workdir
Claus Gittinger <cg@exept.de>
parents: 11352
diff changeset
  1123
    "Created: / 03-03-2012 / 10:34:19 / cg"
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1124
! !
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1125
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1126
!MercurialSourceCodeManagementSettingsAppl methodsFor:'change & update'!
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1127
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1128
selectedPerModuleRepositoryChanged
11199
24c54d30aad3 changed:
Claus Gittinger <cg@exept.de>
parents: 11175
diff changeset
  1129
    |repository entry|
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1131
    self acceptChannel value:true.    
11199
24c54d30aad3 changed:
Claus Gittinger <cg@exept.de>
parents: 11175
diff changeset
  1132
    repository := self selectedPerModuleRepository value.
24c54d30aad3 changed:
Claus Gittinger <cg@exept.de>
parents: 11175
diff changeset
  1133
    repository isNil ifTrue:[ 
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1134
        self removeEnabled value:false.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1135
        self perModuleRepositoryModule value:' '.
11199
24c54d30aad3 changed:
Claus Gittinger <cg@exept.de>
parents: 11175
diff changeset
  1136
        self perModuleRepository value:''.
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1137
        ^ self
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1138
    ].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1139
11199
24c54d30aad3 changed:
Claus Gittinger <cg@exept.de>
parents: 11175
diff changeset
  1140
    entry := repositoriesPerModule at:repository ifAbsent:#().    
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1141
    (entry first = MercurialSourceCodeManager) ifTrue:[
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1142
        self removeEnabled value:true.
11199
24c54d30aad3 changed:
Claus Gittinger <cg@exept.de>
parents: 11175
diff changeset
  1143
        self perModuleRepositoryModule value:repository.
24c54d30aad3 changed:
Claus Gittinger <cg@exept.de>
parents: 11175
diff changeset
  1144
        self perModuleRepository value:(entry at:2).
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1145
    ] ifFalse:[
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1146
        self removeEnabled value:false.
11199
24c54d30aad3 changed:
Claus Gittinger <cg@exept.de>
parents: 11175
diff changeset
  1147
        self perModuleRepositoryModule value:repository , ' ',('<<use ',entry first managerTypeName,'>>') allBold.
24c54d30aad3 changed:
Claus Gittinger <cg@exept.de>
parents: 11175
diff changeset
  1148
        self perModuleRepository value:''.
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1149
    ].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1150
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1151
    "Created: / 14-01-2012 / 20:24:57 / cg"
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1152
!
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1153
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1154
update:something with:aParameter from:changedObject 
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1155
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1156
    "/ cvs
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1157
    changedObject == repositoryHolder ifTrue:[
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1158
        self updateModifiedChannel.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1159
        "/ self updateLoginEnableHolders.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1160
        ^ self
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1161
    ].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1162
"/    changedObject == perModuleRepository ifTrue:[
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1163
"/        self updateLoginEnableHolders.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1164
"/        ^ self
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1165
"/    ].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1166
    changedObject == selectedPerModuleRepository ifTrue:[
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1167
        self selectedPerModuleRepositoryChanged.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1168
        ^ self
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1169
    ].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1170
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1171
    super update:something with:aParameter from:changedObject
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1172
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1173
    "Modified: / 14-01-2012 / 20:26:51 / cg"
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1174
! !
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1175
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1176
!MercurialSourceCodeManagementSettingsAppl methodsFor:'help'!
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1177
14246
b4fedc6eab7a halp url
Claus Gittinger <cg@exept.de>
parents: 13668
diff changeset
  1178
editorHelpRelativeWikiURL
b4fedc6eab7a halp url
Claus Gittinger <cg@exept.de>
parents: 13668
diff changeset
  1179
    "the relative URL of the dialog-description in the Wiki"
b4fedc6eab7a halp url
Claus Gittinger <cg@exept.de>
parents: 13668
diff changeset
  1180
b4fedc6eab7a halp url
Claus Gittinger <cg@exept.de>
parents: 13668
diff changeset
  1181
    ^ 'Settings_MercurialSourceCodeManagerSettings'
b4fedc6eab7a halp url
Claus Gittinger <cg@exept.de>
parents: 13668
diff changeset
  1182
!
b4fedc6eab7a halp url
Claus Gittinger <cg@exept.de>
parents: 13668
diff changeset
  1183
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1184
helpFilename
13287
2a0a8c424330 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13286
diff changeset
  1185
    ^ 'Launcher/mercurialRepositorySetup.html'
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1186
13287
2a0a8c424330 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13286
diff changeset
  1187
    "Modified: / 31-07-2013 / 19:39:17 / cg"
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1188
! !
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1189
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1190
!MercurialSourceCodeManagementSettingsAppl methodsFor:'initialization & release'!
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1191
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1192
initialize
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1193
    (AbstractSourceCodeManager notNil) ifTrue:[ AbstractSourceCodeManager autoload ].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1194
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1195
    sourceCacheDir := nil asValue.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1196
    sourceCacheDir addDependent:self.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1197
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1198
    repositoriesPerModule := Dictionary new.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1199
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1200
    MercurialSourceCodeManager repositoryInfoPerModule 
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1201
        keysAndValuesDo:[:module :info |
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1202
            module withoutSeparators ~= module ifTrue:[
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1203
                self halt:'should not happen any longer'
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1204
            ].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1205
            repositoriesPerModule at:module put:(Array with:MercurialSourceCodeManager with:info)
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1206
        ].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1207
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1208
    super initialize.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1209
11146
Claus Gittinger <cg@exept.de>
parents: 11133
diff changeset
  1210
    "Modified: / 17-01-2012 / 17:39:13 / cg"
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1211
! !
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1212
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1213
!MercurialSourceCodeManagementSettingsAppl methodsFor:'queries'!
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1214
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1215
hasUnsavedChanges
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1216
    |modules|
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1217
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1218
    ((MercurialSourceCodeManager cacheDirectoryName ? '') ~= (self sourceCacheDir value ? '')) ifTrue:[^ true].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1219
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1220
    modules := repositoriesPerModule select:[:entry | entry first == MercurialSourceCodeManager].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1221
11133
fb5acac1388d added: #defaultIcon3
Claus Gittinger <cg@exept.de>
parents: 11132
diff changeset
  1222
    MercurialSourceCodeManager repositoryInfoPerModule keysAndValuesDo:[:module :info |
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1223
        ((modules includesKey:module) and:[info = (modules at:module) second])
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1224
        ifFalse:[^ true].
11133
fb5acac1388d added: #defaultIcon3
Claus Gittinger <cg@exept.de>
parents: 11132
diff changeset
  1225
    ].   
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1226
    modules keysAndValuesDo:[:module :info|
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1227
        ((MercurialSourceCodeManager repositoryInfoPerModule includesKey:module) 
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1228
            and:[(MercurialSourceCodeManager repositoryInfoPerModule at:module) = info second])
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1229
        ifFalse:[^ true].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1230
    ].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1231
    (MercurialSourceCodeManager hgCommandTimeout ~= hgCommandTimeoutHolder value)
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1232
        ifTrue:[^ true].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1233
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1234
    ((MercurialSourceCodeManager hgExecutable ? '') ~= (self hgExecutableHolder value ? '') withoutSeparators)  
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1235
        ifTrue:[^ true].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1236
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1237
    (MercurialSourceCodeManager repositoryName ? self class defaultRepositoryName ~= self repositoryHolder value)    
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1238
        ifTrue:[^ true].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1239
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1240
    (MercurialSourceCodeManager verboseSourceCodeAccess ~= self verboseSourceCodeAccess value) 
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1241
        ifTrue:[^ true].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1242
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1243
    (MercurialSourceCodeManager shownInBrowserMenus ~= self shownInBrowserMenusHolder value)
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1244
        ifTrue:[^ true].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1245
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1246
    ^ false
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1247
11133
fb5acac1388d added: #defaultIcon3
Claus Gittinger <cg@exept.de>
parents: 11132
diff changeset
  1248
    "Modified: / 14-01-2012 / 23:41:33 / cg"
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1249
! !
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1250
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1251
!MercurialSourceCodeManagementSettingsAppl class methodsFor:'documentation'!
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1252
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1253
version
14338
b47a603778bf Mark program icons with resource
Stefan Vogel <sv@exept.de>
parents: 14325
diff changeset
  1254
    ^ '$Header: /cvs/stx/stx/libtool/MercurialSourceCodeManagementSettingsAppl.st,v 1.29 2014-05-09 12:56:33 stefan Exp $'
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1255
!
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1256
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1257
version_CVS
14338
b47a603778bf Mark program icons with resource
Stefan Vogel <sv@exept.de>
parents: 14325
diff changeset
  1258
    ^ '$Header: /cvs/stx/stx/libtool/MercurialSourceCodeManagementSettingsAppl.st,v 1.29 2014-05-09 12:56:33 stefan Exp $'
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1259
! !
13235
d3abf0da20ec Use #isWritableDirectory
Stefan Vogel <sv@exept.de>
parents: 11736
diff changeset
  1260