AbstractSourceCodeManagementSettingsAppl.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Sun, 29 Jan 2012 15:33:37 +0000
branchjv
changeset 12125 0c49a3b13e43
parent 12123 4bde08cebd48
child 12128 a7ff7d66ee85
permissions -rw-r--r--
Merged with /trunk
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
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
    15
	instanceVariableNames:'shownInBrowserMenusHolder sourceCacheDir acceptChannel
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
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
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
    53
!AbstractSourceCodeManagementSettingsAppl class methodsFor:'help specs'!
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
    54
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
    55
helpSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
    56
    "This resource specification was automatically generated
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
    57
     by the UIHelpTool of ST/X."
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
    58
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
    59
    "Do not manually edit this!! If it is corrupted,
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
    60
     the UIHelpTool may not be able to read the specification."
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
    61
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
    62
    "
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
    63
     UIHelpTool openOnClass:CVSSourceCodeManagementSettingsAppl    
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
    64
    "
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
    65
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
    66
    <resource: #help>
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
    67
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
    68
    ^ super helpSpec addPairsFrom:#(
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
    69
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
    70
#shownInBrowserMenus
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
    71
'If checked, the Systembrowser includes operations for me in its SCM menus.'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
    72
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
    73
)
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
    74
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
    75
    "Created: / 11-01-2012 / 15:38:11 / cg"
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
    76
! !
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
    77
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
    78
!AbstractSourceCodeManagementSettingsAppl class methodsFor:'image specs'!
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
    79
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
    80
defaultIcon
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
    81
    "This resource specification was automatically generated
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
    82
     by the ImageEditor of ST/X."
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
    83
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
    84
    "Do not manually edit this!! If it is corrupted,
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
    85
     the ImageEditor may not be able to read the specification."
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
    86
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
    87
    "
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
    88
     self defaultIcon inspect
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
    89
     ImageEditor openOnClass:self andSelector:#defaultIcon
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
    90
     Icon flushCachedIcons
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
    91
    "
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
    92
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
    93
    <resource: #image>
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
    94
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
    95
    ^Icon
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
    96
        constantNamed:#'AbstractSettingsApplication::SourceCodeManagementSettingsAppl class defaultIcon'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
    97
        ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
    98
@@@@@@@@@@@A@PHB@0P@@@@@@@@@@@@@@@@@@@HEA \HA $JB0HD@@@@@@@@@@@@@@HLA04NC0HD@@L@@ P@@@@@@@@@@@@ED@ NDP@@@@@@@@@D@@@@@@@@
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
    99
@@@BA \FAPP@@@@@@@@@@@P@@@@@@@@@AQ@RC0@@@@@@@@@@@@@@@@@@@@@@@@TGA!!DD@@@@@@@@@@@@@@@@@@@D@PDIA08OA@@@@@@@@@@@@@@@@@@@AP S
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   100
A0XIBPXGC0P@@@@@@@@@@@@@@@@ECAPLBPXOAP@@@@@@EQX@@@@@@@@@@@TIE@XOAP@@@@@@EQ\XE @@@@@@@@@@AP$OAP@@@@@@FQ\ZE!! V@@@@@@@@@@@E
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   101
F0@@@@@@EQ\ZF!!(VFAX@@@@@@@@@@@@@@@@ZEQ\VE!!(ZF!!XWF @@@@@@@@@@@@@@@@@@@A\ZE!!(@@@@@@@@@@@@@@@@@@@@@@@@XE!!XZ@@@@@@@@@@@@@@@@
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   102
@@@@@@@@EQ(V@@@@@@@@@@@@@@@@@@@@@@@@EQ\VE @@@@@@@@@@@@@@@@@@@@@@EQ VE @@@@@@@@@@@@@@F @@@@@WEQ VE!!(@@@@@@@@@@@@@@@@@E!!\W
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
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]
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   104
!
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   105
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   106
defaultIconSmall
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   107
    "This resource specification was automatically generated
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   108
     by the ImageEditor of ST/X."
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   109
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   110
    "Do not manually edit this!! If it is corrupted,
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   111
     the ImageEditor may not be able to read the specification."
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   112
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   113
    "
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   114
     self defaultIconSmall inspect
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   115
     ImageEditor openOnClass:self andSelector:#defaultIconSmall
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   116
     Icon flushCachedIcons
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   117
    "
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   118
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   119
    <resource: #image>
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   120
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   121
    ^Icon
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   122
        constantNamed:'AbstractSourceCodeManagementSettingsAppl class defaultIconSmall'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   123
        ifAbsentPut:[(Depth8Image new) width: 11; height: 11; photometric:(#palette); bitsPerSample:(#(8)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   124
@@@@@@0LAPT@@@@@@@@EC@0LC@T@@@@@@ 0L@@@@@@T@@@@EA T@@@@@@@@EAP0IC@<@@AX@@@@EBP0E@@@VE!!X@@@@EF0@@E!!(ZFAX@@@@@@AXVE1XVE @V
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
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]
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   126
! !
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
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
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   144
!AbstractSourceCodeManagementSettingsAppl methodsFor:'actions'!
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   145
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   146
condenseSourceCache
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   147
    self withWaitCursorDo:[ AbstractSourceCodeManager condenseSourceCache ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   148
    Method flushSourceStreamCache.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   149
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   150
    "Modified: / 28-11-2006 / 12:21:33 / cg"
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   151
!
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   152
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   153
flushSourceCache
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   154
    self withWaitCursorDo:[ AbstractSourceCodeManager flushSourceCache ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   155
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   156
    "Modified: / 30-09-2011 / 13:33:47 / cg"
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   157
! !
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   158
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   159
!AbstractSourceCodeManagementSettingsAppl methodsFor:'aspects'!
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   160
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   161
acceptChannel
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   162
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   163
    acceptChannel isNil ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   164
        acceptChannel := TriggerValue new.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   165
    ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   166
    ^ acceptChannel.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   167
!
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   168
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   169
shownInBrowserMenusHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   170
    shownInBrowserMenusHolder isNil ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   171
        shownInBrowserMenusHolder := true asValue.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   172
        shownInBrowserMenusHolder onChangeSend:#updateModifiedChannel to:self
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   173
    ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   174
    ^ shownInBrowserMenusHolder.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   175
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   176
    "Created: / 10-01-2012 / 00:16:13 / cg"
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   177
!
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   178
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   179
sourceCacheDir
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   180
    sourceCacheDir isNil ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   181
        sourceCacheDir := ValueHolder new.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   182
        sourceCacheDir onChangeSend:#updateModifiedChannel to:self
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   183
    ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   184
    ^ sourceCacheDir.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   185
! !
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
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
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   189
version
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   190
    ^ '$Header: /cvs/stx/stx/libtool/AbstractSourceCodeManagementSettingsAppl.st,v 1.12 2012/01/14 20:01:33 cg Exp $'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   191
!
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   192
9849
68ad7519769a initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   193
version_CVS
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
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
12123
4bde08cebd48 trunk branched into /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 11125
diff changeset
   198
    ^ '$Id$'
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   199
! !