AbstractSourceCodeManagementSettingsAppl.st
author Claus Gittinger <cg@exept.de>
Sat, 14 Jan 2012 21:01:33 +0100
changeset 11125 59ee0c157f3c
parent 11085 a7bc28fc65f0
child 11324 15caf5cc5f9c
child 12123 4bde08cebd48
permissions -rw-r--r--
refactored
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
10057
36e5aa192050 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10056
diff changeset
     1
"
10056
309affc75a8c added: #documentation
Claus Gittinger <cg@exept.de>
parents: 10030
diff changeset
     2
 COPYRIGHT (c) 2006 by eXept Software AG
10057
36e5aa192050 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10056
diff changeset
     3
	      All Rights Reserved
10030
486922eb13e0 changed: #copyright
Claus Gittinger <cg@exept.de>
parents: 9849
diff changeset
     4
486922eb13e0 changed: #copyright
Claus Gittinger <cg@exept.de>
parents: 9849
diff changeset
     5
 This software is furnished under a license and may be used
486922eb13e0 changed: #copyright
Claus Gittinger <cg@exept.de>
parents: 9849
diff changeset
     6
 only in accordance with the terms of that license and with the
486922eb13e0 changed: #copyright
Claus Gittinger <cg@exept.de>
parents: 9849
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
486922eb13e0 changed: #copyright
Claus Gittinger <cg@exept.de>
parents: 9849
diff changeset
     8
 be provided or otherwise made available to, or used by, any
486922eb13e0 changed: #copyright
Claus Gittinger <cg@exept.de>
parents: 9849
diff changeset
     9
 other person.  No title to or ownership of the software is
486922eb13e0 changed: #copyright
Claus Gittinger <cg@exept.de>
parents: 9849
diff changeset
    10
 hereby transferred.
486922eb13e0 changed: #copyright
Claus Gittinger <cg@exept.de>
parents: 9849
diff changeset
    11
"
9849
68ad7519769a initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
"{ Package: 'stx:libtool' }"
68ad7519769a initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
68ad7519769a initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
AbstractSettingsApplication subclass:#AbstractSourceCodeManagementSettingsAppl
11125
59ee0c157f3c refactored
Claus Gittinger <cg@exept.de>
parents: 11085
diff changeset
    15
	instanceVariableNames:'shownInBrowserMenusHolder sourceCacheDir acceptChannel
59ee0c157f3c refactored
Claus Gittinger <cg@exept.de>
parents: 11085
diff changeset
    16
		verboseSourceCodeAccess'
10057
36e5aa192050 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10056
diff changeset
    17
	classVariableNames:''
36e5aa192050 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10056
diff changeset
    18
	poolDictionaries:''
36e5aa192050 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10056
diff changeset
    19
	category:'System-SourceCodeManagement'
9849
68ad7519769a initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
!
68ad7519769a initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
10030
486922eb13e0 changed: #copyright
Claus Gittinger <cg@exept.de>
parents: 9849
diff changeset
    22
!AbstractSourceCodeManagementSettingsAppl class methodsFor:'documentation'!
486922eb13e0 changed: #copyright
Claus Gittinger <cg@exept.de>
parents: 9849
diff changeset
    23
486922eb13e0 changed: #copyright
Claus Gittinger <cg@exept.de>
parents: 9849
diff changeset
    24
copyright
486922eb13e0 changed: #copyright
Claus Gittinger <cg@exept.de>
parents: 9849
diff changeset
    25
"
10056
309affc75a8c added: #documentation
Claus Gittinger <cg@exept.de>
parents: 10030
diff changeset
    26
 COPYRIGHT (c) 2006 by eXept Software AG
10057
36e5aa192050 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10056
diff changeset
    27
	      All Rights Reserved
10030
486922eb13e0 changed: #copyright
Claus Gittinger <cg@exept.de>
parents: 9849
diff changeset
    28
486922eb13e0 changed: #copyright
Claus Gittinger <cg@exept.de>
parents: 9849
diff changeset
    29
 This software is furnished under a license and may be used
486922eb13e0 changed: #copyright
Claus Gittinger <cg@exept.de>
parents: 9849
diff changeset
    30
 only in accordance with the terms of that license and with the
486922eb13e0 changed: #copyright
Claus Gittinger <cg@exept.de>
parents: 9849
diff changeset
    31
 inclusion of the above copyright notice.   This software may not
486922eb13e0 changed: #copyright
Claus Gittinger <cg@exept.de>
parents: 9849
diff changeset
    32
 be provided or otherwise made available to, or used by, any
486922eb13e0 changed: #copyright
Claus Gittinger <cg@exept.de>
parents: 9849
diff changeset
    33
 other person.  No title to or ownership of the software is
486922eb13e0 changed: #copyright
Claus Gittinger <cg@exept.de>
parents: 9849
diff changeset
    34
 hereby transferred.
486922eb13e0 changed: #copyright
Claus Gittinger <cg@exept.de>
parents: 9849
diff changeset
    35
"
10056
309affc75a8c added: #documentation
Claus Gittinger <cg@exept.de>
parents: 10030
diff changeset
    36
!
309affc75a8c added: #documentation
Claus Gittinger <cg@exept.de>
parents: 10030
diff changeset
    37
309affc75a8c added: #documentation
Claus Gittinger <cg@exept.de>
parents: 10030
diff changeset
    38
documentation
309affc75a8c added: #documentation
Claus Gittinger <cg@exept.de>
parents: 10030
diff changeset
    39
"
309affc75a8c added: #documentation
Claus Gittinger <cg@exept.de>
parents: 10030
diff changeset
    40
    Abstract superclass of all source-code managers.
309affc75a8c added: #documentation
Claus Gittinger <cg@exept.de>
parents: 10030
diff changeset
    41
309affc75a8c added: #documentation
Claus Gittinger <cg@exept.de>
parents: 10030
diff changeset
    42
    These should implement an interface similar to what is found in CVSSourceCodeManager,
309affc75a8c added: #documentation
Claus Gittinger <cg@exept.de>
parents: 10030
diff changeset
    43
    providing methods to checkin/out files from a central repository.
309affc75a8c added: #documentation
Claus Gittinger <cg@exept.de>
parents: 10030
diff changeset
    44
10144
e32d27a81b87 changed: #documentation
Claus Gittinger <cg@exept.de>
parents: 10057
diff changeset
    45
    Not all managers will probably provide the same set of functions; 
10056
309affc75a8c added: #documentation
Claus Gittinger <cg@exept.de>
parents: 10030
diff changeset
    46
    time will show, if such an abstraction is possible
309affc75a8c added: #documentation
Claus Gittinger <cg@exept.de>
parents: 10030
diff changeset
    47
    (the way source code management systems organize their code is different, some
309affc75a8c added: #documentation
Claus Gittinger <cg@exept.de>
parents: 10030
diff changeset
    48
    keep individual per-class version numbers (CVS, RCS, Store) others keep an overall
309affc75a8c added: #documentation
Claus Gittinger <cg@exept.de>
parents: 10030
diff changeset
    49
    (configuration-) id (SVN).
309affc75a8c added: #documentation
Claus Gittinger <cg@exept.de>
parents: 10030
diff changeset
    50
"
10030
486922eb13e0 changed: #copyright
Claus Gittinger <cg@exept.de>
parents: 9849
diff changeset
    51
! !
9849
68ad7519769a initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    52
11082
Claus Gittinger <cg@exept.de>
parents: 11068
diff changeset
    53
!AbstractSourceCodeManagementSettingsAppl class methodsFor:'help specs'!
Claus Gittinger <cg@exept.de>
parents: 11068
diff changeset
    54
Claus Gittinger <cg@exept.de>
parents: 11068
diff changeset
    55
helpSpec
Claus Gittinger <cg@exept.de>
parents: 11068
diff changeset
    56
    "This resource specification was automatically generated
Claus Gittinger <cg@exept.de>
parents: 11068
diff changeset
    57
     by the UIHelpTool of ST/X."
Claus Gittinger <cg@exept.de>
parents: 11068
diff changeset
    58
Claus Gittinger <cg@exept.de>
parents: 11068
diff changeset
    59
    "Do not manually edit this!! If it is corrupted,
Claus Gittinger <cg@exept.de>
parents: 11068
diff changeset
    60
     the UIHelpTool may not be able to read the specification."
Claus Gittinger <cg@exept.de>
parents: 11068
diff changeset
    61
Claus Gittinger <cg@exept.de>
parents: 11068
diff changeset
    62
    "
Claus Gittinger <cg@exept.de>
parents: 11068
diff changeset
    63
     UIHelpTool openOnClass:CVSSourceCodeManagementSettingsAppl    
Claus Gittinger <cg@exept.de>
parents: 11068
diff changeset
    64
    "
Claus Gittinger <cg@exept.de>
parents: 11068
diff changeset
    65
Claus Gittinger <cg@exept.de>
parents: 11068
diff changeset
    66
    <resource: #help>
Claus Gittinger <cg@exept.de>
parents: 11068
diff changeset
    67
Claus Gittinger <cg@exept.de>
parents: 11068
diff changeset
    68
    ^ super helpSpec addPairsFrom:#(
Claus Gittinger <cg@exept.de>
parents: 11068
diff changeset
    69
Claus Gittinger <cg@exept.de>
parents: 11068
diff changeset
    70
#shownInBrowserMenus
11085
a7bc28fc65f0 changed: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 11082
diff changeset
    71
'If checked, the Systembrowser includes operations for me in its SCM menus.'
11082
Claus Gittinger <cg@exept.de>
parents: 11068
diff changeset
    72
Claus Gittinger <cg@exept.de>
parents: 11068
diff changeset
    73
)
Claus Gittinger <cg@exept.de>
parents: 11068
diff changeset
    74
Claus Gittinger <cg@exept.de>
parents: 11068
diff changeset
    75
    "Created: / 11-01-2012 / 15:38:11 / cg"
Claus Gittinger <cg@exept.de>
parents: 11068
diff changeset
    76
! !
Claus Gittinger <cg@exept.de>
parents: 11068
diff changeset
    77
10979
Claus Gittinger <cg@exept.de>
parents: 10144
diff changeset
    78
!AbstractSourceCodeManagementSettingsAppl class methodsFor:'image specs'!
Claus Gittinger <cg@exept.de>
parents: 10144
diff changeset
    79
Claus Gittinger <cg@exept.de>
parents: 10144
diff changeset
    80
defaultIcon
Claus Gittinger <cg@exept.de>
parents: 10144
diff changeset
    81
    "This resource specification was automatically generated
Claus Gittinger <cg@exept.de>
parents: 10144
diff changeset
    82
     by the ImageEditor of ST/X."
Claus Gittinger <cg@exept.de>
parents: 10144
diff changeset
    83
Claus Gittinger <cg@exept.de>
parents: 10144
diff changeset
    84
    "Do not manually edit this!! If it is corrupted,
Claus Gittinger <cg@exept.de>
parents: 10144
diff changeset
    85
     the ImageEditor may not be able to read the specification."
Claus Gittinger <cg@exept.de>
parents: 10144
diff changeset
    86
Claus Gittinger <cg@exept.de>
parents: 10144
diff changeset
    87
    "
Claus Gittinger <cg@exept.de>
parents: 10144
diff changeset
    88
     self defaultIcon inspect
Claus Gittinger <cg@exept.de>
parents: 10144
diff changeset
    89
     ImageEditor openOnClass:self andSelector:#defaultIcon
Claus Gittinger <cg@exept.de>
parents: 10144
diff changeset
    90
     Icon flushCachedIcons
Claus Gittinger <cg@exept.de>
parents: 10144
diff changeset
    91
    "
Claus Gittinger <cg@exept.de>
parents: 10144
diff changeset
    92
Claus Gittinger <cg@exept.de>
parents: 10144
diff changeset
    93
    <resource: #image>
Claus Gittinger <cg@exept.de>
parents: 10144
diff changeset
    94
Claus Gittinger <cg@exept.de>
parents: 10144
diff changeset
    95
    ^Icon
Claus Gittinger <cg@exept.de>
parents: 10144
diff changeset
    96
        constantNamed:#'AbstractSettingsApplication::SourceCodeManagementSettingsAppl class defaultIcon'
Claus Gittinger <cg@exept.de>
parents: 10144
diff changeset
    97
        ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
Claus Gittinger <cg@exept.de>
parents: 10144
diff changeset
    98
@@@@@@@@@@@A@PHB@0P@@@@@@@@@@@@@@@@@@@HEA \HA $JB0HD@@@@@@@@@@@@@@HLA04NC0HD@@L@@ P@@@@@@@@@@@@ED@ NDP@@@@@@@@@D@@@@@@@@
Claus Gittinger <cg@exept.de>
parents: 10144
diff changeset
    99
@@@BA \FAPP@@@@@@@@@@@P@@@@@@@@@AQ@RC0@@@@@@@@@@@@@@@@@@@@@@@@TGA!!DD@@@@@@@@@@@@@@@@@@@D@PDIA08OA@@@@@@@@@@@@@@@@@@@AP S
Claus Gittinger <cg@exept.de>
parents: 10144
diff changeset
   100
A0XIBPXGC0P@@@@@@@@@@@@@@@@ECAPLBPXOAP@@@@@@EQX@@@@@@@@@@@TIE@XOAP@@@@@@EQ\XE @@@@@@@@@@AP$OAP@@@@@@FQ\ZE!! V@@@@@@@@@@@E
Claus Gittinger <cg@exept.de>
parents: 10144
diff changeset
   101
F0@@@@@@EQ\ZF!!(VFAX@@@@@@@@@@@@@@@@ZEQ\VE!!(ZF!!XWF @@@@@@@@@@@@@@@@@@@A\ZE!!(@@@@@@@@@@@@@@@@@@@@@@@@XE!!XZ@@@@@@@@@@@@@@@@
Claus Gittinger <cg@exept.de>
parents: 10144
diff changeset
   102
@@@@@@@@EQ(V@@@@@@@@@@@@@@@@@@@@@@@@EQ\VE @@@@@@@@@@@@@@@@@@@@@@EQ VE @@@@@@@@@@@@@@F @@@@@WEQ VE!!(@@@@@@@@@@@@@@@@@E!!\W
Claus Gittinger <cg@exept.de>
parents: 10144
diff changeset
   103
EQXVE @@@@@@@@@@@@@@@@@@@@@@@A(Z@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 32 64 0 0 64 0 32 32 0 0 32 0 32 96 32 96 192 128 192 224 192 160 224 160 32 128 64 64 96 64 64 96 32 32 160 64 160 224 192 64 160 96 32 128 32 224 224 224 64 128 64 160 192 160 224 224 192 32 160 96 160 160 160 64 64 64 96 96 96 128 128 128 192 192 192 32 32 32 32 64 32]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@O8@@?>@A??@A?C C<@0C8@PC8@@??@@??F@_>O@O<_ G8?0C1?8A#?<@C?<@@_@H@_@L@?@GC>@C?>@A?<@@_0@') ; yourself); yourself]
10984
f460c387f2b8 added: #defaultIconSmall
Claus Gittinger <cg@exept.de>
parents: 10979
diff changeset
   104
!
f460c387f2b8 added: #defaultIconSmall
Claus Gittinger <cg@exept.de>
parents: 10979
diff changeset
   105
f460c387f2b8 added: #defaultIconSmall
Claus Gittinger <cg@exept.de>
parents: 10979
diff changeset
   106
defaultIconSmall
f460c387f2b8 added: #defaultIconSmall
Claus Gittinger <cg@exept.de>
parents: 10979
diff changeset
   107
    "This resource specification was automatically generated
f460c387f2b8 added: #defaultIconSmall
Claus Gittinger <cg@exept.de>
parents: 10979
diff changeset
   108
     by the ImageEditor of ST/X."
f460c387f2b8 added: #defaultIconSmall
Claus Gittinger <cg@exept.de>
parents: 10979
diff changeset
   109
f460c387f2b8 added: #defaultIconSmall
Claus Gittinger <cg@exept.de>
parents: 10979
diff changeset
   110
    "Do not manually edit this!! If it is corrupted,
f460c387f2b8 added: #defaultIconSmall
Claus Gittinger <cg@exept.de>
parents: 10979
diff changeset
   111
     the ImageEditor may not be able to read the specification."
f460c387f2b8 added: #defaultIconSmall
Claus Gittinger <cg@exept.de>
parents: 10979
diff changeset
   112
f460c387f2b8 added: #defaultIconSmall
Claus Gittinger <cg@exept.de>
parents: 10979
diff changeset
   113
    "
f460c387f2b8 added: #defaultIconSmall
Claus Gittinger <cg@exept.de>
parents: 10979
diff changeset
   114
     self defaultIconSmall inspect
f460c387f2b8 added: #defaultIconSmall
Claus Gittinger <cg@exept.de>
parents: 10979
diff changeset
   115
     ImageEditor openOnClass:self andSelector:#defaultIconSmall
f460c387f2b8 added: #defaultIconSmall
Claus Gittinger <cg@exept.de>
parents: 10979
diff changeset
   116
     Icon flushCachedIcons
f460c387f2b8 added: #defaultIconSmall
Claus Gittinger <cg@exept.de>
parents: 10979
diff changeset
   117
    "
f460c387f2b8 added: #defaultIconSmall
Claus Gittinger <cg@exept.de>
parents: 10979
diff changeset
   118
f460c387f2b8 added: #defaultIconSmall
Claus Gittinger <cg@exept.de>
parents: 10979
diff changeset
   119
    <resource: #image>
f460c387f2b8 added: #defaultIconSmall
Claus Gittinger <cg@exept.de>
parents: 10979
diff changeset
   120
f460c387f2b8 added: #defaultIconSmall
Claus Gittinger <cg@exept.de>
parents: 10979
diff changeset
   121
    ^Icon
f460c387f2b8 added: #defaultIconSmall
Claus Gittinger <cg@exept.de>
parents: 10979
diff changeset
   122
        constantNamed:'AbstractSourceCodeManagementSettingsAppl class defaultIconSmall'
f460c387f2b8 added: #defaultIconSmall
Claus Gittinger <cg@exept.de>
parents: 10979
diff changeset
   123
        ifAbsentPut:[(Depth8Image new) width: 11; height: 11; photometric:(#palette); bitsPerSample:(#(8)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
f460c387f2b8 added: #defaultIconSmall
Claus Gittinger <cg@exept.de>
parents: 10979
diff changeset
   124
@@@@@@0LAPT@@@@@@@@EC@0LC@T@@@@@@ 0L@@@@@@T@@@@EA T@@@@@@@@EAP0IC@<@@AX@@@@EBP0E@@@VE!!X@@@@EF0@@E!!(ZFAX@@@@@@AXVE1XVE @V
f460c387f2b8 added: #defaultIconSmall
Claus Gittinger <cg@exept.de>
parents: 10979
diff changeset
   125
@@@@@@@VE @@@@@VE!!XVE!!X@@@@@@@@WE!!XV@@@@@@@a') ; colorMapFromArray:#[0 0 0 32 64 0 0 64 0 32 32 0 0 32 0 32 96 32 96 192 128 192 224 192 160 224 160 32 128 64 64 96 64 64 96 32 32 160 64 160 224 192 64 160 96 32 128 32 224 224 224 64 128 64 160 192 160 224 224 192 32 160 96 160 160 160 64 64 64 96 96 96 128 128 128 192 192 192 32 32 32 32 64 32]; mask:((ImageMask new) width: 11; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'C0@_ C!!@N@C< G''@L>@G8DF@O8@_@@@a') ; yourself); yourself]
10979
Claus Gittinger <cg@exept.de>
parents: 10144
diff changeset
   126
! !
Claus Gittinger <cg@exept.de>
parents: 10144
diff changeset
   127
9849
68ad7519769a initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   128
!AbstractSourceCodeManagementSettingsAppl class methodsFor:'queries'!
68ad7519769a initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   129
68ad7519769a initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   130
managerClass
68ad7519769a initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   131
    "backlink to my manager class (needed by the settings app)"
68ad7519769a initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   132
68ad7519769a initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   133
    self subclassResponsibility
68ad7519769a initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   134
68ad7519769a initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   135
    "Created: / 19-04-2011 / 12:47:28 / cg"
68ad7519769a initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   136
!
68ad7519769a initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   137
68ad7519769a initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   138
managerTypeName
68ad7519769a initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   139
    ^ self managerClass managerTypeName
68ad7519769a initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   140
68ad7519769a initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   141
    "Created: / 19-04-2011 / 12:48:37 / cg"
68ad7519769a initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   142
! !
68ad7519769a initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   143
11125
59ee0c157f3c refactored
Claus Gittinger <cg@exept.de>
parents: 11085
diff changeset
   144
!AbstractSourceCodeManagementSettingsAppl methodsFor:'actions'!
59ee0c157f3c refactored
Claus Gittinger <cg@exept.de>
parents: 11085
diff changeset
   145
59ee0c157f3c refactored
Claus Gittinger <cg@exept.de>
parents: 11085
diff changeset
   146
condenseSourceCache
59ee0c157f3c refactored
Claus Gittinger <cg@exept.de>
parents: 11085
diff changeset
   147
    self withWaitCursorDo:[ AbstractSourceCodeManager condenseSourceCache ].
59ee0c157f3c refactored
Claus Gittinger <cg@exept.de>
parents: 11085
diff changeset
   148
    Method flushSourceStreamCache.
59ee0c157f3c refactored
Claus Gittinger <cg@exept.de>
parents: 11085
diff changeset
   149
59ee0c157f3c refactored
Claus Gittinger <cg@exept.de>
parents: 11085
diff changeset
   150
    "Modified: / 28-11-2006 / 12:21:33 / cg"
59ee0c157f3c refactored
Claus Gittinger <cg@exept.de>
parents: 11085
diff changeset
   151
!
59ee0c157f3c refactored
Claus Gittinger <cg@exept.de>
parents: 11085
diff changeset
   152
59ee0c157f3c refactored
Claus Gittinger <cg@exept.de>
parents: 11085
diff changeset
   153
flushSourceCache
59ee0c157f3c refactored
Claus Gittinger <cg@exept.de>
parents: 11085
diff changeset
   154
    self withWaitCursorDo:[ AbstractSourceCodeManager flushSourceCache ].
59ee0c157f3c refactored
Claus Gittinger <cg@exept.de>
parents: 11085
diff changeset
   155
59ee0c157f3c refactored
Claus Gittinger <cg@exept.de>
parents: 11085
diff changeset
   156
    "Modified: / 30-09-2011 / 13:33:47 / cg"
59ee0c157f3c refactored
Claus Gittinger <cg@exept.de>
parents: 11085
diff changeset
   157
! !
59ee0c157f3c refactored
Claus Gittinger <cg@exept.de>
parents: 11085
diff changeset
   158
11063
bae37a424fa8 preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents: 10984
diff changeset
   159
!AbstractSourceCodeManagementSettingsAppl methodsFor:'aspects'!
bae37a424fa8 preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents: 10984
diff changeset
   160
11125
59ee0c157f3c refactored
Claus Gittinger <cg@exept.de>
parents: 11085
diff changeset
   161
acceptChannel
59ee0c157f3c refactored
Claus Gittinger <cg@exept.de>
parents: 11085
diff changeset
   162
59ee0c157f3c refactored
Claus Gittinger <cg@exept.de>
parents: 11085
diff changeset
   163
    acceptChannel isNil ifTrue:[
59ee0c157f3c refactored
Claus Gittinger <cg@exept.de>
parents: 11085
diff changeset
   164
        acceptChannel := TriggerValue new.
59ee0c157f3c refactored
Claus Gittinger <cg@exept.de>
parents: 11085
diff changeset
   165
    ].
59ee0c157f3c refactored
Claus Gittinger <cg@exept.de>
parents: 11085
diff changeset
   166
    ^ acceptChannel.
59ee0c157f3c refactored
Claus Gittinger <cg@exept.de>
parents: 11085
diff changeset
   167
!
59ee0c157f3c refactored
Claus Gittinger <cg@exept.de>
parents: 11085
diff changeset
   168
11068
dcd5bc8ed585 preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents: 11063
diff changeset
   169
shownInBrowserMenusHolder
dcd5bc8ed585 preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents: 11063
diff changeset
   170
    shownInBrowserMenusHolder isNil ifTrue:[
dcd5bc8ed585 preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents: 11063
diff changeset
   171
        shownInBrowserMenusHolder := true asValue.
dcd5bc8ed585 preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents: 11063
diff changeset
   172
        shownInBrowserMenusHolder onChangeSend:#updateModifiedChannel to:self
11063
bae37a424fa8 preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents: 10984
diff changeset
   173
    ].
11068
dcd5bc8ed585 preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents: 11063
diff changeset
   174
    ^ shownInBrowserMenusHolder.
11063
bae37a424fa8 preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents: 10984
diff changeset
   175
11068
dcd5bc8ed585 preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents: 11063
diff changeset
   176
    "Created: / 10-01-2012 / 00:16:13 / cg"
11125
59ee0c157f3c refactored
Claus Gittinger <cg@exept.de>
parents: 11085
diff changeset
   177
!
59ee0c157f3c refactored
Claus Gittinger <cg@exept.de>
parents: 11085
diff changeset
   178
59ee0c157f3c refactored
Claus Gittinger <cg@exept.de>
parents: 11085
diff changeset
   179
sourceCacheDir
59ee0c157f3c refactored
Claus Gittinger <cg@exept.de>
parents: 11085
diff changeset
   180
    sourceCacheDir isNil ifTrue:[
59ee0c157f3c refactored
Claus Gittinger <cg@exept.de>
parents: 11085
diff changeset
   181
        sourceCacheDir := ValueHolder new.
59ee0c157f3c refactored
Claus Gittinger <cg@exept.de>
parents: 11085
diff changeset
   182
        sourceCacheDir onChangeSend:#updateModifiedChannel to:self
59ee0c157f3c refactored
Claus Gittinger <cg@exept.de>
parents: 11085
diff changeset
   183
    ].
59ee0c157f3c refactored
Claus Gittinger <cg@exept.de>
parents: 11085
diff changeset
   184
    ^ sourceCacheDir.
11063
bae37a424fa8 preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents: 10984
diff changeset
   185
! !
bae37a424fa8 preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents: 10984
diff changeset
   186
9849
68ad7519769a initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   187
!AbstractSourceCodeManagementSettingsAppl class methodsFor:'documentation'!
68ad7519769a initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   188
10984
f460c387f2b8 added: #defaultIconSmall
Claus Gittinger <cg@exept.de>
parents: 10979
diff changeset
   189
version
11125
59ee0c157f3c refactored
Claus Gittinger <cg@exept.de>
parents: 11085
diff changeset
   190
    ^ '$Header: /cvs/stx/stx/libtool/AbstractSourceCodeManagementSettingsAppl.st,v 1.12 2012-01-14 20:01:33 cg Exp $'
10984
f460c387f2b8 added: #defaultIconSmall
Claus Gittinger <cg@exept.de>
parents: 10979
diff changeset
   191
!
f460c387f2b8 added: #defaultIconSmall
Claus Gittinger <cg@exept.de>
parents: 10979
diff changeset
   192
9849
68ad7519769a initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   193
version_CVS
11125
59ee0c157f3c refactored
Claus Gittinger <cg@exept.de>
parents: 11085
diff changeset
   194
    ^ '$Header: /cvs/stx/stx/libtool/AbstractSourceCodeManagementSettingsAppl.st,v 1.12 2012-01-14 20:01:33 cg Exp $'
10030
486922eb13e0 changed: #copyright
Claus Gittinger <cg@exept.de>
parents: 9849
diff changeset
   195
!
486922eb13e0 changed: #copyright
Claus Gittinger <cg@exept.de>
parents: 9849
diff changeset
   196
486922eb13e0 changed: #copyright
Claus Gittinger <cg@exept.de>
parents: 9849
diff changeset
   197
version_SVN
486922eb13e0 changed: #copyright
Claus Gittinger <cg@exept.de>
parents: 9849
diff changeset
   198
    ^ '§Id§'
9849
68ad7519769a initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   199
! !