MercurialSourceCodeManagementSettingsAppl.st
author Claus Gittinger <cg@exept.de>
Wed, 31 Jul 2013 19:32:14 +0200
changeset 13284 afe40f38a184
parent 13235 d3abf0da20ec
child 13286 72b25058832c
permissions -rw-r--r--
class: MercurialSourceCodeManagementSettingsAppl added: #initializePerModuleRepository changed: #helpSpec #repositoryPrototypeList #windowSpec
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
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   138
#loginPerModuleRoot
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   139
'Execute a "cvs login" operation for this CVSROOT'
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   140
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   141
#moveManagerDown
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   142
'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
   143
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   144
#moveManagerUp
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   145
'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
   146
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   147
#perPackageConfiguration
11736
ab369307a4b7 changed: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 11652
diff changeset
   148
'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
   149
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   150
#removePerModuleRoot
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   151
'Remove this per-module entry'
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   152
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   153
#removePerPackageManager
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   154
'Remove the selected per-package manager definition'
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   155
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   156
#sourceCache
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   157
'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
   158
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   159
#useLocalSources
11736
ab369307a4b7 changed: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 11652
diff changeset
   160
'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
   161
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   162
#useManager
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   163
'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
   164
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   165
#verboseSourceCodeAccess
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   166
'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
   167
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   168
)
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   169
13284
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   170
    "Modified: / 31-07-2013 / 19:31:33 / cg"
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   171
! !
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   172
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   173
!MercurialSourceCodeManagementSettingsAppl class methodsFor:'image specs'!
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   174
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   175
defaultIcon
11133
fb5acac1388d added: #defaultIcon3
Claus Gittinger <cg@exept.de>
parents: 11132
diff changeset
   176
    ^ self defaultIcon3
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   177
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   178
    "Created: / 22-12-2011 / 13:47:11 / cg"
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   179
!
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   180
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   181
defaultIcon1
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   182
    "This resource specification was automatically generated
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   183
     by the ImageEditor of ST/X."
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   184
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   185
    "Do not manually edit this!! If it is corrupted,
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   186
     the ImageEditor may not be able to read the specification."
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   187
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   188
    "
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   189
     self defaultIcon1 inspect
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   190
     ImageEditor openOnClass:self andSelector:#defaultIcon1
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   191
     Icon flushCachedIcons
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
    <resource: #image>
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   195
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   196
    ^Icon
11132
c5fad2575a88 changed:
Claus Gittinger <cg@exept.de>
parents: 11130
diff changeset
   197
        constantNamed:'MercurialSourceCodeManagementSettingsAppl class defaultIcon1'
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   198
        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
   199
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PHCA@PEA D@@@@@@@@@@@@@@@@@@@@GA@ HB@ HB@$C
c5fad2575a88 changed:
Claus Gittinger <cg@exept.de>
parents: 11130
diff changeset
   200
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
   201
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
   202
@@@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
   203
@@@@@@@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
   204
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
   205
@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
   206
!
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   207
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   208
defaultIcon2
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   209
    "This resource specification was automatically generated
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   210
     by the ImageEditor of ST/X."
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   211
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   212
    "Do not manually edit this!! If it is corrupted,
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   213
     the ImageEditor may not be able to read the specification."
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   214
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   215
    "
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   216
     self defaultIcon2 inspect
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   217
     ImageEditor openOnClass:self andSelector:#defaultIcon2
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   218
     Icon flushCachedIcons
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
    <resource: #image>
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   222
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   223
    ^Icon
11132
c5fad2575a88 changed:
Claus Gittinger <cg@exept.de>
parents: 11130
diff changeset
   224
        constantNamed:'MercurialSourceCodeManagementSettingsAppl class defaultIcon2'
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   225
        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
   226
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PHCA@PEA D@@@@@@@@@@@@@@@@@@@@GA@ HB@ HB@$C
c5fad2575a88 changed:
Claus Gittinger <cg@exept.de>
parents: 11130
diff changeset
   227
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
   228
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
   229
@@@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
   230
@@@@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
   231
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
   232
@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
   233
!
fb5acac1388d added: #defaultIcon3
Claus Gittinger <cg@exept.de>
parents: 11132
diff changeset
   234
fb5acac1388d added: #defaultIcon3
Claus Gittinger <cg@exept.de>
parents: 11132
diff changeset
   235
defaultIcon3
fb5acac1388d added: #defaultIcon3
Claus Gittinger <cg@exept.de>
parents: 11132
diff changeset
   236
    "This resource specification was automatically generated
fb5acac1388d added: #defaultIcon3
Claus Gittinger <cg@exept.de>
parents: 11132
diff changeset
   237
     by the ImageEditor of ST/X."
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
    "Do not manually edit this!! If it is corrupted,
fb5acac1388d added: #defaultIcon3
Claus Gittinger <cg@exept.de>
parents: 11132
diff changeset
   240
     the ImageEditor may not be able to read the specification."
fb5acac1388d added: #defaultIcon3
Claus Gittinger <cg@exept.de>
parents: 11132
diff changeset
   241
fb5acac1388d added: #defaultIcon3
Claus Gittinger <cg@exept.de>
parents: 11132
diff changeset
   242
    "
fb5acac1388d added: #defaultIcon3
Claus Gittinger <cg@exept.de>
parents: 11132
diff changeset
   243
     self defaultIcon3 inspect
fb5acac1388d added: #defaultIcon3
Claus Gittinger <cg@exept.de>
parents: 11132
diff changeset
   244
     ImageEditor openOnClass:self andSelector:#defaultIcon3
fb5acac1388d added: #defaultIcon3
Claus Gittinger <cg@exept.de>
parents: 11132
diff changeset
   245
     Icon flushCachedIcons
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
    <resource: #image>
fb5acac1388d added: #defaultIcon3
Claus Gittinger <cg@exept.de>
parents: 11132
diff changeset
   249
fb5acac1388d added: #defaultIcon3
Claus Gittinger <cg@exept.de>
parents: 11132
diff changeset
   250
    ^Icon
fb5acac1388d added: #defaultIcon3
Claus Gittinger <cg@exept.de>
parents: 11132
diff changeset
   251
        constantNamed:'MercurialSourceCodeManagementSettingsAppl class defaultIcon3'
fb5acac1388d added: #defaultIcon3
Claus Gittinger <cg@exept.de>
parents: 11132
diff changeset
   252
        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
   253
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PHCA@PEA D@@@@@@@@@@@@@@@@@@@@GA@ HB@ HB@$C
fb5acac1388d added: #defaultIcon3
Claus Gittinger <cg@exept.de>
parents: 11132
diff changeset
   254
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
   255
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
   256
@@@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
   257
@@@@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
   258
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
   259
@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
   260
! !
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   261
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   262
!MercurialSourceCodeManagementSettingsAppl class methodsFor:'interface specs'!
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   263
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   264
windowSpec
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   265
    "This resource specification was automatically generated
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   266
     by the UIPainter of ST/X."
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   267
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   268
    "Do not manually edit this!! If it is corrupted,
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   269
     the UIPainter may not be able to read the specification."
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   270
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   271
    "
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   272
     UIPainter new openOnClass:MercurialSourceCodeManagementSettingsAppl andSelector:#windowSpec
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   273
     MercurialSourceCodeManagementSettingsAppl new openInterface:#windowSpec
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   274
     MercurialSourceCodeManagementSettingsAppl open
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
    <resource: #canvas>
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   278
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   279
    ^ 
13284
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   280
    #(FullSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   281
       name: windowSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   282
       window: 
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   283
      (WindowSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   284
         label: 'Mercurial Settings'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   285
         name: 'Mercurial Settings'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   286
         min: (Point 10 10)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   287
         bounds: (Rectangle 0 0 807 720)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   288
       )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   289
       component: 
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   290
      (SpecCollection
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   291
         collection: (
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   292
          (VerticalPanelViewSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   293
             name: 'VerticalPanel3'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   294
             layout: (LayoutFrame 0 0 0 0 0 1 0 1)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   295
             horizontalLayout: fit
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   296
             verticalLayout: topSpace
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   297
             horizontalSpace: 3
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   298
             verticalSpace: 4
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   299
             component: 
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   300
            (SpecCollection
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   301
               collection: (
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   302
                (LabelSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   303
                   label: 'Unfinished & Experimental'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   304
                   name: 'Label10'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   305
                   style: (FontDescription #'Segoe UI' medium roman 16 #'ms-default')
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   306
                   foregroundColor: (Color 86.9993133440147 0.0 0.0)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   307
                   translateLabel: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   308
                   extent: (Point 807 37)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   309
                 )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   310
                (ViewSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   311
                   name: 'ManagerSetupBoxx'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   312
                   component: 
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   313
                  (SpecCollection
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   314
                     collection: (
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   315
                      (FramedBoxSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   316
                         label: 'Mercurial Sourcecode Manager Settings'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   317
                         name: 'HGSetupBox'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   318
                         layout: (LayoutFrame 0 0 0 0 0 1 0 1)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   319
                         labelPosition: topLeft
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   320
                         translateLabel: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   321
                         component: 
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   322
                        (SpecCollection
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   323
                           collection: (
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   324
                            (CheckBoxSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   325
                               label: 'Show in Browser Menus'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   326
                               name: 'CheckBox1'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   327
                               layout: (LayoutFrame 0 0 5 0 0 1 27 0)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   328
                               activeHelpKey: shownInBrowserMenus
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   329
                               model: shownInBrowserMenusHolder
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   330
                               translateLabel: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   331
                             )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   332
                            (ViewSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   333
                               name: 'CommandBox'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   334
                               layout: (LayoutFrame 0 0 35 0 0 1 60 0)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   335
                               component: 
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   336
                              (SpecCollection
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   337
                                 collection: (
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   338
                                  (LabelSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   339
                                     label: 'HG Command or Path:'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   340
                                     name: 'Label1'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   341
                                     layout: (LayoutFrame 0 0.0 0 0 60 0.25 22 0)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   342
                                     activeHelpKey: hgCommand
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   343
                                     level: 0
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   344
                                     translateLabel: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   345
                                     adjust: right
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   346
                                   )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   347
                                  (InputFieldSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   348
                                     name: 'HGExecutableField'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   349
                                     layout: (LayoutFrame 64 0.25 0 0 0 1 22 0)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   350
                                     activeHelpKey: hgCommand
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   351
                                     tabable: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   352
                                     model: hgExecutableHolder
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   353
                                     acceptChannel: acceptChannel
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   354
                                     acceptOnPointerLeave: true
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   355
                                   )
13284
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   356
                                  )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   357
                                
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   358
                               )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   359
                             )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   360
                            (ViewSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   361
                               name: 'TimeoutBox'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   362
                               layout: (LayoutFrame 0 0 61 0 0 1 86 0)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   363
                               component: 
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   364
                              (SpecCollection
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   365
                                 collection: (
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   366
                                  (LabelSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   367
                                     label: 'HG Command Timeout:'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   368
                                     name: 'Label2'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   369
                                     layout: (LayoutFrame 0 0.0 0 0 60 0.25 22 0)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   370
                                     activeHelpKey: hgCommandTimeout
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   371
                                     level: 0
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   372
                                     translateLabel: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   373
                                     adjust: right
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   374
                                   )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   375
                                  (InputFieldSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   376
                                     name: 'EntryField1'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   377
                                     layout: (LayoutFrame 64 0.25 0 0 168 0.25 22 0)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   378
                                     activeHelpKey: hgCommandTimeout
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   379
                                     tabable: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   380
                                     model: hgCommandTimeoutHolder
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   381
                                     type: timeDuration
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   382
                                     acceptChannel: acceptChannel
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   383
                                     acceptOnPointerLeave: true
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   384
                                   )
13284
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   385
                                  )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   386
                                
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   387
                               )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   388
                             )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   389
                            (ViewSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   390
                               name: 'WorkDirectoryBox'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   391
                               layout: (LayoutFrame 0 0.0 85 0 0 1 110 0)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   392
                               component: 
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   393
                              (SpecCollection
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   394
                                 collection: (
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   395
                                  (InputFieldSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   396
                                     name: 'EntryField2'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   397
                                     layout: (LayoutFrame 64 0.25 2 0 0 1 24 0)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   398
                                     activeHelpKey: hgRootDefault
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   399
                                     tabable: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   400
                                     model: workDirectoryHolder
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   401
                                     immediateAccept: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   402
                                     acceptOnLeave: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   403
                                     acceptOnReturn: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   404
                                     acceptOnTab: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   405
                                     acceptOnLostFocus: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   406
                                     acceptChannel: acceptChannel
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   407
                                     acceptOnPointerLeave: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   408
                                   )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   409
                                  (LabelSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   410
                                     label: 'Working Directory:'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   411
                                     name: 'Label9'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   412
                                     layout: (LayoutFrame 0 0.0 2 0 60 0.25 24 0)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   413
                                     activeHelpKey: hgRootDefault
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   414
                                     level: 0
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   415
                                     translateLabel: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   416
                                     adjust: right
11357
fac80d1a9ce2 workdir
Claus Gittinger <cg@exept.de>
parents: 11352
diff changeset
   417
                                   )
13284
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   418
                                  )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   419
                                
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   420
                               )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   421
                             )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   422
                            (ViewSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   423
                               name: 'RepositoryBox'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   424
                               layout: (LayoutFrame 0 0.0 120 0 0 1 145 0)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   425
                               component: 
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   426
                              (SpecCollection
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   427
                                 collection: (
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   428
                                  (LabelSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   429
                                     label: 'Default Repository:'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   430
                                     name: 'defaultCvsRootLabel'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   431
                                     layout: (LayoutFrame 0 0.0 2 0 60 0.25 24 0)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   432
                                     activeHelpKey: hgRootDefault
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   433
                                     level: 0
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   434
                                     translateLabel: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   435
                                     adjust: right
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   436
                                   )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   437
                                  (ComboBoxSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   438
                                     name: 'RepositoryComboBox'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   439
                                     layout: (LayoutFrame 64 0.25 2 0 0 1 24 0)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   440
                                     activeHelpKey: hgRootDefault
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   441
                                     tabable: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   442
                                     model: repositoryHolder
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   443
                                     immediateAccept: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   444
                                     acceptOnLeave: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   445
                                     acceptOnReturn: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   446
                                     acceptOnTab: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   447
                                     acceptOnLostFocus: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   448
                                     acceptChannel: acceptChannel
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   449
                                     acceptOnPointerLeave: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   450
                                     comboList: repositoryPrototypeList
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   451
                                   )
13284
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   452
                                  )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   453
                                
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   454
                               )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   455
                             )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   456
                            (ActionButtonSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   457
                               label: 'Init'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   458
                               name: 'Button2'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   459
                               layout: (LayoutFrame -201 1 150 0 -101 1 172 0)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   460
                               activeHelpKey: hgInit
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   461
                               translateLabel: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   462
                               tabable: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   463
                               model: initializeRepository
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   464
                               enableChannel: cvsLoginEnabled
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   465
                             )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   466
                            (ActionButtonSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   467
                               label: 'Check Access'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   468
                               name: 'Button1'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   469
                               layout: (LayoutFrame -100 1 150 0 0 1 172 0)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   470
                               activeHelpKey: hgCheckAccess
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   471
                               translateLabel: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   472
                               tabable: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   473
                               model: checkAccess
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   474
                               enableChannel: cvsLoginEnabled
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   475
                             )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   476
                            (LabelSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   477
                               label: 'Repository per Module:'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   478
                               name: 'knownModulesLabel'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   479
                               layout: (LayoutFrame 0 0.0 178 0 60 0.25 200 0)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   480
                               activeHelpKey: hgRootPerModule
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   481
                               translateLabel: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   482
                               adjust: right
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   483
                             )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   484
                            (SequenceViewSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   485
                               name: 'List1'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   486
                               layout: (LayoutFrame 64 0.25 178 0 0 1 262 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
                               tabable: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   489
                               model: selectedPerModuleRepository
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   490
                               hasHorizontalScrollBar: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   491
                               hasVerticalScrollBar: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   492
                               miniScrollerHorizontal: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   493
                               useIndex: false
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   494
                               sequenceList: listOfModules
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   495
                             )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   496
                            (LabelSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   497
                               label: 'Module:'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   498
                               name: 'moduleLabel'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   499
                               layout: (LayoutFrame 0 0.0 275 0 60 0.25 292 0)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   500
                               activeHelpKey: hgRootPerModuleModule
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   501
                               translateLabel: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   502
                               adjust: right
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   503
                             )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   504
                            (ComboBoxSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   505
                               name: 'ComboBox3'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   506
                               layout: (LayoutFrame 64 0.25 271 0 0 1 293 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
                               tabable: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   509
                               model: perModuleRepositoryModule
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   510
                               acceptChannel: acceptChannel
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   511
                               acceptOnPointerLeave: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   512
                               comboList: sampleModuleList
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   513
                             )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   514
                            (LabelSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   515
                               label: 'Mercurial Repository:'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   516
                               name: 'hgRepository'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   517
                               layout: (LayoutFrame 0 0.0 300 0 60 0.25 317 0)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   518
                               activeHelpKey: hgRootPerModuleRoot
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   519
                               translateLabel: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   520
                               adjust: right
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   521
                             )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   522
                            (ComboBoxSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   523
                               name: 'perModuleRepositoryComboBox'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   524
                               layout: (LayoutFrame 64 0.25 296 0 0 1.0 318 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
                               tabable: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   527
                               model: perModuleRepository
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   528
                               immediateAccept: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   529
                               acceptOnLeave: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   530
                               acceptOnReturn: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   531
                               acceptOnTab: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   532
                               acceptOnLostFocus: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   533
                               acceptChannel: acceptChannel
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   534
                               acceptOnPointerLeave: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   535
                               comboList: repositoryPrototypeList
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   536
                             )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   537
                            (HorizontalPanelViewSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   538
                               name: 'HorizontalPanel2'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   539
                               layout: (LayoutFrame 64 0.25 323 0 -1 1 348 0)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   540
                               horizontalLayout: right
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   541
                               verticalLayout: center
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   542
                               horizontalSpace: 3
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   543
                               verticalSpace: 3
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   544
                               component: 
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   545
                              (SpecCollection
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   546
                                 collection: (
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   547
                                  (ActionButtonSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   548
                                     label: 'Add/Apply'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   549
                                     name: 'addButton'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   550
                                     activeHelpKey: addPerModuleRoot
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   551
                                     translateLabel: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   552
                                     tabable: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   553
                                     model: addPerModuleRoot
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   554
                                     extent: (Point 100 22)
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   555
                                   )
13284
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   556
                                  (ActionButtonSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   557
                                     label: 'Remove'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   558
                                     name: 'removeButton'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   559
                                     activeHelpKey: removePerModuleRoot
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   560
                                     translateLabel: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   561
                                     tabable: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   562
                                     model: removePerModuleRoot
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   563
                                     enableChannel: removeEnabled
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   564
                                     extent: (Point 100 22)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   565
                                   )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   566
                                  (ViewSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   567
                                     name: 'Box11'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   568
                                     extent: (Point 100 10)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   569
                                   )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   570
                                  (ActionButtonSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   571
                                     label: 'Init'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   572
                                     name: 'Button3'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   573
                                     activeHelpKey: hgLoginPerModuleRoot
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   574
                                     translateLabel: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   575
                                     tabable: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   576
                                     model: initializePerModuleRepository
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   577
                                     enableChannel: cvsLoginEnabled
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   578
                                     extent: (Point 100 22)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   579
                                   )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   580
                                  (ActionButtonSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   581
                                     label: 'Check Access'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   582
                                     name: 'checkButton2'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   583
                                     activeHelpKey: hgCheckAccessPerModuleRoot
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   584
                                     translateLabel: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   585
                                     tabable: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   586
                                     model: checkAccessPerModuleRepository
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   587
                                     enableChannel: cvsLoginInModuleEnabled
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   588
                                     extent: (Point 100 22)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   589
                                   )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   590
                                  )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   591
                                
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   592
                               )
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   593
                             )
13284
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   594
                            )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   595
                          
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   596
                         )
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   597
                       )
13284
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
                    
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   600
                   )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   601
                   extent: (Point 807 384)
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
                (FramedBoxSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   604
                   label: 'Push URLs'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   605
                   name: 'FramedBox2'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   606
                   labelPosition: topLeft
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   607
                   translateLabel: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   608
                   component: 
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   609
                  (SpecCollection
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   610
                     collection: (
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   611
                      (LabelSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   612
                         label: 'URL to Push To:'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   613
                         name: 'Label6'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   614
                         layout: (LayoutFrame 0 0.0 7 0 60 0.25 29 0)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   615
                         activeHelpKey: hgPushURLs
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   616
                         translateLabel: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   617
                         adjust: right
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   618
                       )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   619
                      (SequenceViewSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   620
                         name: 'List2'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   621
                         layout: (LayoutFrame 64 0.25 7 0 0 1 65 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
                         tabable: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   624
                         model: selectedPushURL
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   625
                         hasHorizontalScrollBar: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   626
                         hasVerticalScrollBar: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   627
                         miniScrollerHorizontal: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   628
                         useIndex: false
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   629
                         sequenceList: listOfPushURLs
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   630
                       )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   631
                      (LabelSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   632
                         label: 'URL:'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   633
                         name: 'Label8'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   634
                         layout: (LayoutFrame 0 0.0 79 0 60 0.25 96 0)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   635
                         activeHelpKey: hgAddPushURL
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   636
                         translateLabel: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   637
                         adjust: right
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   638
                       )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   639
                      (ComboBoxSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   640
                         name: 'ComboBox2'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   641
                         layout: (LayoutFrame 64 0.25 75 0 0 1.0 97 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
                         tabable: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   644
                         model: pushURL
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   645
                         immediateAccept: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   646
                         acceptOnLeave: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   647
                         acceptOnReturn: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   648
                         acceptOnTab: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   649
                         acceptOnLostFocus: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   650
                         acceptChannel: acceptChannel
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   651
                         acceptOnPointerLeave: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   652
                         comboList: pushURLPrototypeList
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   653
                       )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   654
                      (HorizontalPanelViewSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   655
                         name: 'HorizontalPanel3'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   656
                         layout: (LayoutFrame 64 0.25 103 0 -1 1 128 0)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   657
                         horizontalLayout: right
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   658
                         verticalLayout: center
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   659
                         horizontalSpace: 3
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   660
                         verticalSpace: 3
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   661
                         component: 
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   662
                        (SpecCollection
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   663
                           collection: (
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   664
                            (ActionButtonSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   665
                               label: 'Add/Apply'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   666
                               name: 'Button6'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   667
                               activeHelpKey: hgAddPushURL
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   668
                               translateLabel: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   669
                               tabable: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   670
                               model: addPushURL
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   671
                               extent: (Point 100 22)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   672
                             )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   673
                            (ActionButtonSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   674
                               label: 'Remove'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   675
                               name: 'Button7'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   676
                               activeHelpKey: hgRemovePushURL
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   677
                               translateLabel: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   678
                               tabable: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   679
                               model: removePushURL
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   680
                               enableChannel: removePushURLEnabled
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   681
                               extent: (Point 100 22)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   682
                             )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   683
                            (ViewSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   684
                               name: 'Box17'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   685
                               extent: (Point 100 10)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   686
                             )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   687
                            (ViewSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   688
                               name: 'Box18'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   689
                               extent: (Point 100 10)
11165
c75bf5c6721d changed:
Claus Gittinger <cg@exept.de>
parents: 11146
diff changeset
   690
                             )
13284
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   691
                            (ViewSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   692
                               name: 'Box19'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   693
                               extent: (Point 99 9)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   694
                             )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   695
                            )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   696
                          
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   697
                         )
11165
c75bf5c6721d changed:
Claus Gittinger <cg@exept.de>
parents: 11146
diff changeset
   698
                       )
13284
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   699
                      )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   700
                    
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
                   extent: (Point 807 170)
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
                (FramedBoxSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   705
                   label: 'Source Cache'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   706
                   name: 'FramedBox1'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   707
                   visibilityChannel: false
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   708
                   labelPosition: topLeft
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   709
                   translateLabel: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   710
                   component: 
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   711
                  (SpecCollection
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   712
                     collection: (
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   713
                      (ViewSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   714
                         name: 'SourceCacheDirBox'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   715
                         layout: (LayoutFrame 0 0 0 0 0 1 30 0)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   716
                         component: 
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   717
                        (SpecCollection
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   718
                           collection: (
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   719
                            (LabelSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   720
                               label: 'Source Cache Dir:'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   721
                               name: 'SourceCacheDirLabel'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   722
                               layout: (LayoutFrame 0 0.0 0 0 60 0.25 22 0)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   723
                               translateLabel: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   724
                               adjust: right
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   725
                             )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   726
                            (InputFieldSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   727
                               name: 'SourceCacheDirEntryField'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   728
                               layout: (LayoutFrame 64 0.25 0 0 0 1 22 0)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   729
                               model: sourceCacheDir
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   730
                               immediateAccept: false
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   731
                               acceptOnReturn: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   732
                               acceptOnTab: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   733
                               acceptOnLostFocus: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   734
                               acceptOnPointerLeave: true
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   735
                             )
13284
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   736
                            )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   737
                          
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   738
                         )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   739
                       )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   740
                      (HorizontalPanelViewSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   741
                         name: 'CacheActionsHorizontalPanel'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   742
                         layout: (LayoutFrame 44 0.25 33 0 0 1 67 0)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   743
                         horizontalLayout: fitSpace
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   744
                         verticalLayout: center
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   745
                         horizontalSpace: 3
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   746
                         verticalSpace: 3
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   747
                         component: 
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   748
                        (SpecCollection
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   749
                           collection: (
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   750
                            (ActionButtonSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   751
                               label: 'Flush Cache now'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   752
                               name: 'FlushCacheNowButton'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   753
                               translateLabel: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   754
                               tabable: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   755
                               model: flushSourceCache
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   756
                               extent: (Point 263 22)
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   757
                             )
13284
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   758
                            (ActionButtonSpec
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   759
                               label: 'Condense Cache now'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   760
                               name: 'CondenseCacheNowButton'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   761
                               translateLabel: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   762
                               tabable: true
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   763
                               model: condenseSourceCache
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   764
                               extent: (Point 264 22)
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   765
                             )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   766
                            )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   767
                          
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   768
                         )
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   769
                       )
13284
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   770
                      )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   771
                    
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
                   extent: (Point 807 95)
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   774
                 )
13284
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   775
                )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   776
              
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   777
             )
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   778
           )
13284
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
        
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   781
       )
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   782
     )
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   783
! !
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   784
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   785
!MercurialSourceCodeManagementSettingsAppl class methodsFor:'queries'!
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   786
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   787
managerClass
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   788
    "backlink to my manager class (needed by the settings app)"
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   789
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   790
    ^ MercurialSourceCodeManager
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   791
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   792
    "Created: / 19-04-2011 / 12:46:52 / cg"
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   793
! !
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   794
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   795
!MercurialSourceCodeManagementSettingsAppl methodsFor:'actions'!
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   796
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   797
addModule:module withData:data
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   798
    (self listOfModules includes:module) ifFalse:[
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   799
        self listOfModules add:module; sort.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   800
    ].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   801
    repositoriesPerModule at:module put:data.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   802
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   803
    self updateModifiedChannel.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   804
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   805
    "Created: / 08-11-2006 / 19:25:21 / cg"
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   806
!
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   807
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   808
basicReadSettings
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   809
    |infoPerModule|
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   810
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   811
    self initialize.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   812
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   813
    self sourceCacheDir value:(MercurialSourceCodeManager cacheDirectoryName).
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   814
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   815
    repository := MercurialSourceCodeManager repositoryName.
11133
fb5acac1388d added: #defaultIcon3
Claus Gittinger <cg@exept.de>
parents: 11132
diff changeset
   816
    self repositoryHolder value:(repository ? '') asValue.
11357
fac80d1a9ce2 workdir
Claus Gittinger <cg@exept.de>
parents: 11352
diff changeset
   817
    self workDirectoryHolder value:MercurialSourceCodeManager workDirectory.
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   818
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   819
    infoPerModule := MercurialSourceCodeManager repositoryInfoPerModule.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   820
    infoPerModule keysAndValuesDo:[:module :info | 
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   821
        repositoriesPerModule at:module put:(Array with:MercurialSourceCodeManager with:info).
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   822
    ].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   823
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   824
    self repositoryHolder value:MercurialSourceCodeManager repositoryName ? self class defaultRepositoryName.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   825
    self hgExecutableHolder value:MercurialSourceCodeManager hgExecutable.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   826
    self hgCommandTimeoutHolder value:MercurialSourceCodeManager hgCommandTimeout.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   827
    self verboseSourceCodeAccess value:MercurialSourceCodeManager verboseSourceCodeAccess. 
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   828
    self shownInBrowserMenusHolder value:MercurialSourceCodeManager shownInBrowserMenus. 
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   829
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   830
    repositoriesPerModule notNil ifTrue:[
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   831
        self listOfModules removeAll.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   832
        listOfModules addAll:repositoriesPerModule keys asList.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   833
    ].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   834
"/    self selectedPerModuleRootChanged.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   835
11357
fac80d1a9ce2 workdir
Claus Gittinger <cg@exept.de>
parents: 11352
diff changeset
   836
    "Modified: / 03-03-2012 / 11:11:54 / cg"
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   837
!
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   838
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   839
basicSaveSettings
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   840
    |modules nm fn infoPerModule|
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   841
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   842
    nm := self sourceCacheDir value.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   843
    nm notEmptyOrNil ifTrue:[
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   844
        (fn := nm asFilename) exists ifFalse:[
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   845
            (self confirm:('Mercurial cache directory ''' , nm , ''' does not exist\create ?' withCRs)) ifTrue:[
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   846
                fn recursiveMakeDirectory; 
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   847
                   makeReadableForAll;
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   848
                   makeWritableForAll;
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   849
                   makeExecutableForAll.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   850
            ]
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   851
        ].
13235
d3abf0da20ec Use #isWritableDirectory
Stefan Vogel <sv@exept.de>
parents: 11736
diff changeset
   852
        (fn isWritableDirectory and:[fn isReadable]) ifTrue:[
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   853
            MercurialSourceCodeManager cacheDirectoryName:nm.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   854
        ] ifFalse:[
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   855
            self warn:'Invalid sourceCache directory.'
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   856
        ]
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   857
    ].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   858
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   859
    MercurialSourceCodeManager hgCommandTimeout:(self hgCommandTimeoutHolder value).
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   860
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   861
    modules := repositoriesPerModule select:[:entry | entry first == MercurialSourceCodeManager].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   862
    infoPerModule := Dictionary new.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   863
    modules keysAndValuesDo:[:module :entry | 
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   864
        entry first == MercurialSourceCodeManager ifTrue:[
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   865
            infoPerModule at:module put:(entry second).
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   866
        ].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   867
    ].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   868
    MercurialSourceCodeManager repositoryInfoPerModule:infoPerModule.
11357
fac80d1a9ce2 workdir
Claus Gittinger <cg@exept.de>
parents: 11352
diff changeset
   869
    MercurialSourceCodeManager workDirectory:self workDirectoryHolder value.
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   870
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   871
    self basicSaveMercurialSettings.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   872
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   873
    self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   874
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   875
    DebugView newDebugger. "/ ???
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   876
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   877
    self acceptChannel value.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   878
11357
fac80d1a9ce2 workdir
Claus Gittinger <cg@exept.de>
parents: 11352
diff changeset
   879
    "Modified: / 03-03-2012 / 11:24:56 / cg"
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   880
!
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   881
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   882
removePerModuleRoot
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   883
    |module|
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   884
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   885
    acceptChannel value:true.    
11199
24c54d30aad3 changed:
Claus Gittinger <cg@exept.de>
parents: 11175
diff changeset
   886
    module := self perModuleRepositoryModule value.
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   887
    self listOfModules remove:module ifAbsent:nil.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   888
    repositoriesPerModule removeKey:module ifAbsent:nil.
11199
24c54d30aad3 changed:
Claus Gittinger <cg@exept.de>
parents: 11175
diff changeset
   889
    self perModuleRepositoryModule value:nil.
24c54d30aad3 changed:
Claus Gittinger <cg@exept.de>
parents: 11175
diff changeset
   890
    self perModuleRepository value:nil.
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   891
    self updateModifiedChannel.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   892
11199
24c54d30aad3 changed:
Claus Gittinger <cg@exept.de>
parents: 11175
diff changeset
   893
    "Modified: / 26-01-2012 / 13:50:08 / cg"
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   894
! !
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   895
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   896
!MercurialSourceCodeManagementSettingsAppl methodsFor:'actions - mercurial'!
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   897
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   898
addPerModuleRoot
11199
24c54d30aad3 changed:
Claus Gittinger <cg@exept.de>
parents: 11175
diff changeset
   899
    |module hgRepository|
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   900
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   901
    acceptChannel value:true.    
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   902
11199
24c54d30aad3 changed:
Claus Gittinger <cg@exept.de>
parents: 11175
diff changeset
   903
    module := self perModuleRepositoryModule value.
24c54d30aad3 changed:
Claus Gittinger <cg@exept.de>
parents: 11175
diff changeset
   904
    hgRepository := self perModuleRepository value.
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   905
11199
24c54d30aad3 changed:
Claus Gittinger <cg@exept.de>
parents: 11175
diff changeset
   906
    hgRepository size > 0 ifTrue:[
24c54d30aad3 changed:
Claus Gittinger <cg@exept.de>
parents: 11175
diff changeset
   907
        self addModule:module withData:(Array with:MercurialSourceCodeManager with:hgRepository).
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   908
    ].
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
    "Modified: / 26-01-2012 / 12:29:36 / cg"
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   911
!
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   912
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   913
basicSaveMercurialSettings
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   914
    |hgRepository|
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   915
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   916
    repositoryHolder notNil ifTrue:[
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   917
        repositoryHolder value size > 0 ifTrue:[
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   918
            manager notNil ifTrue:[
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   919
                manager initializeForRepository:repositoryHolder value.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   920
            ]
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   921
        ].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   922
    ].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   923
    MercurialSourceCodeManager hgExecutable:((self hgExecutableHolder value ? '') withoutSeparators).
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   924
    MercurialSourceCodeManager initializeForRepository:(hgRepository := self repositoryHolder value).
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   925
    MercurialSourceCodeManager verboseSourceCodeAccess: verboseSourceCodeAccess value. 
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   926
    MercurialSourceCodeManager shownInBrowserMenus:self shownInBrowserMenusHolder 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
    RecentlyUsedRepositoryURLS isNil ifTrue:[
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   929
        RecentlyUsedRepositoryURLS := OrderedCollection new.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   930
    ].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   931
    (RecentlyUsedRepositoryURLS includes:hgRepository) ifFalse:[
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   932
        RecentlyUsedRepositoryURLS addFirst:hgRepository.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   933
        RecentlyUsedRepositoryURLS size > 20 ifTrue:[
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   934
            RecentlyUsedRepositoryURLS removeLast.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   935
        ].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   936
    ].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   937
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   938
    "Modified: / 10-01-2012 / 00:18:15 / cg"
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   939
    "Created: / 14-01-2012 / 20:01:47 / cg"
11146
Claus Gittinger <cg@exept.de>
parents: 11133
diff changeset
   940
!
Claus Gittinger <cg@exept.de>
parents: 11133
diff changeset
   941
Claus Gittinger <cg@exept.de>
parents: 11133
diff changeset
   942
checkAccess
Claus Gittinger <cg@exept.de>
parents: 11133
diff changeset
   943
    self halt:'unimplemented feature'
Claus Gittinger <cg@exept.de>
parents: 11133
diff changeset
   944
Claus Gittinger <cg@exept.de>
parents: 11133
diff changeset
   945
    "Created: / 17-01-2012 / 17:34:53 / cg"
Claus Gittinger <cg@exept.de>
parents: 11133
diff changeset
   946
!
Claus Gittinger <cg@exept.de>
parents: 11133
diff changeset
   947
13284
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   948
initializePerModuleRepository
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   949
    self halt:'unimplemented feature'
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   950
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   951
    "Created: / 31-07-2013 / 19:12:08 / cg"
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   952
!
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
   953
11146
Claus Gittinger <cg@exept.de>
parents: 11133
diff changeset
   954
initializeRepository
Claus Gittinger <cg@exept.de>
parents: 11133
diff changeset
   955
    self halt:'unimplemented feature'
Claus Gittinger <cg@exept.de>
parents: 11133
diff changeset
   956
Claus Gittinger <cg@exept.de>
parents: 11133
diff changeset
   957
    "Created: / 17-01-2012 / 17:42:27 / cg"
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   958
! !
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   959
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   960
!MercurialSourceCodeManagementSettingsAppl methodsFor:'aspects'!
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   961
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   962
hgCommandTimeoutHolder
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   963
    hgCommandTimeoutHolder isNil ifTrue:[
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   964
        hgCommandTimeoutHolder := ValueHolder new.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   965
        hgCommandTimeoutHolder onChangeSend:#updateModifiedChannel to:self
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   966
    ].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   967
    ^ hgCommandTimeoutHolder.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   968
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   969
    "Created: / 14-01-2012 / 20:02:13 / cg"
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   970
!
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   971
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   972
hgExecutableHolder
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   973
    hgExecutableHolder isNil ifTrue:[
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   974
        hgExecutableHolder := ValueHolder new.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   975
        hgExecutableHolder onChangeSend:#updateModifiedChannel to:self
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   976
    ].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   977
    ^ hgExecutableHolder.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   978
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   979
    "Created: / 14-01-2012 / 20:02:22 / cg"
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   980
!
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   981
11332
6399027892e7 refactored common code
Claus Gittinger <cg@exept.de>
parents: 11323
diff changeset
   982
initialListOfModules
6399027892e7 refactored common code
Claus Gittinger <cg@exept.de>
parents: 11323
diff changeset
   983
    ^ repositoriesPerModule keys asList sort.
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   984
11332
6399027892e7 refactored common code
Claus Gittinger <cg@exept.de>
parents: 11323
diff changeset
   985
    "Created: / 02-03-2012 / 14:41:07 / cg"
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   986
!
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   987
11350
8c96fbd86add class definition
Claus Gittinger <cg@exept.de>
parents: 11348
diff changeset
   988
listOfPushURLs
8c96fbd86add class definition
Claus Gittinger <cg@exept.de>
parents: 11348
diff changeset
   989
8c96fbd86add class definition
Claus Gittinger <cg@exept.de>
parents: 11348
diff changeset
   990
    listOfPushURLs isNil ifTrue:[
8c96fbd86add class definition
Claus Gittinger <cg@exept.de>
parents: 11348
diff changeset
   991
        listOfPushURLs := List new.
8c96fbd86add class definition
Claus Gittinger <cg@exept.de>
parents: 11348
diff changeset
   992
    ].
8c96fbd86add class definition
Claus Gittinger <cg@exept.de>
parents: 11348
diff changeset
   993
    ^ listOfPushURLs.
8c96fbd86add class definition
Claus Gittinger <cg@exept.de>
parents: 11348
diff changeset
   994
8c96fbd86add class definition
Claus Gittinger <cg@exept.de>
parents: 11348
diff changeset
   995
    "Created: / 02-03-2012 / 16:22:13 / cg"
8c96fbd86add class definition
Claus Gittinger <cg@exept.de>
parents: 11348
diff changeset
   996
!
8c96fbd86add class definition
Claus Gittinger <cg@exept.de>
parents: 11348
diff changeset
   997
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   998
perModuleRepository
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   999
    perModuleRepository isNil ifTrue:[
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1000
        perModuleRepository := ValueHolder new.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1001
        perModuleRepository addDependent:self.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1002
    ].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1003
    ^ perModuleRepository.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1004
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1005
    "Created: / 14-01-2012 / 20:18:59 / cg"
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1006
!
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1007
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1008
perModuleRepositoryModule
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1009
    perModuleRepositoryModule isNil ifTrue:[
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1010
        perModuleRepositoryModule := ValueHolder new.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1011
    ].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1012
    ^ perModuleRepositoryModule.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1013
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1014
    "Created: / 14-01-2012 / 20:19:51 / cg"
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1015
!
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1016
11348
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1017
pushURL
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1018
    pushURL isNil ifTrue:[
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1019
        pushURL := ValueHolder new.
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1020
        pushURL addDependent:self.
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1021
    ].
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1022
    ^ pushURL.
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1023
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1024
    "Created: / 02-03-2012 / 15:53:11 / cg"
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1025
!
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1026
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1027
pushURLPrototypeList
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1028
    |prototypeList|
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1029
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1030
    pushURLPrototypeList isNil ifTrue:[
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1031
        prototypeList := OrderedSet new.
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1032
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1033
"/        cvsRoot := self cvsRootFromCVSRootFileOrNil.
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1034
"/        cvsRoot notNil ifTrue:[
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1035
"/            prototypeList add:cvsRoot    
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1036
"/        ].
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
        prototypeList add:('https://inst.kilnhg.com/Repo/Foo/Bar/Baz').
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1039
        "/ prototypeList add:('https://inst.kilnhg.com/Repo/Dino-VM/Group/Dino-VM').
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1040
        pushURLPrototypeList := prototypeList asOrderedCollection.
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1041
    ].
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1042
    ^ pushURLPrototypeList.
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
    "Created: / 02-03-2012 / 15:53:58 / cg"
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1045
!
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1046
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1047
repositoryHolder
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1048
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1049
    repositoryHolder isNil ifTrue:[
11652
7935d2f03e29 changed:
Claus Gittinger <cg@exept.de>
parents: 11620
diff changeset
  1050
        repositoryHolder := self class defaultRepositoryName asValue.
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1051
        repositoryHolder addDependent:self.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1052
    ].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1053
    ^ repositoryHolder.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1054
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1055
    "Created: / 14-01-2012 / 20:03:00 / cg"
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1056
!
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1057
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1058
repositoryPrototypeList
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1059
    |prototypeList|
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1060
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1061
    repositoryPrototypeList isNil ifTrue:[
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1062
        prototypeList := OrderedSet new.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1063
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1064
"/        cvsRoot := self cvsRootFromCVSRootFileOrNil.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1065
"/        cvsRoot notNil ifTrue:[
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1066
"/            prototypeList add:cvsRoot    
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1067
"/        ].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1068
13284
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
  1069
        prototypeList add:('.' asFilename / 'hgRepository') name.
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
  1070
        prototypeList add:(OperatingSystem getHomeDirectory asFilename / 'hgRepository') pathName.
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
  1071
        prototypeList add:(OperatingSystem getHomeDirectory asFilename / '.smalltalk' / 'hgRepository') pathName.
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1072
        prototypeList add:('https://inst.kilnhg.com/Repo/Foo/Bar/Baz').
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1073
        "/ prototypeList add:('https://inst.kilnhg.com/Repo/Dino-VM/Group/Dino-VM').
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1074
        repositoryPrototypeList := prototypeList asOrderedCollection.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1075
    ].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1076
    ^ repositoryPrototypeList.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1077
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1078
    "Created: / 14-01-2012 / 20:13:43 / cg"
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1079
!
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1080
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1081
selectedPerModuleRepository
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1082
    selectedPerModuleRepository isNil ifTrue:[
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1083
        selectedPerModuleRepository := ValueHolder new.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1084
        selectedPerModuleRepository addDependent:self.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1085
    ].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1086
    ^ selectedPerModuleRepository.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1087
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1088
    "Created: / 14-01-2012 / 20:14:04 / cg"
11348
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1089
!
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1090
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1091
selectedPushURL
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1092
    selectedPushURL isNil ifTrue:[
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1093
        selectedPushURL := ValueHolder new.
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1094
        selectedPushURL addDependent:self.
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1095
    ].
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1096
    ^ selectedPushURL.
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1097
0cb6dd19eb52 class definition
Claus Gittinger <cg@exept.de>
parents: 11334
diff changeset
  1098
    "Created: / 02-03-2012 / 15:52:09 / cg"
11357
fac80d1a9ce2 workdir
Claus Gittinger <cg@exept.de>
parents: 11352
diff changeset
  1099
!
fac80d1a9ce2 workdir
Claus Gittinger <cg@exept.de>
parents: 11352
diff changeset
  1100
fac80d1a9ce2 workdir
Claus Gittinger <cg@exept.de>
parents: 11352
diff changeset
  1101
workDirectoryHolder
fac80d1a9ce2 workdir
Claus Gittinger <cg@exept.de>
parents: 11352
diff changeset
  1102
    workDirectoryHolder isNil ifTrue:[
fac80d1a9ce2 workdir
Claus Gittinger <cg@exept.de>
parents: 11352
diff changeset
  1103
        workDirectoryHolder := ValueHolder new.
fac80d1a9ce2 workdir
Claus Gittinger <cg@exept.de>
parents: 11352
diff changeset
  1104
        workDirectoryHolder addDependent:self.
fac80d1a9ce2 workdir
Claus Gittinger <cg@exept.de>
parents: 11352
diff changeset
  1105
    ].
fac80d1a9ce2 workdir
Claus Gittinger <cg@exept.de>
parents: 11352
diff changeset
  1106
    ^ workDirectoryHolder.
fac80d1a9ce2 workdir
Claus Gittinger <cg@exept.de>
parents: 11352
diff changeset
  1107
fac80d1a9ce2 workdir
Claus Gittinger <cg@exept.de>
parents: 11352
diff changeset
  1108
    "Created: / 03-03-2012 / 10:34:19 / cg"
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1109
! !
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1110
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1111
!MercurialSourceCodeManagementSettingsAppl methodsFor:'change & update'!
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1112
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1113
selectedPerModuleRepositoryChanged
11199
24c54d30aad3 changed:
Claus Gittinger <cg@exept.de>
parents: 11175
diff changeset
  1114
    |repository entry|
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1115
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1116
    self acceptChannel value:true.    
11199
24c54d30aad3 changed:
Claus Gittinger <cg@exept.de>
parents: 11175
diff changeset
  1117
    repository := self selectedPerModuleRepository value.
24c54d30aad3 changed:
Claus Gittinger <cg@exept.de>
parents: 11175
diff changeset
  1118
    repository isNil ifTrue:[ 
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1119
        self removeEnabled value:false.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1120
        self perModuleRepositoryModule value:' '.
11199
24c54d30aad3 changed:
Claus Gittinger <cg@exept.de>
parents: 11175
diff changeset
  1121
        self perModuleRepository value:''.
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1122
        ^ self
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1123
    ].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1124
11199
24c54d30aad3 changed:
Claus Gittinger <cg@exept.de>
parents: 11175
diff changeset
  1125
    entry := repositoriesPerModule at:repository ifAbsent:#().    
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1126
    (entry first = MercurialSourceCodeManager) ifTrue:[
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1127
        self removeEnabled value:true.
11199
24c54d30aad3 changed:
Claus Gittinger <cg@exept.de>
parents: 11175
diff changeset
  1128
        self perModuleRepositoryModule value:repository.
24c54d30aad3 changed:
Claus Gittinger <cg@exept.de>
parents: 11175
diff changeset
  1129
        self perModuleRepository value:(entry at:2).
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1130
    ] ifFalse:[
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1131
        self removeEnabled value:false.
11199
24c54d30aad3 changed:
Claus Gittinger <cg@exept.de>
parents: 11175
diff changeset
  1132
        self perModuleRepositoryModule value:repository , ' ',('<<use ',entry first managerTypeName,'>>') allBold.
24c54d30aad3 changed:
Claus Gittinger <cg@exept.de>
parents: 11175
diff changeset
  1133
        self perModuleRepository value:''.
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1134
    ].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1135
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1136
    "Created: / 14-01-2012 / 20:24:57 / cg"
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1137
!
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1138
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1139
update:something with:aParameter from:changedObject 
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1140
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1141
    "/ cvs
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1142
    changedObject == repositoryHolder ifTrue:[
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1143
        self updateModifiedChannel.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1144
        "/ self updateLoginEnableHolders.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1145
        ^ self
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1146
    ].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1147
"/    changedObject == perModuleRepository ifTrue:[
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1148
"/        self updateLoginEnableHolders.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1149
"/        ^ self
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1150
"/    ].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1151
    changedObject == selectedPerModuleRepository ifTrue:[
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1152
        self selectedPerModuleRepositoryChanged.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1153
        ^ self
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1154
    ].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1155
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1156
    super update:something with:aParameter from:changedObject
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1157
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1158
    "Modified: / 14-01-2012 / 20:26:51 / cg"
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1159
! !
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1160
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1161
!MercurialSourceCodeManagementSettingsAppl methodsFor:'help'!
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1162
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1163
helpFilename
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1164
    ^ 'Launcher/mercurialSetup.html'
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1165
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1166
    "Modified: / 14-01-2012 / 20:27:00 / cg"
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1167
! !
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1168
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1169
!MercurialSourceCodeManagementSettingsAppl methodsFor:'initialization & release'!
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1170
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1171
initialize
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1172
    (AbstractSourceCodeManager notNil) ifTrue:[ AbstractSourceCodeManager autoload ].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1173
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1174
    sourceCacheDir := nil asValue.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1175
    sourceCacheDir addDependent:self.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1176
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1177
    repositoriesPerModule := Dictionary new.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1178
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1179
    MercurialSourceCodeManager repositoryInfoPerModule 
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1180
        keysAndValuesDo:[:module :info |
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1181
            module withoutSeparators ~= module ifTrue:[
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1182
                self halt:'should not happen any longer'
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1183
            ].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1184
            repositoriesPerModule at:module put:(Array with:MercurialSourceCodeManager with:info)
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1185
        ].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1186
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1187
    super initialize.
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1188
11146
Claus Gittinger <cg@exept.de>
parents: 11133
diff changeset
  1189
    "Modified: / 17-01-2012 / 17:39:13 / cg"
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1190
! !
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1191
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1192
!MercurialSourceCodeManagementSettingsAppl methodsFor:'queries'!
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1193
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1194
hasUnsavedChanges
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1195
    |modules|
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1196
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1197
    ((MercurialSourceCodeManager cacheDirectoryName ? '') ~= (self sourceCacheDir value ? '')) ifTrue:[^ true].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1198
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1199
    modules := repositoriesPerModule select:[:entry | entry first == MercurialSourceCodeManager].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1200
11133
fb5acac1388d added: #defaultIcon3
Claus Gittinger <cg@exept.de>
parents: 11132
diff changeset
  1201
    MercurialSourceCodeManager repositoryInfoPerModule keysAndValuesDo:[:module :info |
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1202
        ((modules includesKey:module) and:[info = (modules at:module) second])
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1203
        ifFalse:[^ true].
11133
fb5acac1388d added: #defaultIcon3
Claus Gittinger <cg@exept.de>
parents: 11132
diff changeset
  1204
    ].   
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1205
    modules keysAndValuesDo:[:module :info|
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1206
        ((MercurialSourceCodeManager repositoryInfoPerModule includesKey:module) 
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1207
            and:[(MercurialSourceCodeManager repositoryInfoPerModule at:module) = info second])
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1208
        ifFalse:[^ true].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1209
    ].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1210
    (MercurialSourceCodeManager hgCommandTimeout ~= hgCommandTimeoutHolder value)
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1211
        ifTrue:[^ true].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1212
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1213
    ((MercurialSourceCodeManager hgExecutable ? '') ~= (self hgExecutableHolder value ? '') withoutSeparators)  
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1214
        ifTrue:[^ true].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1215
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1216
    (MercurialSourceCodeManager repositoryName ? self class defaultRepositoryName ~= self repositoryHolder value)    
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1217
        ifTrue:[^ true].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1218
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1219
    (MercurialSourceCodeManager verboseSourceCodeAccess ~= self verboseSourceCodeAccess value) 
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1220
        ifTrue:[^ true].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1221
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1222
    (MercurialSourceCodeManager shownInBrowserMenus ~= self shownInBrowserMenusHolder value)
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1223
        ifTrue:[^ true].
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1224
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1225
    ^ false
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1226
11133
fb5acac1388d added: #defaultIcon3
Claus Gittinger <cg@exept.de>
parents: 11132
diff changeset
  1227
    "Modified: / 14-01-2012 / 23:41:33 / cg"
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1228
! !
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1229
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1230
!MercurialSourceCodeManagementSettingsAppl class methodsFor:'documentation'!
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1231
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1232
version
13284
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
  1233
    ^ '$Header: /cvs/stx/stx/libtool/MercurialSourceCodeManagementSettingsAppl.st,v 1.21 2013-07-31 17:32:14 cg Exp $'
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1234
!
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1235
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1236
version_CVS
13284
afe40f38a184 class: MercurialSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 13235
diff changeset
  1237
    ^ '$Header: /cvs/stx/stx/libtool/MercurialSourceCodeManagementSettingsAppl.st,v 1.21 2013-07-31 17:32:14 cg Exp $'
11130
045e06ed380c initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1238
! !
13235
d3abf0da20ec Use #isWritableDirectory
Stefan Vogel <sv@exept.de>
parents: 11736
diff changeset
  1239