AbstractSourceCodeManagementSettingsAppl.st
author Claus Gittinger <cg@exept.de>
Mon, 09 Jan 2012 23:58:33 +0100
changeset 11063 bae37a424fa8
parent 10984 f460c387f2b8
child 11068 dcd5bc8ed585
permissions -rw-r--r--
preps for \"showInBrowserMenus\"
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
11063
bae37a424fa8 preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents: 10984
diff changeset
    15
	instanceVariableNames:'showInBrowserMenusHolder'
10057
36e5aa192050 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10056
diff changeset
    16
	classVariableNames:''
36e5aa192050 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10056
diff changeset
    17
	poolDictionaries:''
36e5aa192050 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10056
diff changeset
    18
	category:'System-SourceCodeManagement'
9849
68ad7519769a initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
!
68ad7519769a initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
10030
486922eb13e0 changed: #copyright
Claus Gittinger <cg@exept.de>
parents: 9849
diff changeset
    21
!AbstractSourceCodeManagementSettingsAppl class methodsFor:'documentation'!
486922eb13e0 changed: #copyright
Claus Gittinger <cg@exept.de>
parents: 9849
diff changeset
    22
486922eb13e0 changed: #copyright
Claus Gittinger <cg@exept.de>
parents: 9849
diff changeset
    23
copyright
486922eb13e0 changed: #copyright
Claus Gittinger <cg@exept.de>
parents: 9849
diff changeset
    24
"
10056
309affc75a8c added: #documentation
Claus Gittinger <cg@exept.de>
parents: 10030
diff changeset
    25
 COPYRIGHT (c) 2006 by eXept Software AG
10057
36e5aa192050 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10056
diff changeset
    26
	      All Rights Reserved
10030
486922eb13e0 changed: #copyright
Claus Gittinger <cg@exept.de>
parents: 9849
diff changeset
    27
486922eb13e0 changed: #copyright
Claus Gittinger <cg@exept.de>
parents: 9849
diff changeset
    28
 This software is furnished under a license and may be used
486922eb13e0 changed: #copyright
Claus Gittinger <cg@exept.de>
parents: 9849
diff changeset
    29
 only in accordance with the terms of that license and with the
486922eb13e0 changed: #copyright
Claus Gittinger <cg@exept.de>
parents: 9849
diff changeset
    30
 inclusion of the above copyright notice.   This software may not
486922eb13e0 changed: #copyright
Claus Gittinger <cg@exept.de>
parents: 9849
diff changeset
    31
 be provided or otherwise made available to, or used by, any
486922eb13e0 changed: #copyright
Claus Gittinger <cg@exept.de>
parents: 9849
diff changeset
    32
 other person.  No title to or ownership of the software is
486922eb13e0 changed: #copyright
Claus Gittinger <cg@exept.de>
parents: 9849
diff changeset
    33
 hereby transferred.
486922eb13e0 changed: #copyright
Claus Gittinger <cg@exept.de>
parents: 9849
diff changeset
    34
"
10056
309affc75a8c added: #documentation
Claus Gittinger <cg@exept.de>
parents: 10030
diff changeset
    35
!
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
documentation
309affc75a8c added: #documentation
Claus Gittinger <cg@exept.de>
parents: 10030
diff changeset
    38
"
309affc75a8c added: #documentation
Claus Gittinger <cg@exept.de>
parents: 10030
diff changeset
    39
    Abstract superclass of all source-code managers.
309affc75a8c added: #documentation
Claus Gittinger <cg@exept.de>
parents: 10030
diff changeset
    40
309affc75a8c added: #documentation
Claus Gittinger <cg@exept.de>
parents: 10030
diff changeset
    41
    These should implement an interface similar to what is found in CVSSourceCodeManager,
309affc75a8c added: #documentation
Claus Gittinger <cg@exept.de>
parents: 10030
diff changeset
    42
    providing methods to checkin/out files from a central repository.
309affc75a8c added: #documentation
Claus Gittinger <cg@exept.de>
parents: 10030
diff changeset
    43
10144
e32d27a81b87 changed: #documentation
Claus Gittinger <cg@exept.de>
parents: 10057
diff changeset
    44
    Not all managers will probably provide the same set of functions; 
10056
309affc75a8c added: #documentation
Claus Gittinger <cg@exept.de>
parents: 10030
diff changeset
    45
    time will show, if such an abstraction is possible
309affc75a8c added: #documentation
Claus Gittinger <cg@exept.de>
parents: 10030
diff changeset
    46
    (the way source code management systems organize their code is different, some
309affc75a8c added: #documentation
Claus Gittinger <cg@exept.de>
parents: 10030
diff changeset
    47
    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
    48
    (configuration-) id (SVN).
309affc75a8c added: #documentation
Claus Gittinger <cg@exept.de>
parents: 10030
diff changeset
    49
"
10030
486922eb13e0 changed: #copyright
Claus Gittinger <cg@exept.de>
parents: 9849
diff changeset
    50
! !
9849
68ad7519769a initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    51
10979
Claus Gittinger <cg@exept.de>
parents: 10144
diff changeset
    52
!AbstractSourceCodeManagementSettingsAppl class methodsFor:'image specs'!
Claus Gittinger <cg@exept.de>
parents: 10144
diff changeset
    53
Claus Gittinger <cg@exept.de>
parents: 10144
diff changeset
    54
defaultIcon
Claus Gittinger <cg@exept.de>
parents: 10144
diff changeset
    55
    "This resource specification was automatically generated
Claus Gittinger <cg@exept.de>
parents: 10144
diff changeset
    56
     by the ImageEditor of ST/X."
Claus Gittinger <cg@exept.de>
parents: 10144
diff changeset
    57
Claus Gittinger <cg@exept.de>
parents: 10144
diff changeset
    58
    "Do not manually edit this!! If it is corrupted,
Claus Gittinger <cg@exept.de>
parents: 10144
diff changeset
    59
     the ImageEditor may not be able to read the specification."
Claus Gittinger <cg@exept.de>
parents: 10144
diff changeset
    60
Claus Gittinger <cg@exept.de>
parents: 10144
diff changeset
    61
    "
Claus Gittinger <cg@exept.de>
parents: 10144
diff changeset
    62
     self defaultIcon inspect
Claus Gittinger <cg@exept.de>
parents: 10144
diff changeset
    63
     ImageEditor openOnClass:self andSelector:#defaultIcon
Claus Gittinger <cg@exept.de>
parents: 10144
diff changeset
    64
     Icon flushCachedIcons
Claus Gittinger <cg@exept.de>
parents: 10144
diff changeset
    65
    "
Claus Gittinger <cg@exept.de>
parents: 10144
diff changeset
    66
Claus Gittinger <cg@exept.de>
parents: 10144
diff changeset
    67
    <resource: #image>
Claus Gittinger <cg@exept.de>
parents: 10144
diff changeset
    68
Claus Gittinger <cg@exept.de>
parents: 10144
diff changeset
    69
    ^Icon
Claus Gittinger <cg@exept.de>
parents: 10144
diff changeset
    70
        constantNamed:#'AbstractSettingsApplication::SourceCodeManagementSettingsAppl class defaultIcon'
Claus Gittinger <cg@exept.de>
parents: 10144
diff changeset
    71
        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
    72
@@@@@@@@@@@A@PHB@0P@@@@@@@@@@@@@@@@@@@HEA \HA $JB0HD@@@@@@@@@@@@@@HLA04NC0HD@@L@@ P@@@@@@@@@@@@ED@ NDP@@@@@@@@@D@@@@@@@@
Claus Gittinger <cg@exept.de>
parents: 10144
diff changeset
    73
@@@BA \FAPP@@@@@@@@@@@P@@@@@@@@@AQ@RC0@@@@@@@@@@@@@@@@@@@@@@@@TGA!!DD@@@@@@@@@@@@@@@@@@@D@PDIA08OA@@@@@@@@@@@@@@@@@@@AP S
Claus Gittinger <cg@exept.de>
parents: 10144
diff changeset
    74
A0XIBPXGC0P@@@@@@@@@@@@@@@@ECAPLBPXOAP@@@@@@EQX@@@@@@@@@@@TIE@XOAP@@@@@@EQ\XE @@@@@@@@@@AP$OAP@@@@@@FQ\ZE!! V@@@@@@@@@@@E
Claus Gittinger <cg@exept.de>
parents: 10144
diff changeset
    75
F0@@@@@@EQ\ZF!!(VFAX@@@@@@@@@@@@@@@@ZEQ\VE!!(ZF!!XWF @@@@@@@@@@@@@@@@@@@A\ZE!!(@@@@@@@@@@@@@@@@@@@@@@@@XE!!XZ@@@@@@@@@@@@@@@@
Claus Gittinger <cg@exept.de>
parents: 10144
diff changeset
    76
@@@@@@@@EQ(V@@@@@@@@@@@@@@@@@@@@@@@@EQ\VE @@@@@@@@@@@@@@@@@@@@@@EQ VE @@@@@@@@@@@@@@F @@@@@WEQ VE!!(@@@@@@@@@@@@@@@@@E!!\W
Claus Gittinger <cg@exept.de>
parents: 10144
diff changeset
    77
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
    78
!
f460c387f2b8 added: #defaultIconSmall
Claus Gittinger <cg@exept.de>
parents: 10979
diff changeset
    79
f460c387f2b8 added: #defaultIconSmall
Claus Gittinger <cg@exept.de>
parents: 10979
diff changeset
    80
defaultIconSmall
f460c387f2b8 added: #defaultIconSmall
Claus Gittinger <cg@exept.de>
parents: 10979
diff changeset
    81
    "This resource specification was automatically generated
f460c387f2b8 added: #defaultIconSmall
Claus Gittinger <cg@exept.de>
parents: 10979
diff changeset
    82
     by the ImageEditor of ST/X."
f460c387f2b8 added: #defaultIconSmall
Claus Gittinger <cg@exept.de>
parents: 10979
diff changeset
    83
f460c387f2b8 added: #defaultIconSmall
Claus Gittinger <cg@exept.de>
parents: 10979
diff changeset
    84
    "Do not manually edit this!! If it is corrupted,
f460c387f2b8 added: #defaultIconSmall
Claus Gittinger <cg@exept.de>
parents: 10979
diff changeset
    85
     the ImageEditor may not be able to read the specification."
f460c387f2b8 added: #defaultIconSmall
Claus Gittinger <cg@exept.de>
parents: 10979
diff changeset
    86
f460c387f2b8 added: #defaultIconSmall
Claus Gittinger <cg@exept.de>
parents: 10979
diff changeset
    87
    "
f460c387f2b8 added: #defaultIconSmall
Claus Gittinger <cg@exept.de>
parents: 10979
diff changeset
    88
     self defaultIconSmall inspect
f460c387f2b8 added: #defaultIconSmall
Claus Gittinger <cg@exept.de>
parents: 10979
diff changeset
    89
     ImageEditor openOnClass:self andSelector:#defaultIconSmall
f460c387f2b8 added: #defaultIconSmall
Claus Gittinger <cg@exept.de>
parents: 10979
diff changeset
    90
     Icon flushCachedIcons
f460c387f2b8 added: #defaultIconSmall
Claus Gittinger <cg@exept.de>
parents: 10979
diff changeset
    91
    "
f460c387f2b8 added: #defaultIconSmall
Claus Gittinger <cg@exept.de>
parents: 10979
diff changeset
    92
f460c387f2b8 added: #defaultIconSmall
Claus Gittinger <cg@exept.de>
parents: 10979
diff changeset
    93
    <resource: #image>
f460c387f2b8 added: #defaultIconSmall
Claus Gittinger <cg@exept.de>
parents: 10979
diff changeset
    94
f460c387f2b8 added: #defaultIconSmall
Claus Gittinger <cg@exept.de>
parents: 10979
diff changeset
    95
    ^Icon
f460c387f2b8 added: #defaultIconSmall
Claus Gittinger <cg@exept.de>
parents: 10979
diff changeset
    96
        constantNamed:'AbstractSourceCodeManagementSettingsAppl class defaultIconSmall'
f460c387f2b8 added: #defaultIconSmall
Claus Gittinger <cg@exept.de>
parents: 10979
diff changeset
    97
        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
    98
@@@@@@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
    99
@@@@@@@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
   100
! !
Claus Gittinger <cg@exept.de>
parents: 10144
diff changeset
   101
9849
68ad7519769a initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   102
!AbstractSourceCodeManagementSettingsAppl class methodsFor:'queries'!
68ad7519769a initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   103
68ad7519769a initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   104
managerClass
68ad7519769a initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   105
    "backlink to my manager class (needed by the settings app)"
68ad7519769a initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   106
68ad7519769a initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   107
    self subclassResponsibility
68ad7519769a initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   108
68ad7519769a initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   109
    "Created: / 19-04-2011 / 12:47:28 / cg"
68ad7519769a initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   110
!
68ad7519769a initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   111
68ad7519769a initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   112
managerTypeName
68ad7519769a initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   113
    ^ self managerClass managerTypeName
68ad7519769a initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   114
68ad7519769a initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   115
    "Created: / 19-04-2011 / 12:48:37 / cg"
68ad7519769a initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   116
! !
68ad7519769a initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   117
11063
bae37a424fa8 preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents: 10984
diff changeset
   118
!AbstractSourceCodeManagementSettingsAppl methodsFor:'aspects'!
bae37a424fa8 preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents: 10984
diff changeset
   119
bae37a424fa8 preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents: 10984
diff changeset
   120
showInBrowserMenusHolder
bae37a424fa8 preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents: 10984
diff changeset
   121
    showInBrowserMenusHolder isNil ifTrue:[
bae37a424fa8 preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents: 10984
diff changeset
   122
        showInBrowserMenusHolder := true asValue
bae37a424fa8 preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents: 10984
diff changeset
   123
    ].
bae37a424fa8 preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents: 10984
diff changeset
   124
    ^ showInBrowserMenusHolder.
bae37a424fa8 preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents: 10984
diff changeset
   125
bae37a424fa8 preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents: 10984
diff changeset
   126
    "Created: / 09-01-2012 / 23:24:29 / cg"
bae37a424fa8 preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents: 10984
diff changeset
   127
! !
bae37a424fa8 preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents: 10984
diff changeset
   128
9849
68ad7519769a initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   129
!AbstractSourceCodeManagementSettingsAppl class methodsFor:'documentation'!
68ad7519769a initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   130
10984
f460c387f2b8 added: #defaultIconSmall
Claus Gittinger <cg@exept.de>
parents: 10979
diff changeset
   131
version
11063
bae37a424fa8 preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents: 10984
diff changeset
   132
    ^ '$Header: /cvs/stx/stx/libtool/AbstractSourceCodeManagementSettingsAppl.st,v 1.8 2012-01-09 22:58:33 cg Exp $'
10984
f460c387f2b8 added: #defaultIconSmall
Claus Gittinger <cg@exept.de>
parents: 10979
diff changeset
   133
!
f460c387f2b8 added: #defaultIconSmall
Claus Gittinger <cg@exept.de>
parents: 10979
diff changeset
   134
9849
68ad7519769a initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   135
version_CVS
11063
bae37a424fa8 preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents: 10984
diff changeset
   136
    ^ '$Header: /cvs/stx/stx/libtool/AbstractSourceCodeManagementSettingsAppl.st,v 1.8 2012-01-09 22:58:33 cg Exp $'
10030
486922eb13e0 changed: #copyright
Claus Gittinger <cg@exept.de>
parents: 9849
diff changeset
   137
!
486922eb13e0 changed: #copyright
Claus Gittinger <cg@exept.de>
parents: 9849
diff changeset
   138
486922eb13e0 changed: #copyright
Claus Gittinger <cg@exept.de>
parents: 9849
diff changeset
   139
version_SVN
486922eb13e0 changed: #copyright
Claus Gittinger <cg@exept.de>
parents: 9849
diff changeset
   140
    ^ '§Id§'
9849
68ad7519769a initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   141
! !