FileBasedSourceCodeManagementSettingsAppl.st
author Merge Script
Fri, 15 Jan 2016 06:50:53 +0100
branchjv
changeset 16023 4bad8d7baaf8
parent 15566 184cea584be5
parent 16015 69f8c0aac629
child 16156 9b9fa51009d2
permissions -rw-r--r--
Merge
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
10989
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     1
"
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     2
 COPYRIGHT (c) 2011 by eXept Software AG
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     3
              All Rights Reserved
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     5
 This software is furnished under a license and may be used
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     6
 only in accordance with the terms of that license and with the
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
 be provided or otherwise made available to, or used by, any
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     9
 other person.  No title to or ownership of the software is
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    10
 hereby transferred.
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    11
"
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
"{ Package: 'stx:libtool' }"
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
16015
69f8c0aac629 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 14391
diff changeset
    14
"{ NameSpace: Smalltalk }"
69f8c0aac629 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 14391
diff changeset
    15
10989
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
AbstractSourceCodeManagementSettingsAppl subclass:#FileBasedSourceCodeManagementSettingsAppl
11330
6d8c30b044c1 refactored common code
Claus Gittinger <cg@exept.de>
parents: 11318
diff changeset
    17
	instanceVariableNames:'pathPerModule repositoryPathHolder perModulePath
6d8c30b044c1 refactored common code
Claus Gittinger <cg@exept.de>
parents: 11318
diff changeset
    18
		perModulePathModule selectedPerModulePath'
10989
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
	classVariableNames:'RecentlyUsedCVSRoots RecentlyUsedStoreHosts
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
		RecentlyUsedSmallTeamHosts LastStoreHost LastStoreUser
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
		LastStorePassword'
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
	poolDictionaries:''
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    23
	category:'System-SourceCodeManagement'
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    24
!
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    26
!FileBasedSourceCodeManagementSettingsAppl class methodsFor:'documentation'!
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    27
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
copyright
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
"
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    30
 COPYRIGHT (c) 2011 by eXept Software AG
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    31
              All Rights Reserved
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    32
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    33
 This software is furnished under a license and may be used
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    34
 only in accordance with the terms of that license and with the
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    35
 inclusion of the above copyright notice.   This software may not
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    36
 be provided or otherwise made available to, or used by, any
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    37
 other person.  No title to or ownership of the software is
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    38
 hereby transferred.
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    39
"
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    40
!
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    41
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    42
documentation
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    43
"
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    44
    This settings app controls the parameters of the simple FileBasedSourceCodeManager.
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    45
"
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    46
! !
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    47
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    48
!FileBasedSourceCodeManagementSettingsAppl class methodsFor:'defaults'!
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    49
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    50
defaultRepositoryPath
11000
c7b3a7eea7ea refactoring
Claus Gittinger <cg@exept.de>
parents: 10989
diff changeset
    51
    ^ FileBasedSourceCodeManager defaultRepositoryPath
10989
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    52
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    53
    "Created: / 21-12-2011 / 14:55:40 / cg"
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    54
! !
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    55
11030
Claus Gittinger <cg@exept.de>
parents: 11011
diff changeset
    56
!FileBasedSourceCodeManagementSettingsAppl class methodsFor:'help specs'!
Claus Gittinger <cg@exept.de>
parents: 11011
diff changeset
    57
Claus Gittinger <cg@exept.de>
parents: 11011
diff changeset
    58
flyByHelpSpec
Claus Gittinger <cg@exept.de>
parents: 11011
diff changeset
    59
    "This resource specification was automatically generated
Claus Gittinger <cg@exept.de>
parents: 11011
diff changeset
    60
     by the UIHelpTool of ST/X."
Claus Gittinger <cg@exept.de>
parents: 11011
diff changeset
    61
Claus Gittinger <cg@exept.de>
parents: 11011
diff changeset
    62
    "Do not manually edit this!! If it is corrupted,
Claus Gittinger <cg@exept.de>
parents: 11011
diff changeset
    63
     the UIHelpTool may not be able to read the specification."
Claus Gittinger <cg@exept.de>
parents: 11011
diff changeset
    64
Claus Gittinger <cg@exept.de>
parents: 11011
diff changeset
    65
    "
Claus Gittinger <cg@exept.de>
parents: 11011
diff changeset
    66
     UIHelpTool openOnClass:FileBasedSourceCodeManagementSettingsAppl    
Claus Gittinger <cg@exept.de>
parents: 11011
diff changeset
    67
    "
Claus Gittinger <cg@exept.de>
parents: 11011
diff changeset
    68
Claus Gittinger <cg@exept.de>
parents: 11011
diff changeset
    69
    <resource: #help>
Claus Gittinger <cg@exept.de>
parents: 11011
diff changeset
    70
Claus Gittinger <cg@exept.de>
parents: 11011
diff changeset
    71
    ^ super flyByHelpSpec addPairsFrom:#(
Claus Gittinger <cg@exept.de>
parents: 11011
diff changeset
    72
Claus Gittinger <cg@exept.de>
parents: 11011
diff changeset
    73
#defaultRepositoryPath
Claus Gittinger <cg@exept.de>
parents: 11011
diff changeset
    74
'The default repository directory used for all modules not listed below'
Claus Gittinger <cg@exept.de>
parents: 11011
diff changeset
    75
Claus Gittinger <cg@exept.de>
parents: 11011
diff changeset
    76
#perModuleModule
Claus Gittinger <cg@exept.de>
parents: 11011
diff changeset
    77
'The module for which a specific directory is defined'
Claus Gittinger <cg@exept.de>
parents: 11011
diff changeset
    78
Claus Gittinger <cg@exept.de>
parents: 11011
diff changeset
    79
#perModuleRepositoryPath
Claus Gittinger <cg@exept.de>
parents: 11011
diff changeset
    80
'The repository directory of this module'
Claus Gittinger <cg@exept.de>
parents: 11011
diff changeset
    81
Claus Gittinger <cg@exept.de>
parents: 11011
diff changeset
    82
#repositoryPathPerModule
11731
d74f1161f398 changed: #flyByHelpSpec
Claus Gittinger <cg@exept.de>
parents: 11425
diff changeset
    83
'Module specific repository directories'
11030
Claus Gittinger <cg@exept.de>
parents: 11011
diff changeset
    84
Claus Gittinger <cg@exept.de>
parents: 11011
diff changeset
    85
)
Claus Gittinger <cg@exept.de>
parents: 11011
diff changeset
    86
Claus Gittinger <cg@exept.de>
parents: 11011
diff changeset
    87
    "Created: / 25-12-2011 / 14:00:06 / cg"
Claus Gittinger <cg@exept.de>
parents: 11011
diff changeset
    88
! !
Claus Gittinger <cg@exept.de>
parents: 11011
diff changeset
    89
10989
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    90
!FileBasedSourceCodeManagementSettingsAppl class methodsFor:'image specs'!
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    91
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    92
defaultIcon
14337
67da8a022ca9 Mark program icons with resource
Stefan Vogel <sv@exept.de>
parents: 14315
diff changeset
    93
    <resource: #programImage>
67da8a022ca9 Mark program icons with resource
Stefan Vogel <sv@exept.de>
parents: 14315
diff changeset
    94
11011
Claus Gittinger <cg@exept.de>
parents: 11000
diff changeset
    95
    ^ self defaultIcon2
10989
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    96
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    97
    "Created: / 21-12-2011 / 14:51:12 / cg"
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    98
!
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    99
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   100
defaultIcon1
14391
c427f923299e Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14337
diff changeset
   101
    <resource: #image>
10989
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   102
    "This resource specification was automatically generated
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   103
     by the ImageEditor of ST/X."
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   104
    "Do not manually edit this!! If it is corrupted,
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   105
     the ImageEditor may not be able to read the specification."
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   106
    "
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   107
     self defaultIcon1 inspect
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   108
     ImageEditor openOnClass:self andSelector:#defaultIcon1
14391
c427f923299e Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14337
diff changeset
   109
     Icon flushCachedIcons"
c427f923299e Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14337
diff changeset
   110
    
c427f923299e Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14337
diff changeset
   111
    ^ Icon 
10989
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   112
        constantNamed:'FileBasedSourceCodeManagementSettingsAppl class defaultIcon1'
14391
c427f923299e Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14337
diff changeset
   113
        ifAbsentPut:[
c427f923299e Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14337
diff changeset
   114
            (Depth8Image new)
c427f923299e Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14337
diff changeset
   115
                width:22;
c427f923299e Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14337
diff changeset
   116
                height:22;
c427f923299e Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14337
diff changeset
   117
                photometric:(#palette);
c427f923299e Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14337
diff changeset
   118
                bitsPerSample:(#[ 8 ]);
c427f923299e Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14337
diff changeset
   119
                samplesPerPixel:(1);
c427f923299e Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14337
diff changeset
   120
                bits:(ByteArray 
c427f923299e Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14337
diff changeset
   121
                            fromPackedString:'
10989
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   122
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@B_''92\@@@@@@@@@@@@@@@@@@@@@@B\''9>_''90@@@@@@@@@@@@@@@@@
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   123
@@B[''9<@@@@@''@@@@@@@@@@@@@@@@@@@''I6\@@@@@@@@@@@@@@@@@@@@@@B\''I>^'':@@@JD@@@@@@@@@@@@@@@@GA)2^''900LJF!!(S@0LC@0LH1="0@@A2 (
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   124
''JT(X:F$)JN!![&9.[&:K#'',@@E((X3M.[*F!!(*F!!(R6U%IBYM&5 @@@!!L:D3N3-KKZF!!EBBS$YZRA ROJ @@HQQK(ZF!!(ZF!!&''Y6D9^WG9]/B9 @@BE3XVF"
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   125
(ZF!!&&M#IBP(JC<_YR*X@@AFZ4)QK&8<N3, HB@3L68JO1\*@@@@QUD%W4\ \2@ RD +EAHR]Q(,@@@@@GDUL''P U3EHLT!!UUQPRD''TZK@@@@@@MNQ$[W"M*
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   126
\@T^APUS^T5$M@@@@@@@CWYP^U%YVQ0\Y34XOTP7U @@@@@@@@L>WT1LI$0&X$9&VAXQ[@@@@@@@@@A\P$QRPF!!2BG]AJT$@@@@@@@@@@@@@RTM)GS(BD@@@
14391
c427f923299e Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14337
diff changeset
   127
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a');
c427f923299e Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14337
diff changeset
   128
                colorMapFromArray:#[ 223 191 95 128 127 112 160 144 128 175 143 112 224 223 207 255 224 127 207 192 160 207 175 112 144 112 48 224 192 128 240 224 191 192 176 144 239 224 223 175 143 111 239 224 176 223 192 111 191 175 160 159 112 64 255 240 176 240 240 208 255 239 176 240 208 127 160 127 63 176 159 112 255 224 96 207 160 64 224 208 175 239 208 144 240 223 95 128 96 64 240 224 127 255 240 224 255 239 175 192 160 111 255 255 224 255 223 112 255 240 223 255 223 143 255 208 64 208 192 191 255 255 223 160 143 127 160 144 111 240 240 175 160 159 112 240 239 176 208 176 111 239 223 159 207 176 127 255 224 144 239 208 112 255 240 192 175 159 128 240 239 175 192 176 159 224 207 111 207 191 128 239 208 111 144 112 96 255 240 191 255 239 192 240 224 95 192 144 48 240 239 208 224 192 64 144 112 95 160 127 47 127 80 47 255 224 111 176 144 96 176 159 96 240 223 176 240 239 144 176 175 159 240 224 144 255 239 191 240 208 64 255 239 128 239 208 79 223 208 208 191 144 64 240 223 143 240 208 63 255 239 127 240 240 192 255 239 159 144 112 79 240 224 143 191 159 63 240 223 80 207 176 112 240 240 191 175 143 127 224 192 112 240 223 112 208 176 80 176 159 127 255 224 160 240 223 79 255 240 208 207 191 112 239 239 207 208 176 79 255 223 95 192 160 63 128 111 48 255 223 127 255 224 159 159 127 95 176 160 112 255 240 207 255 255 240 240 224 112 176 143 96 160 143 48 240 239 160 207 160 80 239 223 175 239 192 96 143 111 64 160 143 95 255 224 128 255 248 200 255 248 24 15 56 160 255 248 88 239 232 240 240 240 240 255 248 152 48 80 176 255 248 96 48 88 176 240 240 248 207 216 240 223 216 224 255 248 48 224 224 232 255 248 176 255 248 248 240 144 24 255 248 136 63 96 184 240 208 24 239 239 224 176 159 111 240 207 96 207 160 127 240 207 111 191 191 160 223 208 175 240 208 111 255 255 239 192 176 175 208 207 176 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 ];
c427f923299e Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14337
diff changeset
   129
                mask:((ImageMask new)
c427f923299e Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14337
diff changeset
   130
                            width:22;
c427f923299e Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14337
diff changeset
   131
                            height:22;
c427f923299e Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14337
diff changeset
   132
                            bits:(ByteArray 
c427f923299e Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14337
diff changeset
   133
                                        fromPackedString:'@@@@@@@@@<@@A>@@C!!@@C @@O2@@_??@_??@_??8_??8_??8_??0_?? _?? _?? _??@_?>@_?<@_? @_0@@@@@@');
c427f923299e Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14337
diff changeset
   134
                            yourself);
c427f923299e Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14337
diff changeset
   135
                yourself
c427f923299e Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14337
diff changeset
   136
        ]
10989
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   137
!
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   138
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   139
defaultIcon2
14391
c427f923299e Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14337
diff changeset
   140
    <resource: #image>
10989
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   141
    "This resource specification was automatically generated
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   142
     by the ImageEditor of ST/X."
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   143
    "Do not manually edit this!! If it is corrupted,
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   144
     the ImageEditor may not be able to read the specification."
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   145
    "
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   146
     self defaultIcon2 inspect
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   147
     ImageEditor openOnClass:self andSelector:#defaultIcon2
14391
c427f923299e Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14337
diff changeset
   148
     Icon flushCachedIcons"
c427f923299e Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14337
diff changeset
   149
    
c427f923299e Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14337
diff changeset
   150
    ^ Icon 
10989
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   151
        constantNamed:'FileBasedSourceCodeManagementSettingsAppl class defaultIcon2'
14391
c427f923299e Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14337
diff changeset
   152
        ifAbsentPut:[
c427f923299e Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14337
diff changeset
   153
            (Depth8Image new)
c427f923299e Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14337
diff changeset
   154
                width:22;
c427f923299e Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14337
diff changeset
   155
                height:22;
c427f923299e Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14337
diff changeset
   156
                photometric:(#palette);
c427f923299e Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14337
diff changeset
   157
                bitsPerSample:(#[ 8 ]);
c427f923299e Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14337
diff changeset
   158
                samplesPerPixel:(1);
c427f923299e Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14337
diff changeset
   159
                bits:(ByteArray 
c427f923299e Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14337
diff changeset
   160
                            fromPackedString:'
10989
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   161
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   162
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@8B0,0L@\@@@@@@@@@@@@@@@@@@@@GA!!L$H" 0LC@0LC@0LC@0LH1="0@@A2 (
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   163
JB (X6M.[&9.[&9.[&:K#'',@@E((X3M.[#L3N3-[V26U%IBYM&5 @@@!!L5,3N3-KKQP5EBBS$YZRA ROJ @@HQQKKY>_''I0G]''Y6D9^WG9]/B9 @@BE3XY2_
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   164
''9>_''FM#IBP(JC<_YR*X@@AFZ9._''68<N3.\HB@3L68JO1\*@@@@QUF\''Y0 \2@ RD +EAHR]Q(,@@@@@I2\''9:_(CEH(T!!UUQPRD''TZK@@@@@@M''I:_''BM*
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   165
(ZF!!APUS^T5$M@@@@@@@CWZ\)U%Y(ZR$(:DXOTP7U @@@@@@@@L>WT1L(ZF"(ZF!!VAXQ[@@@@@@@@@A\(TQRPF!!2(ZEAJT$@@@@@@@@@@@@@RTN!!(ZF!!(ZFZ
14391
c427f923299e Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14337
diff changeset
   166
@@@@@@@@@@@@@@@@@@@@@JJ!!(ZFZ@@@@@@@@@@@@@@@@@@@a');
c427f923299e Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14337
diff changeset
   167
                colorMapFromArray:#[ 223 191 95 128 127 112 160 144 128 175 143 112 224 223 207 255 224 127 207 192 160 207 175 112 144 112 48 224 192 128 240 224 191 192 176 144 239 224 223 175 143 111 239 224 176 223 192 111 191 175 160 159 112 64 255 240 176 240 240 208 255 239 176 240 208 127 160 127 63 176 159 112 255 224 96 207 160 64 224 208 175 239 208 144 240 223 95 128 96 64 240 224 127 255 240 224 255 239 175 192 160 111 255 255 224 255 223 112 255 240 223 255 223 143 255 208 64 208 192 191 255 255 223 160 143 127 160 144 111 240 240 175 160 159 112 240 239 176 208 176 111 239 223 159 207 176 127 255 224 144 239 208 112 255 240 192 175 159 128 240 239 175 192 176 159 224 207 111 207 191 128 239 208 111 144 112 96 255 240 191 255 239 192 240 224 95 192 144 48 240 239 208 224 192 64 144 112 95 160 127 47 127 80 47 255 224 111 176 144 96 176 159 96 240 223 176 240 239 144 176 175 159 240 224 144 255 239 191 240 208 64 255 239 128 239 208 79 223 208 208 191 144 64 240 223 143 240 208 63 255 239 127 240 240 192 255 239 159 144 112 79 240 224 143 191 159 63 240 223 80 207 176 112 240 240 191 175 143 127 224 192 112 240 223 112 208 176 80 176 159 127 255 224 160 240 223 79 255 240 208 207 191 112 239 239 207 208 176 79 255 223 95 192 160 63 128 111 48 255 223 127 255 224 159 159 127 95 176 160 112 255 240 207 255 255 240 240 224 112 176 143 96 160 143 48 240 239 160 207 160 80 239 223 175 239 192 96 143 111 64 160 143 95 255 224 128 255 248 200 255 248 24 15 56 160 255 248 88 239 232 240 240 240 240 255 248 152 48 80 176 255 248 96 48 88 176 240 240 248 207 216 240 223 216 224 255 248 48 224 224 232 255 248 176 255 248 248 240 144 24 255 248 136 63 96 184 240 208 24 239 239 224 176 159 111 240 207 96 207 160 127 240 207 111 191 191 160 223 208 175 240 208 111 255 255 239 192 176 175 208 207 176 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 ];
c427f923299e Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14337
diff changeset
   168
                mask:((ImageMask new)
c427f923299e Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14337
diff changeset
   169
                            width:22;
c427f923299e Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14337
diff changeset
   170
                            height:22;
c427f923299e Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14337
diff changeset
   171
                            bits:(ByteArray 
c427f923299e Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14337
diff changeset
   172
                                        fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@O0@@_??@_??@_??8_??8_??8_??0_?? _?? _?? _??@_?>@_?<@_? @_<@@C8@@');
c427f923299e Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14337
diff changeset
   173
                            yourself);
c427f923299e Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14337
diff changeset
   174
                yourself
c427f923299e Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14337
diff changeset
   175
        ]
10989
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   176
! !
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   177
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   178
!FileBasedSourceCodeManagementSettingsAppl class methodsFor:'interface specs'!
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   179
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   180
windowSpec
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   181
    "This resource specification was automatically generated
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   182
     by the UIPainter of ST/X."
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   183
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   184
    "Do not manually edit this!! If it is corrupted,
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   185
     the UIPainter may not be able to read the specification."
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   186
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   187
    "
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   188
     UIPainter new openOnClass:FileBasedSourceCodeManagementSettingsAppl andSelector:#windowSpec
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   189
     FileBasedSourceCodeManagementSettingsAppl new openInterface:#windowSpec
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   190
     FileBasedSourceCodeManagementSettingsAppl open
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   191
    "
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   192
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   193
    <resource: #canvas>
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   194
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   195
    ^ 
14256
99c9828ff9c5 class: FileBasedSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14248
diff changeset
   196
    #(FullSpec
99c9828ff9c5 class: FileBasedSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14248
diff changeset
   197
       name: windowSpec
99c9828ff9c5 class: FileBasedSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14248
diff changeset
   198
       window: 
99c9828ff9c5 class: FileBasedSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14248
diff changeset
   199
      (WindowSpec
99c9828ff9c5 class: FileBasedSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14248
diff changeset
   200
         label: 'FileBased SCM Settings'
99c9828ff9c5 class: FileBasedSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14248
diff changeset
   201
         name: 'FileBased SCM Settings'
14315
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   202
         flags: 1
14256
99c9828ff9c5 class: FileBasedSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14248
diff changeset
   203
         min: (Point 10 10)
14315
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   204
         bounds: (Rectangle 0 0 694 545)
14256
99c9828ff9c5 class: FileBasedSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14248
diff changeset
   205
       )
99c9828ff9c5 class: FileBasedSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14248
diff changeset
   206
       component: 
99c9828ff9c5 class: FileBasedSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14248
diff changeset
   207
      (SpecCollection
99c9828ff9c5 class: FileBasedSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14248
diff changeset
   208
         collection: (
99c9828ff9c5 class: FileBasedSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14248
diff changeset
   209
          (VerticalPanelViewSpec
99c9828ff9c5 class: FileBasedSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14248
diff changeset
   210
             name: 'VerticalPanel2'
99c9828ff9c5 class: FileBasedSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14248
diff changeset
   211
             layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
99c9828ff9c5 class: FileBasedSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14248
diff changeset
   212
             horizontalLayout: fit
99c9828ff9c5 class: FileBasedSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14248
diff changeset
   213
             verticalLayout: topSpace
99c9828ff9c5 class: FileBasedSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14248
diff changeset
   214
             horizontalSpace: 3
99c9828ff9c5 class: FileBasedSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14248
diff changeset
   215
             verticalSpace: 20
99c9828ff9c5 class: FileBasedSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14248
diff changeset
   216
             component: 
99c9828ff9c5 class: FileBasedSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14248
diff changeset
   217
            (SpecCollection
99c9828ff9c5 class: FileBasedSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14248
diff changeset
   218
               collection: (
99c9828ff9c5 class: FileBasedSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14248
diff changeset
   219
                (LabelSpec
99c9828ff9c5 class: FileBasedSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14248
diff changeset
   220
                   label: 'Demo Only'
99c9828ff9c5 class: FileBasedSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14248
diff changeset
   221
                   name: 'Label10'
99c9828ff9c5 class: FileBasedSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14248
diff changeset
   222
                   style: (FontDescription #'Segoe UI' medium roman 16 #'ms-default')
99c9828ff9c5 class: FileBasedSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14248
diff changeset
   223
                   foregroundColor: (Color 86.9993133440147 0.0 0.0)
99c9828ff9c5 class: FileBasedSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14248
diff changeset
   224
                   translateLabel: true
14315
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   225
                   extent: (Point 694 37)
14256
99c9828ff9c5 class: FileBasedSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14248
diff changeset
   226
                 )
14315
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   227
                (FramedBoxSpec
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   228
                   label: 'File Based Source Repository Manager Settings'
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   229
                   name: 'FileRepositorySetupBox'
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   230
                   labelPosition: topLeft
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   231
                   translateLabel: true
14256
99c9828ff9c5 class: FileBasedSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14248
diff changeset
   232
                   component: 
99c9828ff9c5 class: FileBasedSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14248
diff changeset
   233
                  (SpecCollection
99c9828ff9c5 class: FileBasedSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14248
diff changeset
   234
                     collection: (
14315
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   235
                      (CheckBoxSpec
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   236
                         label: 'Show in Browser Menus'
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   237
                         name: 'CheckBox1'
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   238
                         layout: (LayoutFrame 0 0 5 0 0 1 35 0)
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   239
                         activeHelpKey: shownInBrowserMenus
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   240
                         model: shownInBrowserMenusHolder
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   241
                         translateLabel: true
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   242
                       )
14256
99c9828ff9c5 class: FileBasedSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14248
diff changeset
   243
                      (ViewSpec
14315
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   244
                         name: 'Box1'
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   245
                         layout: (LayoutFrame 0 0 38 0 0 1 68 0)
14256
99c9828ff9c5 class: FileBasedSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14248
diff changeset
   246
                         component: 
99c9828ff9c5 class: FileBasedSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14248
diff changeset
   247
                        (SpecCollection
99c9828ff9c5 class: FileBasedSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14248
diff changeset
   248
                           collection: (
14315
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   249
                            (LabelSpec
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   250
                               label: 'Repository Path:'
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   251
                               name: 'Label1'
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   252
                               layout: (LayoutFrame 0 0.0 0 0 60 0.25 30 0)
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   253
                               activeHelpKey: defaultRepositoryPath
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   254
                               level: 0
14256
99c9828ff9c5 class: FileBasedSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14248
diff changeset
   255
                               translateLabel: true
14315
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   256
                               adjust: right
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   257
                             )
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   258
                            (InputFieldSpec
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   259
                               name: 'RepositoryPathField'
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   260
                               layout: (LayoutFrame 64 0.25 0 0 0 1 30 0)
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   261
                               activeHelpKey: defaultRepositoryPath
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   262
                               tabable: true
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   263
                               model: repositoryPathHolder
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   264
                               acceptChannel: acceptChannel
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   265
                               acceptOnPointerLeave: true
10989
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   266
                             )
14256
99c9828ff9c5 class: FileBasedSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14248
diff changeset
   267
                            )
99c9828ff9c5 class: FileBasedSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14248
diff changeset
   268
                          
99c9828ff9c5 class: FileBasedSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14248
diff changeset
   269
                         )
14315
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   270
                       )
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   271
                      (LabelSpec
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   272
                         label: 'Path per Module:'
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   273
                         name: 'knownModulesLabel'
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   274
                         layout: (LayoutFrame 0 0.0 82 0 60 0.25 112 0)
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   275
                         activeHelpKey: repositoryPathPerModule
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   276
                         translateLabel: true
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   277
                         adjust: right
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   278
                       )
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   279
                      (SequenceViewSpec
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   280
                         name: 'List1'
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   281
                         layout: (LayoutFrame 64 0.25 82 0 0 1 201 0)
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   282
                         activeHelpKey: repositoryPathPerModule
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   283
                         tabable: true
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   284
                         model: selectedPerModulePath
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   285
                         hasHorizontalScrollBar: true
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   286
                         hasVerticalScrollBar: true
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   287
                         miniScrollerHorizontal: true
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   288
                         useIndex: false
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   289
                         sequenceList: listOfModules
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   290
                       )
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   291
                      (LabelSpec
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   292
                         label: 'Module:'
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   293
                         name: 'moduleLabel'
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   294
                         layout: (LayoutFrame 0 0.0 207 0 60 0.25 237 0)
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   295
                         activeHelpKey: perModuleModule
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   296
                         translateLabel: true
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   297
                         adjust: right
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   298
                       )
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   299
                      (ComboBoxSpec
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   300
                         name: 'ComboBox1'
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   301
                         layout: (LayoutFrame 64 0.25 207 0 0 1 237 0)
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   302
                         activeHelpKey: perModuleModule
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   303
                         tabable: true
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   304
                         model: perModulePathModule
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   305
                         acceptChannel: acceptChannel
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   306
                         acceptOnPointerLeave: true
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   307
                         comboList: sampleModuleList
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   308
                       )
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   309
                      (LabelSpec
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   310
                         label: 'Path:'
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   311
                         name: 'cvsRootLabel'
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   312
                         layout: (LayoutFrame 0 0.0 240 0 60 0.25 270 0)
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   313
                         activeHelpKey: perModuleRepositoryPath
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   314
                         translateLabel: true
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   315
                         adjust: right
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   316
                       )
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   317
                      (ComboBoxSpec
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   318
                         name: 'perModulePathComboBox'
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   319
                         layout: (LayoutFrame 64 0.25 240 0 0 1.0 270 0)
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   320
                         activeHelpKey: perModuleRepositoryPath
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   321
                         tabable: true
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   322
                         model: perModulePath
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   323
                         immediateAccept: true
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   324
                         acceptOnLeave: true
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   325
                         acceptOnReturn: true
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   326
                         acceptOnTab: true
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   327
                         acceptOnLostFocus: true
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   328
                         acceptChannel: acceptChannel
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   329
                         acceptOnPointerLeave: true
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   330
                         comboList: pathPrototypeList
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   331
                       )
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   332
                      (HorizontalPanelViewSpec
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   333
                         name: 'HorizontalPanel2'
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   334
                         layout: (LayoutFrame 64 0.25 274 0 -1 1 304 0)
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   335
                         horizontalLayout: fitSpace
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   336
                         verticalLayout: center
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   337
                         horizontalSpace: 3
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   338
                         verticalSpace: 3
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   339
                         component: 
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   340
                        (SpecCollection
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   341
                           collection: (
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   342
                            (ActionButtonSpec
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   343
                               label: 'Add/Apply'
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   344
                               name: 'addButton'
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   345
                               translateLabel: true
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   346
                               tabable: true
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   347
                               model: addPerModulePath
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   348
                               extent: (Point 139 30)
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   349
                             )
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   350
                            (ActionButtonSpec
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   351
                               label: 'Remove'
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   352
                               name: 'removeButton'
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   353
                               translateLabel: true
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   354
                               tabable: true
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   355
                               model: removePerModulePath
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   356
                               enableChannel: removeEnabled
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   357
                               extent: (Point 139 30)
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   358
                             )
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   359
                            (ViewSpec
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   360
                               name: 'Box11'
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   361
                               extent: (Point 140 10)
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   362
                             )
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   363
                            )
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   364
                          
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   365
                         )
10989
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   366
                       )
14256
99c9828ff9c5 class: FileBasedSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14248
diff changeset
   367
                      )
99c9828ff9c5 class: FileBasedSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14248
diff changeset
   368
                    
99c9828ff9c5 class: FileBasedSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14248
diff changeset
   369
                   )
14315
0a76133b6b5c changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14256
diff changeset
   370
                   extent: (Point 694 337)
10989
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   371
                 )
14256
99c9828ff9c5 class: FileBasedSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14248
diff changeset
   372
                )
99c9828ff9c5 class: FileBasedSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14248
diff changeset
   373
              
99c9828ff9c5 class: FileBasedSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14248
diff changeset
   374
             )
10989
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   375
           )
14256
99c9828ff9c5 class: FileBasedSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14248
diff changeset
   376
          )
99c9828ff9c5 class: FileBasedSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14248
diff changeset
   377
        
99c9828ff9c5 class: FileBasedSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14248
diff changeset
   378
       )
99c9828ff9c5 class: FileBasedSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14248
diff changeset
   379
     )
10989
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   380
! !
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   381
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   382
!FileBasedSourceCodeManagementSettingsAppl class methodsFor:'queries'!
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   383
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   384
managerClass
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   385
    "backlink to my manager class (needed by the settings app)"
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   386
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   387
    ^ FileBasedSourceCodeManager
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   388
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   389
    "Created: / 19-04-2011 / 12:46:52 / cg"
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   390
! !
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   391
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   392
!FileBasedSourceCodeManagementSettingsAppl methodsFor:'actions'!
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   393
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   394
addModule:module withData:data
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   395
    (self listOfModules includes:module) ifFalse:[
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   396
        self listOfModules add:module; sort.
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   397
    ].
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   398
    pathPerModule at:module put:data.
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   399
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   400
    self updateModifiedChannel.
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   401
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   402
    "Created: / 08-11-2006 / 19:25:21 / cg"
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   403
!
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   404
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   405
addPerModulePath
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   406
    |module path|
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   407
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   408
    acceptChannel value:true.    
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   409
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   410
    module := self perModulePathModule value.
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   411
    path := self perModulePath value.
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   412
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   413
    path size > 0 ifTrue:[
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   414
        self validateDirectoryExistsAndIsWritable:path.
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   415
        self addModule:module withData:(Array with:FileBasedSourceCodeManager with:path).
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   416
    ].
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   417
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   418
    "Created: / 21-12-2011 / 14:23:10 / cg"
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   419
!
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   420
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   421
basicReadSettings
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   422
    |infoPerModule|
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   423
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   424
    self initialize.
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   425
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   426
    infoPerModule := FileBasedSourceCodeManager repositoryInfoPerModule.
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   427
    infoPerModule keysAndValuesDo:[:module :info | 
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   428
        pathPerModule at:module put:(Array with:FileBasedSourceCodeManager with:info).
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   429
    ].
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   430
11000
c7b3a7eea7ea refactoring
Claus Gittinger <cg@exept.de>
parents: 10989
diff changeset
   431
    self repositoryPathHolder value:FileBasedSourceCodeManager repositoryPath ? FileBasedSourceCodeManager defaultRepositoryPath.
10989
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   432
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   433
    pathPerModule notNil ifTrue:[
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   434
        self listOfModules removeAll.
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   435
        listOfModules addAll:pathPerModule keys asList.
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   436
    ].
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   437
11067
aa11bad9a498 preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents: 11065
diff changeset
   438
    self shownInBrowserMenusHolder value:FileBasedSourceCodeManager shownInBrowserMenus.
aa11bad9a498 preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents: 11065
diff changeset
   439
aa11bad9a498 preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents: 11065
diff changeset
   440
    "Modified: / 10-01-2012 / 00:20:51 / cg"
10989
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   441
!
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   442
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   443
basicSaveSettings
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   444
    |infoPerModule modules|
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   445
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   446
    modules := pathPerModule select:[:entry | entry first == FileBasedSourceCodeManager].
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   447
    infoPerModule := Dictionary new.
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   448
    modules keysAndValuesDo:[:module :entry | 
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   449
        entry first == FileBasedSourceCodeManager ifTrue:[
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   450
            infoPerModule at:module put:(entry second).
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   451
        ].
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   452
    ].
11000
c7b3a7eea7ea refactoring
Claus Gittinger <cg@exept.de>
parents: 10989
diff changeset
   453
10989
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   454
    FileBasedSourceCodeManager repositoryInfoPerModule:infoPerModule.
11000
c7b3a7eea7ea refactoring
Claus Gittinger <cg@exept.de>
parents: 10989
diff changeset
   455
    FileBasedSourceCodeManager repositoryPath:(self repositoryPathHolder value).
11067
aa11bad9a498 preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents: 11065
diff changeset
   456
    FileBasedSourceCodeManager shownInBrowserMenus:self shownInBrowserMenusHolder value. 
10989
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   457
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   458
    self acceptChannel value.
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   459
11067
aa11bad9a498 preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents: 11065
diff changeset
   460
    "Modified: / 10-01-2012 / 00:21:49 / cg"
10989
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   461
!
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   462
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   463
removePerModulePath
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   464
    |module|
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   465
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   466
    acceptChannel value:true.    
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   467
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   468
    module := self perModulePathModule value.
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   469
    self listOfModules remove:module ifAbsent:nil.
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   470
    pathPerModule removeKey:module ifAbsent:nil.
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   471
    self perModulePathModule value:nil.
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   472
    self perModulePath value:nil.
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   473
    self updateModifiedChannel.
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   474
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   475
    "Created: / 21-12-2011 / 14:26:08 / cg"
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   476
! !
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   477
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   478
!FileBasedSourceCodeManagementSettingsAppl methodsFor:'aspects'!
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   479
11330
6d8c30b044c1 refactored common code
Claus Gittinger <cg@exept.de>
parents: 11318
diff changeset
   480
initialListOfModules
6d8c30b044c1 refactored common code
Claus Gittinger <cg@exept.de>
parents: 11318
diff changeset
   481
    ^ pathPerModule keys asList sort
10989
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   482
11330
6d8c30b044c1 refactored common code
Claus Gittinger <cg@exept.de>
parents: 11318
diff changeset
   483
    "Created: / 02-03-2012 / 14:40:32 / cg"
10989
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   484
!
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   485
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   486
pathPrototypeList
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   487
    ^ #(
11000
c7b3a7eea7ea refactoring
Claus Gittinger <cg@exept.de>
parents: 10989
diff changeset
   488
            './repository'
10989
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   489
        )
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   490
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   491
    "Created: / 21-12-2011 / 13:13:05 / cg"
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   492
!
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   493
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   494
perModulePath
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   495
    perModulePath isNil ifTrue:[
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   496
        perModulePath := ValueHolder new.
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   497
        perModulePath addDependent:self.
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   498
    ].
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   499
    ^ perModulePath.
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   500
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   501
    "Created: / 21-12-2011 / 14:19:03 / cg"
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   502
!
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   503
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   504
perModulePathModule
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   505
    perModulePathModule isNil ifTrue:[
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   506
        perModulePathModule := ValueHolder new.
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   507
    ].
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   508
    ^ perModulePathModule.
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   509
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   510
    "Created: / 21-12-2011 / 14:31:09 / cg"
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   511
!
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   512
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   513
repositoryPathHolder
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   514
    repositoryPathHolder isNil ifTrue:[
11000
c7b3a7eea7ea refactoring
Claus Gittinger <cg@exept.de>
parents: 10989
diff changeset
   515
        repositoryPathHolder := FileBasedSourceCodeManager defaultRepositoryPath asValue.
10989
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   516
        repositoryPathHolder addDependent:self.
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   517
    ].
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   518
    ^ repositoryPathHolder.
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   519
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   520
    "Created: / 21-12-2011 / 13:11:58 / cg"
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   521
!
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   522
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   523
selectedPerModulePath
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   524
    selectedPerModulePath isNil ifTrue:[
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   525
        selectedPerModulePath := ValueHolder new.
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   526
        selectedPerModulePath addDependent:self.
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   527
    ].
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   528
    ^ selectedPerModulePath.
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   529
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   530
    "Created: / 21-12-2011 / 14:35:37 / cg"
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   531
! !
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   532
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   533
!FileBasedSourceCodeManagementSettingsAppl methodsFor:'change & update'!
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   534
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   535
selectedPerModulePathChanged
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   536
    |module entry|
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   537
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   538
    self acceptChannel value:true. 
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   539
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   540
    module := self selectedPerModulePath value.
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   541
    module isNil ifTrue:[ 
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   542
        self removeEnabled value:false.
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   543
        self perModulePathModule value:' '.
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   544
        self perModulePath value:''.
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   545
        ^ self
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   546
    ].
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   547
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   548
    entry := pathPerModule at:module ifAbsent:#().    
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   549
    (entry first = FileBasedSourceCodeManager) ifTrue:[
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   550
        self removeEnabled value:true.
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   551
        self perModulePathModule value:module.
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   552
        self perModulePath value:(entry at:2).
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   553
    ] ifFalse:[
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   554
        self removeEnabled value:false.
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   555
        self perModulePathModule value:module , ' ',('<<use ',entry first managerTypeName,'>>') allBold.
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   556
        self perModulePath value:''.
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   557
    ].
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   558
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   559
    "Created: / 21-12-2011 / 14:35:04 / cg"
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   560
!
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   561
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   562
update:something with:aParameter from:changedObject 
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   563
    changedObject == selectedPerModulePath ifTrue:[
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   564
        self selectedPerModulePathChanged.
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   565
        ^ self
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   566
    ].
11000
c7b3a7eea7ea refactoring
Claus Gittinger <cg@exept.de>
parents: 10989
diff changeset
   567
    changedObject == repositoryPathHolder ifTrue:[
c7b3a7eea7ea refactoring
Claus Gittinger <cg@exept.de>
parents: 10989
diff changeset
   568
        self updateModifiedChannel.
c7b3a7eea7ea refactoring
Claus Gittinger <cg@exept.de>
parents: 10989
diff changeset
   569
        ^ self
c7b3a7eea7ea refactoring
Claus Gittinger <cg@exept.de>
parents: 10989
diff changeset
   570
    ].
10989
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   571
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   572
    super update:something with:aParameter from:changedObject
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   573
11000
c7b3a7eea7ea refactoring
Claus Gittinger <cg@exept.de>
parents: 10989
diff changeset
   574
    "Modified: / 22-12-2011 / 00:27:48 / cg"
10989
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   575
!
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   576
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   577
validateDirectoryExistsAndIsWritable:aDirectory
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   578
    |nm fn|
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   579
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   580
    fn := aDirectory asFilename.
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   581
    nm := fn baseName.
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   582
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   583
    fn exists ifFalse:[
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   584
        (self confirm:(resources 
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   585
                            stringWithCRs:'Directory "%1" does not exist.\Create ?'
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   586
                            with:nm)
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   587
        ) ifFalse:[
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   588
            ^ false.
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   589
        ].
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   590
        fn 
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   591
            recursiveMakeDirectory; 
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   592
            makeReadableForAll;
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   593
            makeWritableForAll;
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   594
            makeExecutableForAll.
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   595
        ^ true.
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   596
    ].
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   597
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   598
    (fn isDirectory) ifFalse:[
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   599
        self warn:(resources 
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   600
                            stringWithCRs:'Not a directory: "%1"'
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   601
                            with:nm).
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   602
        ^ false.
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   603
    ].
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   604
13238
cbfa41f2f417 Use #isWritableDirectory
Stefan Vogel <sv@exept.de>
parents: 11731
diff changeset
   605
    (fn isWritableDirectory and:[fn isReadable]) ifFalse:[
10989
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   606
        (self confirm:(resources 
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   607
                            stringWithCRs:'Directory "%1" is not both readable and writable.\Change ?'
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   608
                            with:nm)
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   609
        ) ifFalse:[
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   610
            ^ false.
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   611
        ].
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   612
        fn
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   613
            makeReadableForAll;
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   614
            makeWritableForAll;
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   615
            makeExecutableForAll.
13238
cbfa41f2f417 Use #isWritableDirectory
Stefan Vogel <sv@exept.de>
parents: 11731
diff changeset
   616
        (fn isWritableDirectory and:[fn isReadable]) ifFalse:[
10989
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   617
            self warn:(resources 
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   618
                                stringWithCRs:'Directory "%1" cannot be made both readable and writable.'
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   619
                                with:nm).
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   620
            ^ false.
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   621
        ].
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   622
    ].
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   623
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   624
    ^ true
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   625
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   626
    "Created: / 21-12-2011 / 14:43:11 / cg"
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   627
! !
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   628
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   629
!FileBasedSourceCodeManagementSettingsAppl methodsFor:'help'!
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   630
14248
e08d038ccdac halp url
Claus Gittinger <cg@exept.de>
parents: 13238
diff changeset
   631
editorHelpRelativeWikiURL
e08d038ccdac halp url
Claus Gittinger <cg@exept.de>
parents: 13238
diff changeset
   632
    "the relative URL of the dialog-description in the Wiki"
e08d038ccdac halp url
Claus Gittinger <cg@exept.de>
parents: 13238
diff changeset
   633
e08d038ccdac halp url
Claus Gittinger <cg@exept.de>
parents: 13238
diff changeset
   634
    ^ 'Settings_FileBasedSourceCodeManagerSettings'
e08d038ccdac halp url
Claus Gittinger <cg@exept.de>
parents: 13238
diff changeset
   635
!
e08d038ccdac halp url
Claus Gittinger <cg@exept.de>
parents: 13238
diff changeset
   636
10989
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   637
helpFilename
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   638
    ^ 'Launcher/fileBasedRepositorySetup.html'
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   639
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   640
    "Modified: / 21-12-2011 / 14:36:53 / cg"
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   641
! !
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   642
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   643
!FileBasedSourceCodeManagementSettingsAppl methodsFor:'initialization & release'!
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   644
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   645
initialize
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   646
    (AbstractSourceCodeManager notNil) ifTrue:[ AbstractSourceCodeManager autoload ].
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   647
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   648
    pathPerModule := Dictionary new.
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   649
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   650
    FileBasedSourceCodeManager repositoryInfoPerModule 
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   651
        keysAndValuesDo:[:module :info |
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   652
            module withoutSeparators ~= module ifTrue:[
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   653
                self halt:'should not happen any longer'
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   654
            ].
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   655
            pathPerModule at:module put:(Array with:FileBasedSourceCodeManager with:info)
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   656
        ].
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   657
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   658
    super initialize.
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   659
11000
c7b3a7eea7ea refactoring
Claus Gittinger <cg@exept.de>
parents: 10989
diff changeset
   660
    "Modified: / 21-12-2011 / 23:50:23 / cg"
10989
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   661
! !
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   662
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   663
!FileBasedSourceCodeManagementSettingsAppl methodsFor:'queries'!
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   664
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   665
hasUnsavedChanges
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   666
    |modules|
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   667
11000
c7b3a7eea7ea refactoring
Claus Gittinger <cg@exept.de>
parents: 10989
diff changeset
   668
    (FileBasedSourceCodeManager repositoryPath ? FileBasedSourceCodeManager defaultRepositoryPath) ~= self repositoryPathHolder value    
c7b3a7eea7ea refactoring
Claus Gittinger <cg@exept.de>
parents: 10989
diff changeset
   669
        ifTrue:[^ true].
11073
454df119de86 preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents: 11067
diff changeset
   670
    (FileBasedSourceCodeManager shownInBrowserMenus ~= self shownInBrowserMenusHolder value)
454df119de86 preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents: 11067
diff changeset
   671
        ifTrue:[^ true].
11000
c7b3a7eea7ea refactoring
Claus Gittinger <cg@exept.de>
parents: 10989
diff changeset
   672
10989
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   673
    modules := pathPerModule select:[:entry | entry first == FileBasedSourceCodeManager].
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   674
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   675
    FileBasedSourceCodeManager repositoryInfoPerModule keysAndValuesDo:[:module :info |
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   676
        ((modules includesKey:module) and:[info = (modules at:module) second])
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   677
        ifFalse:[^ true].
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   678
    ].
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   679
    modules keysAndValuesDo:[:module :info|
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   680
        ((FileBasedSourceCodeManager repositoryInfoPerModule includesKey:module) and:[(FileBasedSourceCodeManager repositoryInfoPerModule at:module) = info second])
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   681
        ifFalse:[^ true].
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   682
    ].
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   683
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   684
    ^ false
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   685
11073
454df119de86 preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents: 11067
diff changeset
   686
    "Modified: / 10-01-2012 / 00:31:28 / cg"
10989
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   687
! !
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   688
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   689
!FileBasedSourceCodeManagementSettingsAppl class methodsFor:'documentation'!
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   690
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   691
version
16015
69f8c0aac629 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 14391
diff changeset
   692
    ^ '$Header$'
10989
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   693
!
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   694
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   695
version_CVS
16015
69f8c0aac629 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 14391
diff changeset
   696
    ^ '$Header$'
69f8c0aac629 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 14391
diff changeset
   697
!
69f8c0aac629 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 14391
diff changeset
   698
69f8c0aac629 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 14391
diff changeset
   699
version_FileRepository
69f8c0aac629 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 14391
diff changeset
   700
    ^ '$Path: stx/libtool/FileBasedSourceCodeManagementSettingsAppl.st, Version: 1$'
10989
b8ce8965f489 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   701
! !
13238
cbfa41f2f417 Use #isWritableDirectory
Stefan Vogel <sv@exept.de>
parents: 11731
diff changeset
   702