PerforceSourceCodeManagementSettingsAppl.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Wed, 01 Apr 2015 10:38:01 +0100
branchjv
changeset 15566 184cea584be5
parent 13289 cc75e3cd0362
parent 14397 00f8034ba2d4
child 16213 f667b5b42a11
permissions -rw-r--r--
Merged 25c2a13f00c5 and e6512d88f1ab (branch default - CVS HEAD)
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
10029
7a3812d7edc3 changed: #copyright
Claus Gittinger <cg@exept.de>
parents: 9873
diff changeset
     1
"
7a3812d7edc3 changed: #copyright
Claus Gittinger <cg@exept.de>
parents: 9873
diff changeset
     2
 COPYRIGHT (c) 2011 by eXept Software AG
7a3812d7edc3 changed: #copyright
Claus Gittinger <cg@exept.de>
parents: 9873
diff changeset
     3
              All Rights Reserved
7a3812d7edc3 changed: #copyright
Claus Gittinger <cg@exept.de>
parents: 9873
diff changeset
     4
7a3812d7edc3 changed: #copyright
Claus Gittinger <cg@exept.de>
parents: 9873
diff changeset
     5
 This software is furnished under a license and may be used
7a3812d7edc3 changed: #copyright
Claus Gittinger <cg@exept.de>
parents: 9873
diff changeset
     6
 only in accordance with the terms of that license and with the
7a3812d7edc3 changed: #copyright
Claus Gittinger <cg@exept.de>
parents: 9873
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
7a3812d7edc3 changed: #copyright
Claus Gittinger <cg@exept.de>
parents: 9873
diff changeset
     8
 be provided or otherwise made available to, or used by, any
7a3812d7edc3 changed: #copyright
Claus Gittinger <cg@exept.de>
parents: 9873
diff changeset
     9
 other person.  No title to or ownership of the software is
7a3812d7edc3 changed: #copyright
Claus Gittinger <cg@exept.de>
parents: 9873
diff changeset
    10
 hereby transferred.
7a3812d7edc3 changed: #copyright
Claus Gittinger <cg@exept.de>
parents: 9873
diff changeset
    11
"
11546
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
    12
"{ Package: 'stx:libtool' }"
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
    13
9864
d9b21106b707 class definition
Claus Gittinger <cg@exept.de>
parents: 9861
diff changeset
    14
AbstractSourceCodeManagementSettingsAppl subclass:#PerforceSourceCodeManagementSettingsAppl
11531
f5f8306664d7 class definition
Claus Gittinger <cg@exept.de>
parents: 11530
diff changeset
    15
	instanceVariableNames:'selectedPerModuleRoot perforceExecutableHolder
f5f8306664d7 class definition
Claus Gittinger <cg@exept.de>
parents: 11530
diff changeset
    16
		listOfPerforceModules defaultSettingsHolder tableColumns
f5f8306664d7 class definition
Claus Gittinger <cg@exept.de>
parents: 11530
diff changeset
    17
		defaultSettingsPrototypeList checkLabel'
f5f8306664d7 class definition
Claus Gittinger <cg@exept.de>
parents: 11530
diff changeset
    18
	classVariableNames:'RecentlyUsedCVSRoots RecentlyUsedStoreHosts
f5f8306664d7 class definition
Claus Gittinger <cg@exept.de>
parents: 11530
diff changeset
    19
		RecentlyUsedSmallTeamHosts LastStoreHost LastStoreUser
f5f8306664d7 class definition
Claus Gittinger <cg@exept.de>
parents: 11530
diff changeset
    20
		LastStorePassword'
f5f8306664d7 class definition
Claus Gittinger <cg@exept.de>
parents: 11530
diff changeset
    21
	poolDictionaries:''
f5f8306664d7 class definition
Claus Gittinger <cg@exept.de>
parents: 11530
diff changeset
    22
	category:'System-SourceCodeManagement'
9837
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    23
!
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    24
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
ApplicationModel subclass:#ManagerPerModuleApp
11531
f5f8306664d7 class definition
Claus Gittinger <cg@exept.de>
parents: 11530
diff changeset
    26
	instanceVariableNames:'moduleHolder acceptChannel settingsHolder
f5f8306664d7 class definition
Claus Gittinger <cg@exept.de>
parents: 11530
diff changeset
    27
		sourceCodeManagementSettingsApp acceptEnableChannel canceled
f5f8306664d7 class definition
Claus Gittinger <cg@exept.de>
parents: 11530
diff changeset
    28
		defaultSettingsPrototypeList'
f5f8306664d7 class definition
Claus Gittinger <cg@exept.de>
parents: 11530
diff changeset
    29
	classVariableNames:''
f5f8306664d7 class definition
Claus Gittinger <cg@exept.de>
parents: 11530
diff changeset
    30
	poolDictionaries:''
f5f8306664d7 class definition
Claus Gittinger <cg@exept.de>
parents: 11530
diff changeset
    31
	privateIn:PerforceSourceCodeManagementSettingsAppl
9837
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    32
!
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    33
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    34
Object subclass:#ModuleManager
11531
f5f8306664d7 class definition
Claus Gittinger <cg@exept.de>
parents: 11530
diff changeset
    35
	instanceVariableNames:'manager module settings app check checkIcon'
f5f8306664d7 class definition
Claus Gittinger <cg@exept.de>
parents: 11530
diff changeset
    36
	classVariableNames:''
f5f8306664d7 class definition
Claus Gittinger <cg@exept.de>
parents: 11530
diff changeset
    37
	poolDictionaries:''
f5f8306664d7 class definition
Claus Gittinger <cg@exept.de>
parents: 11530
diff changeset
    38
	privateIn:PerforceSourceCodeManagementSettingsAppl
11022
e19e9601a49c added: #defaultIcon4
Claus Gittinger <cg@exept.de>
parents: 11012
diff changeset
    39
!
e19e9601a49c added: #defaultIcon4
Claus Gittinger <cg@exept.de>
parents: 11012
diff changeset
    40
11546
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
    41
!PerforceSourceCodeManagementSettingsAppl class methodsFor:'documentation'!
11022
e19e9601a49c added: #defaultIcon4
Claus Gittinger <cg@exept.de>
parents: 11012
diff changeset
    42
11546
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
    43
copyright
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
    44
"
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
    45
 COPYRIGHT (c) 2011 by eXept Software AG
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
    46
              All Rights Reserved
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
    47
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
    48
 This software is furnished under a license and may be used
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
    49
 only in accordance with the terms of that license and with the
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
    50
 inclusion of the above copyright notice.   This software may not
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
    51
 be provided or otherwise made available to, or used by, any
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
    52
 other person.  No title to or ownership of the software is
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
    53
 hereby transferred.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
    54
"
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
    55
! !
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
    56
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
    57
!PerforceSourceCodeManagementSettingsAppl class methodsFor:'image specs'!
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
    58
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
    59
defaultIcon
14339
8a92b620a2f1 Mark program icons with resource
Stefan Vogel <sv@exept.de>
parents: 14314
diff changeset
    60
    <resource: #programImage>
8a92b620a2f1 Mark program icons with resource
Stefan Vogel <sv@exept.de>
parents: 14314
diff changeset
    61
11546
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
    62
    ^ self defaultIcon4.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
    63
    "/ ^ self defaultIcon3
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
    64
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
    65
    "Created: / 21-12-2011 / 12:35:05 / cg"
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
    66
!
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
    67
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
    68
defaultIcon1
14397
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
    69
    <resource: #image>
11546
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
    70
    "This resource specification was automatically generated
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
    71
     by the ImageEditor of ST/X."
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
    72
    "Do not manually edit this!! If it is corrupted,
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
    73
     the ImageEditor may not be able to read the specification."
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
    74
    "
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
    75
     self defaultIcon1 inspect
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
    76
     ImageEditor openOnClass:self andSelector:#defaultIcon1
14397
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
    77
     Icon flushCachedIcons"
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
    78
    
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
    79
    ^ Icon 
11546
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
    80
        constantNamed:'PerforceSourceCodeManagementSettingsAppl class defaultIcon1'
14397
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
    81
        ifAbsentPut:[
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
    82
            (Depth8Image new)
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
    83
                width:22;
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
    84
                height:22;
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
    85
                photometric:(#palette);
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
    86
                bitsPerSample:(#[ 8 ]);
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
    87
                samplesPerPixel:(1);
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
    88
                bits:(ByteArray 
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
    89
                            fromPackedString:'
11546
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
    90
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PHA@PHA@0D@@@D@@@@@@@@@@@@@@ TFA XFA \B@@@C@ HB@ @@@@@@
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
    91
@@HIB (IBP(IA@LB@ $JBPH@@@@@@@@BBP(LCPXJB $N@!!@JB!!@B@@@@@@@@@!!@PCP@@D!!@PA (PBP(P@ @@@@@@@@HPDAH@@ALPDA@PD@(PD@H@@@@@@@@B
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
    92
EQ@VB (WDA@PEQLMEP(B@@@@@@@@@!!TWEQ$ZE1\WEQ@@F1$S@ @@@@@@@@HZEQ@SF1TUEQT\@AXZA H@@@@@@@@BF!!4S@@4ZF!!4Q@@@^G00B@@@@@@@@@!!8^
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
    93
D2@^F!!(G@@@QH"L$IPH@@@@@@@H''G!!TUG" )AR(EJ2L,KR4B@@@@@@@B@!!D/LBL"H#D1LRH2H3L4@ @@@@@@@@@BJ3L6KB0,KB0#H2L#H0H@@@@@@@@@@ HB
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
    94
@ HB@ HBH#(-@ HB@@@@@@@@@@@@@@@@@@@@@#(4KPH@@@@@@@@@@@@@@@@@@@@@@@H=O H@@@@@@@@@@@@@@@@@@@@@@@@B@ HB@@@@@@@@@@@@@@@@@@@@
14397
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
    95
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a');
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
    96
                colorMapFromArray:#[ 240 240 240 224 232 250 208 232 250 224 240 250 160 192 210 128 176 200 144 176 200 160 192 220 144 176 210 112 160 180 128 160 180 160 200 220 128 168 200 160 184 210 208 224 240 176 208 220 112 152 180 176 200 220 144 184 210 144 168 200 192 216 240 112 144 170 128 152 180 112 144 180 128 168 180 96 136 170 112 136 170 144 168 180 192 216 220 96 136 160 96 128 160 48 112 140 176 192 220 144 184 220 16 96 130 32 96 130 144 200 220 192 232 250 176 216 250 96 120 140 80 120 140 80 128 160 112 168 200 80 136 170 32 104 140 96 152 180 128 184 210 96 144 170 48 104 140 16 88 120 32 104 130 16 88 130 0 80 100 176 224 250 32 96 140 144 192 220 160 208 240 160 208 220 16 80 120 80 144 170 80 144 180 0 64 100 0 72 100 ];
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
    97
                mask:((ImageMask new)
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
    98
                            width:22;
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
    99
                            height:22;
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   100
                            bits:(ByteArray 
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   101
                                        fromPackedString:'@@@@@@@@G?H@G?O G?? G?? G''? G''? G?? G?7 G?7 G/'' G?O0G??0G??0A??0A??0@@_@@@^@@@^@@@@@@@@@');
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   102
                            yourself);
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   103
                yourself
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   104
        ]
11546
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   105
!
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   106
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   107
defaultIcon2
14397
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   108
    <resource: #image>
11546
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   109
    "This resource specification was automatically generated
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   110
     by the ImageEditor of ST/X."
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   111
    "Do not manually edit this!! If it is corrupted,
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   112
     the ImageEditor may not be able to read the specification."
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   113
    "
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   114
     self defaultIcon2 inspect
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   115
     ImageEditor openOnClass:self andSelector:#defaultIcon2
14397
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   116
     Icon flushCachedIcons"
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   117
    
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   118
    ^ Icon 
11546
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   119
        constantNamed:'PerforceSourceCodeManagementSettingsAppl class defaultIcon2'
14397
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   120
        ifAbsentPut:[
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   121
            (Depth4Image new)
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   122
                width:24;
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   123
                height:24;
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   124
                photometric:(#palette);
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   125
                bitsPerSample:(#[ 4 ]);
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   126
                samplesPerPixel:(1);
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   127
                bits:(ByteArray 
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   128
                            fromPackedString:'
11546
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   129
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AH@@@@@@@@@@@@@QUUV@@@@@@@@@@A%UUUUUX@@@@@@BUUUUUUUUUTP@@@HUUUUUUUUUUUU$@@@@@UUUU
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   130
UUUU$@@@@@@@@FUUUUT@@@@@@@@@@@AUUZ@@)B@@@@@@H@@BL@BUUV @@@BEUU @@HUUZP@@@@YUUUUQ!!%UY@@@@@@@$UUUUUUVP@@@@@@@@@BUUUU@@QUP@
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   131
@@@@@@@AU@B%UP@@@@@@A0@@@@EUP@@@@@@@UUU@@DUY@@@@@@@UUUUUUUV@@@@@@@JH$VUUUU @@@@@@@@@@@@HYY@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
14397
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   132
@@@@@@@@@@@@@@@@@@@@@@@@');
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   133
                colorMapFromArray:#[ 255 248 248 240 200 104 255 216 160 255 248 240 240 192 64 240 168 24 240 176 48 255 240 224 255 224 176 255 208 136 255 232 208 ];
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   134
                mask:((ImageMask new)
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   135
                            width:24;
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   136
                            height:24;
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   137
                            bits:(ByteArray 
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   138
                                        fromPackedString:'@@@@@@@@@A @@G8@@_?@C??0O??<@?? @O<@@C88@!!#<C<O0G??@C?>@@O8<@A30@PG @>O@C?>@G?<@@A8@@@@@@@@@@@@@');
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   139
                            yourself);
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   140
                yourself
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   141
        ]
11546
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   142
!
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   143
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   144
defaultIcon3
14397
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   145
    <resource: #image>
11546
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   146
    "This resource specification was automatically generated
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   147
     by the ImageEditor of ST/X."
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   148
    "Do not manually edit this!! If it is corrupted,
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   149
     the ImageEditor may not be able to read the specification."
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   150
    "
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   151
     self defaultIcon3 inspect
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   152
     ImageEditor openOnClass:self andSelector:#defaultIcon3
14397
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   153
     Icon flushCachedIcons"
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   154
    
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   155
    ^ Icon 
11546
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   156
        constantNamed:'PerforceSourceCodeManagementSettingsAppl class defaultIcon3'
14397
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   157
        ifAbsentPut:[
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   158
            (Depth8Image new)
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   159
                width:22;
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   160
                height:22;
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   161
                photometric:(#palette);
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   162
                bitsPerSample:(#[ 8 ]);
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   163
                samplesPerPixel:(1);
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   164
                bits:(ByteArray 
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   165
                            fromPackedString:'
11546
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   166
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PHA@PHA@0D@@@D@@@@@@@@@@@@@@ PEAPTEAPXB@@@C@ HB@ @@@@@@
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   167
@@HGB@ GA0 GBPLB@ \HA0H@@@@@@@@BA0 JB0THB@\L@ 4HB@4B@@@@@@@@@ 4MB0@@C 4MAP MA0 M@ @@@@@@@@HMCP8@@@<MCP4MCP MCPH@@@@@@@@B
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   168
D@4QB@ RCP4MD@<KD@ B@@@@@@@@@!!@RDALTD!!HRD@4@EQLO@ @@@@@@@@HTM#X3L1@PDA@V@ADTAPH@@@@@@@@BL3X6M#X3EA\X@@@YF (B@@@@@@@@L#X6
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   169
C1,YECLF@@@XGA4^G0H@@@@@@CL4L1@PFRD"ABLDIA4%I"XB@@@@L3L6MSX7JA48GB$)JQ0*GR,,@ @@@@@3MSX3IB,8NC %IRT]GQ4]GPH@@@@@@CL<@ H8
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   170
N3,:N@HBGB8&@ HB@@@@@@@@@@@8NC$8NC @@"8,I H@@@@@@@@8@@@@@@@8N@@@@@H/L@H@@@@@@@@@@C 8NC 8NCD@@@@B@ HB@@@@@@@@@@@@NS 8NCD@
14397
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   171
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a');
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   172
                colorMapFromArray:#[ 247 247 247 239 243 252 231 243 252 239 247 252 191 215 227 199 215 227 207 223 237 183 207 217 191 207 217 207 223 232 191 211 227 207 219 232 231 239 247 183 203 217 199 219 232 199 211 227 183 199 212 191 203 217 183 199 217 175 195 212 183 195 212 199 211 217 223 235 237 175 195 207 215 227 237 175 191 207 151 183 197 215 223 237 135 175 192 143 175 192 199 227 237 223 243 252 175 187 197 167 187 197 167 191 207 183 211 227 167 195 212 143 179 197 175 203 217 175 199 212 151 179 197 135 171 187 143 179 192 135 171 192 127 167 177 143 175 197 135 167 187 127 159 177 127 163 177 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 ];
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   173
                mask:((ImageMask new)
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   174
                            width:22;
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   175
                            height:22;
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   176
                            bits:(ByteArray 
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   177
                                        fromPackedString:'@@@@@@@@G?H@G?O G?? G?? G''? G''? G?? G?7 G?7 G?'' G?O0G??0_??0O??0G??0@?_@HL^@G<^@C8@@@@@@');
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   178
                            yourself);
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   179
                yourself
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   180
        ]
11546
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   181
!
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   182
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   183
defaultIcon4
14397
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   184
    <resource: #image>
11546
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   185
    "This resource specification was automatically generated
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   186
     by the ImageEditor of ST/X."
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   187
    "Do not manually edit this!! If it is corrupted,
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   188
     the ImageEditor may not be able to read the specification."
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   189
    "
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   190
     self defaultIcon4 inspect
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   191
     ImageEditor openOnClass:self andSelector:#defaultIcon4
14397
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   192
     Icon flushCachedIcons"
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   193
    
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   194
    ^ Icon 
11546
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   195
        constantNamed:'PerforceSourceCodeManagementSettingsAppl class defaultIcon4'
14397
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   196
        ifAbsentPut:[
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   197
            (Depth8Image new)
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   198
                width:22;
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   199
                height:22;
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   200
                photometric:(#palette);
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   201
                bitsPerSample:(#[ 8 ]);
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   202
                samplesPerPixel:(1);
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   203
                bits:(ByteArray 
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   204
                            fromPackedString:'
11546
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   205
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AUUUUUU @@@@@@@@@@@@@@@@@@
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   206
@@@@U(F.+Y]QJ@@@FB\$(P@@@@@@@@@@@ET)H#U7JS]IFRX)S%\@@@@@@@@@@@@SO6B1E1F+$C5SJSYB@@@@@@@@@@@@D:>MW)>Y_P!!;#8HI\0@@@@@@@@@@
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   207
@D@)J!!R0& 0])J"CG!!0@@@@@@@@@@@AAJ08J^VM_(1TP_7 G@@@@@@@@@@@@-;^4-J2NM@=5$'':)@@@@@@@@@@@@-K^7-;^4^&T2@C1OK@@@@@@@@@@@,;^7
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   208
SBB''%+P@''HY/%E$K@@@@@@@@@KR5-@YPHR4A''X]0JU)DSZH@@@@@-KR7-+^8@D"9\WE[CTU!!K0L3@@@@@@B4-+^4@@B9.[$@@C@Z)X0@@@@@@@@@@KR=@@B9
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   209
/K2;.PBJWT]K@@@@@@@@@@@@@@B9.[*9.[$@@H,[@@@@@@@@@@B9@@@@@@B9.P@@@@@@@@@@@@@@@@@@@K&9.[&9.[H@@@@@@@@@@@@@@@@@@@@@.+&9.[H@
14397
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   210
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a');
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   211
                colorMapFromArray:#[ 255 207 52 214 168 55 233 238 244 117 121 125 215 219 225 217 222 228 166 169 170 185 189 193 118 113 66 175 127 29 172 137 46 183 143 46 186 146 50 149 132 77 212 161 47 102 106 106 233 202 75 244 197 63 237 243 249 253 208 64 244 197 65 116 121 116 236 242 248 141 145 139 212 219 146 193 198 148 232 179 53 146 149 152 164 168 171 127 97 27 138 106 37 200 204 209 180 136 36 187 140 37 209 152 33 214 218 223 219 166 45 223 228 234 240 194 60 240 194 64 138 131 107 230 183 62 239 191 65 230 184 63 120 122 121 213 164 49 232 237 244 104 109 109 251 215 73 225 231 235 162 166 166 180 184 188 153 111 25 175 126 27 185 134 29 186 141 39 223 228 223 217 221 226 223 227 230 232 237 235 255 235 80 227 199 81 236 241 247 232 185 63 253 216 78 253 217 79 131 135 134 230 234 240 215 159 40 232 182 60 216 221 223 96 97 95 154 158 159 178 183 183 144 110 31 199 204 209 163 130 45 175 133 40 205 150 34 203 156 46 134 121 82 223 172 50 228 233 234 232 183 60 236 243 248 253 216 79 254 241 108 123 127 129 233 184 62 255 196 50 232 182 57 118 122 120 216 220 226 211 164 51 161 167 160 102 81 27 139 107 33 147 120 48 166 132 45 167 134 50 212 217 221 94 100 98 227 233 231 224 229 234 228 183 56 253 208 63 237 243 247 238 243 250 231 235 242 234 239 246 254 208 63 240 194 65 216 168 53 114 120 119 217 221 227 148 152 153 227 232 238 178 182 180 143 110 31 171 125 28 118 105 65 173 137 46 205 150 33 214 159 37 224 166 38 221 167 46 223 170 49 231 179 56 235 239 244 245 203 72 238 190 64 233 181 58 232 184 62 128 131 126 255 230 77 215 162 44 117 121 122 222 227 232 203 152 38 150 153 155 172 176 177 132 102 33 154 121 40 147 118 49 101 101 82 228 233 221 255 235 71 227 233 230 211 164 52 228 233 237 227 181 61 244 196 63 237 242 248 233 182 59 234 184 60 236 241 248 255 205 50 214 166 51 222 226 230 195 202 151 229 233 240 153 156 155 168 172 176 138 101 24 157 117 33 119 99 56 219 225 216 184 158 61 139 130 81 100 101 96 144 149 103 225 175 53 149 154 112 245 200 66 246 202 71 232 184 63 233 183 61 131 134 130 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 ];
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   212
                mask:((ImageMask new)
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   213
                            width:22;
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   214
                            height:22;
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   215
                            bits:(ByteArray 
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   216
                                        fromPackedString:'@@@C@@@C@@@CA<@CA?OCA??CA??CA??CA??CA??CA?>CC?.CG??CG??#_/?#ON^CF_^C@?LCHL@CG<@CC8@C@@@C');
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   217
                            yourself);
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   218
                yourself
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
   219
        ]
11546
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   220
! !
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   221
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   222
!PerforceSourceCodeManagementSettingsAppl class methodsFor:'interface specs'!
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   223
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   224
windowSpec
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   225
    "This resource specification was automatically generated
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   226
     by the UIPainter of ST/X."
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   227
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   228
    "Do not manually edit this!! If it is corrupted,
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   229
     the UIPainter may not be able to read the specification."
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   230
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   231
    "
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   232
     UIPainter new openOnClass:PerforceSourceCodeManagementSettingsAppl andSelector:#windowSpec
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   233
     PerforceSourceCodeManagementSettingsAppl new openInterface:#windowSpec
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   234
     PerforceSourceCodeManagementSettingsAppl open
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   235
    "
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   236
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   237
    <resource: #canvas>
11530
ba6b2f17e30d **** new version from Christian
Claus Gittinger <cg@exept.de>
parents: 11328
diff changeset
   238
11546
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   239
    ^ 
14257
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   240
    #(FullSpec
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   241
       name: windowSpec
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   242
       window: 
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   243
      (WindowSpec
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   244
         label: 'Source Code Manager Settings'
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   245
         name: 'Source Code Manager Settings'
14314
ae33d7e348d4 changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14269
diff changeset
   246
         flags: 1
14257
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   247
         min: (Point 10 10)
14314
ae33d7e348d4 changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14269
diff changeset
   248
         bounds: (Rectangle 0 0 706 596)
14257
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   249
       )
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   250
       component: 
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   251
      (SpecCollection
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   252
         collection: (
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   253
          (VerticalPanelViewSpec
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   254
             name: 'VerticalPanel3'
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   255
             layout: (LayoutFrame 0 0 0 0 0 1 0 1)
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   256
             horizontalLayout: fit
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   257
             verticalLayout: topSpace
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   258
             horizontalSpace: 3
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   259
             verticalSpace: 4
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   260
             component: 
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   261
            (SpecCollection
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   262
               collection: (
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   263
                (FramedBoxSpec
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   264
                   label: 'Perforce (P4) Sourcecode Manager Settings'
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   265
                   name: 'FramedBox3'
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   266
                   labelPosition: topLeft
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   267
                   translateLabel: true
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   268
                   component: 
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   269
                  (SpecCollection
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   270
                     collection: (
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   271
                      (CheckBoxSpec
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   272
                         label: 'Show in Browser Menus'
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   273
                         name: 'CheckBox1'
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   274
                         layout: (LayoutFrame 0 0 5 0 -150 1 35 0)
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   275
                         activeHelpKey: shownInBrowserMenus
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   276
                         model: shownInBrowserMenusHolder
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   277
                         translateLabel: true
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   278
                       )
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   279
                      (ActionButtonSpec
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   280
                         label: 'Check'
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   281
                         name: 'Button6'
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   282
                         layout: (LayoutFrame -150 1 5 0 -5 1 35 0)
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   283
                         translateLabel: true
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   284
                         labelChannel: checkLabel
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   285
                         model: checkPerforceSettings
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   286
                       )
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   287
                      (ViewSpec
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   288
                         name: 'Box3'
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   289
                         layout: (LayoutFrame 0 0 41 0 0 1 117 0)
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   290
                         component: 
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   291
                        (SpecCollection
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   292
                           collection: (
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   293
                            (LabelSpec
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   294
                               label: 'Default Perforce Root'
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   295
                               name: 'Label1'
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   296
                               layout: (LayoutFrame 0 0.0 0 0 60 0.25 30 0)
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   297
                               level: 0
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   298
                               translateLabel: true
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   299
                               adjust: right
11546
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   300
                             )
14257
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   301
                            (LabelSpec
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   302
                               label: '(client:user:pass@host:port) '
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   303
                               name: 'Label18'
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   304
                               layout: (LayoutFrame 4 0.0 25 0 64 0.25 40 0)
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   305
                               style: (FontDescription helvetica medium roman 10)
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   306
                               level: 0
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   307
                               foregroundColor: (Color 32.9991607537957 32.9991607537957 32.9991607537957)
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   308
                               translateLabel: true
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   309
                               adjust: right
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   310
                             )
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   311
                            (ComboBoxSpec
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   312
                               name: 'cvsRootComboBox'
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   313
                               layout: (LayoutFrame 66 0.25 0 0 -5 1 30 0)
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   314
                               tabable: true
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   315
                               model: defaultSettingsHolder
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   316
                               immediateAccept: true
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   317
                               acceptOnLeave: true
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   318
                               acceptOnReturn: true
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   319
                               acceptOnTab: true
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   320
                               acceptOnLostFocus: true
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   321
                               acceptChannel: acceptChannel
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   322
                               acceptOnPointerLeave: true
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   323
                               comboList: defaultSettingsPrototypeList
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   324
                             )
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   325
                            (LabelSpec
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   326
                               label: 'Perforce Command / Path:'
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   327
                               name: 'Label22'
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   328
                               layout: (LayoutFrame 0 0.0 38 0 60 0.25 68 0)
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   329
                               level: 0
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   330
                               translateLabel: true
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   331
                               adjust: right
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   332
                             )
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   333
                            (InputFieldSpec
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   334
                               name: 'EntryField8'
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   335
                               layout: (LayoutFrame 66 0.25 38 0 -5 1 68 0)
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   336
                               tabable: true
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   337
                               model: perforceExecutableHolder
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   338
                               immediateAccept: false
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   339
                               acceptOnLostFocus: true
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   340
                               acceptChannel: acceptChannel
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   341
                               acceptOnPointerLeave: true
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   342
                             )
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   343
                            )
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   344
                          
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   345
                         )
11546
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   346
                       )
14257
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   347
                      )
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   348
                    
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   349
                   )
14314
ae33d7e348d4 changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14269
diff changeset
   350
                   extent: (Point 706 154)
14257
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   351
                 )
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   352
                (ViewSpec
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   353
                   name: 'ManagerSetupBoxx'
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   354
                   component: 
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   355
                  (SpecCollection
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   356
                     collection: (
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   357
                      (FramedBoxSpec
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   358
                         label: 'Per Module Manager Setup'
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   359
                         name: 'PerModuleManagerSetup'
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   360
                         layout: (LayoutFrame 0 0 -1 0 0 1 -3 1)
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   361
                         labelPosition: topLeft
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   362
                         translateLabel: true
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   363
                         component: 
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   364
                        (SpecCollection
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   365
                           collection: (
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   366
                            (DataSetSpec
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   367
                               name: 'Table1'
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   368
                               layout: (LayoutFrame 5 0 5 0 0 1 -30 1)
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   369
                               model: selectedPerModuleRoot
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   370
                               hasHorizontalScrollBar: true
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   371
                               hasVerticalScrollBar: true
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   372
                               dataList: listOfModules
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   373
                               useIndex: false
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   374
                               columnHolder: tableColumns
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   375
                               beDependentOfRows: true
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   376
                             )
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   377
                            (HorizontalPanelViewSpec
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   378
                               name: 'HorizontalPanel11'
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   379
                               layout: (LayoutFrame 5 0 -30 1 -1 1 0 1)
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   380
                               horizontalLayout: fitSpace
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   381
                               verticalLayout: center
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   382
                               horizontalSpace: 3
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   383
                               verticalSpace: 3
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   384
                               component: 
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   385
                              (SpecCollection
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   386
                                 collection: (
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   387
                                  (ActionButtonSpec
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   388
                                     label: 'Add/Apply'
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   389
                                     name: 'Button2'
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   390
                                     translateLabel: true
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   391
                                     tabable: true
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   392
                                     model: addPerModuleRoot
14314
ae33d7e348d4 changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14269
diff changeset
   393
                                     extent: (Point 328 30)
11546
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   394
                                   )
14257
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   395
                                  (ActionButtonSpec
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   396
                                     label: 'Remove'
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   397
                                     name: 'Button3'
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   398
                                     translateLabel: true
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   399
                                     tabable: true
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   400
                                     model: removePerModuleRoot
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   401
                                     enableChannel: removeEnabled
14314
ae33d7e348d4 changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14269
diff changeset
   402
                                     extent: (Point 329 30)
14257
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   403
                                   )
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   404
                                  )
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   405
                                
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   406
                               )
11546
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   407
                             )
14257
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   408
                            )
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   409
                          
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   410
                         )
11546
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   411
                       )
14257
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   412
                      )
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   413
                    
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   414
                   )
14314
ae33d7e348d4 changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14269
diff changeset
   415
                   extent: (Point 706 250)
14257
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   416
                 )
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   417
                (FramedBoxSpec
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   418
                   label: 'Source Cache'
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   419
                   name: 'FramedBox2'
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   420
                   visibilityChannel: false
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   421
                   labelPosition: topLeft
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   422
                   translateLabel: true
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   423
                   component: 
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   424
                  (SpecCollection
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   425
                     collection: (
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   426
                      (ViewSpec
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   427
                         name: 'Box4'
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   428
                         layout: (LayoutFrame 0 0 0 0 0 1 30 0)
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   429
                         component: 
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   430
                        (SpecCollection
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   431
                           collection: (
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   432
                            (LabelSpec
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   433
                               label: 'Source Cache Dir:'
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   434
                               name: 'Label23'
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   435
                               layout: (LayoutFrame 0 0.0 0 0 60 0.25 30 0)
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   436
                               translateLabel: true
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   437
                               adjust: right
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   438
                             )
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   439
                            (InputFieldSpec
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   440
                               name: 'EntryField9'
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   441
                               layout: (LayoutFrame 64 0.25 0 0 0 1 30 0)
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   442
                               model: sourceCacheDir
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   443
                               immediateAccept: false
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   444
                               acceptOnReturn: true
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   445
                               acceptOnTab: true
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   446
                               acceptOnLostFocus: true
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   447
                               acceptOnPointerLeave: true
11546
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   448
                             )
14257
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   449
                            )
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   450
                          
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   451
                         )
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   452
                       )
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   453
                      (HorizontalPanelViewSpec
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   454
                         name: 'HorizontalPanel12'
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   455
                         layout: (LayoutFrame 44 0.25 33 0 0 1 63 0)
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   456
                         horizontalLayout: fitSpace
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   457
                         verticalLayout: center
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   458
                         horizontalSpace: 3
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   459
                         verticalSpace: 3
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   460
                         component: 
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   461
                        (SpecCollection
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   462
                           collection: (
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   463
                            (ActionButtonSpec
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   464
                               label: 'Flush Cache now'
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   465
                               name: 'Button4'
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   466
                               translateLabel: true
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   467
                               tabable: true
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   468
                               model: flushSourceCache
14314
ae33d7e348d4 changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14269
diff changeset
   469
                               extent: (Point 225 30)
14257
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   470
                             )
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   471
                            (ActionButtonSpec
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   472
                               label: 'Condense Cache now'
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   473
                               name: 'Button5'
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   474
                               translateLabel: true
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   475
                               tabable: true
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   476
                               model: condenseSourceCache
14314
ae33d7e348d4 changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14269
diff changeset
   477
                               extent: (Point 226 30)
11546
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   478
                             )
14257
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   479
                            )
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   480
                          
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   481
                         )
11546
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   482
                       )
14257
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   483
                      )
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   484
                    
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   485
                   )
14314
ae33d7e348d4 changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14269
diff changeset
   486
                   extent: (Point 706 107)
14257
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   487
                 )
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   488
                (ViewSpec
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   489
                   name: 'VerboseBox'
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   490
                   component: 
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   491
                  (SpecCollection
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   492
                     collection: (
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   493
                      (CheckBoxSpec
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   494
                         label: 'Verbose (Trace Access on Transcript)'
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   495
                         name: 'CheckBox6'
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   496
                         layout: (LayoutFrame 30 0 5 0 -5 1 35 0)
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   497
                         model: verboseSourceCodeAccess
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   498
                         translateLabel: true
11546
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   499
                       )
14257
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   500
                      )
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   501
                    
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   502
                   )
14314
ae33d7e348d4 changed: #windowSpec
Claus Gittinger <cg@exept.de>
parents: 14269
diff changeset
   503
                   extent: (Point 706 25)
11546
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   504
                 )
14257
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   505
                )
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   506
              
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   507
             )
11546
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   508
           )
14257
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   509
          )
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   510
        
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   511
       )
c51afcd49135 class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents: 14250
diff changeset
   512
     )
11546
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   513
! !
11530
ba6b2f17e30d **** new version from Christian
Claus Gittinger <cg@exept.de>
parents: 11328
diff changeset
   514
11546
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   515
!PerforceSourceCodeManagementSettingsAppl class methodsFor:'menu specs'!
9837
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   516
11546
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   517
menuPerModule
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   518
    "This resource specification was automatically generated
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   519
     by the MenuEditor of ST/X."
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   520
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   521
    "Do not manually edit this!! If it is corrupted,
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   522
     the MenuEditor may not be able to read the specification."
9837
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   523
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   524
11546
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   525
    "
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   526
     MenuEditor new openOnClass:PerforceSourceCodeManagementSettingsAppl andSelector:#menuPerModule
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   527
     (Menu new fromLiteralArrayEncoding:(PerforceSourceCodeManagementSettingsAppl menuPerModule)) startUp
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   528
    "
9837
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   529
11546
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   530
    <resource: #menu>
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   531
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   532
    ^ 
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   533
     #(Menu
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   534
        (
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   535
         (MenuItem
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   536
            label: 'Check'
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   537
            itemValue: checkPerforceSettings
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   538
            translateLabel: true
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   539
          )
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   540
         )
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   541
        nil
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   542
        nil
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   543
      )
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   544
! !
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   545
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   546
!PerforceSourceCodeManagementSettingsAppl class methodsFor:'queries'!
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   547
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   548
managerClass
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   549
    "backlink to my manager class (needed by the settings app)"
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   550
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   551
    ^ PerforceSourceCodeManager
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   552
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   553
    "Created: / 19-04-2011 / 12:52:02 / cg"
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   554
! !
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   555
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   556
!PerforceSourceCodeManagementSettingsAppl class methodsFor:'tableColumns specs'!
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   557
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   558
tableColumns
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   559
    "This resource specification was automatically generated
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   560
     by the DataSetBuilder of ST/X."
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   561
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   562
    "Do not manually edit this!! If it is corrupted,
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   563
     the DataSetBuilder may not be able to read the specification."
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   564
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   565
    "
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   566
     DataSetBuilder new openOnClass:PerforceSourceCodeManagementSettingsAppl andSelector:#tableColumns
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   567
    "
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   568
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   569
    <resource: #tableColumns>
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   570
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   571
    ^#(
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   572
      (DataSetColumnSpec
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   573
         label: 'Module'
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   574
         labelButtonType: Button
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   575
         usePreferredWidth: true
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   576
         width: 100
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   577
         minWidth: 100
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   578
         model: module
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   579
         menuFromApplication: false
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   580
       )
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   581
      (DataSetColumnSpec
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   582
         label: 'Settings'
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   583
         labelButtonType: Button
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   584
         editorType: InputField
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   585
         model: settings
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   586
         menuFromApplication: false
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   587
         isResizeable: false
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   588
       )
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   589
      (DataSetColumnSpec
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   590
         label: 'Check'
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   591
         labelButtonType: Button
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   592
         model: check
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   593
         menuFromApplication: false
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   594
         doubleClickedSelector: doubleClick
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   595
         isResizeable: false
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   596
       )
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   597
      )
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   598
    
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   599
! !
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   600
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   601
!PerforceSourceCodeManagementSettingsAppl methodsFor:'actions'!
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   602
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   603
addModule:aModuleManager
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   604
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   605
    |detectedManager|
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   606
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   607
    detectedManager := self listOfModules detect:[:eachModuleManager| eachModuleManager module = aModuleManager module] ifNone:nil.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   608
    detectedManager isNil ifTrue:[
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   609
        self listOfModules add:aModuleManager; sort.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   610
        self updateModifiedChannel.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   611
    ] ifFalse:[
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   612
        Dialog information:'Manager for Module ', aModuleManager module, ' already exists'.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   613
    ].
9837
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   614
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   615
11546
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   616
    "Created: / 08-11-2006 / 19:25:21 / cg"
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   617
!
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   618
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   619
addModule:module withData:data
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   620
    (self listOfModules includes:module) ifFalse:[
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   621
        self listOfModules add:module; sort.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   622
    ].
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   623
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   624
    self updateModifiedChannel.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   625
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   626
    "Created: / 08-11-2006 / 19:25:21 / cg"
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   627
!
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   628
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   629
addPerModuleRoot
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   630
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   631
    |app moduleManager|
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   632
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   633
    app := ManagerPerModuleApp openFromSourceCodeManagementSettingsApp:self.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   634
    app canceled ifFalse:[
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   635
        moduleManager := ModuleManager newForApplication:self.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   636
        app moduleHolder value isEmptyOrNil ifTrue:[
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   637
            self information:'Adding without module name not allowed'.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   638
            ^ self.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   639
        ].
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   640
        moduleManager module:app moduleHolder value.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   641
        moduleManager settings:app settingsHolder value.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   642
        self listOfModules add:moduleManager.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   643
        self updateModifiedChannel.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   644
    ].
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   645
    "Modified: / 08-11-2006 / 19:27:39 / cg"
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   646
!
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   647
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   648
basicReadSettings
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   649
    |moduleManager moduleAndSettings|
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   650
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   651
    self initialize.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   652
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   653
    self defaultSettingsHolder value:PerforceSourceCodeManager getPerforceDefaultSettingsString.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   654
    self listOfModules removeAll.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   655
    moduleAndSettings := PerforceSourceCodeManager repositoryInfoPerModule copy.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   656
    moduleAndSettings notEmptyOrNil ifTrue:[
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   657
        moduleAndSettings keysAndValuesDo:[:module :settings|
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   658
            moduleManager := ModuleManager newForApplication:self.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   659
            moduleManager module:module.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   660
            moduleManager settings:settings.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   661
            self listOfModules add:moduleManager.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   662
        ].
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   663
    ].
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   664
    self listOfModules sort.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   665
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   666
    self hasManager ifTrue:[
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   667
        self sourceCacheDir value:(PerforceSourceCodeManager cacheDirectoryName).
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   668
    ].
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   669
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   670
    self perforceExecutableHolder value:PerforceSourceCodeManager perforceExecutable.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   671
    self verboseSourceCodeAccess value:PerforceSourceCodeManager verboseSourceCodeAccess.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   672
    self shownInBrowserMenusHolder value:PerforceSourceCodeManager shownInBrowserMenus. 
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   673
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   674
"/    self selectedPerModuleRootChanged.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   675
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   676
    "Modified: / 10-01-2012 / 00:21:00 / cg"
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   677
!
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   678
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   679
basicSaveSettings
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   680
    |client repositoryInfoPerModule|
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   681
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   682
    self hasManager ifTrue:[
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   683
        | nm fn|
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   684
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   685
        nm := self sourceCacheDir value.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   686
        nm notEmptyOrNil ifTrue:[
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   687
            (fn := nm asFilename) exists ifFalse:[
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   688
                (self confirm:('Perforce cache directory ''' , nm , ''' does not exist\create ?' withCRs)) ifTrue:[
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   689
                    fn makeDirectory;
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   690
                       makeReadableForAll;
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   691
                       makeWritableForAll;
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   692
                       makeExecutableForAll.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   693
                ]
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   694
            ].
13239
946657bb28e3 Use #isWritableDirectory
Stefan Vogel <sv@exept.de>
parents: 11619
diff changeset
   695
            (fn isWritableDirectory and:[fn isReadable]) ifTrue:[
11546
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   696
                PerforceSourceCodeManager cacheDirectoryName:nm.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   697
            ] ifFalse:[
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   698
                self warn:'Invalid sourceCache directory.'
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   699
            ]
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   700
        ].
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   701
        repositoryInfoPerModule := Dictionary new.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   702
        self listOfModules do:[:aModuleManager|
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   703
            repositoryInfoPerModule at:aModuleManager module put:aModuleManager settings.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   704
        ].
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   705
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   706
        PerforceSourceCodeManager repositoryInfoPerModule:repositoryInfoPerModule.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   707
        PerforceSourceCodeManager perforceExecutable:((self perforceExecutableHolder value ? '') withoutSeparators).
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   708
        client := self defaultSettingsHolder value.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   709
        PerforceSourceCodeManager setDefaultPerforceSettingsFromString:client.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   710
        PerforceSourceCodeManager verboseSourceCodeAccess:self verboseSourceCodeAccess value.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   711
        PerforceSourceCodeManager shownInBrowserMenus:self shownInBrowserMenusHolder value. 
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   712
    ].
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   713
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   714
    self acceptChannel value.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   715
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   716
    "Modified: / 10-01-2012 / 00:21:59 / cg"
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   717
!
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   718
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   719
checkPerforceSettings
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   720
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   721
    |result icon|
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   722
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   723
    PerforceSourceCodeManager perforceError handle:[:ex|
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   724
        self warn:ex description.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   725
        ^false
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   726
    ] do:[
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   727
        result := PerforceSourceCodeManager checkPerforceSettings:(self defaultSettingsHolder value) forPackage:nil.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   728
        result ifTrue:[
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   729
            icon := GenericToolbarIconLibrary ledGreen14x14.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   730
        ] ifFalse:[
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   731
            icon := GenericToolbarIconLibrary ledRed14x14.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   732
        ].
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   733
        self checkLabel value:(LabelAndIcon label:'Check' icon:icon).
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   734
    ].
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   735
    ^false
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   736
!
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   737
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   738
condenseSourceCache
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   739
    self withWaitCursorDo:[ AbstractSourceCodeManager condenseSourceCache ].
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   740
    Method flushSourceStreamCache.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   741
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   742
    "Modified: / 28-11-2006 / 12:21:33 / cg"
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   743
!
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   744
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   745
flushSourceCache
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   746
    self withWaitCursorDo:[ AbstractSourceCodeManager flushSourceCache ].
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   747
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   748
    "Modified: / 30-09-2011 / 13:33:51 / cg"
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   749
!
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   750
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   751
removePerModuleRoot
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   752
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   753
    |module|
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   754
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   755
    acceptChannel value:true.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   756
    module := self selectedPerModuleRoot value.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   757
    self listOfModules remove:module ifAbsent:nil.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   758
    self updateModifiedChannel.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   759
! !
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   760
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   761
!PerforceSourceCodeManagementSettingsAppl methodsFor:'aspects'!
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   762
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   763
checkLabel
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   764
    <resource: #uiAspect>
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   765
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   766
    "automatically generated by UIPainter ..."
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   767
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   768
    "*** the code below creates a default model when invoked."
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   769
    "*** (which may not be the one you wanted)"
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   770
    "*** Please change as required and accept it in the browser."
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   771
    "*** (and replace this comment by something more useful ;-)"
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   772
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   773
    checkLabel isNil ifTrue:[
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   774
        checkLabel := 'Check' asValue.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   775
"/ if your app needs to be notified of changes, uncomment one of the lines below:
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   776
"/       checkLabel addDependent:self.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   777
"/       checkLabel onChangeSend:#checkLabelChanged to:self.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   778
    ].
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   779
    ^ checkLabel.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   780
!
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   781
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   782
defaultSettingsHolder
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   783
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   784
    defaultSettingsHolder isNil ifTrue:[
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   785
        defaultSettingsHolder := ValueHolder new.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   786
        defaultSettingsHolder addDependent:self.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   787
    ].
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   788
    ^ defaultSettingsHolder.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   789
!
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   790
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   791
defaultSettingsPrototypeList
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   792
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   793
    defaultSettingsPrototypeList isNil ifTrue:[
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   794
        defaultSettingsPrototypeList := self perforcePrototypeList.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   795
    ].
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   796
    ^ defaultSettingsPrototypeList.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   797
!
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   798
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   799
initialListOfModules
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   800
    ^ List new.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   801
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   802
    "Created: / 02-03-2012 / 14:41:40 / cg"
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   803
!
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   804
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   805
perforceExecutableHolder
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   806
    perforceExecutableHolder isNil ifTrue:[
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   807
        perforceExecutableHolder := ValueHolder new.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   808
        perforceExecutableHolder onChangeSend:#updateModifiedChannel to:self
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   809
    ].
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   810
    ^ perforceExecutableHolder.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   811
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   812
    "Created: / 21-09-2006 / 15:37:06 / cg"
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   813
!
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   814
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   815
perforcePrototypeList
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   816
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   817
    |first client|
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   818
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   819
    client := PerforceSourceCodeManager perforceClient.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   820
    client isEmptyOrNil ifTrue:[
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   821
        client := 'workspace'.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   822
    ].
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   823
    first := (client ,':', PerforceSourceCodeManager perforceUser, ':',
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   824
                           (PerforceSourceCodeManager perforcePassword ? 'pass'), '@',
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   825
                           PerforceSourceCodeManager perforcePort).
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   826
    ^ Array with:first.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   827
!
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   828
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   829
selectedPerModuleRoot
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   830
    selectedPerModuleRoot isNil ifTrue:[
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   831
        selectedPerModuleRoot := ValueHolder new.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   832
        selectedPerModuleRoot addDependent:self.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   833
    ].
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   834
    ^ selectedPerModuleRoot.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   835
!
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   836
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   837
tableColumns
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   838
    <resource: #uiAspect>
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   839
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   840
    "automatically generated by UIPainter ..."
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   841
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   842
    "*** the code below creates a default model when invoked."
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   843
    "*** (which may not be the one you wanted)"
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   844
    "*** Please change as required and accept it in the browser."
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   845
    "*** (and replace this comment by something more useful ;-)"
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   846
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   847
    tableColumns isNil ifTrue:[
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   848
        tableColumns := self class tableColumns asValue.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   849
"/ if your app needs to be notified of changes, uncomment one of the lines below:
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   850
"/       tableColumns addDependent:self.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   851
"/       tableColumns onChangeSend:#tableColumnsChanged to:self.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   852
    ].
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   853
    ^ tableColumns.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   854
!
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   855
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   856
verboseSourceCodeAccess
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   857
    verboseSourceCodeAccess isNil ifTrue:[
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   858
        verboseSourceCodeAccess := false asValue.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   859
        verboseSourceCodeAccess onChangeSend:#updateModifiedChannel to:self
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   860
    ].
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   861
    ^ verboseSourceCodeAccess.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   862
! !
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   863
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   864
!PerforceSourceCodeManagementSettingsAppl methodsFor:'change & update'!
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   865
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   866
selectedPerModuleRootChanged
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   867
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   868
    self removeEnabled value:self selectedPerModuleRoot value notNil.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   869
!
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   870
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   871
update:something with:aParameter from:changedObject
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   872
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   873
    changedObject == selectedPerModuleRoot ifTrue:[
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   874
        self selectedPerModuleRootChanged.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   875
        ^ self
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   876
    ].
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   877
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   878
    changedObject == self listOfModules ifTrue:[
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   879
        self updateModifiedChannel.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   880
    ].
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   881
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   882
    changedObject == defaultSettingsHolder ifTrue:[
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   883
        self updateModifiedChannel.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   884
    ].
9837
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   885
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   886
11546
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   887
    super update:something with:aParameter from:changedObject
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   888
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   889
    "Modified: / 09-11-2006 / 14:41:10 / cg"
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   890
! !
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   891
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   892
!PerforceSourceCodeManagementSettingsAppl methodsFor:'help'!
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   893
14250
af10ecb8e7c2 halp url
Claus Gittinger <cg@exept.de>
parents: 13239
diff changeset
   894
editorHelpRelativeWikiURL
af10ecb8e7c2 halp url
Claus Gittinger <cg@exept.de>
parents: 13239
diff changeset
   895
    "the relative URL of the dialog-description in the Wiki"
af10ecb8e7c2 halp url
Claus Gittinger <cg@exept.de>
parents: 13239
diff changeset
   896
af10ecb8e7c2 halp url
Claus Gittinger <cg@exept.de>
parents: 13239
diff changeset
   897
    ^ 'Settings_PerforceSourceCodeManagerSettings'
af10ecb8e7c2 halp url
Claus Gittinger <cg@exept.de>
parents: 13239
diff changeset
   898
!
af10ecb8e7c2 halp url
Claus Gittinger <cg@exept.de>
parents: 13239
diff changeset
   899
11546
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   900
helpFilename
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   901
    ^ 'Launcher/perforceSetup.html'
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   902
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   903
    "Modified: / 05-08-2011 / 09:10:03 / cg"
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   904
! !
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   905
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   906
!PerforceSourceCodeManagementSettingsAppl methodsFor:'initialization & release'!
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   907
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   908
initialize
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   909
    (AbstractSourceCodeManager notNil) ifTrue:[ AbstractSourceCodeManager autoload ].
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   910
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   911
    sourceCacheDir := nil asValue.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   912
    sourceCacheDir addDependent:self.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   913
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   914
    super initialize.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   915
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   916
    "Modified: / 08-11-2006 / 19:20:32 / cg"
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   917
! !
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   918
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   919
!PerforceSourceCodeManagementSettingsAppl methodsFor:'queries'!
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   920
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   921
hasManager
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   922
    "true if ANY source code management class is available"
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   923
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   924
    ^ PerforceSourceCodeManager notNil and:[PerforceSourceCodeManager isLoaded]
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   925
!
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   926
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   927
hasUnsavedChanges
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   928
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   929
    |repositoryInfoPerModule client settings|
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   930
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   931
    (PerforceSourceCodeManager shownInBrowserMenus ~= self shownInBrowserMenusHolder value)
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   932
        ifTrue:[^ true].
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   933
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   934
    client := self defaultSettingsHolder value.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   935
    client notNil ifTrue:[
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   936
        settings := PerforceSourceCodeManager getPerforceSettingsFromString:client.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   937
        PerforceSourceCodeManager perforceClient ~= (settings at:#client ifAbsent:nil) ifTrue:[
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   938
            ^ true
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   939
        ].
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   940
        PerforceSourceCodeManager perforceUser ~= (settings at:#user ifAbsent:nil) ifTrue:[
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   941
            ^ true
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   942
        ].
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   943
        PerforceSourceCodeManager perforcePort ~= (settings at:#port ifAbsent:nil) ifTrue:[
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   944
            ^ true
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   945
        ].
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   946
        PerforceSourceCodeManager perforcePassword ~= (settings at:#password ifAbsent:nil) ifTrue:[
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   947
            ^ true
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   948
        ].
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   949
    ].
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   950
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   951
    repositoryInfoPerModule := Dictionary new.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   952
    self listOfModules do:[:aModuleManager|
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   953
        repositoryInfoPerModule at:aModuleManager module put:aModuleManager settings.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   954
    ].
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   955
    PerforceSourceCodeManager verboseSourceCodeAccess ~= self verboseSourceCodeAccess value ifTrue:[
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   956
        ^true
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   957
    ].
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   958
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   959
    PerforceSourceCodeManager repositoryInfoPerModule keysAndValuesDo:[:module :info |
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   960
        ((repositoryInfoPerModule includesKey:module) and:[info = (repositoryInfoPerModule at:module)])
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   961
        ifFalse:[^ true].
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   962
    ].
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   963
    repositoryInfoPerModule keysAndValuesDo:[:module :info|
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   964
        ((PerforceSourceCodeManager repositoryInfoPerModule includesKey:module) and:[(PerforceSourceCodeManager repositoryInfoPerModule at:module) = info])
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   965
        ifFalse:[^ true].
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   966
    ].
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   967
    self perforceExecutableHolder value ~= PerforceSourceCodeManager perforceExecutable ifTrue:[
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   968
        ^true
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   969
    ].
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   970
    ^ false
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   971
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   972
    "Modified: / 10-01-2012 / 00:31:38 / cg"
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   973
!
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   974
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   975
repositoryInfoPerModuleFor:sourceCodeManager
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   976
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   977
    |repositoryInfoPerModule|
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   978
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   979
    repositoryInfoPerModule := Dictionary new.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   980
    self listOfModules do:[:aModuleManager|
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   981
        repositoryInfoPerModule at:aModuleManager module put:aModuleManager settings.
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   982
    ].
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   983
    ^ repositoryInfoPerModule
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
   984
! !
9837
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   985
9864
d9b21106b707 class definition
Claus Gittinger <cg@exept.de>
parents: 9861
diff changeset
   986
!PerforceSourceCodeManagementSettingsAppl::ManagerPerModuleApp class methodsFor:'instance creation'!
9837
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   987
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   988
openFromSourceCodeManagementSettingsApp:something
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   989
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   990
    |inst|
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   991
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   992
    inst := self new.
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   993
    inst sourceCodeManagementSettingsApp:something.
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   994
    inst openModal.
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   995
    ^ inst
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   996
! !
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   997
9864
d9b21106b707 class definition
Claus Gittinger <cg@exept.de>
parents: 9861
diff changeset
   998
!PerforceSourceCodeManagementSettingsAppl::ManagerPerModuleApp class methodsFor:'interface specs'!
9837
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   999
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1000
windowSpec
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1001
    "This resource specification was automatically generated
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1002
     by the UIPainter of ST/X."
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1003
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1004
    "Do not manually edit this!! If it is corrupted,
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1005
     the UIPainter may not be able to read the specification."
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1006
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1007
    "
11530
ba6b2f17e30d **** new version from Christian
Claus Gittinger <cg@exept.de>
parents: 11328
diff changeset
  1008
     UIPainter new openOnClass:PerforceSourceCodeManagementSettingsAppl::ManagerPerModuleApp andSelector:#windowSpec
ba6b2f17e30d **** new version from Christian
Claus Gittinger <cg@exept.de>
parents: 11328
diff changeset
  1009
     PerforceSourceCodeManagementSettingsAppl::ManagerPerModuleApp new openInterface:#windowSpec
ba6b2f17e30d **** new version from Christian
Claus Gittinger <cg@exept.de>
parents: 11328
diff changeset
  1010
     PerforceSourceCodeManagementSettingsAppl::ManagerPerModuleApp open
9837
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1011
    "
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1012
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1013
    <resource: #canvas>
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1014
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1015
    ^ 
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1016
     #(FullSpec
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1017
        name: windowSpec
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1018
        window: 
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1019
       (WindowSpec
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1020
          label: 'Manager per Module'
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1021
          name: 'Manager per Module'
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1022
          min: (Point 10 10)
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1023
          max: (Point 1024 768)
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1024
          bounds: (Rectangle 0 0 653 100)
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1025
        )
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1026
        component: 
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1027
       (SpecCollection
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1028
          collection: (
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1029
           (VerticalPanelViewSpec
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1030
              name: 'VerticalPanel1'
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1031
              layout: (LayoutFrame 0 0 0 0 -5 1 -30 1)
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1032
              horizontalLayout: fit
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1033
              verticalLayout: topSpace
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1034
              horizontalSpace: 3
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1035
              verticalSpace: 3
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1036
              component: 
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1037
             (SpecCollection
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1038
                collection: (
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1039
                 (HorizontalPanelViewSpec
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1040
                    name: 'HorizontalPanel1'
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1041
                    horizontalLayout: leftFit
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1042
                    verticalLayout: center
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1043
                    horizontalSpace: 3
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1044
                    verticalSpace: 3
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1045
                    component: 
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1046
                   (SpecCollection
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1047
                      collection: (
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1048
                       (LabelSpec
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1049
                          label: 'Module:'
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1050
                          name: 'Label16'
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1051
                          translateLabel: true
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1052
                          adjust: right
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1053
                          extent: (Point 180 17)
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1054
                        )
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1055
                       (InputFieldSpec
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1056
                          name: 'EntryField7'
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1057
                          tabable: true
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1058
                          model: moduleHolder
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1059
                          acceptChannel: acceptChannel
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1060
                          acceptOnPointerLeave: true
9846
646dc5b511fe changed:
Claus Gittinger <cg@exept.de>
parents: 9837
diff changeset
  1061
                          extent: (Point 465 22)
9837
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1062
                        )
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1063
                       )
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1064
                     
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1065
                    )
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1066
                    extent: (Point 648 23)
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1067
                  )
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1068
                 (HorizontalPanelViewSpec
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1069
                    name: 'HorizontalPanel4'
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1070
                    horizontalLayout: leftFit
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1071
                    verticalLayout: topSpace
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1072
                    horizontalSpace: 3
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1073
                    verticalSpace: 3
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1074
                    component: 
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1075
                   (SpecCollection
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1076
                      collection: (
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1077
                       (ViewSpec
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1078
                          name: 'Box1'
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1079
                          component: 
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1080
                         (SpecCollection
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1081
                            collection: (
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1082
                             (LabelSpec
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1083
                                label: 'Manager Info'
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1084
                                name: 'Label18'
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1085
                                layout: (LayoutFrame 0 0 0 0 149 0 16 0)
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1086
                                translateLabel: true
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1087
                                adjust: right
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1088
                              )
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1089
                             (LabelSpec
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1090
                                label: 'client:user:pass@host:port '
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1091
                                name: 'Label19'
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1092
                                layout: (LayoutFrame 0 0 14 0 180 0 29 0)
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1093
                                style: (FontDescription helvetica medium roman 10)
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1094
                                level: 0
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1095
                                translateLabel: true
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1096
                                adjust: right
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1097
                              )
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1098
                             )
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1099
                           
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1100
                          )
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1101
                          extent: (Point 180 35)
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1102
                        )
9846
646dc5b511fe changed:
Claus Gittinger <cg@exept.de>
parents: 9837
diff changeset
  1103
                       (ComboBoxSpec
646dc5b511fe changed:
Claus Gittinger <cg@exept.de>
parents: 9837
diff changeset
  1104
                          name: 'ComboBox1'
9837
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1105
                          model: settingsHolder
11530
ba6b2f17e30d **** new version from Christian
Claus Gittinger <cg@exept.de>
parents: 11328
diff changeset
  1106
                          immediateAccept: false
ba6b2f17e30d **** new version from Christian
Claus Gittinger <cg@exept.de>
parents: 11328
diff changeset
  1107
                          acceptOnLostFocus: true
9846
646dc5b511fe changed:
Claus Gittinger <cg@exept.de>
parents: 9837
diff changeset
  1108
                          acceptOnPointerLeave: false
9837
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1109
                          comboList: defaultSettingsPrototypeList
9846
646dc5b511fe changed:
Claus Gittinger <cg@exept.de>
parents: 9837
diff changeset
  1110
                          extent: (Point 465 20)
9837
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1111
                        )
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1112
                       )
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1113
                     
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1114
                    )
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1115
                    extent: (Point 648 35)
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1116
                  )
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1117
                 )
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1118
               
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1119
              )
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1120
            )
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1121
           (HorizontalPanelViewSpec
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1122
              name: 'HorizontalPanel2'
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1123
              layout: (LayoutFrame 0 0 -30 1 0 1 0 1)
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1124
              horizontalLayout: fitSpace
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1125
              verticalLayout: center
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1126
              horizontalSpace: 3
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1127
              verticalSpace: 3
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1128
              component: 
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1129
             (SpecCollection
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1130
                collection: (
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1131
                 (ActionButtonSpec
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1132
                    label: 'Add'
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1133
                    name: 'Button1'
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1134
                    translateLabel: true
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1135
                    model: doAccept
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1136
                    enableChannel: acceptEnableChannel
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1137
                    extent: (Point 322 22)
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1138
                  )
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1139
                 (ActionButtonSpec
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1140
                    label: 'Cancel'
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1141
                    name: 'Button2'
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1142
                    translateLabel: true
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1143
                    model: doCancel
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1144
                    extent: (Point 322 22)
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1145
                  )
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1146
                 )
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1147
               
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1148
              )
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1149
            )
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1150
           )
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1151
         
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1152
        )
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1153
      )
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1154
! !
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1155
9864
d9b21106b707 class definition
Claus Gittinger <cg@exept.de>
parents: 9861
diff changeset
  1156
!PerforceSourceCodeManagementSettingsAppl::ManagerPerModuleApp methodsFor:'accessing'!
9837
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1157
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1158
canceled
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1159
    ^ canceled
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1160
!
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1161
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1162
defaultSettingsPrototypeList
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1163
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1164
    defaultSettingsPrototypeList isNil ifTrue:[
9861
2fb5f110fe82 class definition
Claus Gittinger <cg@exept.de>
parents: 9848
diff changeset
  1165
        defaultSettingsPrototypeList := sourceCodeManagementSettingsApp perforcePrototypeList.
9837
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1166
    ].
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1167
    ^ defaultSettingsPrototypeList.
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1168
!
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1169
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1170
sourceCodeManagementSettingsApp
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1171
    ^ sourceCodeManagementSettingsApp
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1172
!
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1173
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1174
sourceCodeManagementSettingsApp:something
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1175
    sourceCodeManagementSettingsApp := something.
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1176
! !
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1177
9864
d9b21106b707 class definition
Claus Gittinger <cg@exept.de>
parents: 9861
diff changeset
  1178
!PerforceSourceCodeManagementSettingsAppl::ManagerPerModuleApp methodsFor:'aspects'!
9837
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1179
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1180
acceptChannel
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1181
    <resource: #uiAspect>
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1182
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1183
    "automatically generated by UIPainter ..."
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1184
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1185
    "*** the code below creates a default model when invoked."
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1186
    "*** (which may not be the one you wanted)"
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1187
    "*** Please change as required and accept it in the browser."
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1188
    "*** (and replace this comment by something more useful ;-)"
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1189
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1190
    acceptChannel isNil ifTrue:[
9861
2fb5f110fe82 class definition
Claus Gittinger <cg@exept.de>
parents: 9848
diff changeset
  1191
        acceptChannel := TriggerValue new.
9837
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1192
    ].
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1193
    ^ acceptChannel.
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1194
!
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1195
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1196
acceptEnableChannel
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1197
    <resource: #uiAspect>
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1198
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1199
    "automatically generated by UIPainter ..."
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1200
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1201
    "*** the code below creates a default model when invoked."
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1202
    "*** (which may not be the one you wanted)"
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1203
    "*** Please change as required and accept it in the browser."
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1204
    "*** (and replace this comment by something more useful ;-)"
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1205
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1206
    acceptEnableChannel isNil ifTrue:[
9861
2fb5f110fe82 class definition
Claus Gittinger <cg@exept.de>
parents: 9848
diff changeset
  1207
        acceptEnableChannel := true asValue.
9837
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1208
"/ if your app needs to be notified of changes, uncomment one of the lines below:
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1209
"/       acceptEnableChannel addDependent:self.
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1210
"/       acceptEnableChannel onChangeSend:#acceptEnableChannelChanged to:self.
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1211
    ].
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1212
    ^ acceptEnableChannel.
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1213
!
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1214
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1215
moduleHolder
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1216
    <resource: #uiAspect>
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1217
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1218
    "automatically generated by UIPainter ..."
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1219
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1220
    "*** the code below creates a default model when invoked."
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1221
    "*** (which may not be the one you wanted)"
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1222
    "*** Please change as required and accept it in the browser."
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1223
    "*** (and replace this comment by something more useful ;-)"
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1224
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1225
    moduleHolder isNil ifTrue:[
9861
2fb5f110fe82 class definition
Claus Gittinger <cg@exept.de>
parents: 9848
diff changeset
  1226
        moduleHolder := ValueHolder new.
9837
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1227
"/ if your app needs to be notified of changes, uncomment one of the lines below:
9861
2fb5f110fe82 class definition
Claus Gittinger <cg@exept.de>
parents: 9848
diff changeset
  1228
        moduleHolder addDependent:self.
9837
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1229
"/       moduleHolder onChangeSend:#moduleHolderChanged to:self.
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1230
    ].
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1231
    ^ moduleHolder.
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1232
!
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1233
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1234
settingsHolder
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1235
    <resource: #uiAspect>
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1236
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1237
    "automatically generated by UIPainter ..."
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1238
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1239
    "*** the code below creates a default model when invoked."
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1240
    "*** (which may not be the one you wanted)"
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1241
    "*** Please change as required and accept it in the browser."
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1242
    "*** (and replace this comment by something more useful ;-)"
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1243
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1244
    settingsHolder isNil ifTrue:[
9861
2fb5f110fe82 class definition
Claus Gittinger <cg@exept.de>
parents: 9848
diff changeset
  1245
        settingsHolder := ValueHolder new.
9837
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1246
"/ if your app needs to be notified of changes, uncomment one of the lines below:
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1247
"/       settingsHolder addDependent:self.
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1248
"/       settingsHolder onChangeSend:#settingsHolderChanged to:self.
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1249
    ].
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1250
    ^ settingsHolder.
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1251
! !
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1252
9864
d9b21106b707 class definition
Claus Gittinger <cg@exept.de>
parents: 9861
diff changeset
  1253
!PerforceSourceCodeManagementSettingsAppl::ManagerPerModuleApp methodsFor:'initialization & release'!
9837
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1254
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1255
doCancel
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1256
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1257
    canceled := true.
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1258
    ^ super doCancel
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1259
!
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1260
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1261
postBuildWith:aBuilder
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1262
    "This is a hook method generated by the Browser.
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1263
     It will be invoked during the initialization of your app/dialog,
9846
646dc5b511fe changed:
Claus Gittinger <cg@exept.de>
parents: 9837
diff changeset
  1264
     after all of the visual components have been built,
9837
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1265
     but BEFORE the top window is made visible.
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1266
     Add any app-specific actions here (reading files, setting up values etc.)
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1267
     See also #postOpenWith:, which is invoked after opening."
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1268
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1269
    "/ add any code here ...
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1270
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1271
    canceled := false.
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1272
    ^ super postBuildWith:aBuilder
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1273
!
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1274
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1275
postOpenWith:aBuilder
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1276
    "This is a hook method generated by the Browser.
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1277
     It will be invoked right after the applications window has been opened.
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1278
     Add any app-specific actions here (starting background processes etc.).
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1279
     See also #postBuildWith:, which is invoked before opening."
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1280
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1281
    "/ add any code here ...
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1282
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1283
    ^ super postOpenWith:aBuilder
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1284
! !
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1285
9864
d9b21106b707 class definition
Claus Gittinger <cg@exept.de>
parents: 9861
diff changeset
  1286
!PerforceSourceCodeManagementSettingsAppl::ModuleManager class methodsFor:'instance creation'!
9848
74fc0d845a9b comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents: 9846
diff changeset
  1287
74fc0d845a9b comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents: 9846
diff changeset
  1288
newForApplication:anApplication
74fc0d845a9b comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents: 9846
diff changeset
  1289
    |instance|
74fc0d845a9b comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents: 9846
diff changeset
  1290
74fc0d845a9b comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents: 9846
diff changeset
  1291
    instance := self new.
74fc0d845a9b comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents: 9846
diff changeset
  1292
    instance app:anApplication.
74fc0d845a9b comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents: 9846
diff changeset
  1293
    ^instance
74fc0d845a9b comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents: 9846
diff changeset
  1294
! !
74fc0d845a9b comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents: 9846
diff changeset
  1295
9864
d9b21106b707 class definition
Claus Gittinger <cg@exept.de>
parents: 9861
diff changeset
  1296
!PerforceSourceCodeManagementSettingsAppl::ModuleManager methodsFor:'accessing'!
9837
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1297
9848
74fc0d845a9b comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents: 9846
diff changeset
  1298
app
74fc0d845a9b comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents: 9846
diff changeset
  1299
    ^ app
74fc0d845a9b comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents: 9846
diff changeset
  1300
!
74fc0d845a9b comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents: 9846
diff changeset
  1301
74fc0d845a9b comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents: 9846
diff changeset
  1302
app:something
74fc0d845a9b comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents: 9846
diff changeset
  1303
    app := something.
74fc0d845a9b comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents: 9846
diff changeset
  1304
!
74fc0d845a9b comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents: 9846
diff changeset
  1305
11530
ba6b2f17e30d **** new version from Christian
Claus Gittinger <cg@exept.de>
parents: 11328
diff changeset
  1306
check
ba6b2f17e30d **** new version from Christian
Claus Gittinger <cg@exept.de>
parents: 11328
diff changeset
  1307
ba6b2f17e30d **** new version from Christian
Claus Gittinger <cg@exept.de>
parents: 11328
diff changeset
  1308
    |icon|
ba6b2f17e30d **** new version from Christian
Claus Gittinger <cg@exept.de>
parents: 11328
diff changeset
  1309
ba6b2f17e30d **** new version from Christian
Claus Gittinger <cg@exept.de>
parents: 11328
diff changeset
  1310
    check isNil ifTrue:[
ba6b2f17e30d **** new version from Christian
Claus Gittinger <cg@exept.de>
parents: 11328
diff changeset
  1311
        ^'unchecked'
ba6b2f17e30d **** new version from Christian
Claus Gittinger <cg@exept.de>
parents: 11328
diff changeset
  1312
    ].
ba6b2f17e30d **** new version from Christian
Claus Gittinger <cg@exept.de>
parents: 11328
diff changeset
  1313
    check ifTrue:[
ba6b2f17e30d **** new version from Christian
Claus Gittinger <cg@exept.de>
parents: 11328
diff changeset
  1314
        icon := GenericToolbarIconLibrary ledGreen14x14.
ba6b2f17e30d **** new version from Christian
Claus Gittinger <cg@exept.de>
parents: 11328
diff changeset
  1315
    ] ifFalse:[
ba6b2f17e30d **** new version from Christian
Claus Gittinger <cg@exept.de>
parents: 11328
diff changeset
  1316
        icon := GenericToolbarIconLibrary ledRed14x14.
ba6b2f17e30d **** new version from Christian
Claus Gittinger <cg@exept.de>
parents: 11328
diff changeset
  1317
    ].
ba6b2f17e30d **** new version from Christian
Claus Gittinger <cg@exept.de>
parents: 11328
diff changeset
  1318
ba6b2f17e30d **** new version from Christian
Claus Gittinger <cg@exept.de>
parents: 11328
diff changeset
  1319
    ^icon
ba6b2f17e30d **** new version from Christian
Claus Gittinger <cg@exept.de>
parents: 11328
diff changeset
  1320
!
ba6b2f17e30d **** new version from Christian
Claus Gittinger <cg@exept.de>
parents: 11328
diff changeset
  1321
ba6b2f17e30d **** new version from Christian
Claus Gittinger <cg@exept.de>
parents: 11328
diff changeset
  1322
check:something
ba6b2f17e30d **** new version from Christian
Claus Gittinger <cg@exept.de>
parents: 11328
diff changeset
  1323
    check := something.
ba6b2f17e30d **** new version from Christian
Claus Gittinger <cg@exept.de>
parents: 11328
diff changeset
  1324
!
ba6b2f17e30d **** new version from Christian
Claus Gittinger <cg@exept.de>
parents: 11328
diff changeset
  1325
ba6b2f17e30d **** new version from Christian
Claus Gittinger <cg@exept.de>
parents: 11328
diff changeset
  1326
checkIcon
ba6b2f17e30d **** new version from Christian
Claus Gittinger <cg@exept.de>
parents: 11328
diff changeset
  1327
    ^ checkIcon
ba6b2f17e30d **** new version from Christian
Claus Gittinger <cg@exept.de>
parents: 11328
diff changeset
  1328
!
ba6b2f17e30d **** new version from Christian
Claus Gittinger <cg@exept.de>
parents: 11328
diff changeset
  1329
ba6b2f17e30d **** new version from Christian
Claus Gittinger <cg@exept.de>
parents: 11328
diff changeset
  1330
checkIcon:something
ba6b2f17e30d **** new version from Christian
Claus Gittinger <cg@exept.de>
parents: 11328
diff changeset
  1331
    checkIcon := something.
ba6b2f17e30d **** new version from Christian
Claus Gittinger <cg@exept.de>
parents: 11328
diff changeset
  1332
!
ba6b2f17e30d **** new version from Christian
Claus Gittinger <cg@exept.de>
parents: 11328
diff changeset
  1333
9837
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1334
manager
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1335
    ^ manager
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1336
!
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1337
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1338
manager:something
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1339
    manager := something.
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1340
!
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1341
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1342
module
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1343
    ^ module
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1344
!
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1345
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1346
module:something
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1347
    module := something.
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1348
!
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1349
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1350
settings
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1351
    ^ settings
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1352
!
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1353
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1354
settings:something
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1355
    settings := something.
9848
74fc0d845a9b comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents: 9846
diff changeset
  1356
    app notNil ifTrue:[
74fc0d845a9b comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents: 9846
diff changeset
  1357
        app listOfModules changed.
74fc0d845a9b comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents: 9846
diff changeset
  1358
    ].
9837
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1359
! !
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1360
11530
ba6b2f17e30d **** new version from Christian
Claus Gittinger <cg@exept.de>
parents: 11328
diff changeset
  1361
!PerforceSourceCodeManagementSettingsAppl::ModuleManager methodsFor:'actions'!
ba6b2f17e30d **** new version from Christian
Claus Gittinger <cg@exept.de>
parents: 11328
diff changeset
  1362
ba6b2f17e30d **** new version from Christian
Claus Gittinger <cg@exept.de>
parents: 11328
diff changeset
  1363
doubleClick
ba6b2f17e30d **** new version from Christian
Claus Gittinger <cg@exept.de>
parents: 11328
diff changeset
  1364
ba6b2f17e30d **** new version from Christian
Claus Gittinger <cg@exept.de>
parents: 11328
diff changeset
  1365
    PerforceSourceCodeManager perforceError handle:[:ex|
ba6b2f17e30d **** new version from Christian
Claus Gittinger <cg@exept.de>
parents: 11328
diff changeset
  1366
        self warn:ex description.
ba6b2f17e30d **** new version from Christian
Claus Gittinger <cg@exept.de>
parents: 11328
diff changeset
  1367
        check := false.
ba6b2f17e30d **** new version from Christian
Claus Gittinger <cg@exept.de>
parents: 11328
diff changeset
  1368
    ] do:[
ba6b2f17e30d **** new version from Christian
Claus Gittinger <cg@exept.de>
parents: 11328
diff changeset
  1369
        check := PerforceSourceCodeManager checkPerforceSettings:settings forPackage:module.
ba6b2f17e30d **** new version from Christian
Claus Gittinger <cg@exept.de>
parents: 11328
diff changeset
  1370
    ].
ba6b2f17e30d **** new version from Christian
Claus Gittinger <cg@exept.de>
parents: 11328
diff changeset
  1371
    self changed.
ba6b2f17e30d **** new version from Christian
Claus Gittinger <cg@exept.de>
parents: 11328
diff changeset
  1372
! !
ba6b2f17e30d **** new version from Christian
Claus Gittinger <cg@exept.de>
parents: 11328
diff changeset
  1373
9864
d9b21106b707 class definition
Claus Gittinger <cg@exept.de>
parents: 9861
diff changeset
  1374
!PerforceSourceCodeManagementSettingsAppl::ModuleManager methodsFor:'comparing'!
9837
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1375
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1376
< aModuleManager
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1377
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1378
    ^ self module < aModuleManager module
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1379
! !
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1380
9864
d9b21106b707 class definition
Claus Gittinger <cg@exept.de>
parents: 9861
diff changeset
  1381
!PerforceSourceCodeManagementSettingsAppl::ModuleManager methodsFor:'queries'!
9837
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1382
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1383
availableManagerTypeNames
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1384
    ^ AbstractSourceCodeManager availableManagers collect:[:cls | cls managerTypeName].
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1385
!
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1386
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1387
managerClass
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1388
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1389
    ^ AbstractSourceCodeManager availableManagers detect:[:cls | cls managerTypeName = manager] ifNone:[nil].
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1390
! !
ed120c35e09b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1391
11546
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
  1392
!PerforceSourceCodeManagementSettingsAppl class methodsFor:'documentation'!
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
  1393
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
  1394
version
14397
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
  1395
    ^ '$Header: /cvs/stx/stx/libtool/PerforceSourceCodeManagementSettingsAppl.st,v 1.32 2014-05-23 08:16:21 stefan Exp $'
11546
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
  1396
!
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
  1397
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
  1398
version_CVS
14397
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
  1399
    ^ '$Header: /cvs/stx/stx/libtool/PerforceSourceCodeManagementSettingsAppl.st,v 1.32 2014-05-23 08:16:21 stefan Exp $'
11546
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
  1400
!
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
  1401
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
  1402
version_SVN
14397
00f8034ba2d4 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 14339
diff changeset
  1403
    ^ '$Id: PerforceSourceCodeManagementSettingsAppl.st,v 1.32 2014-05-23 08:16:21 stefan Exp $'
11546
b1bc718b6e76 oops - lost methods
Claus Gittinger <cg@exept.de>
parents: 11531
diff changeset
  1404
! !
13239
946657bb28e3 Use #isWritableDirectory
Stefan Vogel <sv@exept.de>
parents: 11619
diff changeset
  1405