ProjectBrowser.st
author fm
Tue, 22 Apr 2008 17:43:56 +0200
changeset 2330 58ace5744c59
parent 2076 66d858959276
child 2597 3f32d6e1c71f
permissions -rw-r--r--
*** empty log message ***
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
1227
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
     1
"
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
     2
 COPYRIGHT (c) 1999 by eXept Software AG
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
     3
	      All Rights Reserved
1227
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
     4
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
     5
 This software is furnished under a license and may be used
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
     6
 only in accordance with the terms of that license and with the
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
     7
 inclusion of the above copyright notice. This software may not
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
     8
 be provided or otherwise made available to, or used by, any
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
     9
 other person. No title to or ownership of the software is
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    10
 hereby transferred.
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    11
"
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    12
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    13
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    14
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    15
2076
66d858959276 category change
Claus Gittinger <cg@exept.de>
parents: 1371
diff changeset
    16
"{ Package: 'stx:libtool2' }"
66d858959276 category change
Claus Gittinger <cg@exept.de>
parents: 1371
diff changeset
    17
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
    18
ToolApplicationModel subclass:#ProjectBrowser
1251
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
    19
	instanceVariableNames:'projectTree modifiedChannel selectedTreeNodeHolder
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
    20
		lastMoveToProject'
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
    21
	classVariableNames:'AlreadCheckedExistingModulesAndPackages'
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
	poolDictionaries:''
2076
66d858959276 category change
Claus Gittinger <cg@exept.de>
parents: 1371
diff changeset
    23
	category:'Interface-Tools'
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    24
!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
    26
TreeItemWithImage subclass:#ProjectTreeItem
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
    27
	instanceVariableNames:'action spec info'
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
	classVariableNames:''
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
	poolDictionaries:''
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    30
	privateIn:ProjectBrowser
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    31
!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    32
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
    33
ProjectBrowser::ProjectTreeItem subclass:#ProjectNode
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
    34
	instanceVariableNames:''
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
    35
	classVariableNames:''
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
    36
	poolDictionaries:''
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
    37
	privateIn:ProjectBrowser
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
    38
!
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
    39
1227
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    40
!ProjectBrowser class methodsFor:'documentation'!
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    41
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    42
copyright
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    43
"
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    44
 COPYRIGHT (c) 1999 by eXept Software AG
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
    45
	      All Rights Reserved
1227
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    46
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    47
 This software is furnished under a license and may be used
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    48
 only in accordance with the terms of that license and with the
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    49
 inclusion of the above copyright notice. This software may not
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    50
 be provided or otherwise made available to, or used by, any
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    51
 other person. No title to or ownership of the software is
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    52
 hereby transferred.
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    53
"
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    54
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    55
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    56
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    57
!
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    58
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    59
documentation
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    60
"
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    61
    The new project browser & builder.
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    62
    This one will (eventually) make packaging of classLibraries and
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    63
    applications easier. 
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    64
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    65
    EXPERIMENTAL: not finished.
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    66
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    67
    [start with:]
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
    68
	ProjectBrowser open
1227
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    69
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    70
    [see also:]
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
    71
	Project
1227
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    72
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    73
    [author:]
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
    74
	Claus Gittinger, eXept Software AG
1227
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    75
"
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    76
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    77
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    78
! !
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    79
1236
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
    80
!ProjectBrowser class methodsFor:'class initialization'!
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
    81
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
    82
initialize
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
    83
    "add myself to the launchers tool menu"
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
    84
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
    85
    NewLauncher allInstancesDo:[:l |
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
    86
	l addUserTool:'Project Builder' 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
    87
	  action:[ProjectBrowser open] 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
    88
	  in:#menu 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
    89
	  after:'Changes Browser' 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
    90
	  icon:self projectBrowserIcon 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
    91
	  space:false
1236
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
    92
    ].
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
    93
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
    94
    "
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
    95
     self initialize
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
    96
    "
1237
6d473fbfdf7d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1236
diff changeset
    97
    "
6d473fbfdf7d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1236
diff changeset
    98
     NewLauncher allInstancesDo:[:l |
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
    99
	l removeUserTool:'Project Builder'
1237
6d473fbfdf7d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1236
diff changeset
   100
     ]
6d473fbfdf7d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1236
diff changeset
   101
    "
1236
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
   102
! !
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
   103
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   104
!ProjectBrowser class methodsFor:'help specs'!
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   105
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   106
helpSpec
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   107
    "This resource specification was automatically generated
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   108
     by the UIHelpTool of ST/X."
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   109
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   110
    "Do not manually edit this!! If it is corrupted,
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   111
     the UIHelpTool may not be able to read the specification."
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   112
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   113
    "
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   114
     UIHelpTool openOnClass:ProjectBrowser    
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   115
    "
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   116
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   117
    <resource: #help>
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   118
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   119
    ^super helpSpec addPairsFrom:#(
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   120
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   121
#accept
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   122
'Accept modifications made here.'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   123
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   124
#appType
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   125
'An application - ie an executable program (and support files if any).'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   126
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   127
#cancel
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   128
'Undo modifications made here.'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   129
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   130
#defaultNamespace
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   131
'Namespace for new classes when created in the Browser.'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   132
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   133
#deliverGZipArchive
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   134
'Package delivery into a gzip archive (for unix)'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   135
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   136
#deliverTarArchive
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   137
'Package delivery into a tar archive (for unix)'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   138
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   139
#deliverZipArchive
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   140
'Package delivery into a zip archive (for win32)'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   141
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   142
#deliverCompiledBinary
1229
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
   143
'Create and deliver as compiled binary (classLibrary) - will only execute on the running systems architecture.'
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
   144
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
   145
#deliverByteCode
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
   146
'Create and deliver as bytecode - portable across architectures.'
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   148
#deliverLoadAll
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   149
'Deliver a loadAll script file, which files-In the other files.'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   150
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   151
#deliverSources
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   152
'Include smalltalk sourceCode in the delivery.'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   153
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   154
#deliverMakefiles
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   155
'Include makefiles in the delivery.'
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   156
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   157
#includeSource
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   158
'Include smalltalk sourceCode in the delivery.'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   159
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   160
#installDirMacOS
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   161
'The final install directory for MacOS deliveries.'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   162
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   163
#installDirUnix
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   164
'The final install directory for UNIX deliveries.'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   165
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   166
#installDirVMS
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   167
'The final install directory for VMS deliveries.'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   168
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   169
#installDirWin32
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   170
'The final install directory for Win32 deliveries.'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   171
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   172
#libType
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   173
'A classLibrary addOn (and support files if any)'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   174
1303
9ed64bde6ff8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1298
diff changeset
   175
loadProjectCode
9ed64bde6ff8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1298
diff changeset
   176
'Load projects classes from the project directory'
9ed64bde6ff8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1298
diff changeset
   177
1223
23a55549641a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1220
diff changeset
   178
#methodsFile
23a55549641a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1220
diff changeset
   179
'Patches & Extensions are stored in this file.'
23a55549641a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1220
diff changeset
   180
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   181
#packageID
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   182
'Package ID used to associate classes & methods to this project.'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   183
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   184
#projectDir
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   185
'The projects directory.'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   186
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   187
#repositoryDirectory
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   188
'The directory path below the module in the source-repository.'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   189
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   190
#repositoryModule
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   191
'The module (top directory) in the source-repository.'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   192
1303
9ed64bde6ff8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1298
diff changeset
   193
#saveProjectFile
9ed64bde6ff8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1298
diff changeset
   194
'Write a new .prj file.'
9ed64bde6ff8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1298
diff changeset
   195
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   196
)
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   197
! !
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   198
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   199
!ProjectBrowser class methodsFor:'image specs'!
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   200
1239
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
   201
bigProjectBrowserIcon
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
   202
    "This resource specification was automatically generated
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
   203
     by the ImageEditor of ST/X."
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
   204
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
   205
    "Do not manually edit this!! If it is corrupted,
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
   206
     the ImageEditor may not be able to read the specification."
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
   207
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
   208
    "
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
   209
     self bigProjectBrowserIcon inspect
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
   210
     ImageEditor openOnClass:self andSelector:#bigProjectBrowserIcon
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
   211
    "
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
   212
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
   213
    <resource: #image>
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
   214
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
   215
    ^Icon
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   216
	constantNamed:#'ProjectBrowser bigProjectBrowserIcon'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   217
	ifAbsentPut:[(Depth2Image new) width: 48; height: 48; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
1287
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   218
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@U@@EUP@@@@@@@@@@U@@EUP@@@@@@@@@UUP
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   219
@UUU@@@@@@@@EUEPEP@U@@@@@@@@EUEPEP@U@@@@@@@@U@EPEP@U@@@@@@@@U@EPEP@U@@@@@@@@U@EPEP@U@@@@@@@@U@EPEPUU@@@@@@@@EU%Z%UU*(@@@
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   220
@@@@EU%Z%UU*"@@@@@@@EUUZUUZ*J@@@@@@@EUUUUUUU*@@@@@@@EUUUUUUU*@@@@@@@J**UU**E*@@@@@@@**%UZ*(%*@@@@@@B**%UZ*"%*@@@@@@@@@UU
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   221
@@J%*@@@@@@J**UZ**J%*@@@@@@J**UZ**J%*@@@@@@J**UZ**J%*@@@@@@J**UZ**J%*@@@@@@J**UZ**J%*@@@@@@J**UZ**J%*@@@@@@J**UZ**J%*@@@
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   222
@@@J**UZ**J%*@@@@@@J**UZ**J%*@@@@@@J**UZ**J%(@@@@@@J**UZ**J% @@@@@@J**UZ**J%@@@@@@@J**UZ**J%@@@@@@@J**UZ**J%@@@@@@@J**UZ
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   223
**J@@@@@@@@J**UZ**H@@@@@@@@J**UZ**@@@@@@@@@@@@UP@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   224
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[0 0 0 132 0 132 255 255 0]; mask:((Depth1Image new) width: 48; height: 48; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   225
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@8C<@@@@@8C<@@@@G<G?@@@@_\\G@@@@_\\G@@@@8\\G@@@@8\\G@@@@8\\G@@@@8???<@@@_???<@
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   226
@@_???<@@@_???<@@@_???<@@@_???<@@@????<@@A????<@@C????<@@G????<@@G????<@@G????<@@G????<@@G????<@@G????<@@G????<@@G????<@
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   227
@G????<@@G????<@@G????8@@G????0@@G???? @@G????@@@G????@@@G???<@@@G???8@@@G???0@@@G??? @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
2076
66d858959276 category change
Claus Gittinger <cg@exept.de>
parents: 1371
diff changeset
   228
@@@@@@@@@@@@@@@@@@@@@@@@') ; yourself); yourself]
66d858959276 category change
Claus Gittinger <cg@exept.de>
parents: 1371
diff changeset
   229
!
1287
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   230
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   231
bigProjectBrowserIcon2
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   232
    "This resource specification was automatically generated
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   233
     by the ImageEditor of ST/X."
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   234
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   235
    "Do not manually edit this!! If it is corrupted,
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   236
     the ImageEditor may not be able to read the specification."
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   237
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   238
    "
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   239
     self bigProjectBrowserIcon2 inspect
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   240
     ImageEditor openOnClass:self andSelector:#bigProjectBrowserIcon2
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   241
    "
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   242
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   243
    <resource: #image>
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   244
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   245
    ^Icon
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   246
	constantNamed:#'ProjectBrowser bigProjectBrowserIcon2'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   247
	ifAbsentPut:[(Depth2Image new) width: 48; height: 48; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
1287
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   248
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@U@@EUP@@@@@@@@@@U@@EUP@@@@@@@@@UUP
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   249
@UUU@@@@@@@@EUEPEP@U@@@@@@@@EUEPEP@U@@@@@@@@U@EPEP@U@@@@@@@@U@EPEP@U@@@@@@@@U@EPEP@U@@@@@@@@U@EPEPUU@@@@@@@@EU%Z%UU*(@@@
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   250
@@@@EU%Z%UU*"@@@@@@@EUUZUUZ*J@@@@@@@EUUUUUUU*@@@@@@@EUUUUUUU*@@@@@@@J**UU**E*@@@@@@@**%UZ*(%*@@@@@@B**%UZ*"%*@@@@@@@@@UU
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   251
@@J%*@@@@@@J**UZ**J%*@@@@@@J**UZ**J%*@@@@@@J**UZ**J%*@@@@@@J**UZ**J%*@@@@@@J**UZ**J%*@@@@@@J**UZ**J%*@@@@@@J**UZ**J%*@@@
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   252
@@@J**UZ**J%*@@@@@@J**UZ**J%*@@@@@@J**UZ**J%(@@@@@@J**UZ**J% @@@@@@J**UZ**J%@@@@@@@J**UZ**J%@@@@@@@J**UZ**J%@@@@@@@J**UZ
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   253
**J@@@@@@@@J**UZ**H@@@@@@@@J**UZ**@@@@@@@@@@@@UP@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   254
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[0 0 0 132 0 132 255 255 0]; mask:((Depth1Image new) width: 48; height: 48; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   255
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@8C<@@@@@8C<@@@@G<G?@@@@_\\G@@@@_\\G@@@@8\\G@@@@8\\G@@@@8\\G@@@@8???<@@@_???<@
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   256
@@_???<@@@_???<@@@_???<@@@_???<@@@????<@@A????<@@C????<@@G????<@@G????<@@G????<@@G????<@@G????<@@G????<@@G????<@@G????<@
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   257
@G????<@@G????<@@G????8@@G????0@@G???? @@G????@@@G????@@@G???<@@@G???8@@@G???0@@@G??? @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
2076
66d858959276 category change
Claus Gittinger <cg@exept.de>
parents: 1371
diff changeset
   258
@@@@@@@@@@@@@@@@@@@@@@@@') ; yourself); yourself]
66d858959276 category change
Claus Gittinger <cg@exept.de>
parents: 1371
diff changeset
   259
!
1239
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
   260
1234
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   261
buildOptionsIcon
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   262
    "This resource specification was automatically generated
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   263
     by the ImageEditor of ST/X."
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   264
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   265
    "Do not manually edit this!! If it is corrupted,
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   266
     the ImageEditor may not be able to read the specification."
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   267
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   268
    "
1287
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   269
     self buildOptionsIcon inspect
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   270
     ImageEditor openOnClass:self andSelector:#buildOptionsIcon
1234
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   271
    "
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   272
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   273
    <resource: #image>
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   274
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   275
    ^Icon
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   276
	constantNamed:#'ProjectBrowser buildOptionsIcon'
2076
66d858959276 category change
Claus Gittinger <cg@exept.de>
parents: 1371
diff changeset
   277
	ifAbsentPut:[(Depth2Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@ATET@AUEE@APQAP@TDQT@AY%Z@@UUUX@J%*F@@E@I B)Z"X@*V(&@J%*I B)Z"X@*V($@J%*I@B)Z @@@T@@@@a') ; colorMapFromArray:#[0 0 0 132 0 132 255 255 0]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'A30O[A%LF?<O?0??G?<??3??O?<??3??O?8??C?8O?@b') ; yourself); yourself]
66d858959276 category change
Claus Gittinger <cg@exept.de>
parents: 1371
diff changeset
   278
!
1234
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   279
1097
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
   280
classIcon
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
   281
    "This resource specification was automatically generated
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
   282
     by the ImageEditor of ST/X."
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
   283
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
   284
    "Do not manually edit this!! If it is corrupted,
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
   285
     the ImageEditor may not be able to read the specification."
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
   286
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
   287
    "
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
   288
     self classIcon inspect
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
   289
     ImageEditor openOnClass:self andSelector:#classIcon
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
   290
    "
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
   291
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
   292
    <resource: #image>
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
   293
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
   294
    ^Icon
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   295
	constantNamed:#'ProjectBrowser classIcon'
2076
66d858959276 category change
Claus Gittinger <cg@exept.de>
parents: 1371
diff changeset
   296
	ifAbsentPut:[(Depth2Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'UUUUUEUUUUQP@@@TTV*%EE@@@AQQUUTTTZ*)@@@@@@@AUUT@@Z*)@@EUUQQQ**$TTUUUEE@@@@AQUUUUTUUUUP@a') ; colorMapFromArray:#[0 0 0 255 255 255 132 130 132]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@C?8O? ?>C?8O? ?>C?8O? ?>C?8O? ?>@@@@@@b') ; yourself); yourself]
66d858959276 category change
Claus Gittinger <cg@exept.de>
parents: 1371
diff changeset
   297
!
1097
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
   298
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   299
classesIcon
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   300
    "This resource specification was automatically generated
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   301
     by the ImageEditor of ST/X."
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   302
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   303
    "Do not manually edit this!! If it is corrupted,
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   304
     the ImageEditor may not be able to read the specification."
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   305
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   306
    "
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   307
     self classesIcon inspect
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   308
     ImageEditor openOnClass:self andSelector:#classesIcon
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   309
    "
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   310
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   311
    <resource: #image>
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   312
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   313
    ^Icon
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   314
	constantNamed:#'ProjectBrowser classesIcon'
2076
66d858959276 category change
Claus Gittinger <cg@exept.de>
parents: 1371
diff changeset
   315
	ifAbsentPut:[(Depth2Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@B"B%U(( @@@@HJ**"BBUUX @***H @@@BHB**("@)UZH J**"HB**("@@@@H (***HJ@@@BB*J** * @@@@@a') ; colorMapFromArray:#[0 0 0 132 130 132 255 255 255]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'?>C?8O?8??#??/?>??;??/?>??;??/?>O?8?? ?>C?8b') ; yourself); yourself]
66d858959276 category change
Claus Gittinger <cg@exept.de>
parents: 1371
diff changeset
   316
!
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   317
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   318
commentIcon
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   319
    "This resource specification was automatically generated
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   320
     by the ImageEditor of ST/X."
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   321
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   322
    "Do not manually edit this!! If it is corrupted,
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   323
     the ImageEditor may not be able to read the specification."
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   324
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   325
    "
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   326
     self commentIcon inspect
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   327
     ImageEditor openOnClass:self andSelector:#commentIcon
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   328
    "
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   329
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   330
    <resource: #image>
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   331
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   332
    ^Icon
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   333
	constantNamed:#'ProjectBrowser commentIcon'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   334
	ifAbsentPut:[(Depth2Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'******************U****%Z***)V*********%Z***!!T***(UJ***ER***!!T***(UJ**(UT***(B****(** @a') ; colorMapFromArray:#[0 0 0 0 0 255 255 255 255]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
1287
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   335
@@@@@@@@@8@C @N@@@@C @N@@8@C @N@@8@G0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   336
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
2076
66d858959276 category change
Claus Gittinger <cg@exept.de>
parents: 1371
diff changeset
   337
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; yourself); yourself]
66d858959276 category change
Claus Gittinger <cg@exept.de>
parents: 1371
diff changeset
   338
!
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   339
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   340
deploymentIcon
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   341
    "This resource specification was automatically generated
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   342
     by the ImageEditor of ST/X."
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   343
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   344
    "Do not manually edit this!! If it is corrupted,
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   345
     the ImageEditor may not be able to read the specification."
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   346
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   347
    "
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   348
     self deploymentIcon inspect
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   349
     ImageEditor openOnClass:self andSelector:#deploymentIcon
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   350
    "
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   351
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   352
    <resource: #image>
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   353
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   354
    ^Icon
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   355
	constantNamed:#'ProjectBrowser deploymentIcon'
2076
66d858959276 category change
Claus Gittinger <cg@exept.de>
parents: 1371
diff changeset
   356
	ifAbsentPut:[(Depth2Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@ATET@AUEE@APQAP@TDQT@AY%Z@@UUUX@J%*F@@E@I B)Z"X@*V(&@J%*I B)Z"X@*V($@J%*I@B)Z @@@T@@@@a') ; colorMapFromArray:#[0 0 0 132 0 132 255 255 0]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'A30O[A%LF?<O?0??G?<??3??O?<??3??O?8??C?8O?@b') ; yourself); yourself]
66d858959276 category change
Claus Gittinger <cg@exept.de>
parents: 1371
diff changeset
   357
!
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   358
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   359
filesIcon
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   360
    "This resource specification was automatically generated
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   361
     by the ImageEditor of ST/X."
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   362
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   363
    "Do not manually edit this!! If it is corrupted,
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   364
     the ImageEditor may not be able to read the specification."
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   365
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   366
    "
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   367
     self filesIcon inspect
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   368
     ImageEditor openOnClass:self andSelector:#filesIcon
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   369
    "
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   370
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   371
    <resource: #image>
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   372
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   373
    ^Icon
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   374
	constantNamed:#'ProjectBrowser filesIcon'
2076
66d858959276 category change
Claus Gittinger <cg@exept.de>
parents: 1371
diff changeset
   375
	ifAbsentPut:[(Depth1Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@G:@P@A_(E@@U>!!W;E_ U?9W?!!_>E?8G? _>@@@b') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@C? O?@?>C?<O?8??3??/??????????O?<??0??C?<b') ; yourself); yourself]
66d858959276 category change
Claus Gittinger <cg@exept.de>
parents: 1371
diff changeset
   376
!
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   377
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   378
methodIcon
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   379
    "This resource specification was automatically generated
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   380
     by the ImageEditor of ST/X."
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   381
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   382
    "Do not manually edit this!! If it is corrupted,
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   383
     the ImageEditor may not be able to read the specification."
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   384
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   385
    "
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   386
     self methodIcon inspect
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   387
     ImageEditor openOnClass:self andSelector:#methodIcon
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   388
    "
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   389
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   390
    <resource: #image>
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   391
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   392
    ^Icon
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   393
	constantNamed:#'ProjectBrowser methodIcon'
2076
66d858959276 category change
Claus Gittinger <cg@exept.de>
parents: 1371
diff changeset
   394
	ifAbsentPut:[(Depth4Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DH@@@@@@@@4QA@@@@@@@TQDPP@@@@@@MDQDH@@@@@@PQDQA@@@@@@LTQA@@@@@@@@I@L@@@@@@@@QD@@@@@@@@@H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 0 0 132 132 0 0 132 0 132 255 0 255]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@B@@\@C8@_0A? C?@G<@O @\@@ @@@@@@@@@b') ; yourself); yourself]
66d858959276 category change
Claus Gittinger <cg@exept.de>
parents: 1371
diff changeset
   395
!
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   396
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   397
methodsIcon
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   398
    "This resource specification was automatically generated
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   399
     by the ImageEditor of ST/X."
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   400
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   401
    "Do not manually edit this!! If it is corrupted,
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   402
     the ImageEditor may not be able to read the specification."
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   403
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   404
    "
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   405
     self multipleUnlockedMagentaIcon inspect
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   406
     ImageEditor openOnClass:self andSelector:#multipleUnlockedMagentaIcon
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   407
    "
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   408
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   409
    <resource: #image>
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   410
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   411
    ^Icon
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   412
	constantNamed:#'ProjectBrowser methodsIcon'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   413
	ifAbsentPut:[(Depth4Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@DH@@@@@@@@4QA@@@@@@@TQDPP@@@@@@MDQDH@@@@@@PQDQA@@@@@@LTQA@@@@@@M@I@L@@@@@EDPQD@@@@@@CQDIB@@@@@@DDQDPP@@@@@CEDPP@@@@@@@BPC@@@@@@@@DQ@@@@@@@@@B@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 0 0 132 132 0 0 132 0 132 255 0 255]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'B@@\@C8@_0A? C?@G<@? G<@_8@?0A?@C8@G@@H@@@@b') ; yourself); yourself]
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   414
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   415
1080
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
   416
!
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
   417
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   418
prerequisiteClassesIcon
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   419
    <resource: #programImage>
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   420
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   421
    ^ self classesIcon
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   422
!
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   423
1291
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
   424
prerequisitePackagesIcon
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   425
    <resource: #programImage>
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   426
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   427
    ^ self projectsIcon
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   428
!
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   429
1080
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
   430
prerequisitesIcon
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
   431
    "This resource specification was automatically generated
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
   432
     by the ImageEditor of ST/X."
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
   433
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
   434
    "Do not manually edit this!! If it is corrupted,
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
   435
     the ImageEditor may not be able to read the specification."
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
   436
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
   437
    "
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
   438
     self prerequisitesIcon inspect
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
   439
     ImageEditor openOnClass:self andSelector:#prerequisitesIcon
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
   440
    "
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
   441
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
   442
    <resource: #image>
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
   443
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
   444
    ^Icon
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   445
	constantNamed:#'ProjectBrowser prerequisitesIcon'
2076
66d858959276 category change
Claus Gittinger <cg@exept.de>
parents: 1371
diff changeset
   446
	ifAbsentPut:[(Depth1Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@C@@L@@@@@@@@@@0A#@F@@X@@@@@L@@0@@@@@@@b') ; colorMapFromArray:#[0 0 0 127 127 127]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@A8@G(@^PA80@C@^@=8S7//^D<@C7#@^LA9@G(@@@@b') ; yourself); yourself]
66d858959276 category change
Claus Gittinger <cg@exept.de>
parents: 1371
diff changeset
   447
!
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   448
1236
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
   449
projectBrowserIcon
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
   450
    "This resource specification was automatically generated
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
   451
     by the ImageEditor of ST/X."
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
   452
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
   453
    "Do not manually edit this!! If it is corrupted,
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
   454
     the ImageEditor may not be able to read the specification."
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
   455
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
   456
    "
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
   457
     self projectBrowserIcon inspect
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
   458
     ImageEditor openOnClass:self andSelector:#projectBrowserIcon
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
   459
    "
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
   460
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
   461
    <resource: #image>
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
   462
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
   463
    ^Icon
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   464
	constantNamed:#'ProjectBrowser projectBrowserIcon'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   465
	ifAbsentPut:[(Depth2Image new) width: 32; height: 32; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
1287
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   466
@@@T@ET@@@@@@UTAUT@@@@@EQPTAP@@@@APEAPE@@@@@E@TE@T@@@@@TAPTUP@@@@@U%)UZ @@@@AUVUV( @@@@EUUUUZ@@@@@*)U*!!(@@@@B*UZ(& @@@@@
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   467
ET@JZ@@@@J*U*()(@@@@*)V*"& @@@B*%Z*JZ@@@@J*U*()(@@@@*)V*"& @@@B*%Z*JZ@@@@J*U*() @@@@*)V*"$@@@@B*%Z*JP@@@@J*U*( @@@@@*)V*
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   468
 @@@@@@@EP@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 132 0 132 255 255 0]; mask:((Depth1Image new) width: 32; height: 32; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   469
@FC0@@G1>@@C,1 @A#LX@@X3F@@F_?<@@???@@O??0@C??<@A???@@_??0@_??<@G???@A???0@_??<@G???@A???0@_??<@G??>@A???@@_?? @G??0@A??
2076
66d858959276 category change
Claus Gittinger <cg@exept.de>
parents: 1371
diff changeset
   470
8@@_?<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; yourself); yourself]
66d858959276 category change
Claus Gittinger <cg@exept.de>
parents: 1371
diff changeset
   471
!
1236
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
   472
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   473
projectsIcon
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   474
    "This resource specification was automatically generated
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   475
     by the ImageEditor of ST/X."
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   476
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   477
    "Do not manually edit this!! If it is corrupted,
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   478
     the ImageEditor may not be able to read the specification."
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   479
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   480
    "
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   481
     self projectsIcon inspect
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   482
     ImageEditor openOnClass:self andSelector:#projectsIcon
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   483
    "
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   484
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   485
    <resource: #image>
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   486
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   487
    ^Icon
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   488
	constantNamed:#'ProjectBrowser projectsIcon'
2076
66d858959276 category change
Claus Gittinger <cg@exept.de>
parents: 1371
diff changeset
   489
	ifAbsentPut:[(Depth1Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@_8C?P_;@@\O=0?7C?\O=0?6C?PO<@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 128 128]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@G? ?>G?8??''?>_?9??''?>_?9??G?8_?A?8@@@@@@b') ; yourself); yourself]
66d858959276 category change
Claus Gittinger <cg@exept.de>
parents: 1371
diff changeset
   490
! !
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   491
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   492
!ProjectBrowser class methodsFor:'interface specs'!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   493
1240
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   494
classValidationDialogSpec
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   495
    "This resource specification was automatically generated
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   496
     by the UIPainter of ST/X."
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   497
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   498
    "Do not manually edit this!! If it is corrupted,
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   499
     the UIPainter may not be able to read the specification."
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   500
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   501
    "
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   502
     UIPainter new openOnClass:ProjectBrowser andSelector:#classValidationDialogSpec
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   503
     ProjectBrowser new openInterface:#classValidationDialogSpec
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   504
    "
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   505
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   506
    <resource: #canvas>
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   507
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   508
    ^ 
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   509
     #(#FullSpec
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   510
	#name: #classValidationDialogSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   511
	#window: 
1240
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   512
       #(#WindowSpec
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   513
	  #label: 'ProjectBrowser'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   514
	  #name: 'ProjectBrowser'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   515
	  #min: #(#Point 10 10)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   516
	  #max: #(#Point 1024 768)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   517
	  #bounds: #(#Rectangle 24 554 457 1003)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   518
	  #menu: #mainMenu
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   519
	  #icon: #bigProjectBrowserIcon
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   520
	)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   521
	#component: 
1240
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   522
       #(#SpecCollection
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   523
	  #collection: #(
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   524
	   #(#VariableVerticalPanelSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   525
	      #name: 'VariableVerticalPanel1'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   526
	      #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 -30 1.0)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   527
	      #handles: 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   528
	     #(#OrderedCollection
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   529
		#Any 0.5
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   530
		1.0
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   531
	      )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   532
	      #component: 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   533
	     #(#SpecCollection
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   534
		#collection: #(
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   535
		 #(#ViewSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   536
		    #name: 'Box1'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   537
		    #component: 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   538
		   #(#SpecCollection
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   539
		      #collection: #(
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   540
		       #(#LabelSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   541
			  #label: 'Classes only in Image'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   542
			  #name: 'Label1'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   543
			  #layout: #(#LayoutFrame 0 0 0 0 0 1 30 0)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   544
			  #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   545
			  #adjust: #left
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   546
			)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   547
		       #(#SequenceViewSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   548
			  #name: 'List2'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   549
			  #layout: #(#LayoutFrame 0 0.0 30 0.0 0 1.0 0 1.0)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   550
			  #hasHorizontalScrollBar: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   551
			  #hasVerticalScrollBar: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   552
			  #useIndex: false
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   553
			  #sequenceList: #classesInImageOnly
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   554
			)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   555
		       )
1240
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   556
                     
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   557
		    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   558
		  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   559
		 #(#ViewSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   560
		    #name: 'Box2'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   561
		    #component: 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   562
		   #(#SpecCollection
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   563
		      #collection: #(
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   564
		       #(#LabelSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   565
			  #label: 'Classes only in Project'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   566
			  #name: 'Label2'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   567
			  #layout: #(#LayoutFrame 0 0 0 0 0 1 30 0)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   568
			  #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   569
			  #adjust: #left
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   570
			)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   571
		       #(#SequenceViewSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   572
			  #name: 'List1'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   573
			  #layout: #(#LayoutFrame 0 0.0 30 0.0 0 1.0 0 1.0)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   574
			  #hasHorizontalScrollBar: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   575
			  #hasVerticalScrollBar: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   576
			  #useIndex: false
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   577
			  #sequenceList: #classesInProjectOnly
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   578
			)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   579
		       )
1240
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   580
                     
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   581
		    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   582
		  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   583
		 )
1240
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   584
               
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   585
	      )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   586
	    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   587
	   #(#HorizontalPanelViewSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   588
	      #name: 'HorizontalPanel1'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   589
	      #layout: #(#LayoutFrame 0 0 -30 1 0 1 0 1)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   590
	      #horizontalLayout: #center
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   591
	      #verticalLayout: #center
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   592
	      #horizontalSpace: 3
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   593
	      #verticalSpace: 3
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   594
	      #component: 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   595
	     #(#SpecCollection
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   596
		#collection: #(
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   597
		 #(#ActionButtonSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   598
		    #label: 'OK'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   599
		    #name: 'Button1'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   600
		    #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   601
		    #model: #closeRequest
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   602
		    #extent: #(#Point 125 22)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   603
		  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   604
		 )
1240
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   605
               
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   606
	      )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   607
	    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   608
	   )
1240
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   609
         
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   610
	)
1240
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   611
      )
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   612
!
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   613
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   614
emptyRightCanvasSpec
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   615
    "This resource specification was automatically generated
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   616
     by the UIPainter of ST/X."
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   617
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   618
    "Do not manually edit this!! If it is corrupted,
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   619
     the UIPainter may not be able to read the specification."
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   620
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   621
    "
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   622
     UIPainter new openOnClass:ProjectBrowser andSelector:#emptyRightCanvasSpec
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   623
     ProjectBrowser new openInterface:#emptyRightCanvasSpec
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   624
    "
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   625
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   626
    <resource: #canvas>
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   627
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   628
    ^ 
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   629
     #(#FullSpec
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   630
	#name: #emptyRightCanvasSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   631
	#window: 
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   632
       #(#WindowSpec
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   633
	  #label: 'NewApplication'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   634
	  #name: 'NewApplication'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   635
	  #min: #(#Point 10 10)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   636
	  #max: #(#Point 1280 1024)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   637
	  #bounds: #(#Rectangle 10 20 310 320)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   638
	)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   639
	#component: 
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   640
       #(#SpecCollection
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   641
	  #collection: #(
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   642
	   #(#TextEditorSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   643
	      #name: 'TextEditor1'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   644
	      #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   645
	      #initiallyInvisible: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   646
	      #model: #rightCanvasTextHolder
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   647
	      #hasHorizontalScrollBar: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   648
	      #hasVerticalScrollBar: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   649
	      #miniScrollerHorizontal: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   650
	      #isReadOnly: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   651
	    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   652
	   )
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   653
         
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   654
	)
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   655
      )
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   656
!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   657
1255
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   658
methodValidationDialogSpec
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   659
    "This resource specification was automatically generated
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   660
     by the UIPainter of ST/X."
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   661
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   662
    "Do not manually edit this!! If it is corrupted,
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   663
     the UIPainter may not be able to read the specification."
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   664
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   665
    "
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   666
     UIPainter new openOnClass:ProjectBrowser andSelector:#classValidationDialogSpec
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   667
     ProjectBrowser new openInterface:#classValidationDialogSpec
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   668
    "
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   669
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   670
    <resource: #canvas>
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   671
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   672
    ^ 
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   673
     #(#FullSpec
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   674
	#name: #classValidationDialogSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   675
	#window: 
1255
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   676
       #(#WindowSpec
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   677
	  #label: 'ProjectBrowser'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   678
	  #name: 'ProjectBrowser'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   679
	  #min: #(#Point 10 10)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   680
	  #max: #(#Point 1024 768)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   681
	  #bounds: #(#Rectangle 24 554 457 1003)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   682
	  #menu: #mainMenu
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   683
	  #icon: #bigProjectBrowserIcon
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   684
	)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   685
	#component: 
1255
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   686
       #(#SpecCollection
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   687
	  #collection: #(
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   688
	   #(#VariableVerticalPanelSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   689
	      #name: 'VariableVerticalPanel1'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   690
	      #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 -30 1.0)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   691
	      #handles: 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   692
	     #(#OrderedCollection
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   693
		#Any 0.5
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   694
		1.0
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   695
	      )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   696
	      #component: 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   697
	     #(#SpecCollection
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   698
		#collection: #(
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   699
		 #(#ViewSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   700
		    #name: 'Box1'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   701
		    #component: 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   702
		   #(#SpecCollection
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   703
		      #collection: #(
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   704
		       #(#LabelSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   705
			  #label: 'Methods only in Image'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   706
			  #name: 'Label1'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   707
			  #layout: #(#LayoutFrame 0 0 0 0 0 1 30 0)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   708
			  #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   709
			  #adjust: #left
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   710
			)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   711
		       #(#SequenceViewSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   712
			  #name: 'List2'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   713
			  #layout: #(#LayoutFrame 0 0.0 30 0.0 0 1.0 0 1.0)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   714
			  #hasHorizontalScrollBar: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   715
			  #hasVerticalScrollBar: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   716
			  #useIndex: false
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   717
			  #sequenceList: #methodsInImageOnly
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   718
			)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   719
		       )
1255
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   720
                     
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   721
		    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   722
		  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   723
		 #(#ViewSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   724
		    #name: 'Box2'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   725
		    #component: 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   726
		   #(#SpecCollection
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   727
		      #collection: #(
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   728
		       #(#LabelSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   729
			  #label: 'Methods only in Project'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   730
			  #name: 'Label2'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   731
			  #layout: #(#LayoutFrame 0 0 0 0 0 1 30 0)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   732
			  #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   733
			  #adjust: #left
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   734
			)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   735
		       #(#SequenceViewSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   736
			  #name: 'List1'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   737
			  #layout: #(#LayoutFrame 0 0.0 30 0.0 0 1.0 0 1.0)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   738
			  #hasHorizontalScrollBar: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   739
			  #hasVerticalScrollBar: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   740
			  #useIndex: false
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   741
			  #sequenceList: #methodsInProjectOnly
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   742
			)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   743
		       )
1255
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   744
                     
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   745
		    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   746
		  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   747
		 )
1255
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   748
               
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   749
	      )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   750
	    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   751
	   #(#HorizontalPanelViewSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   752
	      #name: 'HorizontalPanel1'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   753
	      #layout: #(#LayoutFrame 0 0 -30 1 0 1 0 1)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   754
	      #horizontalLayout: #center
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   755
	      #verticalLayout: #center
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   756
	      #horizontalSpace: 3
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   757
	      #verticalSpace: 3
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   758
	      #component: 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   759
	     #(#SpecCollection
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   760
		#collection: #(
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   761
		 #(#ActionButtonSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   762
		    #label: 'OK'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   763
		    #name: 'Button1'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   764
		    #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   765
		    #model: #closeRequest
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   766
		    #extent: #(#Point 125 22)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   767
		  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   768
		 )
1255
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   769
               
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   770
	      )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   771
	    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   772
	   )
1255
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   773
         
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   774
	)
1255
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   775
      )
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   776
!
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   777
1234
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   778
rightCanvasSpecForBuildOptions
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   779
    "This resource specification was automatically generated
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   780
     by the UIPainter of ST/X."
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   781
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   782
    "Do not manually edit this!! If it is corrupted,
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   783
     the UIPainter may not be able to read the specification."
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   784
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   785
    "
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   786
     UIPainter new openOnClass:ProjectBrowser andSelector:#rightCanvasSpecForBuildOptions
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   787
     ProjectBrowser new openInterface:#rightCanvasSpecForBuildOptions
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   788
    "
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   789
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   790
    <resource: #canvas>
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   791
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   792
    ^ 
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   793
     #(#FullSpec
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   794
	#name: #rightCanvasSpecForBuildOptions
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   795
	#window: 
1234
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   796
       #(#WindowSpec
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   797
	  #label: 'NewApplication'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   798
	  #name: 'NewApplication'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   799
	  #min: #(#Point 10 10)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   800
	  #max: #(#Point 1280 1024)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   801
	  #bounds: #(#Rectangle 216 173 577 536)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   802
	)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   803
	#component: 
1234
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   804
       #(#SpecCollection
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   805
	  #collection: #(
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   806
	   #(#FramedBoxSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   807
	      #label: 'STC Compiler Warnings'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   808
	      #name: 'FramedBox2'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   809
	      #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 146 0)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   810
	      #labelPosition: #topLeft
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   811
	      #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   812
	      #component: 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   813
	     #(#SpecCollection
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   814
		#collection: #(
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   815
		 #(#CheckBoxSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   816
		    #label: 'Non Standard Language Features'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   817
		    #name: 'CheckBox1'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   818
		    #layout: #(#LayoutFrame 0 0.0 9 0 0 1.0 31 0)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   819
		    #tabable: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   820
		    #model: #makeWarnNonStandard
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   821
		    #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   822
		  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   823
		 #(#CheckBoxSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   824
		    #label: 'End-of-line Comments'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   825
		    #name: 'CheckBox2'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   826
		    #layout: #(#LayoutFrame 0 0.0 36 0 0 1.0 58 0)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   827
		    #tabable: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   828
		    #model: #makeWarnEOLComments
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   829
		    #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   830
		  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   831
		 #(#LabelSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   832
		    #label: 'other warning options:'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   833
		    #name: 'Label3'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   834
		    #layout: #(#LayoutFrame 0 0.0 69 0 0 1.0 91 0)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   835
		    #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   836
		    #adjust: #left
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   837
		  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   838
		 #(#InputFieldSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   839
		    #name: 'EntryField1'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   840
		    #layout: #(#LayoutFrame 0 0.0 93 0 0 1.0 115 0)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   841
		    #activeHelpKey: #projectDir
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   842
		    #tabable: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   843
		    #model: #makeOtherWarningOptions
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   844
		    #acceptChannel: #acceptChannel
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   845
		    #modifiedChannel: #modifiedChannel
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   846
		    #acceptOnPointerLeave: false
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   847
		  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   848
		 )
1234
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   849
               
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   850
	      )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   851
	    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   852
	   #(#FramedBoxSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   853
	      #label: 'STC Compiler Includes'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   854
	      #name: 'FramedBox3'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   855
	      #layout: #(#LayoutFrame 0 0.0 146 0.0 0 1.0 203 0)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   856
	      #labelPosition: #topLeft
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   857
	      #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   858
	      #component: 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   859
	     #(#SpecCollection
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   860
		#collection: #(
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   861
		 #(#InputFieldSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   862
		    #name: 'EntryField2'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   863
		    #layout: #(#LayoutFrame 0 0.0 4 0 0 1.0 26 0)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   864
		    #activeHelpKey: #repositoryModule
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   865
		    #tabable: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   866
		    #model: #makeIncludes
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   867
		    #acceptChannel: #acceptChannel
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   868
		    #modifiedChannel: #modifiedChannel
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   869
		    #acceptOnPointerLeave: false
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   870
		  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   871
		 )
1234
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   872
               
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   873
	      )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   874
	    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   875
	   #(#FramedBoxSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   876
	      #label: 'STC Compiler Defines'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   877
	      #name: 'FramedBox5'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   878
	      #layout: #(#LayoutFrame 0 0.0 210 0.0 0 1.0 267 0)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   879
	      #labelPosition: #topLeft
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   880
	      #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   881
	      #component: 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   882
	     #(#SpecCollection
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   883
		#collection: #(
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   884
		 #(#InputFieldSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   885
		    #name: 'EntryField5'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   886
		    #layout: #(#LayoutFrame 0 0.0 4 0 0 1.0 26 0)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   887
		    #activeHelpKey: #repositoryModule
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   888
		    #tabable: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   889
		    #model: #makeDefines
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   890
		    #acceptChannel: #acceptChannel
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   891
		    #modifiedChannel: #modifiedChannel
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   892
		    #acceptOnPointerLeave: false
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   893
		  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   894
		 )
1234
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   895
               
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   896
	      )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   897
	    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   898
	   #(#HorizontalPanelViewSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   899
	      #name: 'HorizontalPanel1'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   900
	      #layout: #(#LayoutFrame 0 0 -30 1 0 1 0 1)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   901
	      #horizontalLayout: #fitSpace
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   902
	      #verticalLayout: #center
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   903
	      #horizontalSpace: 3
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   904
	      #verticalSpace: 3
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   905
	      #component: 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   906
	     #(#SpecCollection
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   907
		#collection: #(
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   908
		 #(#ActionButtonSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   909
		    #label: 'Cancel'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   910
		    #name: 'Button1'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   911
		    #activeHelpKey: #cancel
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   912
		    #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   913
		    #model: #cancel
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   914
		    #enableChannel: #modifiedChannel
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   915
		    #actionValue: ''
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   916
		    #useDefaultExtent: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   917
		  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   918
		 #(#ActionButtonSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   919
		    #label: 'OK'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   920
		    #name: 'Button2'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   921
		    #activeHelpKey: #accept
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   922
		    #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   923
		    #model: #accept
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   924
		    #enableChannel: #modifiedChannel
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   925
		    #useDefaultExtent: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   926
		  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   927
		 )
1234
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   928
               
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   929
	      )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   930
	    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   931
	   )
1234
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   932
         
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   933
	)
1234
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   934
      )
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   935
!
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   936
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   937
rightCanvasSpecForClassList
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   938
    "This resource specification was automatically generated
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   939
     by the UIPainter of ST/X."
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   940
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   941
    "Do not manually edit this!! If it is corrupted,
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   942
     the UIPainter may not be able to read the specification."
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   943
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   944
    "
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   945
     UIPainter new openOnClass:ProjectBrowser andSelector:#rightCanvasSpecForClassList
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   946
     ProjectBrowser new openInterface:#rightCanvasSpecForClassList
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   947
    "
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   948
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   949
    <resource: #canvas>
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   950
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   951
    ^ 
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   952
     #(#FullSpec
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   953
	#name: #rightCanvasSpecForClassList
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   954
	#window: 
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   955
       #(#WindowSpec
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   956
	  #label: 'NewApplication'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   957
	  #name: 'NewApplication'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   958
	  #min: #(#Point 10 10)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   959
	  #max: #(#Point 1280 1024)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   960
	  #bounds: #(#Rectangle 10 20 310 320)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   961
	)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   962
	#component: 
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   963
       #(#SpecCollection
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   964
	  #collection: #(
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   965
	   #(#DataSetSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   966
	      #name: 'classTable'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   967
	      #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   968
	      #hasHorizontalScrollBar: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   969
	      #hasVerticalScrollBar: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   970
	      #miniScrollerHorizontal: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   971
	      #dataList: #classList
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   972
	      #has3Dsepartors: false
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   973
	      #columnHolder: #classTableColumns
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   974
	      #verticalSpacing: 0
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   975
	      #columnAdaptor: #classTableAdaptor
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   976
	    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   977
	   )
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   978
         
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   979
	)
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   980
      )
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   981
!
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   982
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
   983
rightCanvasSpecForDeployment
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
   984
    "This resource specification was automatically generated
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
   985
     by the UIPainter of ST/X."
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
   986
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
   987
    "Do not manually edit this!! If it is corrupted,
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
   988
     the UIPainter may not be able to read the specification."
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
   989
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
   990
    "
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
   991
     UIPainter new openOnClass:ProjectBrowser andSelector:#rightCanvasSpecForDeployment
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
   992
     ProjectBrowser new openInterface:#rightCanvasSpecForDeployment
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
   993
    "
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
   994
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
   995
    <resource: #canvas>
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
   996
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
   997
    ^ 
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
   998
     #(#FullSpec
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
   999
	#name: #rightCanvasSpecForDeployment
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1000
	#window: 
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1001
       #(#WindowSpec
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1002
	  #label: 'NewApplication'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1003
	  #name: 'NewApplication'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1004
	  #min: #(#Point 10 10)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1005
	  #max: #(#Point 1280 1024)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1006
	  #bounds: #(#Rectangle 12 22 365 521)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1007
	)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1008
	#component: 
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1009
       #(#SpecCollection
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1010
	  #collection: #(
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1011
	   #(#FramedBoxSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1012
	      #label: 'Deliver'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1013
	      #name: 'DeliverBox'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1014
	      #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 172 0)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1015
	      #labelPosition: #topLeft
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1016
	      #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1017
	      #component: 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1018
	     #(#SpecCollection
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1019
		#collection: #(
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1020
		 #(#CheckBoxSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1021
		    #label: '''loadAll''-File'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1022
		    #name: 'CheckBox5'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1023
		    #layout: #(#LayoutFrame 0 0.0 67 0 0 1.0 89 0)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1024
		    #activeHelpKey: #deliverLoadAll
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1025
		    #tabable: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1026
		    #model: #deliverLoadAllFile
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1027
		    #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1028
		  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1029
		 #(#CheckBoxSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1030
		    #label: 'Compiled Binary (non-portable .dll / .so)'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1031
		    #name: 'CheckBox6'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1032
		    #layout: #(#LayoutFrame 0 0.0 32 0 0 1.0 54 0)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1033
		    #activeHelpKey: #deliverCompiledBinary
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1034
		    #tabable: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1035
		    #model: #deliverCompiledBinary
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1036
		    #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1037
		  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1038
		 #(#CheckBoxSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1039
		    #label: 'Bytecode Binary (portable)'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1040
		    #name: 'CheckBox1'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1041
		    #layout: #(#LayoutFrame 0 0.0 8 0 0 1.0 30 0)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1042
		    #activeHelpKey: #deliverByteCode
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1043
		    #tabable: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1044
		    #model: #deliverByteCode
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1045
		    #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1046
		  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1047
		 #(#CheckBoxSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1048
		    #label: 'Sources'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1049
		    #name: 'CheckBox4'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1050
		    #layout: #(#LayoutFrame 0 0.0 90 0 0 1.0 112 0)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1051
		    #activeHelpKey: #deliverSources
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1052
		    #tabable: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1053
		    #model: #deliverSources
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1054
		    #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1055
		  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1056
		 #(#CheckBoxSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1057
		    #label: 'Makefiles'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1058
		    #name: 'CheckBox8'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1059
		    #layout: #(#LayoutFrame 0 0.0 113 0 0 1.0 135 0)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1060
		    #activeHelpKey: #deliverMakefiles
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1061
		    #tabable: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1062
		    #model: #deliverMakefiles
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1063
		    #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1064
		  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1065
		 )
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  1066
               
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1067
	      )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1068
	    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1069
	   #(#FramedBoxSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1070
	      #label: 'Format'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1071
	      #name: 'DeliverAsBox'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1072
	      #layout: #(#LayoutFrame 0 0.0 172 0 0 1.0 290 0)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1073
	      #labelPosition: #topLeft
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1074
	      #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1075
	      #component: 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1076
	     #(#SpecCollection
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1077
		#collection: #(
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1078
		 #(#CheckBoxSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1079
		    #label: 'Tar Archive (.tar - for unix)'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1080
		    #name: 'CheckBox7'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1081
		    #layout: #(#LayoutFrame 0 0.0 34 0 0 1.0 56 0)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1082
		    #activeHelpKey: #deliverTarArchive
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1083
		    #tabable: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1084
		    #model: #deliverTarArchive
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1085
		    #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1086
		  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1087
		 #(#CheckBoxSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1088
		    #label: 'Zip Archive (.zip - for windows)'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1089
		    #name: 'CheckBox2'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1090
		    #layout: #(#LayoutFrame 0 0.0 10 0 0 1.0 32 0)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1091
		    #activeHelpKey: #deliverZipArchive
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1092
		    #tabable: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1093
		    #model: #deliverZipArchive
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1094
		    #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1095
		  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1096
		 #(#CheckBoxSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1097
		    #label: 'GZip Archive (self extracting for unix)'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1098
		    #name: 'CheckBox3'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1099
		    #layout: #(#LayoutFrame 0 0.0 58 0 0 1.0 80 0)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1100
		    #activeHelpKey: #deliverGZipArchive
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1101
		    #tabable: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1102
		    #model: #deliverGZipArchive
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1103
		    #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1104
		  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1105
		 )
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1106
               
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1107
	      )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1108
	    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1109
	   #(#FramedBoxSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1110
	      #label: 'Target Install Directory'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1111
	      #name: 'DestinationBox'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1112
	      #layout: #(#LayoutFrame 0 0.0 295 0 0 1.0 448 0)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1113
	      #labelPosition: #topLeft
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1114
	      #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1115
	      #component: 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1116
	     #(#SpecCollection
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1117
		#collection: #(
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1118
		 #(#LabelSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1119
		    #label: 'Unix:'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1120
		    #name: 'Label1'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1121
		    #layout: #(#AlignmentOrigin 76 0.0 16 0 1 0.5)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1122
		    #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1123
		    #resizeForLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1124
		    #adjust: #right
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1125
		  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1126
		 #(#InputFieldSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1127
		    #name: 'EntryField1'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1128
		    #layout: #(#LayoutFrame 80 0.0 4 0 0 1.0 26 0)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1129
		    #activeHelpKey: #installDirUnix
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1130
		    #enableChannel: #canDeliverForUnix
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1131
		    #tabable: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1132
		    #model: #installDirectoryUnix
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1133
		    #acceptChannel: #acceptChannel
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1134
		    #modifiedChannel: #modifiedChannel
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1135
		    #acceptOnPointerLeave: false
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1136
		  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1137
		 #(#LabelSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1138
		    #label: 'Win32:'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1139
		    #name: 'Label2'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1140
		    #layout: #(#AlignmentOrigin 76 0.0 47 0 1 0.5)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1141
		    #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1142
		    #resizeForLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1143
		    #adjust: #right
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1144
		  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1145
		 #(#InputFieldSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1146
		    #name: 'EntryField2'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1147
		    #layout: #(#LayoutFrame 80 0.0 34 0 0 1.0 56 0)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1148
		    #activeHelpKey: #installDirWin32
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1149
		    #enableChannel: #canDeliverForWin32
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1150
		    #tabable: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1151
		    #model: #installDirectoryWin32
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1152
		    #acceptChannel: #acceptChannel
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1153
		    #modifiedChannel: #modifiedChannel
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1154
		    #acceptOnPointerLeave: false
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1155
		  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1156
		 #(#LabelSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1157
		    #label: 'VMS:'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1158
		    #name: 'Label3'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1159
		    #layout: #(#AlignmentOrigin 76 0.0 76 0 1 0.5)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1160
		    #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1161
		    #resizeForLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1162
		    #adjust: #right
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1163
		  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1164
		 #(#InputFieldSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1165
		    #name: 'EntryField3'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1166
		    #layout: #(#LayoutFrame 80 0.0 63 0 0 1.0 85 0)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1167
		    #activeHelpKey: #installDirVMS
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1168
		    #initiallyDisabled: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1169
		    #enableChannel: #canDeliverForVMS
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1170
		    #tabable: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1171
		    #model: #installDirectoryVMS
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1172
		    #acceptChannel: #acceptChannel
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1173
		    #modifiedChannel: #modifiedChannel
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1174
		    #acceptOnPointerLeave: false
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1175
		  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1176
		 #(#LabelSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1177
		    #label: 'MacOS:'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1178
		    #name: 'Label4'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1179
		    #layout: #(#AlignmentOrigin 76 0.0 106 0 1 0.5)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1180
		    #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1181
		    #resizeForLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1182
		    #adjust: #right
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1183
		  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1184
		 #(#InputFieldSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1185
		    #name: 'EntryField4'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1186
		    #layout: #(#LayoutFrame 80 0.0 93 0 0 1.0 115 0)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1187
		    #activeHelpKey: #installDirMacOS
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1188
		    #initiallyDisabled: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1189
		    #enableChannel: #canDeliverForMacOS
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1190
		    #tabable: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1191
		    #model: #installDirectoryMac
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1192
		    #acceptChannel: #acceptChannel
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1193
		    #modifiedChannel: #modifiedChannel
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1194
		    #acceptOnPointerLeave: false
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1195
		  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1196
		 )
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  1197
               
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1198
	      )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1199
	    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1200
	   #(#HorizontalPanelViewSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1201
	      #name: 'HorizontalPanel1'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1202
	      #layout: #(#LayoutFrame 0 0 -30 1 0 1 0 1)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1203
	      #horizontalLayout: #fitSpace
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1204
	      #verticalLayout: #center
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1205
	      #horizontalSpace: 3
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1206
	      #verticalSpace: 3
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1207
	      #component: 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1208
	     #(#SpecCollection
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1209
		#collection: #(
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1210
		 #(#ActionButtonSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1211
		    #label: 'Cancel'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1212
		    #name: 'Button1'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1213
		    #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1214
		    #tabable: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1215
		    #model: #cancel
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1216
		    #enableChannel: #modifiedChannel
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1217
		    #actionValue: ''
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1218
		    #useDefaultExtent: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1219
		  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1220
		 #(#ActionButtonSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1221
		    #label: 'OK'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1222
		    #name: 'Button2'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1223
		    #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1224
		    #tabable: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1225
		    #model: #accept
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1226
		    #enableChannel: #modifiedChannel
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1227
		    #actionValue: ''
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1228
		    #useDefaultExtent: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1229
		  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1230
		 )
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1231
               
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1232
	      )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1233
	    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1234
	   )
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1235
         
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1236
	)
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1237
      )
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  1238
!
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  1239
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1240
rightCanvasSpecForEditableText
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1241
    "This resource specification was automatically generated
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1242
     by the UIPainter of ST/X."
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1243
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1244
    "Do not manually edit this!! If it is corrupted,
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1245
     the UIPainter may not be able to read the specification."
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1246
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1247
    "
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1248
     UIPainter new openOnClass:ProjectBrowser andSelector:#rightCanvasSpecForEditableText
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1249
     ProjectBrowser new openInterface:#rightCanvasSpecForEditableText
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1250
    "
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1251
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1252
    <resource: #canvas>
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1253
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1254
    ^ 
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1255
     #(#FullSpec
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1256
	#name: #rightCanvasSpecForEditableText
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1257
	#window: 
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1258
       #(#WindowSpec
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1259
	  #label: 'NewApplication'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1260
	  #name: 'NewApplication'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1261
	  #min: #(#Point 10 10)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1262
	  #max: #(#Point 1280 1024)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1263
	  #bounds: #(#Rectangle 216 173 516 473)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1264
	)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1265
	#component: 
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1266
       #(#SpecCollection
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1267
	  #collection: #(
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1268
	   #(#TextEditorSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1269
	      #name: 'TextEditor1'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1270
	      #layout: #(#LayoutFrame 0 0.0 30 0.0 0 1.0 0 1.0)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1271
	      #model: #rightCanvasTextHolder
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1272
	      #hasHorizontalScrollBar: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1273
	      #hasVerticalScrollBar: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1274
	      #miniScrollerHorizontal: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1275
	    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1276
	   #(#LabelSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1277
	      #label: 'Label'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1278
	      #name: 'Label1'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1279
	      #layout: #(#LayoutFrame 0 0 0 0 0 1 30 0)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1280
	      #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1281
	      #labelChannel: #textCanvasLabelHolder
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1282
	      #adjust: #left
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1283
	    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1284
	   )
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1285
         
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1286
	)
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1287
      )
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1288
!
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1289
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1290
rightCanvasSpecForFiles
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1291
    "This resource specification was automatically generated
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1292
     by the UIPainter of ST/X."
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1293
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1294
    "Do not manually edit this!! If it is corrupted,
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1295
     the UIPainter may not be able to read the specification."
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1296
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1297
    "
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1298
     UIPainter new openOnClass:ProjectBrowser andSelector:#rightCanvasSpecForFiles
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1299
     ProjectBrowser new openInterface:#rightCanvasSpecForFiles
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1300
    "
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1301
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1302
    <resource: #canvas>
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1303
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1304
    ^ 
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1305
     #(#FullSpec
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1306
	#name: #rightCanvasSpecForFiles
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1307
	#window: 
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1308
       #(#WindowSpec
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1309
	  #label: 'NewApplication'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1310
	  #name: 'NewApplication'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1311
	  #min: #(#Point 10 10)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1312
	  #max: #(#Point 1280 1024)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1313
	  #bounds: #(#Rectangle 216 173 577 536)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1314
	)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1315
	#component: 
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1316
       #(#SpecCollection
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1317
	  #collection: #(
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1318
	   #(#FramedBoxSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1319
	      #label: 'File for extensions & patches'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1320
	      #name: 'FramedBox2'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1321
	      #layout: #(#LayoutFrame 0 0.0 62 0.0 0 1.0 122 0)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1322
	      #labelPosition: #topLeft
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1323
	      #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1324
	      #component: 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1325
	     #(#SpecCollection
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1326
		#collection: #(
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1327
		 #(#InputFieldSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1328
		    #name: 'methodsFileEntryField'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1329
		    #layout: #(#LayoutFrame 0 0.0 1 0 0 1.0 23 0)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1330
		    #activeHelpKey: #methodsFile
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1331
		    #model: #methodsFile
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1332
		    #acceptChannel: #acceptChannel
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1333
		    #modifiedChannel: #modifiedChannel
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1334
		    #acceptOnPointerLeave: false
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1335
		  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1336
		 )
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1337
               
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1338
	      )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1339
	    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1340
	   #(#HorizontalPanelViewSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1341
	      #name: 'HorizontalPanel1'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1342
	      #layout: #(#LayoutFrame 0 0 -30 1 0 1 0 1)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1343
	      #horizontalLayout: #fitSpace
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1344
	      #verticalLayout: #center
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1345
	      #horizontalSpace: 3
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1346
	      #verticalSpace: 3
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1347
	      #component: 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1348
	     #(#SpecCollection
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1349
		#collection: #(
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1350
		 #(#ActionButtonSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1351
		    #label: 'Cancel'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1352
		    #name: 'Button1'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1353
		    #activeHelpKey: #cancel
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1354
		    #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1355
		    #model: #cancel
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1356
		    #enableChannel: #modifiedChannel
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1357
		    #actionValue: ''
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1358
		    #useDefaultExtent: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1359
		  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1360
		 #(#ActionButtonSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1361
		    #label: 'OK'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1362
		    #name: 'Button2'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1363
		    #activeHelpKey: #accept
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1364
		    #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1365
		    #model: #accept
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1366
		    #enableChannel: #modifiedChannel
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1367
		    #useDefaultExtent: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1368
		  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1369
		 )
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1370
               
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1371
	      )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1372
	    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1373
	   )
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1374
         
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1375
	)
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1376
      )
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1377
!
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1378
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1379
rightCanvasSpecForHTMLText
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1380
    "This resource specification was automatically generated
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1381
     by the UIPainter of ST/X."
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1382
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1383
    "Do not manually edit this!! If it is corrupted,
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1384
     the UIPainter may not be able to read the specification."
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1385
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1386
    "
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1387
     UIPainter new openOnClass:ProjectBrowser andSelector:#rightCanvasSpecForHTMLText
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1388
     ProjectBrowser new openInterface:#rightCanvasSpecForHTMLText
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1389
    "
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1390
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1391
    <resource: #canvas>
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1392
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1393
    ^
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1394
     
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1395
       #(#FullSpec
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1396
	  #window: 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1397
	   #(#WindowSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1398
	      #name: 'NewApplication'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1399
	      #layout: #(#LayoutFrame 216 0 173 0 515 0 472 0)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1400
	      #level: 0
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1401
	      #label: 'NewApplication'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1402
	      #min: #(#Point 10 10)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1403
	      #max: #(#Point 1280 1024)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1404
	      #bounds: #(#Rectangle 216 173 516 473)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1405
	      #usePreferredExtent: false
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1406
	  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1407
	  #component: 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1408
	   #(#SpecCollection
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1409
	      #collection: 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1410
	       #(
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1411
		 #(#HTMLViewSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1412
		    #name: 'HTMLBrowser1'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1413
		    #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1414
		    #model: #htmlDocumentURLHolder
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1415
		    #hasHorizontalScrollBar: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1416
		    #hasVerticalScrollBar: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1417
		)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1418
	      )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1419
	  )
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1420
      )
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1421
!
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1422
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1423
rightCanvasSpecForPatchesList
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1424
    "This resource specification was automatically generated
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1425
     by the UIPainter of ST/X."
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1426
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1427
    "Do not manually edit this!! If it is corrupted,
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1428
     the UIPainter may not be able to read the specification."
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1429
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1430
    "
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1431
     UIPainter new openOnClass:ProjectBrowser andSelector:#rightCanvasSpecForPatchesList
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1432
     ProjectBrowser new openInterface:#rightCanvasSpecForPatchesList
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1433
    "
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1434
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1435
    <resource: #canvas>
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1436
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1437
    ^ 
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1438
     #(#FullSpec
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1439
	#name: #rightCanvasSpecForPatchesList
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1440
	#window: 
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1441
       #(#WindowSpec
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1442
	  #label: 'NewApplication'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1443
	  #name: 'NewApplication'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1444
	  #min: #(#Point 10 10)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1445
	  #max: #(#Point 1280 1024)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1446
	  #bounds: #(#Rectangle 162 22 462 322)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1447
	)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1448
	#component: 
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1449
       #(#SpecCollection
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1450
	  #collection: #(
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1451
	   #(#DataSetSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1452
	      #name: 'patchesTable'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1453
	      #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1454
	      #menu: #methodMenu
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1455
	      #hasHorizontalScrollBar: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1456
	      #hasVerticalScrollBar: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1457
	      #miniScrollerHorizontal: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1458
	      #dataList: #patchesList
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1459
	      #has3Dsepartors: false
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1460
	      #columnHolder: #patchesTableColumns
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1461
	      #columnAdaptor: #classTableAdaptor
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1462
	    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1463
	   )
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1464
         
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1465
	)
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1466
      )
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1467
!
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1468
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1469
rightCanvasSpecForPrerequisiteClasses
1089
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1470
    "This resource specification was automatically generated
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1471
     by the UIPainter of ST/X."
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1472
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1473
    "Do not manually edit this!! If it is corrupted,
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1474
     the UIPainter may not be able to read the specification."
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1475
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1476
    "
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1477
     UIPainter new openOnClass:ProjectBrowser andSelector:#rightCanvasSpecForPrerequisiteClasses
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1478
     ProjectBrowser new openInterface:#rightCanvasSpecForPrerequisiteClasses
1089
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1479
    "
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1480
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1481
    <resource: #canvas>
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1482
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1483
    ^ 
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1484
     #(#FullSpec
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1485
	#name: #rightCanvasSpecForPrerequisiteClasses
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1486
	#window: 
1089
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1487
       #(#WindowSpec
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1488
	  #label: 'NewApplication'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1489
	  #name: 'NewApplication'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1490
	  #layout: #(#LayoutFrame 220 0 200 0 519 0 499 0)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1491
	  #level: 0
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1492
	  #min: #(#Point 10 10)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1493
	  #max: #(#Point 1280 1024)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1494
	  #bounds: #(#Rectangle 220 200 520 500)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1495
	  #usePreferredExtent: false
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1496
	  #returnIsOKInDialog: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1497
	  #escapeIsCancelInDialog: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1498
	)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1499
	#component: 
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1500
       #(#SpecCollection
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1501
	  #collection: #(
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1502
	   #(#LabelSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1503
	      #label: 'Known Classes'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1504
	      #name: 'Label1'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1505
	      #layout: #(#LayoutFrame 0 0 0 0 0 0.5 30 0)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1506
	      #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1507
	    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1508
	   #(#SequenceViewSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1509
	      #name: 'List1'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1510
	      #layout: #(#LayoutFrame 0 0 30 0 0 0.5 -62 1)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1511
	      #tabable: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1512
	      #model: #selectedClassInPrerequisites
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1513
	      #hasHorizontalScrollBar: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1514
	      #hasVerticalScrollBar: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1515
	      #miniScrollerHorizontal: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1516
	      #miniScrollerVertical: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1517
	      #doubleClickSelector: #addClassToPrerequisites
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1518
	      #valueChangeSelector: #showInfoForRequiredClass:
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1519
	      #useIndex: false
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1520
	      #sequenceList: #listOfAllClassesInPrerequisites
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1521
	    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1522
	   #(#LabelSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1523
	      #label: 'Required Classes'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1524
	      #name: 'Label2'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1525
	      #layout: #(#LayoutFrame 0 0.5 0 0 0 1 30 0)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1526
	      #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1527
	    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1528
	   #(#SequenceViewSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1529
	      #name: 'List2'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1530
	      #layout: #(#LayoutFrame 0 0.5 30 0 0 1 -62 1)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1531
	      #tabable: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1532
	      #model: #selectedRequiredClassInPrerequisites
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1533
	      #hasHorizontalScrollBar: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1534
	      #hasVerticalScrollBar: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1535
	      #miniScrollerHorizontal: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1536
	      #miniScrollerVertical: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1537
	      #doubleClickSelector: #removeClassFromPrerequisites
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1538
	      #valueChangeSelector: #showInfoForRequiredClass:
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1539
	      #useIndex: false
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1540
	      #sequenceList: #listOfRequiredClassesInPrerequisites
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1541
	    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1542
	   #(#HorizontalPanelViewSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1543
	      #name: 'HorizontalPanel2'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1544
	      #layout: #(#LayoutFrame 0 0 -62 1 0 1 -32 1)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1545
	      #horizontalLayout: #fitSpace
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1546
	      #verticalLayout: #center
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1547
	      #horizontalSpace: 3
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1548
	      #verticalSpace: 3
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1549
	      #component: 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1550
	     #(#SpecCollection
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1551
		#collection: #(
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1552
		 #(#ActionButtonSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1553
		    #label: 'Add'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1554
		    #name: 'addButton'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1555
		    #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1556
		    #resizeForLabel: false
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1557
		    #tabable: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1558
		    #model: #addClassToPrerequisites
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1559
		    #enableChannel: #canAddSelectedClassToPrerequisites
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1560
		    #actionValue: ''
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1561
		    #useDefaultExtent: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1562
		  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1563
		 #(#ActionButtonSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1564
		    #label: 'Remove'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1565
		    #name: 'removeButton'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1566
		    #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1567
		    #resizeForLabel: false
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1568
		    #tabable: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1569
		    #model: #removeClassFromPrerequisites
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1570
		    #enableChannel: #canRemoveSelectedClassFromPrerequisites
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1571
		    #actionValue: ''
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1572
		    #useDefaultExtent: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1573
		  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1574
		 )
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1575
               
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1576
	      )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1577
	    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1578
	   #(#HorizontalPanelViewSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1579
	      #name: 'HorizontalPanel1'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1580
	      #layout: #(#LayoutFrame 0 0.0 -30 1 0 1.0 0 1.0)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1581
	      #horizontalLayout: #fitSpace
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1582
	      #verticalLayout: #center
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1583
	      #horizontalSpace: 3
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1584
	      #verticalSpace: 3
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1585
	      #component: 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1586
	     #(#SpecCollection
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1587
		#collection: #(
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1588
		 #(#ActionButtonSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1589
		    #label: 'Cancel'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1590
		    #name: 'Button1'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1591
		    #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1592
		    #tabable: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1593
		    #model: #cancel
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1594
		    #useDefaultExtent: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1595
		  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1596
		 #(#ActionButtonSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1597
		    #label: 'OK'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1598
		    #name: 'Button2'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1599
		    #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1600
		    #tabable: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1601
		    #model: #accept
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1602
		    #useDefaultExtent: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1603
		  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1604
		 )
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1605
               
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1606
	      )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1607
	    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1608
	   )
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1609
         
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1610
	)
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1611
      )
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1612
!
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1613
1291
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  1614
rightCanvasSpecForPrerequisitePackages
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1615
    "This resource specification was automatically generated
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1616
     by the UIPainter of ST/X."
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1617
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1618
    "Do not manually edit this!! If it is corrupted,
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1619
     the UIPainter may not be able to read the specification."
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1620
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1621
    "
1291
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  1622
     UIPainter new openOnClass:ProjectBrowser andSelector:#rightCanvasSpecForPrerequisitePackages
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  1623
     ProjectBrowser new openInterface:#rightCanvasSpecForPrerequisitePackages
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1624
    "
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1625
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1626
    <resource: #canvas>
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1627
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1628
    ^ 
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1629
     #(#FullSpec
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1630
	#name: #rightCanvasSpecForPrerequisitePackages
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1631
	#window: 
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1632
       #(#WindowSpec
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1633
	  #label: 'NewApplication'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1634
	  #name: 'NewApplication'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1635
	  #layout: #(#LayoutFrame 220 0 200 0 519 0 499 0)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1636
	  #level: 0
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1637
	  #min: #(#Point 10 10)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1638
	  #max: #(#Point 1280 1024)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1639
	  #bounds: #(#Rectangle 220 200 520 500)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1640
	  #usePreferredExtent: false
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1641
	  #returnIsOKInDialog: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1642
	  #escapeIsCancelInDialog: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1643
	)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1644
	#component: 
1089
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1645
       #(#SpecCollection
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1646
	  #collection: #(
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1647
	   #(#LabelSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1648
	      #label: 'Known Packages'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1649
	      #name: 'Label1'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1650
	      #layout: #(#LayoutFrame 0 0 0 0 0 0.5 30 0)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1651
	      #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1652
	    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1653
	   #(#SequenceViewSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1654
	      #name: 'List1'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1655
	      #layout: #(#LayoutFrame 0 0 30 0 0 0.5 -62 1)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1656
	      #tabable: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1657
	      #model: #selectedProjectInPrerequisites
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1658
	      #hasHorizontalScrollBar: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1659
	      #hasVerticalScrollBar: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1660
	      #miniScrollerHorizontal: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1661
	      #miniScrollerVertical: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1662
	      #doubleClickSelector: #addProjectToPrerequisites
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1663
	      #useIndex: false
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1664
	      #sequenceList: #listOfAllProjectsInPrerequisites
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1665
	    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1666
	   #(#LabelSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1667
	      #label: 'Prerequisites'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1668
	      #name: 'Label2'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1669
	      #layout: #(#LayoutFrame 0 0.5 0 0 0 1 30 0)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1670
	      #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1671
	    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1672
	   #(#SequenceViewSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1673
	      #name: 'List2'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1674
	      #layout: #(#LayoutFrame 0 0.5 30 0 0 1 -62 1)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1675
	      #tabable: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1676
	      #model: #selectedRequiredProjectInPrerequisites
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1677
	      #hasHorizontalScrollBar: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1678
	      #hasVerticalScrollBar: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1679
	      #miniScrollerHorizontal: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1680
	      #miniScrollerVertical: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1681
	      #doubleClickSelector: #removeProjectFromPrerequisites
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1682
	      #useIndex: false
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1683
	      #sequenceList: #listOfRequiredProjectsInPrerequisites
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1684
	    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1685
	   #(#HorizontalPanelViewSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1686
	      #name: 'HorizontalPanel2'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1687
	      #layout: #(#LayoutFrame 0 0 -62 1 0 1 -32 1)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1688
	      #horizontalLayout: #fitSpace
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1689
	      #verticalLayout: #center
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1690
	      #horizontalSpace: 3
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1691
	      #verticalSpace: 3
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1692
	      #component: 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1693
	     #(#SpecCollection
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1694
		#collection: #(
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1695
		 #(#ActionButtonSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1696
		    #label: 'Add'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1697
		    #name: 'addButton'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1698
		    #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1699
		    #resizeForLabel: false
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1700
		    #tabable: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1701
		    #model: #addProjectToPrerequisites
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1702
		    #enableChannel: #canAddSelectedProjectToPrerequisites
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1703
		    #actionValue: ''
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1704
		    #useDefaultExtent: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1705
		  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1706
		 #(#ActionButtonSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1707
		    #label: 'Remove'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1708
		    #name: 'removeButton'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1709
		    #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1710
		    #resizeForLabel: false
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1711
		    #tabable: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1712
		    #model: #removeProjectFromPrerequisites
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1713
		    #enableChannel: #canRemoveSelectedProjectFromPrerequisites
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1714
		    #actionValue: ''
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1715
		    #useDefaultExtent: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1716
		  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1717
		 )
1089
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1718
               
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1719
	      )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1720
	    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1721
	   #(#HorizontalPanelViewSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1722
	      #name: 'HorizontalPanel1'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1723
	      #layout: #(#LayoutFrame 0 0.0 -30 1 0 1.0 0 1.0)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1724
	      #horizontalLayout: #fitSpace
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1725
	      #verticalLayout: #center
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1726
	      #horizontalSpace: 3
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1727
	      #verticalSpace: 3
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1728
	      #component: 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1729
	     #(#SpecCollection
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1730
		#collection: #(
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1731
		 #(#ActionButtonSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1732
		    #label: 'Cancel'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1733
		    #name: 'Button1'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1734
		    #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1735
		    #tabable: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1736
		    #model: #cancel
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1737
		    #useDefaultExtent: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1738
		  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1739
		 #(#ActionButtonSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1740
		    #label: 'OK'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1741
		    #name: 'Button2'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1742
		    #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1743
		    #tabable: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1744
		    #model: #accept
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1745
		    #useDefaultExtent: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1746
		  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1747
		 )
1089
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1748
               
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1749
	      )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1750
	    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1751
	   )
1089
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1752
         
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1753
	)
1089
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1754
      )
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1755
!
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1756
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  1757
rightCanvasSpecForProperties
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  1758
    "This resource specification was automatically generated
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  1759
     by the UIPainter of ST/X."
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  1760
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  1761
    "Do not manually edit this!! If it is corrupted,
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  1762
     the UIPainter may not be able to read the specification."
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  1763
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  1764
    "
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  1765
     UIPainter new openOnClass:ProjectBrowser andSelector:#rightCanvasSpecForProperties
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  1766
     ProjectBrowser new openInterface:#rightCanvasSpecForProperties
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  1767
    "
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  1768
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  1769
    <resource: #canvas>
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  1770
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1771
    ^ 
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1772
     #(#FullSpec
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1773
	#name: #rightCanvasSpecForProperties
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1774
	#window: 
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1775
       #(#WindowSpec
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1776
	  #label: 'NewApplication'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1777
	  #name: 'NewApplication'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1778
	  #min: #(#Point 10 10)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1779
	  #max: #(#Point 1280 1024)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1780
	  #bounds: #(#Rectangle 12 22 373 346)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1781
	)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1782
	#component: 
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1783
       #(#SpecCollection
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1784
	  #collection: #(
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1785
	   #(#FramedBoxSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1786
	      #label: 'Project Type'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1787
	      #name: 'FramedBox1'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1788
	      #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 61 0)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1789
	      #labelPosition: #topLeft
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1790
	      #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1791
	      #component: 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1792
	     #(#SpecCollection
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1793
		#collection: #(
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1794
		 #(#RadioButtonSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1795
		    #label: 'Application'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1796
		    #name: 'RadioButton1'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1797
		    #layout: #(#LayoutFrame -1 0.0 5 0 0 0.5 27 0)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1798
		    #activeHelpKey: #appType
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1799
		    #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1800
		    #model: #projectType
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1801
		    #isTriggerOnDown: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1802
		    #select: #application
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1803
		  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1804
		 #(#RadioButtonSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1805
		    #label: 'Class Library'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1806
		    #name: 'RadioButton2'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1807
		    #layout: #(#LayoutFrame 0 0.5 5 0 0 1.0 27 0)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1808
		    #activeHelpKey: #libType
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1809
		    #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1810
		    #model: #projectType
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1811
		    #isTriggerOnDown: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1812
		    #select: #library
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1813
		  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1814
		 )
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1815
               
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1816
	      )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1817
	    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1818
	   #(#FramedBoxSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1819
	      #label: 'Project Working Directory'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1820
	      #name: 'FramedBox2'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1821
	      #layout: #(#LayoutFrame 0 0.0 67 0.0 0 1.0 127 0)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1822
	      #labelPosition: #topLeft
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1823
	      #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1824
	      #component: 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1825
	     #(#SpecCollection
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1826
		#collection: #(
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1827
		 #(#InputFieldSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1828
		    #name: 'EntryField1'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1829
		    #layout: #(#LayoutFrame 0 0.0 1 0 0 1.0 23 0)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1830
		    #activeHelpKey: #projectDir
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1831
		    #enableChannel: #currentProjectWasNotLoadedFromFile
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1832
		    #model: #projectDirectory
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1833
		    #acceptChannel: #acceptChannel
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1834
		    #modifiedChannel: #modifiedChannel
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1835
		    #acceptOnPointerLeave: false
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1836
		  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1837
		 )
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1838
               
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1839
	      )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1840
	    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1841
	   #(#FramedBoxSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1842
	      #label: 'Repository'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1843
	      #name: 'FramedBox3'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1844
	      #layout: #(#LayoutFrame 0 0.0 137 0.0 0 1.0 220 0)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1845
	      #labelPosition: #topLeft
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1846
	      #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1847
	      #component: 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1848
	     #(#SpecCollection
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1849
		#collection: #(
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1850
		 #(#LabelSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1851
		    #label: 'Module:'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1852
		    #name: 'Label1'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1853
		    #layout: #(#AlignmentOrigin 106 0 11 0 1 0.5)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1854
		    #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1855
		    #resizeForLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1856
		    #adjust: #right
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1857
		  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1858
		 #(#InputFieldSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1859
		    #name: 'EntryField2'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1860
		    #layout: #(#LayoutFrame 110 0.0 0 0 0 1.0 22 0)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1861
		    #activeHelpKey: #repositoryModule
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1862
		    #model: #repositoryModule
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1863
		    #acceptChannel: #acceptChannel
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1864
		    #modifiedChannel: #modifiedChannel
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1865
		    #acceptOnPointerLeave: false
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1866
		  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1867
		 #(#LabelSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1868
		    #label: 'Directory:'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1869
		    #name: 'Label2'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1870
		    #layout: #(#AlignmentOrigin 106 0 36 0 1 0.5)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1871
		    #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1872
		    #resizeForLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1873
		    #adjust: #right
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1874
		  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1875
		 #(#InputFieldSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1876
		    #name: 'EntryField3'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1877
		    #layout: #(#LayoutFrame 110 0.0 25 0 0 1.0 47 0)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1878
		    #activeHelpKey: #repositoryDirectory
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1879
		    #model: #repositoryDirectory
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1880
		    #acceptChannel: #acceptChannel
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1881
		    #modifiedChannel: #modifiedChannel
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1882
		    #acceptOnPointerLeave: false
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1883
		  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1884
		 )
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1885
               
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1886
	      )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1887
	    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1888
	   #(#FramedBoxSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1889
	      #label: 'Default Namespace'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1890
	      #name: 'FramedBox4'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1891
	      #layout: #(#LayoutFrame 0 0.0 226 0 0 1.0 284 0)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1892
	      #activeHelpKey: #defaultNamespace
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1893
	      #labelPosition: #topLeft
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1894
	      #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1895
	      #component: 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1896
	     #(#SpecCollection
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1897
		#collection: #(
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1898
		 #(#InputFieldSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1899
		    #name: 'EntryField4'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1900
		    #layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 22 0)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1901
		    #model: #projectNamespace
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1902
		    #acceptChannel: #acceptChannel
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1903
		    #modifiedChannel: #modifiedChannel
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1904
		    #acceptOnPointerLeave: false
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1905
		  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1906
		 )
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1907
               
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1908
	      )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1909
	    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1910
	   #(#HorizontalPanelViewSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1911
	      #name: 'HorizontalPanel1'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1912
	      #layout: #(#LayoutFrame 0 0 -30 1 0 1 0 1)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1913
	      #horizontalLayout: #fitSpace
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1914
	      #verticalLayout: #center
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1915
	      #horizontalSpace: 3
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1916
	      #verticalSpace: 3
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1917
	      #component: 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1918
	     #(#SpecCollection
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1919
		#collection: #(
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1920
		 #(#ActionButtonSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1921
		    #label: 'Cancel'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1922
		    #name: 'Button1'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1923
		    #activeHelpKey: #cancel
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1924
		    #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1925
		    #model: #cancel
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1926
		    #enableChannel: #modifiedChannel
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1927
		    #actionValue: ''
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1928
		    #useDefaultExtent: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1929
		  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1930
		 #(#ActionButtonSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1931
		    #label: 'OK'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1932
		    #name: 'Button2'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1933
		    #activeHelpKey: #accept
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1934
		    #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1935
		    #model: #accept
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1936
		    #enableChannel: #modifiedChannel
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1937
		    #useDefaultExtent: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1938
		  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1939
		 )
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1940
               
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1941
	      )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1942
	    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1943
	   )
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1944
         
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1945
	)
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  1946
      )
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  1947
!
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  1948
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1949
rightCanvasSpecForReadOnlyText
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1950
    "This resource specification was automatically generated
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1951
     by the UIPainter of ST/X."
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1952
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1953
    "Do not manually edit this!! If it is corrupted,
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1954
     the UIPainter may not be able to read the specification."
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1955
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1956
    "
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1957
     UIPainter new openOnClass:ProjectBrowser andSelector:#rightCanvasSpecForReadOnlyText
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1958
     ProjectBrowser new openInterface:#rightCanvasSpecForReadOnlyText
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1959
    "
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1960
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1961
    <resource: #canvas>
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1962
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1963
    ^ 
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1964
     #(#FullSpec
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1965
	#name: #rightCanvasSpecForReadOnlyText
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1966
	#window: 
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1967
       #(#WindowSpec
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1968
	  #label: 'NewApplication'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1969
	  #name: 'NewApplication'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1970
	  #min: #(#Point 10 10)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1971
	  #max: #(#Point 1280 1024)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1972
	  #bounds: #(#Rectangle 216 173 516 473)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1973
	)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1974
	#component: 
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1975
       #(#SpecCollection
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1976
	  #collection: #(
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1977
	   #(#TextEditorSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1978
	      #name: 'TextEditor1'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1979
	      #layout: #(#LayoutFrame 0 0.0 30 0.0 0 1.0 0 1.0)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1980
	      #model: #rightCanvasTextHolder
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1981
	      #hasHorizontalScrollBar: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1982
	      #hasVerticalScrollBar: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1983
	      #miniScrollerHorizontal: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1984
	      #isReadOnly: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1985
	    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1986
	   #(#LabelSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1987
	      #label: 'Label'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1988
	      #name: 'Label1'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1989
	      #layout: #(#LayoutFrame 0 0 0 0 0 1 30 0)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1990
	      #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1991
	      #labelChannel: #textCanvasLabelHolder
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1992
	      #adjust: #left
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1993
	    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1994
	   )
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1995
         
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  1996
	)
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1997
      )
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1998
!
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1999
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2000
windowSpec
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2001
    "This resource specification was automatically generated
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2002
     by the UIPainter of ST/X."
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2003
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2004
    "Do not manually edit this!! If it is corrupted,
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2005
     the UIPainter may not be able to read the specification."
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2006
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2007
    "
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2008
     UIPainter new openOnClass:ProjectBrowser andSelector:#windowSpec
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2009
     ProjectBrowser new openInterface:#windowSpec
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2010
     ProjectBrowser open
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2011
    "
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2012
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2013
    <resource: #canvas>
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2014
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  2015
    ^ 
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  2016
     #(#FullSpec
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2017
	#name: #windowSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2018
	#window: 
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  2019
       #(#WindowSpec
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2020
	  #label: 'ProjectBrowser'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2021
	  #name: 'ProjectBrowser'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2022
	  #min: #(#Point 10 10)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2023
	  #max: #(#Point 1024 768)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2024
	  #bounds: #(#Rectangle 20 94 623 645)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2025
	  #menu: #mainMenu
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2026
	  #icon: #bigProjectBrowserIcon
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2027
	)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2028
	#component: 
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  2029
       #(#SpecCollection
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2030
	  #collection: #(
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2031
	   #(#MenuPanelSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2032
	      #name: 'ToolBar1'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2033
	      #layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 32 0)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2034
	      #menu: #menu
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2035
	      #textDefault: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2036
	    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2037
	   #(#VariableVerticalPanelSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2038
	      #name: 'VariableVerticalPanel1'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2039
	      #layout: #(#LayoutFrame 0 0.0 32 0.0 0 1.0 -24 1.0)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2040
	      #level: 1
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2041
	      #component: 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2042
	     #(#SpecCollection
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2043
		#collection: #(
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2044
		 #(#VariableHorizontalPanelSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2045
		    #name: 'VariableHorizontalPanel1'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2046
		    #component: 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2047
		   #(#SpecCollection
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2048
		      #collection: #(
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2049
		       #(#SelectionInTreeViewSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2050
			  #name: 'TreeList1'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2051
			  #model: #selectedTreeNodeHolder
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2052
			  #menu: #itemMenuHolder
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2053
			  #performer: #itemMenuPerformer
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2054
			  #hasHorizontalScrollBar: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2055
			  #hasVerticalScrollBar: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2056
			  #miniScrollerHorizontal: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2057
			  #showRoot: false
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2058
			  #showDirectoryIndicatorForRoot: false
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2059
			  #showDirectoryIndicator: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2060
			  #valueChangeSelector: #itemSelected:
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2061
			  #doubleClickSelector: #itemDoubleClicked:
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2062
			  #hierarchicalList: #projectTreeHolder
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2063
			  #selectConditionSelector: #selectionChangeAllowed:
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2064
			  #highlightMode: #label
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2065
			)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2066
		       #(#SubCanvasSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2067
			  #name: 'SubCanvas1'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2068
			  #hasHorizontalScrollBar: false
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2069
			  #hasVerticalScrollBar: false
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2070
			  #specHolder: #currentCanvasHolder
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2071
			)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2072
		       )
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2073
                     
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2074
		    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2075
		    #handles: #(#Any 0.389718 1.0)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2076
		  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2077
		 #(#ArbitraryComponentSpec
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2078
		    #name: 'commandOutputView'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2079
		    #hasHorizontalScrollBar: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2080
		    #hasVerticalScrollBar: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2081
		    #miniScrollerHorizontal: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2082
		    #hasBorder: false
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2083
		    #component: #TextCollector
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2084
		  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2085
		 )
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  2086
               
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2087
	      )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2088
	      #handles: #(#Any 0.987879 1.0)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2089
	    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2090
	   #(#UISubSpecification
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2091
	      #name: 'infoBarSubSpec'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2092
	      #layout: #(#LayoutFrame 0 0.0 -24 1 0 1.0 0 1.0)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2093
	      #level: 1
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2094
	      #majorKey: #ToolApplicationModel
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2095
	      #minorKey: #windowSpecForInfoBar
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2096
	    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2097
	   )
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  2098
         
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2099
	)
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  2100
      )
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2101
! !
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2102
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2103
!ProjectBrowser class methodsFor:'menu specs'!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2104
1094
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2105
classItemMenu
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2106
    "This resource specification was automatically generated
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2107
     by the MenuEditor of ST/X."
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2108
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2109
    "Do not manually edit this!! If it is corrupted,
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2110
     the MenuEditor may not be able to read the specification."
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2111
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2112
    "
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2113
     MenuEditor new openOnClass:ProjectBrowser andSelector:#classItemMenu
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2114
     (Menu new fromLiteralArrayEncoding:(ProjectBrowser classItemMenu)) startUp
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2115
    "
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2116
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2117
    <resource: #menu>
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2118
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2119
    ^ 
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2120
     #(#Menu
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2121
	#(
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2122
	 #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2123
	    #label: 'Remove from Project...'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2124
	    #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2125
	    #value: #removeClassFromProject
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2126
	    #enabled: #hasClassesSelectedHolder
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2127
	  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2128
	 #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2129
	    #label: '-'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2130
	  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2131
	 #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2132
	    #label: 'Browse...'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2133
	    #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2134
	    #value: #browseClass
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2135
	    #enabled: #hasClassesSelectedHolder
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2136
	  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2137
	 )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2138
	nil
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2139
	nil
1094
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2140
      )
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2141
!
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2142
1052
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  2143
classesItemMenu
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  2144
    "This resource specification was automatically generated
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  2145
     by the MenuEditor of ST/X."
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  2146
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  2147
    "Do not manually edit this!! If it is corrupted,
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  2148
     the MenuEditor may not be able to read the specification."
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  2149
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  2150
    "
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  2151
     MenuEditor new openOnClass:ProjectBrowser andSelector:#classesItemMenu
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  2152
     (Menu new fromLiteralArrayEncoding:(ProjectBrowser classesItemMenu)) startUp
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  2153
    "
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  2154
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  2155
    <resource: #menu>
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  2156
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  2157
    ^
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  2158
     
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  2159
       #(#Menu
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  2160
          
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2161
	   #(
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2162
	     #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2163
		#label: 'Add Class...'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2164
		#translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2165
		#value: #addClass
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2166
		#enabled: #hasClassesSelectedHolder
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2167
	    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2168
	     #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2169
		#label: 'Add Classes found in image'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2170
		#translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2171
		#value: #addClassesFromImage
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2172
		#enabled: #hasClassesSelectedHolder
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2173
	    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2174
	     #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2175
		#label: 'Add Classes from files found in directory'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2176
		#translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2177
		#value: #addClassesFromFilesInDirectory
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2178
		#enabled: #hasClassesSelectedHolder
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2179
	    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2180
	     #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2181
		#label: 'Add Classes from files found in directory if present in image'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2182
		#translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2183
		#value: #addClassesFromFilesInDirectoryIfPresentInImage
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2184
		#enabled: #hasClassesSelectedHolder
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2185
	    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2186
	     #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2187
		#label: '-'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2188
	    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2189
	     #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2190
		#label: 'Load Classes from Directory'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2191
		#translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2192
		#value: #loadClassesFromDirectory
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2193
		#enabled: #canLoadClassesFromDirectory
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2194
	    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2195
	     #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2196
		#label: 'Load Classes from Repository'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2197
		#translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2198
		#value: #loadClassesFromRepository
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2199
		#enabled: #canLoadClassesFromRepository
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2200
	    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2201
	     #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2202
		#label: '-'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2203
	    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2204
	     #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2205
		#label: 'Validate...'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2206
		#translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2207
		#value: #validateAgainstClassesInImage
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2208
		#enabled: #hasClassesSelectedHolder
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2209
	    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2210
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2211
	     #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2212
		#label: '-'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2213
	    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2214
	     #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2215
		#label: 'Browse...'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2216
		#translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2217
		#value: #browseClasses
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2218
		#enabled: #hasClassesSelectedHolder
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2219
	    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2220
	  ) nil
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2221
	  nil
1052
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  2222
      )
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  2223
!
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  2224
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2225
mainMenu
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2226
    "This resource specification was automatically generated
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2227
     by the MenuEditor of ST/X."
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2228
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2229
    "Do not manually edit this!! If it is corrupted,
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2230
     the MenuEditor may not be able to read the specification."
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2231
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2232
    "
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2233
     MenuEditor new openOnClass:ProjectBrowser andSelector:#mainMenu
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2234
     (Menu new fromLiteralArrayEncoding:(ProjectBrowser mainMenu)) startUp
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2235
    "
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2236
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2237
    <resource: #menu>
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2238
1085
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2239
    ^ 
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2240
     #(#Menu
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2241
	#(
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2242
	 #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2243
	    #label: 'File'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2244
	    #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2245
	    #submenu: 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2246
	   #(#Menu
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2247
	      #(
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2248
	       #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2249
		  #label: 'New'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2250
		  #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2251
		  #value: #newProject
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2252
		)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2253
	       #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2254
		  #label: '-'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2255
		)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2256
	       #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2257
		  #label: 'Load From...'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2258
		  #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2259
		  #value: #openProject
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2260
		  #activeHelpKey: #openProject
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2261
		)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2262
	       #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2263
		  #label: 'Load Project Code'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2264
		  #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2265
		  #value: #loadProjectCode
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2266
		  #enabled: #hasProjectSelectedAndProjectFilenameHolder
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2267
		  #activeHelpKey: #loadProjectCode
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2268
		)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2269
	       #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2270
		  #label: '-'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2271
		)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2272
	       #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2273
		  #label: 'Save Project File'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2274
		  #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2275
		  #value: #saveProjectFile
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2276
		  #enabled: #hasProjectSelectedAndProjectFilenameHolder
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2277
		  #activeHelpKey: #saveProjectFile
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2278
		)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2279
	       #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2280
		  #label: 'Save Project Code'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2281
		  #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2282
		  #value: #saveProjectCode
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2283
		  #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2284
		)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2285
	       #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2286
		  #label: 'Save All'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2287
		  #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2288
		  #value: #saveAll
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2289
		  #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2290
		)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2291
	       #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2292
		  #label: '-'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2293
		)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2294
	       #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2295
		  #label: 'Exit'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2296
		  #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2297
		  #value: #closeRequest
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2298
		)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2299
	       )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2300
	      nil
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2301
	      nil
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2302
	    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2303
	  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2304
	 #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2305
	    #label: 'Repository'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2306
	    #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2307
	    #submenu: 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2308
	   #(#Menu
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2309
	      #(
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2310
	       #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2311
		  #label: 'CheckIn All'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2312
		  #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2313
		  #value: #checkInProject
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2314
		  #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2315
		)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2316
	       #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2317
		  #label: '-'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2318
		)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2319
	       #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2320
		  #label: 'CheckIn Classes'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2321
		  #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2322
		  #value: #checkInAllClasses
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2323
		  #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2324
		)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2325
	       #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2326
		  #label: 'CheckIn Extensions'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2327
		  #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2328
		  #value: #checkInMethods
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2329
		  #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2330
		)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2331
	       #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2332
		  #label: 'CheckIn Project File'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2333
		  #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2334
		  #value: #checkInProjectFile
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2335
		  #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2336
		)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2337
	       #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2338
		  #label: 'CheckIn Makefiles'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2339
		  #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2340
		  #value: #checkInMakefiles
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2341
		  #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2342
		)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2343
	       )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2344
	      nil
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2345
	      nil
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2346
	    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2347
	  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2348
	 #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2349
	    #label: 'View'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2350
	    #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2351
	    #submenu: 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2352
	   #(#Menu
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2353
	      #(
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2354
	       #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2355
		  #label: 'Current Project'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2356
		  #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2357
		  #choice: #showWhat
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2358
		  #choiceValue: #current
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2359
		)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2360
	       #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2361
		  #label: 'Non BaseSystem Projects'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2362
		  #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2363
		  #choice: #showWhat
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2364
		  #choiceValue: #userProjects
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2365
		)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2366
	       #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2367
		  #label: 'All Projects'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2368
		  #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2369
		  #choice: #showWhat
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2370
		  #choiceValue: #all
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2371
		)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2372
	       #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2373
		  #label: '-'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2374
		)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2375
	       #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2376
		  #label: 'Update'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2377
		  #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2378
		  #value: #updateListOfProjects
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2379
		)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2380
	       )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2381
	      nil
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2382
	      nil
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2383
	    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2384
	  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2385
	 #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2386
	    #label: 'Project'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2387
	    #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2388
	    #submenuChannel: #projectItemMenu
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2389
	  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2390
	 #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2391
	    #label: 'Build'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2392
	    #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2393
	    #submenu: 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2394
	   #(#Menu
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2395
	      #(
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2396
	       #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2397
		  #label: 'All'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2398
		  #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2399
		  #value: #buildAll
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2400
		  #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2401
		)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2402
	       #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2403
		  #label: '-'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2404
		)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2405
	       #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2406
		  #label: 'Make.proto && Makefile'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2407
		  #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2408
		  #value: #buildMakefiles
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2409
		  #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2410
		)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2411
	       #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2412
		  #label: 'Makefile'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2413
		  #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2414
		  #value: #buildMakefile
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2415
		  #isVisible: #osIsUnix
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2416
		  #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2417
		)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2418
	       #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2419
		  #label: 'Makefile for windows (nt.mak)'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2420
		  #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2421
		  #value: #buildNTMakefile
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2422
		  #isVisible: #osIsWindows
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2423
		  #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2424
		)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2425
	       #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2426
		  #label: 'LoadAll file'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2427
		  #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2428
		  #value: #buildLoadAllFile
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2429
		  #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2430
		)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2431
	       #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2432
		  #label: 'abbrev file (for autoload)'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2433
		  #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2434
		  #value: #buildAbbrevFile
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2435
		  #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2436
		)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2437
	       #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2438
		  #label: 'Binary class library (non portable)'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2439
		  #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2440
		  #value: #buildCompiledClassLibrary
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2441
		  #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2442
		)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2443
	       #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2444
		  #label: 'Bytecode class library (portable)'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2445
		  #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2446
		  #value: #buildByteCodeClassLibrary
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2447
		  #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2448
		)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2449
	       #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2450
		  #label: 'Zip archive'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2451
		  #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2452
		  #value: #buildZipArchive
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2453
		  #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2454
		)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2455
	       )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2456
	      nil
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2457
	      nil
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2458
	    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2459
	  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2460
	 #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2461
	    #label: 'Help'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2462
	    #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2463
	    #startGroup: #right
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2464
	    #submenu: 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2465
	   #(#Menu
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2466
	      #(
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2467
	       #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2468
		  #label: 'Documentation'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2469
		  #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2470
		  #value: #openDocumentation
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2471
		)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2472
	       #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2473
		  #label: '-'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2474
		)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2475
	       #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2476
		  #label: 'About this Application'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2477
		  #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2478
		  #value: #openAboutThisApplication
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2479
		)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2480
	       )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2481
	      nil
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2482
	      nil
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2483
	    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2484
	  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2485
	 )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2486
	nil
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2487
	nil
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2488
      )
1278
b9769689b45c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1267
diff changeset
  2489
1298
64cfa48905dc nt makefiles.
Claus Gittinger <cg@exept.de>
parents: 1293
diff changeset
  2490
    "Modified: / 19.1.2000 / 16:52:31 / cg"
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2491
!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2492
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2493
methodItemMenu
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2494
    "This resource specification was automatically generated
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2495
     by the MenuEditor of ST/X."
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2496
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2497
    "Do not manually edit this!! If it is corrupted,
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2498
     the MenuEditor may not be able to read the specification."
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2499
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2500
    "
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2501
     MenuEditor new openOnClass:ProjectBrowser andSelector:#menu
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2502
     (Menu new fromLiteralArrayEncoding:(ProjectBrowser menu)) startUp
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2503
    "
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2504
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2505
    <resource: #menu>
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2506
1116
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  2507
    ^ 
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  2508
     #(#Menu
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2509
	#(
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2510
	 #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2511
	    #label: 'Browse'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2512
	    #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2513
	    #value: #browseMethod
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2514
	  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2515
	 #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2516
	    #label: 'Browse Full'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2517
	    #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2518
	    #value: #browseMethodFull
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2519
	  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2520
	 #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2521
	    #label: '-'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2522
	  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2523
	 #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2524
	    #label: 'Remove...'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2525
	    #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2526
	    #value: #removeMethod
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2527
	  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2528
	 #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2529
	    #label: 'Remove from Project...'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2530
	    #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2531
	    #value: #removeMethodFromProject
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2532
	  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2533
	 #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2534
	    #label: 'Move to Project...'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2535
	    #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2536
	    #value: #moveMethodToProject
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2537
	  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2538
	 )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2539
	nil
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2540
	nil
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2541
      )
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2542
!
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2543
1255
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  2544
methodsItemMenu
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  2545
    "This resource specification was automatically generated
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  2546
     by the MenuEditor of ST/X."
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  2547
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  2548
    "Do not manually edit this!! If it is corrupted,
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  2549
     the MenuEditor may not be able to read the specification."
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  2550
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  2551
    "
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  2552
     MenuEditor new openOnClass:ProjectBrowser andSelector:#menu
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  2553
     (Menu new fromLiteralArrayEncoding:(ProjectBrowser menu)) startUp
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  2554
    "
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  2555
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  2556
    <resource: #menu>
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  2557
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  2558
    ^ 
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  2559
     #(#Menu
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2560
	#(
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2561
	     #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2562
		#label: 'Validate...'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2563
		#translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2564
		#value: #validateAgainstMethodsInImage
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2565
		#enabled: #hasMethodsSelectedHolder
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2566
	    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2567
	 )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2568
	nil
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2569
	nil
1255
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  2570
      )
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  2571
!
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  2572
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2573
noItemMenu
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2574
    "This resource specification was automatically generated
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2575
     by the MenuEditor of ST/X."
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2576
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2577
    "Do not manually edit this!! If it is corrupted,
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2578
     the MenuEditor may not be able to read the specification."
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2579
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2580
    "
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2581
     MenuEditor new openOnClass:ProjectBrowser andSelector:#projectItemMenu
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2582
     (Menu new fromLiteralArrayEncoding:(ProjectBrowser projectItemMenu)) startUp
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2583
    "
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2584
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2585
    <resource: #menu>
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2586
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2587
    ^
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2588
     
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2589
       #(#Menu
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2590
          
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2591
	   #(
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2592
	     #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2593
		#label: 'New Project'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2594
		#translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2595
		#value: #newProject
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2596
	    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2597
	  ) nil
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2598
	  nil
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2599
      )
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2600
!
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2601
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2602
prerequisiteClassesItemMenu
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2603
    "This resource specification was automatically generated
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2604
     by the MenuEditor of ST/X."
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2605
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2606
    "Do not manually edit this!! If it is corrupted,
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2607
     the MenuEditor may not be able to read the specification."
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2608
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2609
    "
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2610
     MenuEditor new openOnClass:ProjectBrowser andSelector:#prerequisiteClassesItemMenu
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2611
     (Menu new fromLiteralArrayEncoding:(ProjectBrowser prerequisiteClassesItemMenu)) startUp
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2612
    "
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2613
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2614
    <resource: #menu>
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2615
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2616
    ^ 
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2617
     #(#Menu
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2618
	#(
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2619
	 #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2620
	    #label: 'Update'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2621
	    #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2622
	    #value: #updateListOfRequiredPrerequisiteClasses
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2623
	    #enabled: #hasClassesSelectedHolder
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2624
	  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2625
	 )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2626
	nil
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2627
	nil
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2628
      )
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2629
!
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2630
1291
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  2631
prerequisitePackagesItemMenu
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  2632
    "This resource specification was automatically generated
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  2633
     by the MenuEditor of ST/X."
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  2634
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  2635
    "Do not manually edit this!! If it is corrupted,
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  2636
     the MenuEditor may not be able to read the specification."
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  2637
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  2638
    "
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  2639
     MenuEditor new openOnClass:ProjectBrowser andSelector:#prerequisiteClassesItemMenu
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  2640
     (Menu new fromLiteralArrayEncoding:(ProjectBrowser prerequisiteClassesItemMenu)) startUp
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  2641
    "
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  2642
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  2643
    <resource: #menu>
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  2644
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  2645
    ^ 
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  2646
     #(#Menu
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2647
	#(
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2648
	 #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2649
	    #label: 'Add package...'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2650
	    #translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2651
	    #value: #addPrerequisitePackage
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2652
	  )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2653
	 )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2654
	nil
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2655
	nil
1291
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  2656
      )
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  2657
!
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  2658
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2659
projectItemMenu
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2660
    "This resource specification was automatically generated
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2661
     by the MenuEditor of ST/X."
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2662
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2663
    "Do not manually edit this!! If it is corrupted,
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2664
     the MenuEditor may not be able to read the specification."
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2665
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2666
    "
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2667
     MenuEditor new openOnClass:ProjectBrowser andSelector:#projectItemMenu
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2668
     (Menu new fromLiteralArrayEncoding:(ProjectBrowser projectItemMenu)) startUp
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2669
    "
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2670
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2671
    <resource: #menu>
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2672
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2673
    ^
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2674
     
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2675
       #(#Menu
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2676
          
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2677
	   #(
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2678
	     #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2679
		#label: 'Load Project'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2680
		#translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2681
		#value: #loadProject
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2682
		#enabled: #canLoadCurrentProjectHolder
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2683
	    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2684
	     #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2685
		#label: 'Unload Project'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2686
		#translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2687
		#value: #unloadProject
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2688
		#enabled: #canUnloadCurrentProjectHolder
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2689
	    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2690
	     #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2691
		#label: '-'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2692
	    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2693
	     #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2694
		#label: 'Make Current'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2695
		#translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2696
		#value: #makeCurrentProject
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2697
		#enabled: #hasProjectSelectedHolder
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2698
	    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2699
	     #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2700
		#label: 'Inspect'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2701
		#translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2702
		#value: #inspectCurrentProject
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2703
		#enabled: #hasProjectSelectedHolder
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2704
	    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2705
	     #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2706
		#label: '-'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2707
	    )
1267
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  2708
"/             #(#MenuItem
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  2709
"/                #label: 'New SubProject'
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  2710
"/                #translateLabel: true
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  2711
"/                #value: #newSubProject
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  2712
"/                #enabled: #hasProjectSelectedHolder
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  2713
"/            )
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  2714
"/             #(#MenuItem
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  2715
"/                #label: '-'
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  2716
"/            )
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2717
	     #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2718
		#label: 'Rename...'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2719
		#translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2720
		#value: #renameProject
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2721
		#enabled: #hasProjectSelectedHolder
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2722
	    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2723
	     #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2724
		#label: '-'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2725
	    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2726
	     #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2727
		#label: 'Remove...'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2728
		#translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2729
		#value: #removeProject
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2730
		#enabled: #hasProjectSelectedHolder
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2731
	    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2732
	  ) nil
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2733
	  nil
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2734
      )
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2735
!
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2736
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2737
subProjectsItemMenu
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2738
    "This resource specification was automatically generated
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2739
     by the MenuEditor of ST/X."
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2740
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2741
    "Do not manually edit this!! If it is corrupted,
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2742
     the MenuEditor may not be able to read the specification."
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2743
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2744
    "
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2745
     MenuEditor new openOnClass:ProjectBrowser andSelector:#subProjectsItemMenu
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2746
     (Menu new fromLiteralArrayEncoding:(ProjectBrowser subProjectsItemMenu)) startUp
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2747
    "
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2748
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2749
    <resource: #menu>
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2750
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2751
    ^
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2752
     
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2753
       #(#Menu
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2754
          
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2755
	   #(
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2756
	     #(#MenuItem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2757
		#label: 'New SubProject'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2758
		#translateLabel: true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2759
		#value: #newSubProject
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2760
		#enabled: #hasSubProjectsSelectedHolder
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2761
	    )
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2762
	  ) nil
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2763
	  nil
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2764
      )
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2765
! !
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2766
1095
660185e02224 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1094
diff changeset
  2767
!ProjectBrowser class methodsFor:'startup'!
660185e02224 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1094
diff changeset
  2768
660185e02224 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1094
diff changeset
  2769
openOnFile:aFilename
1224
825e6e9fc37f expand the path to the load project
Claus Gittinger <cg@exept.de>
parents: 1223
diff changeset
  2770
    |project browser nodes theNode|
1095
660185e02224 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1094
diff changeset
  2771
660185e02224 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1094
diff changeset
  2772
    browser := self new.
660185e02224 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1094
diff changeset
  2773
    browser allButOpen.
1224
825e6e9fc37f expand the path to the load project
Claus Gittinger <cg@exept.de>
parents: 1223
diff changeset
  2774
    project := browser loadFromProjectFile:aFilename.
1239
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
  2775
    browser expandPathToNodeFor:project.
1095
660185e02224 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1094
diff changeset
  2776
    browser openWindow
660185e02224 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1094
diff changeset
  2777
! !
660185e02224 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1094
diff changeset
  2778
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2779
!ProjectBrowser class methodsFor:'tableColumns specs'!
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2780
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2781
classTableColumns
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2782
    "This resource specification was automatically generated
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2783
     by the DataSetBuilder of ST/X."
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2784
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2785
    "Do not manually edit this!! If it is corrupted,
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2786
     the DataSetBuilder may not be able to read the specification."
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2787
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2788
    "
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2789
     DataSetBuilder new openOnClass:ProjectBrowser andSelector:#classTableColumns
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2790
    "
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2791
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2792
    <resource: #tableColumns>
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2793
1235
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  2794
    ^#(
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  2795
      #(#DataSetColumnSpec
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2796
	 #label: 'Class'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2797
	 #id: 'classColumn'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2798
	 #labelAlignment: #left
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2799
	 #model: #classNameFromClassInfo:
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2800
       )
1235
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  2801
      #(#DataSetColumnSpec
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2802
	 #label: 'Included'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2803
	 #id: 'inclusion'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2804
	 #width: 150
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2805
	 #editorType: #ComboList
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2806
	 #choices: #listOfPossibleConditions:
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2807
	 #model: #classIncludeConditionFromClassInfo:
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2808
	 #writeSelector: #classIncludeConditionFromClassInfo:put:
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2809
       )
1235
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  2810
      #(#DataSetColumnSpec
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2811
	 #label: 'Filename'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2812
	 #labelAlignment: #left
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2813
	 #minWidth: 200
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2814
	 #model: #classFilenameFromClassInfo:
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2815
       )
1235
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  2816
      )
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  2817
    
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  2818
!
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  2819
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  2820
patchesTableColumns
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  2821
    "This resource specification was automatically generated
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  2822
     by the DataSetBuilder of ST/X."
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  2823
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  2824
    "Do not manually edit this!! If it is corrupted,
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  2825
     the DataSetBuilder may not be able to read the specification."
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  2826
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  2827
    "
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  2828
     DataSetBuilder new openOnClass:ProjectBrowser andSelector:#patchesTableColumns
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  2829
    "
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  2830
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  2831
    <resource: #tableColumns>
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  2832
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2833
    ^#(
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2834
      #(#DataSetColumnSpec
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2835
	 #label: 'Class'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2836
	 #id: 'classColumn'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2837
	 #labelAlignment: #left
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2838
	 #menu: #patchesMethodMenu
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2839
	 #model: #classNameFromMethodInfo:
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2840
	 #doubleClickedSelector: #methodPatchDoubleClick:
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2841
	 #canSelect: false
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  2842
       )
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2843
      #(#DataSetColumnSpec
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2844
	 #label: 'Selector'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2845
	 #id: 'selectorColumn'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2846
	 #labelAlignment: #left
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2847
	 #model: #selectorFromMethodInfo:
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2848
	 #canSelect: false
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  2849
       )
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2850
      )
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2851
    
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2852
! !
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2853
1099
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  2854
!ProjectBrowser methodsFor:'accessing'!
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  2855
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  2856
selectedTreeNode
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  2857
    "automatically generated by UIPainter ..."
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  2858
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  2859
    ^ self selectedTreeNodeHolder value
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  2860
! !
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  2861
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2862
!ProjectBrowser methodsFor:'aspects'!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2863
1108
e88edf4a8cbe editFields - accept
Claus Gittinger <cg@exept.de>
parents: 1107
diff changeset
  2864
acceptChannel
e88edf4a8cbe editFields - accept
Claus Gittinger <cg@exept.de>
parents: 1107
diff changeset
  2865
    |holder|
e88edf4a8cbe editFields - accept
Claus Gittinger <cg@exept.de>
parents: 1107
diff changeset
  2866
e88edf4a8cbe editFields - accept
Claus Gittinger <cg@exept.de>
parents: 1107
diff changeset
  2867
    (holder := builder bindingAt:#acceptChannel) isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2868
	holder := false asValue.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2869
	builder aspectAt:#acceptChannel put:holder.
1108
e88edf4a8cbe editFields - accept
Claus Gittinger <cg@exept.de>
parents: 1107
diff changeset
  2870
    ].
e88edf4a8cbe editFields - accept
Claus Gittinger <cg@exept.de>
parents: 1107
diff changeset
  2871
    ^ holder.
e88edf4a8cbe editFields - accept
Claus Gittinger <cg@exept.de>
parents: 1107
diff changeset
  2872
e88edf4a8cbe editFields - accept
Claus Gittinger <cg@exept.de>
parents: 1107
diff changeset
  2873
    "Created: / 23.3.1999 / 14:18:05 / cg"
e88edf4a8cbe editFields - accept
Claus Gittinger <cg@exept.de>
parents: 1107
diff changeset
  2874
!
e88edf4a8cbe editFields - accept
Claus Gittinger <cg@exept.de>
parents: 1107
diff changeset
  2875
1094
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2876
browseClass
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2877
    |node classOrClassName cls|
1094
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2878
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2879
    self hasClassNodeSelected ifFalse:[^ self].
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2880
1099
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  2881
    node := self selectedTreeNode.
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2882
    classOrClassName := node contents value.
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2883
    classOrClassName isBehavior ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2884
	cls := classOrClassName.
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2885
    ] ifFalse:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2886
	cls := Smalltalk at:classOrClassName.
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2887
    ].
1094
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2888
    cls isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2889
	self information:'The class is not (yet) loaded'.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2890
	^ self.
1094
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2891
    ].
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2892
    cls isLoaded ifFalse:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2893
	self information:'The class is an autoloaded class.'.
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2894
    ].
1094
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2895
    SystemBrowser openInClass:cls selector:nil.
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2896
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2897
!
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2898
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2899
canAddSelectedClassToPrerequisites
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2900
    |holder|
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2901
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2902
    (holder := builder bindingAt:#canAddSelectedClassToPrerequisites) isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2903
	holder := BlockValue 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2904
			with:[:m | self canAddClassToPrerequisites:m] 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2905
			argument:(self selectedClassInPrerequisites).
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2906
	builder aspectAt:#canAddSelectedClassToPrerequisites put:holder.
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2907
    ].
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2908
    ^ holder.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2909
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2910
    "Created: / 23.3.1999 / 14:18:05 / cg"
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2911
!
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2912
1089
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2913
canAddSelectedProjectToPrerequisites
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2914
    |holder|
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2915
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2916
    (holder := builder bindingAt:#canAddSelectedProjectToPrerequisites) isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2917
	holder := BlockValue 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2918
			with:[:m | self canAddProjectToPrerequisites:m] 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2919
			argument:(self selectedProjectInPrerequisites).
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2920
	builder aspectAt:#canAddSelectedProjectToPrerequisites put:holder.
1089
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2921
    ].
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2922
    ^ holder.
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2923
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2924
    "Created: / 23.3.1999 / 14:18:05 / cg"
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2925
!
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2926
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2927
canDeliverBinaryForMacOS
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2928
    ^ OperatingSystem platformName == #macOS
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2929
!
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2930
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2931
canDeliverBinaryForUnix
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2932
    ^ OperatingSystem platformName == #unix 
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2933
!
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2934
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2935
canDeliverBinaryForVMS
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2936
    ^ OperatingSystem platformName == #vms 
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2937
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2938
!
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2939
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2940
canDeliverBinaryForWin32
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2941
    ^ OperatingSystem platformName == #win32 
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2942
!
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2943
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2944
canDeliverForMacOS
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2945
    |holder|
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2946
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2947
    (holder := builder bindingAt:#canDeliverForMacOS) isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2948
	holder := BlockValue 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2949
			with:[:a1 :a2 | a1 or:[a2 not]] 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2950
			arguments:(Array 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2951
					with:self canDeliverBinaryForMacOS
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2952
					with:self deliverCompiledBinary).
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2953
	builder aspectAt:#canDeliverForMacOS put:holder.
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2954
    ].
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2955
    ^ holder.
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2956
!
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2957
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2958
canDeliverForUnix
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2959
    |holder|
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2960
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2961
    (holder := builder bindingAt:#canDeliverForUnix) isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2962
	holder := BlockValue 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2963
			with:[:a1 :a2 | a1 or:[a2 not]] 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2964
			arguments:(Array 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2965
					with:self canDeliverBinaryForUnix
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2966
					with:self deliverCompiledBinary).
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2967
	builder aspectAt:#canDeliverForUnix put:holder.
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2968
    ].
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2969
    ^ holder.
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2970
!
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2971
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2972
canDeliverForVMS
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2973
    |holder|
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2974
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2975
    (holder := builder bindingAt:#canDeliverForVMS) isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2976
	holder := BlockValue 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2977
			with:[:a1 :a2 | a1 or:[a2 not]] 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2978
			arguments:(Array 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2979
					with:self canDeliverBinaryForVMS
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2980
					with:self deliverCompiledBinary).
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2981
	builder aspectAt:#canDeliverForVMS put:holder.
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2982
    ].
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2983
    ^ holder.
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2984
!
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2985
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2986
canDeliverForWin32
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2987
    |holder|
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2988
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2989
    (holder := builder bindingAt:#canDeliverForWin32) isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2990
	holder := BlockValue 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2991
			with:[:a1 :a2 | a1 or:[a2 not]] 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2992
			arguments:(Array 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2993
					with:self canDeliverBinaryForWin32
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2994
					with:self deliverCompiledBinary).
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  2995
	builder aspectAt:#canDeliverForWin32 put:holder.
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2996
    ].
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2997
    ^ holder.
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2998
!
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2999
1291
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  3000
canLoadCurrentProjectHolder
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  3001
    |holder|
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  3002
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  3003
    (holder := builder bindingAt:#canLoadCurrentProjectHolder) isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3004
	holder := false asValue.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3005
	builder aspectAt:#canLoadCurrentProjectHolder put:holder.
1291
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  3006
    ].
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  3007
    ^ holder.
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  3008
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  3009
    "Modified: / 26.4.1999 / 22:47:33 / cg"
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  3010
!
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  3011
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3012
canRemoveSelectedClassFromPrerequisites
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3013
    |holder|
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3014
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3015
    (holder := builder bindingAt:#canRemoveSelectedClassFromPrerequisites) isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3016
	holder := BlockValue with:[:m | m notNil] argument:(self selectedRequiredClassInPrerequisites).
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3017
	builder aspectAt:#canRemoveSelectedClassFromPrerequisites put:holder.
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3018
    ].
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3019
    ^ holder.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3020
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3021
    "Created: / 23.3.1999 / 14:18:05 / cg"
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3022
!
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3023
1089
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3024
canRemoveSelectedProjectFromPrerequisites
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3025
    |holder|
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3026
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3027
    (holder := builder bindingAt:#canRemoveSelectedProjectFromPrerequisites) isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3028
	holder := BlockValue with:[:m | m notNil] argument:(self selectedRequiredProjectInPrerequisites).
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3029
	builder aspectAt:#canRemoveSelectedProjectFromPrerequisites put:holder.
1089
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3030
    ].
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3031
    ^ holder.
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3032
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3033
    "Created: / 23.3.1999 / 14:18:05 / cg"
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3034
!
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3035
1291
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  3036
canUnloadCurrentProjectHolder
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  3037
    |holder|
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  3038
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  3039
    (holder := builder bindingAt:#canUnloadCurrentProjectHolder) isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3040
	holder := false asValue.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3041
	builder aspectAt:#canUnloadCurrentProjectHolder put:holder.
1291
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  3042
    ].
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  3043
    ^ holder.
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  3044
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  3045
    "Modified: / 26.4.1999 / 22:47:33 / cg"
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  3046
!
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  3047
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3048
classList
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3049
    "automatically generated by UIPainter ..."
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3050
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3051
    |holder|
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3052
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3053
    (holder := builder bindingAt:#classList) isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3054
	builder aspectAt:#classList put:(holder :=  List new).
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3055
    ].
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3056
    ^ holder.
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3057
!
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3058
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3059
classTableAdaptor
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3060
    ^ self
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3061
!
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3062
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3063
classTableColumns
1038
41da0e38af84 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1037
diff changeset
  3064
    ^ self class classTableColumns
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3065
!
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3066
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3067
currentCanvasHolder
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3068
    "automatically generated by UIPainter ..."
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3069
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3070
    |holder|
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3071
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3072
    (holder := builder bindingAt:#currentCanvasHolder) isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3073
	builder aspectAt:#currentCanvasHolder put:(holder :=  ValueHolder new).
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3074
    ].
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3075
    ^ holder.
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3076
!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3077
1080
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3078
currentProjectWasNotLoadedFromFile
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3079
    "automatically generated by UIPainter ..."
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3080
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3081
    |holder|
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3082
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3083
    (holder := builder bindingAt:#currentProjectWasNotLoadedFromFile) isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3084
	builder aspectAt:#currentProjectWasNotLoadedFromFile put:(holder :=  ValueHolder new).
1080
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3085
    ].
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3086
    ^ holder.
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3087
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3088
    "Created: / 23.3.1999 / 14:01:09 / cg"
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3089
!
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3090
1229
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  3091
deliverByteCode
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  3092
    "automatically generated by UIPainter ..."
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  3093
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  3094
    |holder|
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  3095
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  3096
    (holder := builder bindingAt:#deliverByteCode) isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3097
	builder aspectAt:#deliverByteCode put:(holder :=  ValueHolder new).
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3098
	holder onChangeEvaluate:[modifiedChannel value:true].
1229
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  3099
    ].
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  3100
    ^ holder.
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  3101
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  3102
    "Created: / 23.3.1999 / 14:18:05 / cg"
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  3103
!
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  3104
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3105
deliverCompiledBinary
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3106
    "automatically generated by UIPainter ..."
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3107
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3108
    |holder|
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3109
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3110
    (holder := builder bindingAt:#deliverCompiledBinary) isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3111
	builder aspectAt:#deliverCompiledBinary put:(holder :=  ValueHolder new).
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3112
	holder onChangeEvaluate:[modifiedChannel value:true].
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3113
    ].
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3114
    ^ holder.
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3115
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3116
    "Created: / 23.3.1999 / 14:18:05 / cg"
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3117
!
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3118
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3119
deliverGZipArchive
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3120
    "automatically generated by UIPainter ..."
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3121
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3122
    |holder|
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3123
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3124
    (holder := builder bindingAt:#deliverGZipArchive) isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3125
	builder aspectAt:#deliverGZipArchive put:(holder :=  ValueHolder new).
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3126
	holder onChangeEvaluate:[modifiedChannel value:true].
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3127
    ].
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3128
    ^ holder.
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3129
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3130
    "Created: / 23.3.1999 / 14:18:05 / cg"
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3131
!
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3132
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3133
deliverLoadAllFile
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3134
    "automatically generated by UIPainter ..."
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3135
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3136
    |holder|
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3137
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3138
    (holder := builder bindingAt:#deliverLoadAllFile) isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3139
	builder aspectAt:#deliverLoadAllFile put:(holder :=  ValueHolder new).
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3140
	holder onChangeEvaluate:[modifiedChannel value:true].
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3141
    ].
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3142
    ^ holder.
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3143
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3144
    "Created: / 23.3.1999 / 14:18:05 / cg"
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3145
!
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3146
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3147
deliverMakefiles
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3148
    "automatically generated by UIPainter ..."
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3149
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3150
    |holder|
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3151
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3152
    (holder := builder bindingAt:#deliverMakefiles) isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3153
	builder aspectAt:#deliverMakefiles put:(holder :=  ValueHolder new).
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3154
	holder onChangeEvaluate:[modifiedChannel value:true].
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3155
    ].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3156
    ^ holder.
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3157
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3158
    "Created: / 23.3.1999 / 14:18:05 / cg"
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3159
!
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3160
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3161
deliverSources
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3162
    "automatically generated by UIPainter ..."
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3163
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3164
    |holder|
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3165
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3166
    (holder := builder bindingAt:#deliverSources) isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3167
	builder aspectAt:#deliverSources put:(holder :=  ValueHolder new).
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3168
	holder onChangeEvaluate:[modifiedChannel value:true].
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3169
    ].
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3170
    ^ holder.
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3171
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3172
    "Created: / 23.3.1999 / 14:18:05 / cg"
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3173
!
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3174
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3175
deliverTarArchive
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3176
    "automatically generated by UIPainter ..."
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3177
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3178
    |holder|
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3179
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3180
    (holder := builder bindingAt:#deliverTarArchive) isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3181
	builder aspectAt:#deliverTarArchive put:(holder :=  ValueHolder new).
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3182
	holder onChangeEvaluate:[modifiedChannel value:true].
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3183
    ].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3184
    ^ holder.
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3185
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3186
    "Created: / 23.3.1999 / 14:18:05 / cg"
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3187
!
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3188
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3189
deliverZipArchive
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3190
    "automatically generated by UIPainter ..."
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3191
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3192
    |holder|
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3193
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3194
    (holder := builder bindingAt:#deliverZipArchive) isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3195
	builder aspectAt:#deliverZipArchive put:(holder :=  ValueHolder new).
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3196
	holder onChangeEvaluate:[modifiedChannel value:true].
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3197
    ].
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3198
    ^ holder.
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3199
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3200
    "Created: / 23.3.1999 / 14:18:05 / cg"
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3201
!
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3202
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3203
hasProjectSelectedAndProjectFilenameHolder
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3204
    ^ [ |dir|
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3205
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3206
	dir := self projectDirectory value asFilename.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3207
	(dir exists and:[dir isDirectory]) ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3208
	    self hasProjectSelectedHolder value
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3209
	] ifFalse:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3210
	    false
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3211
	]
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3212
    ].
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3213
!
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3214
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3215
hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
1293
b83aae064c4d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1292
diff changeset
  3216
^ true.
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3217
    ^ [ |dir|
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3218
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3219
	dir := self projectDirectory value asFilename.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3220
	(dir exists and:[dir isDirectory]) ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3221
	    (self hasProjectSelectedHolder value) ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3222
		self projectCodeIsLoadedHolder value
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3223
	    ] ifFalse:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3224
		false.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3225
	    ]
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3226
	] ifFalse:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3227
	    false
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3228
	]
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3229
    ].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3230
!
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3231
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3232
hasProjectSelectedHolder
1116
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  3233
    |holder|
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  3234
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  3235
    (holder := builder bindingAt:#hasProjectSelectedHolder) isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3236
	holder := false asValue.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3237
	builder aspectAt:#hasProjectSelectedHolder put:holder.
1116
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  3238
    ].
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  3239
    ^ holder.
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  3240
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  3241
    "Modified: / 26.4.1999 / 22:47:33 / cg"
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3242
!
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3243
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3244
hasSubProjectsSelectedHolder
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3245
    ^ [
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3246
	self hasSubProjectsNodeSelected
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3247
      ]
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3248
!
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3249
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3250
htmlDocumentURLHolder
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3251
    "automatically generated by UIPainter ..."
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3252
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3253
    |holder|
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3254
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3255
    (holder := builder bindingAt:#htmlDocumentURLHolder) isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3256
	builder aspectAt:#htmlDocumentURLHolder put:(holder :=  ValueHolder new).
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3257
    ].
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3258
    ^ holder.
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3259
!
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3260
1149
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  3261
installDirectoryMacOS
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  3262
    "automatically generated by UIPainter ..."
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  3263
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  3264
    |holder|
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  3265
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  3266
    (holder := builder bindingAt:#installDirectoryMacOS) isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3267
	builder aspectAt:#installDirectoryMacOS put:(holder := '' asValue).
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3268
	holder onChangeSend:#value to:[modifiedChannel value:true].
1149
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  3269
    ].
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  3270
    ^ holder.
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  3271
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  3272
    "Created: / 23.3.1999 / 14:18:05 / cg"
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  3273
!
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  3274
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3275
installDirectoryUnix
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3276
    "automatically generated by UIPainter ..."
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3277
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3278
    |holder|
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3279
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3280
    (holder := builder bindingAt:#installDirectoryUnix) isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3281
	builder aspectAt:#installDirectoryUnix put:(holder := '/opt/smalltalk' asValue).
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3282
	holder onChangeEvaluate:[modifiedChannel value:true].
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3283
    ].
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3284
    ^ holder.
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3285
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3286
    "Created: / 23.3.1999 / 14:18:05 / cg"
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3287
!
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3288
1149
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  3289
installDirectoryVMS
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  3290
    "automatically generated by UIPainter ..."
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  3291
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  3292
    |holder|
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  3293
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  3294
    (holder := builder bindingAt:#installDirectoryVMS) isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3295
	builder aspectAt:#installDirectoryVMS put:(holder := '' asValue).
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3296
	holder onChangeEvaluate:[modifiedChannel value:true].
1149
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  3297
    ].
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  3298
    ^ holder.
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  3299
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  3300
    "Created: / 23.3.1999 / 14:18:05 / cg"
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  3301
!
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  3302
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3303
installDirectoryWin32
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3304
    "automatically generated by UIPainter ..."
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3305
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3306
    |holder|
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3307
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3308
    (holder := builder bindingAt:#installDirectoryWin32) isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3309
	builder aspectAt:#installDirectoryWin32 put:(holder := '\Programme\SmalltalkX' asValue).
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3310
	holder onChangeEvaluate:[modifiedChannel value:true].
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3311
    ].
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3312
    ^ holder.
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3313
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3314
    "Created: / 23.3.1999 / 14:18:05 / cg"
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3315
!
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3316
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3317
listOfAllClassesInPrerequisites
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3318
    |holder classes|
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3319
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3320
    (holder := builder bindingAt:#listOfAllClassesInPrerequisites) isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3321
	builder aspectAt:#listOfAllClassesInPrerequisites put:(holder := SortedCollection new asValue).
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3322
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3323
	"/ all unloaded classes and classes which where
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3324
	"/ loaded are candidates.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3325
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3326
	classes := Smalltalk allClasses 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3327
			select:[:cls |
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3328
				cls isMeta not
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3329
				and:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3330
				    cls isLoaded not
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3331
				    or:[cls wasAutoloaded]]
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3332
			       ].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3333
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3334
	"/ mark currently loaded classes as bold;
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3335
	"/ LATER: those which are superclasses of any of my classes bold-red.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3336
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3337
	classes := classes collect:[:cls | |nm|
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3338
					nm := cls name.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3339
					cls isLoaded ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3340
					    nm := nm asText allBold.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3341
					].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3342
					nm
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3343
				   ].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3344
	holder value addAll:classes.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3345
	self currentProject wasLoadedFromFile ifFalse:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3346
	    self updateListOfRequiredPrerequisiteClasses.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3347
	]
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3348
    ].
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3349
    ^ holder.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3350
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3351
    "Created: / 23.3.1999 / 14:18:05 / cg"
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3352
!
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3353
1089
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3354
listOfAllProjectsInPrerequisites
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3355
    "automatically generated by UIPainter ..."
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3356
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3357
    |holder projects currentProject|
1089
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3358
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3359
    (holder := builder bindingAt:#listOfAllProjectsInPrerequisites) isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3360
	builder aspectAt:#listOfAllProjectsInPrerequisites put:(holder := SortedCollection new asValue).
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3361
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3362
	currentProject := self currentProject.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3363
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3364
	projects := Set new.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3365
	Project allInstancesDo:[:p |
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3366
	    (p ~~ currentProject 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3367
	    and:[p ~~ Project defaultProject]) ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3368
		projects add:p name.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3369
	    ]
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3370
	].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3371
	holder value addAll:projects.
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3372
    ].
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3373
    ^ holder.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3374
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3375
    "Created: / 23.3.1999 / 14:18:05 / cg"
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3376
!
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3377
1235
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  3378
listOfPossibleConditions:aRow
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  3379
    ^ #( always never autoload '-' unix win32 vms macos)
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  3380
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  3381
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  3382
!
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  3383
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3384
listOfRequiredClassesInPrerequisites
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3385
    "automatically generated by UIPainter ..."
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3386
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3387
    |holder|
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3388
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3389
    (holder := builder bindingAt:#listOfRequiredClassesInPrerequisites) isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3390
	builder aspectAt:#listOfRequiredClassesInPrerequisites put:(holder := SortedCollection new asValue).
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3391
	self currentProject wasLoadedFromFile ifFalse:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3392
	    self updateListOfRequiredPrerequisiteClasses.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3393
	]
1089
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3394
    ].
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3395
    ^ holder.
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3396
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3397
    "Created: / 23.3.1999 / 14:18:05 / cg"
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3398
!
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3399
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3400
listOfRequiredProjectsInPrerequisites
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3401
    "automatically generated by UIPainter ..."
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3402
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3403
    |holder|
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3404
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3405
    (holder := builder bindingAt:#listOfRequiredProjectsInPrerequisites) isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3406
	builder aspectAt:#listOfRequiredProjectsInPrerequisites put:(holder := SortedCollection new asValue).
1089
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3407
    ].
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3408
    ^ holder.
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3409
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3410
    "Created: / 23.3.1999 / 14:18:05 / cg"
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3411
!
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3412
1234
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3413
makeDefines
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3414
    "automatically generated by UIPainter ..."
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3415
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3416
    |holder|
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3417
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3418
    (holder := builder bindingAt:#makeDefines) isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3419
	builder aspectAt:#makeDefines put:(holder := '' asValue).
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3420
	holder onChangeEvaluate:[modifiedChannel value:true].
1234
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3421
    ].
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3422
    ^ holder.
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3423
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3424
    "Created: / 23.3.1999 / 14:18:05 / cg"
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3425
!
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3426
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3427
makeIncludes
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3428
    "automatically generated by UIPainter ..."
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3429
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3430
    |holder|
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3431
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3432
    (holder := builder bindingAt:#makeIncludes) isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3433
	builder aspectAt:#makeIncludes put:(holder := '' asValue).
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3434
	holder onChangeEvaluate:[modifiedChannel value:true].
1234
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3435
    ].
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3436
    ^ holder.
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3437
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3438
    "Created: / 23.3.1999 / 14:18:05 / cg"
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3439
!
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3440
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3441
makeOtherWarningOptions
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3442
    "automatically generated by UIPainter ..."
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3443
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3444
    |holder|
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3445
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3446
    (holder := builder bindingAt:#makeOtherWarningOptions) isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3447
	builder aspectAt:#makeOtherWarningOptions put:(holder := '' asValue).
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3448
	holder onChangeEvaluate:[modifiedChannel value:true].
1234
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3449
    ].
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3450
    ^ holder.
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3451
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3452
    "Created: / 23.3.1999 / 14:18:05 / cg"
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3453
!
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3454
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3455
makeWarnEOLComments
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3456
    "automatically generated by UIPainter ..."
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3457
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3458
    |holder|
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3459
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3460
    (holder := builder bindingAt:#makeWarnEOLComments) isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3461
	builder aspectAt:#makeWarnEOLComments put:(holder := false asValue).
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3462
	holder onChangeEvaluate:[modifiedChannel value:true].
1234
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3463
    ].
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3464
    ^ holder.
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3465
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3466
    "Created: / 23.3.1999 / 14:18:05 / cg"
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3467
!
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3468
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3469
makeWarnNonStandard
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3470
    "automatically generated by UIPainter ..."
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3471
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3472
    |holder|
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3473
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3474
    (holder := builder bindingAt:#makeWarnNonStandard) isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3475
	builder aspectAt:#makeWarnNonStandard put:(holder := true asValue).
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3476
	holder onChangeEvaluate:[modifiedChannel value:true].
1234
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3477
    ].
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3478
    ^ holder.
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3479
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3480
    "Created: / 23.3.1999 / 14:18:05 / cg"
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3481
!
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3482
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3483
methodsFile
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3484
    "automatically generated by UIPainter ..."
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3485
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3486
    |holder|
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3487
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3488
    (holder := builder bindingAt:#methodsFile) isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3489
	builder aspectAt:#methodsFile put:(holder := '' asValue).
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3490
	holder onChangeEvaluate:[modifiedChannel value:true].
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3491
    ].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3492
    ^ holder.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3493
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3494
    "Created: / 23.3.1999 / 14:18:05 / cg"
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3495
!
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3496
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3497
modifiedChannel
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3498
    "automatically generated by UIPainter ..."
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3499
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3500
    modifiedChannel isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3501
	modifiedChannel := false asValue.
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3502
    ].
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3503
    ^ modifiedChannel.
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3504
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3505
!
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3506
1298
64cfa48905dc nt makefiles.
Claus Gittinger <cg@exept.de>
parents: 1293
diff changeset
  3507
osIsUnix
64cfa48905dc nt makefiles.
Claus Gittinger <cg@exept.de>
parents: 1293
diff changeset
  3508
    ^ OperatingSystem isUNIXlike
64cfa48905dc nt makefiles.
Claus Gittinger <cg@exept.de>
parents: 1293
diff changeset
  3509
64cfa48905dc nt makefiles.
Claus Gittinger <cg@exept.de>
parents: 1293
diff changeset
  3510
    "Created: / 19.1.2000 / 16:45:16 / cg"
64cfa48905dc nt makefiles.
Claus Gittinger <cg@exept.de>
parents: 1293
diff changeset
  3511
!
64cfa48905dc nt makefiles.
Claus Gittinger <cg@exept.de>
parents: 1293
diff changeset
  3512
64cfa48905dc nt makefiles.
Claus Gittinger <cg@exept.de>
parents: 1293
diff changeset
  3513
osIsWindows
64cfa48905dc nt makefiles.
Claus Gittinger <cg@exept.de>
parents: 1293
diff changeset
  3514
    ^ OperatingSystem isMSWINDOWSlike
64cfa48905dc nt makefiles.
Claus Gittinger <cg@exept.de>
parents: 1293
diff changeset
  3515
64cfa48905dc nt makefiles.
Claus Gittinger <cg@exept.de>
parents: 1293
diff changeset
  3516
    "Created: / 19.1.2000 / 16:37:33 / cg"
64cfa48905dc nt makefiles.
Claus Gittinger <cg@exept.de>
parents: 1293
diff changeset
  3517
    "Modified: / 19.1.2000 / 16:43:54 / cg"
64cfa48905dc nt makefiles.
Claus Gittinger <cg@exept.de>
parents: 1293
diff changeset
  3518
!
64cfa48905dc nt makefiles.
Claus Gittinger <cg@exept.de>
parents: 1293
diff changeset
  3519
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  3520
patchesList
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  3521
    "automatically generated by UIPainter ..."
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  3522
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  3523
    |holder|
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  3524
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  3525
    (holder := builder bindingAt:#patchesList) isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3526
	builder aspectAt:#patchesList put:(holder :=  List new).
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  3527
    ].
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  3528
    ^ holder.
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  3529
!
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  3530
1292
f5fcf9ef07ab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1291
diff changeset
  3531
projectCodeIsLoadedHolder
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3532
    "automatically generated by UIPainter ..."
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3533
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3534
    |holder|
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3535
1292
f5fcf9ef07ab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1291
diff changeset
  3536
    (holder := builder bindingAt:#projectCodeIsLoadedHolder) isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3537
	builder aspectAt:#projectCodeIsLoadedHolder put:(holder :=  ValueHolder new).
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3538
    ].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3539
    ^ holder.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3540
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3541
    "Created: / 23.3.1999 / 14:18:05 / cg"
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3542
!
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3543
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3544
projectDirectory
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3545
    "automatically generated by UIPainter ..."
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3546
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3547
    |holder|
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3548
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3549
    (holder := builder bindingAt:#projectDirectory) isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3550
	builder aspectAt:#projectDirectory put:(holder := '.' asValue).
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3551
	holder onChangeEvaluate:[modifiedChannel value:true].
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3552
    ].
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3553
    ^ holder.
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3554
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3555
    "Created: / 23.3.1999 / 14:18:05 / cg"
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3556
!
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3557
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3558
projectNamespace
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3559
    "automatically generated by UIPainter ..."
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3560
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3561
    |holder|
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3562
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3563
    (holder := builder bindingAt:#projectNamespace) isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3564
	builder aspectAt:#projectNamespace put:(holder :=  ValueHolder new).
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3565
	holder onChangeEvaluate:[modifiedChannel value:true].
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3566
    ].
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3567
    ^ holder.
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3568
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3569
    "Created: / 23.3.1999 / 14:18:05 / cg"
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3570
!
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3571
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3572
projectPackage
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3573
    |holder dir module|
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3574
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3575
    (holder := builder bindingAt:#projectPackage) isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3576
	builder aspectAt:#projectPackage put:(holder := '' asValue).
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3577
    ].
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3578
    holder value size == 0 ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3579
	(module := self repositoryModule value) notNil ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3580
	    (dir := self repositoryDirectory value) notNil ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3581
		holder value:(module , ':' , dir)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3582
	    ]
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3583
	]
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3584
    ].
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3585
    ^ holder.
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3586
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3587
    "Created: / 23.3.1999 / 14:18:05 / cg"
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3588
!
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3589
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3590
projectTreeHolder
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3591
    "automatically generated by UIPainter ..."
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3592
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3593
    |holder|
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3594
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3595
    (holder := builder bindingAt:#projectTree) isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3596
	builder aspectAt:#projectTree put:(holder :=  SelectionInTree new).
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3597
	holder root:self projectTree.
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3598
    ].
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3599
    ^ holder.
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3600
!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3601
1080
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3602
projectType
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3603
    "automatically generated by UIPainter ..."
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3604
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3605
    |holder|
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3606
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3607
    (holder := builder bindingAt:#projectType) isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3608
	builder aspectAt:#projectType put:(holder :=  ValueHolder new).
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3609
	holder onChangeEvaluate:[modifiedChannel value:true].
1080
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3610
    ].
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3611
    ^ holder.
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3612
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3613
    "Created: / 23.3.1999 / 14:18:05 / cg"
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3614
!
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3615
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3616
repositoryDirectory
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3617
    "automatically generated by UIPainter ..."
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3618
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3619
    |holder|
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3620
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3621
    (holder := builder bindingAt:#repositoryDirectory) isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3622
	builder aspectAt:#repositoryDirectory put:(holder :=  ValueHolder new).
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3623
	holder onChangeEvaluate:[modifiedChannel value:true].
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3624
    ].
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3625
    ^ holder.
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3626
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3627
    "Created: / 23.3.1999 / 14:18:05 / cg"
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3628
!
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3629
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3630
repositoryModule
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3631
    "automatically generated by UIPainter ..."
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3632
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3633
    |holder|
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3634
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3635
    (holder := builder bindingAt:#repositoryModule) isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3636
	builder aspectAt:#repositoryModule put:(holder :=  ValueHolder new).
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3637
	holder onChangeEvaluate:[modifiedChannel value:true].
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3638
    ].
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3639
    ^ holder.
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3640
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3641
    "Created: / 23.3.1999 / 14:18:05 / cg"
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3642
!
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3643
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3644
rightCanvasTextHolder
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3645
    "automatically generated by UIPainter ..."
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3646
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3647
    |holder|
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3648
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3649
    (holder := builder bindingAt:#rightCanvasTextHolder) isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3650
	builder aspectAt:#rightCanvasTextHolder put:(holder :=  ValueHolder new).
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3651
    ].
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3652
    ^ holder.
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3653
!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3654
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3655
selectedClassInPrerequisites
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3656
    "automatically generated by UIPainter ..."
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3657
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3658
    |holder|
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3659
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3660
    (holder := builder bindingAt:#selectedClassInPrerequisites) isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3661
	builder aspectAt:#selectedClassInPrerequisites put:(holder := ValueHolder new).
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3662
    ].
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3663
    ^ holder.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3664
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3665
    "Created: / 23.3.1999 / 14:18:05 / cg"
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3666
!
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3667
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3668
selectedPatchInRightCanvas
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3669
    "automatically generated by UIPainter ..."
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3670
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3671
    |holder|
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3672
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3673
    (holder := builder bindingAt:#selectedPatchInRightCanvas) isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3674
	builder aspectAt:#selectedPatchInRightCanvas put:(holder :=  ValueHolder new).
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3675
    ].
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3676
    ^ holder.
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3677
!
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3678
1089
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3679
selectedProjectInPrerequisites
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3680
    "automatically generated by UIPainter ..."
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3681
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3682
    |holder|
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3683
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3684
    (holder := builder bindingAt:#selectedProjectInPrerequisites) isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3685
	builder aspectAt:#selectedProjectInPrerequisites put:(holder := ValueHolder new).
1089
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3686
    ].
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3687
    ^ holder.
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3688
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3689
    "Created: / 23.3.1999 / 14:18:05 / cg"
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3690
!
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3691
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3692
selectedRequiredClassInPrerequisites
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3693
    "automatically generated by UIPainter ..."
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3694
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3695
    |holder|
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3696
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3697
    (holder := builder bindingAt:#selectedRequiredClassInPrerequisites) isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3698
	builder aspectAt:#selectedRequiredClassInPrerequisites put:(holder := ValueHolder new).
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3699
    ].
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3700
    ^ holder.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3701
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3702
    "Created: / 23.3.1999 / 14:18:05 / cg"
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3703
!
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3704
1089
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3705
selectedRequiredProjectInPrerequisites
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3706
    "automatically generated by UIPainter ..."
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3707
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3708
    |holder|
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3709
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3710
    (holder := builder bindingAt:#selectedRequiredProjectInPrerequisites) isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3711
	builder aspectAt:#selectedRequiredProjectInPrerequisites put:(holder := ValueHolder new).
1089
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3712
    ].
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3713
    ^ holder.
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3714
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3715
    "Created: / 23.3.1999 / 14:18:05 / cg"
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3716
!
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3717
1099
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  3718
selectedTreeNodeHolder
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3719
    "automatically generated by UIPainter ..."
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3720
1210
30bd57bbe9ce better tree
Claus Gittinger <cg@exept.de>
parents: 1207
diff changeset
  3721
    selectedTreeNodeHolder isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3722
	selectedTreeNodeHolder :=  ValueHolder new.
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3723
    ].
1210
30bd57bbe9ce better tree
Claus Gittinger <cg@exept.de>
parents: 1207
diff changeset
  3724
    ^ selectedTreeNodeHolder.
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3725
!
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3726
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3727
showWhat
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3728
    |holder|
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3729
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3730
    (holder := builder bindingAt:#showWhat) isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3731
	holder := ValueHolder new.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3732
	builder aspectAt:#showWhat put:holder.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3733
	holder onChangeSend:#projectFilterChanged to:self.
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3734
    ].
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3735
    ^ holder.
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3736
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3737
    "Created: / 23.3.1999 / 14:18:05 / cg"
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  3738
!
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  3739
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  3740
textCanvasLabelHolder
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  3741
    "automatically generated by UIPainter ..."
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  3742
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  3743
    |holder|
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  3744
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  3745
    (holder := builder bindingAt:#textCanvasLabelHolder) isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3746
	builder aspectAt:#textCanvasLabelHolder put:(holder :='' asValue).
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  3747
    ].
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  3748
    ^ holder.
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3749
! !
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3750
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3751
!ProjectBrowser methodsFor:'change & update'!
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3752
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3753
update:something with:aParameter from:changedObject
1254
ca6590dae738 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1253
diff changeset
  3754
    |cls sel oldMthd newMthd prj package|
ca6590dae738 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1253
diff changeset
  3755
1085
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  3756
    something == #name ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3757
	"/ a project was renamed - update my tree
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3758
	self projectTree children do:[:pNode |
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3759
	    pNode contents == changedObject ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3760
		pNode name:changedObject name.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3761
		pNode changed.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3762
	    ]
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3763
	].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3764
	^ self.
1085
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  3765
    ].
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  3766
1254
ca6590dae738 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1253
diff changeset
  3767
    prj := self currentProject.
ca6590dae738 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1253
diff changeset
  3768
    prj isNil ifTrue:[^ self].
ca6590dae738 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1253
diff changeset
  3769
ca6590dae738 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1253
diff changeset
  3770
    package := prj package.
ca6590dae738 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1253
diff changeset
  3771
ca6590dae738 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1253
diff changeset
  3772
    changedObject == prj ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3773
	self readAspectsFromProject.
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3774
    ].
1116
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  3775
1254
ca6590dae738 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1253
diff changeset
  3776
    changedObject == Smalltalk ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3777
	something == #newClass ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3778
	    aParameter isBehavior ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3779
		aParameter wasAutoloaded ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3780
		    self listOfAllClassesInPrerequisites add:something name.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3781
		    ^ self.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3782
		].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3783
		aParameter package = package ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3784
		    "/ a new class was added to the package;
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3785
		    "/ must look if already there, and possibly update my
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3786
		    "/ tree and classList
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3787
		    (self currentProject includesClass:aParameter) ifFalse:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3788
			self halt.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3789
		    ].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3790
		    ^ self.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3791
		]
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3792
	    ]
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3793
	].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3794
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3795
	something == #methodInClass ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3796
	    cls := aParameter first.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3797
	    sel := aParameter second.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3798
	    oldMthd := aParameter third.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3799
	    newMthd := cls compiledMethodAt:sel.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3800
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3801
	    cls package ~= package ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3802
		"/ method removed from project ?
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3803
		(oldMthd notNil and:[oldMthd package = package]) ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3804
		    (newMthd notNil and:[newMthd package ~= package]) ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3805
			"/ remove from methodList
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3806
		    ]
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3807
		].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3808
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3809
		"/ method added to project ?
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3810
		(oldMthd isNil or:[oldMthd package ~= package]) ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3811
		    (newMthd notNil and:[newMthd package = package]) ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3812
			"/ add to methodList
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3813
		    ]
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3814
		]
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3815
	    ]
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3816
	].
1254
ca6590dae738 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1253
diff changeset
  3817
    ].
ca6590dae738 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1253
diff changeset
  3818
1116
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  3819
    "Modified: / 26.4.1999 / 23:39:04 / cg"
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3820
! !
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3821
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3822
!ProjectBrowser methodsFor:'initialization'!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3823
1254
ca6590dae738 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1253
diff changeset
  3824
closeDownViews
ca6590dae738 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1253
diff changeset
  3825
    Smalltalk removeDependent:self.
ca6590dae738 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1253
diff changeset
  3826
    super closeDownViews.
ca6590dae738 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1253
diff changeset
  3827
!
ca6590dae738 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1253
diff changeset
  3828
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3829
postBuildWith:aBuiler
1254
ca6590dae738 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1253
diff changeset
  3830
    Smalltalk addDependent:self.
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3831
    self modifiedChannel value:false.
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3832
1095
660185e02224 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1094
diff changeset
  3833
    self updateRightCanvas.
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3834
    ^ super postBuildWith:aBuiler
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3835
!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3836
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3837
setupCanvasForNoSelection
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  3838
    self 
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3839
	showReadOnlyText:'Please select an existing project,
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  3840
load one from a (''.prj'')-file,
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3841
or create a new project.'.
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3842
! !
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3843
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3844
!ProjectBrowser methodsFor:'menus'!
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3845
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3846
itemMenu
1052
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  3847
    |m|
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  3848
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3849
    self hasNodeSelected ifFalse:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3850
	^ self class noItemMenu
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3851
    ].
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3852
    self hasProjectNodeSelected ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3853
	^ self class projectItemMenu
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3854
    ].      
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3855
    self hasSubProjectsNodeSelected ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3856
	^ self class subProjectsItemMenu
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3857
    ].      
1052
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  3858
    self hasClassesNodeSelected ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3859
	^ self class classesItemMenu
1052
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  3860
    ].      
1094
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3861
    self hasClassNodeSelected ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3862
	^ self class classItemMenu
1094
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3863
    ].      
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3864
    self hasMethodNodeSelected ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3865
	^ self class methodItemMenu
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3866
    ].      
1255
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  3867
    self hasPatchesNodeSelected ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3868
	^ self class methodsItemMenu
1255
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  3869
    ].      
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3870
    self hasPrerequisiteClassesNodeSelected ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3871
	^ self class prerequisiteClassesItemMenu
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3872
    ].      
1291
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  3873
    self hasPrerequisitePackagesNodeSelected ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3874
	^ self class prerequisitePackagesItemMenu
1291
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  3875
    ].      
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3876
    ^ nil
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3877
!
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3878
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3879
itemMenuHolder
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3880
    ^ [ self itemMenu]
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3881
!
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3882
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3883
itemMenuPerformer
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3884
    ^ self
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3885
! !
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3886
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3887
!ProjectBrowser methodsFor:'private'!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3888
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3889
addProjectNodeToTree:newNode
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3890
    |aProject nodeToAdd path childNode|
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3891
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3892
"/    projectTree add:newNode.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3893
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3894
    "/ insert into tree ...
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3895
    nodeToAdd := projectTree.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3896
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3897
    path := newNode contents package asCollectionOfSubstringsSeparatedByAny:'/\:'.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3898
    path from:1 to:path size-1 do:[:part |
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3899
	childNode := nodeToAdd children detect:[:child | child name = part] ifNone:nil.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3900
	childNode isNil ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3901
	    nodeToAdd add:(childNode := ProjectTreeItem new name:part).
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3902
	].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3903
	nodeToAdd := childNode.
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3904
    ].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3905
    newNode name:(path last).
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3906
    nodeToAdd add:newNode.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3907
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3908
!
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3909
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3910
canAddClassToPrerequisites:aClassName
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3911
    ^ aClassName notNil
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3912
!
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3913
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3914
canAddProjectToPrerequisites:aProjectName
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3915
    ^ aProjectName notNil
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3916
      and:[aProjectName ~= self currentProject name]
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3917
!
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3918
1094
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3919
canLoadClassesFromDirectory
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3920
    |p projectDir|
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3921
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3922
    self hasClassesNodeSelected ifFalse:[^ false].
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3923
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3924
    (p := self currentProject) isNil ifTrue:[^ false].
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3925
    (projectDir := p directory) size == 0 ifTrue:[^ false].
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3926
    projectDir asFilename exists ifFalse:[^ false].
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3927
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3928
    ^ true
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3929
!
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3930
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3931
canLoadClassesFromRepository
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3932
    |manager p moduleDir packageDir|
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3933
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3934
    self hasClassesNodeSelected ifFalse:[^ false].
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3935
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3936
    (p := self currentProject) isNil ifTrue:[^ false].
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3937
    (moduleDir := p repositoryModule) size == 0 ifTrue:[^ false].
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3938
    (packageDir := p repositoryDirectory) size == 0 ifTrue:[^ false].
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3939
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3940
    "/ SourceCodeManager available ?
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3941
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3942
    (AbstractSourceCodeManager notNil 
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3943
    and:[AbstractSourceCodeManager isLoaded not]) ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3944
	AbstractSourceCodeManager autoload.    
1094
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3945
    ].
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3946
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3947
    AbstractSourceCodeManager isNil ifTrue:[^ false].
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3948
    AbstractSourceCodeManager isLoaded ifFalse:[^ false].
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3949
    (manager := Smalltalk at:#SourceCodeManager) isNil ifTrue:[^ false].
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3950
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3951
    "/ does the repository contain the module/package ?
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3952
    "/ since this is a slow operation (involving the CVS manager,
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3953
    "/ remember checked modules here in a classVar
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3954
    AlreadCheckedExistingModulesAndPackages isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3955
	AlreadCheckedExistingModulesAndPackages := OrderedCollection new
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3956
    ].
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3957
    AlreadCheckedExistingModulesAndPackages do:[:entry |
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3958
	(entry at:1) = moduleDir ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3959
	    (entry at:2) = packageDir ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3960
		^ true
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3961
	    ]
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  3962
	]
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3963
    ].
1094
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3964
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3965
    (manager checkForExistingModule:moduleDir package:packageDir) ifFalse:[^ false].
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3966
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3967
    AlreadCheckedExistingModulesAndPackages add:(Array with:moduleDir with:packageDir).
1094
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3968
    ^ true
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3969
!
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3970
1291
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  3971
canLoadCurrentProject
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  3972
    |prj|
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  3973
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  3974
    self hasProjectSelected ifFalse:[^ false].
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  3975
    (prj := self currentProject) isNil ifTrue:[^ self].
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  3976
    ^ prj isLoaded not
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  3977
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  3978
!
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  3979
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  3980
canUnloadCurrentProject
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  3981
    |prj|
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  3982
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  3983
    self hasProjectSelected ifFalse:[^ false].
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  3984
    (prj := self currentProject) isNil ifTrue:[^ self].
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  3985
    ^ prj isLoaded
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  3986
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  3987
!
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  3988
1289
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  3989
checkInClasses:aCollectionOfClasses
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  3990
    |logMessage|
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  3991
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  3992
    logMessage := SourceCodeManagerUtilities getLogMessageFor:'classes in project'.
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  3993
    SourceCodeManagerUtilities checkinClasses:aCollectionOfClasses withLog:logMessage.
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  3994
!
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  3995
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3996
currentProject
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3997
    |node|
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3998
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3999
    node := self currentProjectNode.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4000
    node isNil ifTrue:[^ nil].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4001
    ^ node contents
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4002
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4003
!
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4004
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4005
currentProjectNode
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4006
    |node|
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4007
1099
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  4008
    node := self selectedTreeNode.
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4009
    node isNil ifTrue:[^ nil].
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4010
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4011
    [node notNil and:[node isProjectNode not]] whileTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4012
	node := node parent.
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4013
    ].
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4014
    node notNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4015
	^ node
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4016
    ].
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4017
    ^ nil
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4018
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4019
!
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4020
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  4021
currentProjectsClassNames
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  4022
    |p|
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  4023
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  4024
    p := self currentProject.
1253
9b66c237df0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1251
diff changeset
  4025
    ^ p classes 
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4026
	collect:[:classOrSymbol |
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4027
		    classOrSymbol isBehavior ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4028
			classOrSymbol name
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4029
		    ] ifFalse:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4030
			classOrSymbol
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4031
		    ]
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4032
		]
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  4033
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  4034
!
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  4035
1239
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
  4036
expandPathToNodeFor:someContents
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
  4037
    |theNode|
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
  4038
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
  4039
    theNode := self projectTreeHolder 
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4040
		    detectFirstItem:[:item | item contents == someContents].
1239
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
  4041
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
  4042
    [theNode notNil] whileTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4043
	self projectTreeHolder expand:theNode.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4044
	theNode := theNode parent.
1239
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
  4045
    ].
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
  4046
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
  4047
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
  4048
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
  4049
!
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
  4050
1094
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  4051
hasClassNodeSelected
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  4052
    |selectedNode|
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  4053
1099
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  4054
    selectedNode := self selectedTreeNode.
1094
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  4055
    selectedNode isNil ifTrue:[^ false].
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  4056
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  4057
    ^ selectedNode contents isAssociation
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  4058
      and:[selectedNode contents key == #class]
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  4059
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  4060
!
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  4061
1052
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  4062
hasClassesNodeSelected
1255
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  4063
    ^ self hasNodeSelected:#classes.
1052
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  4064
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  4065
!
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  4066
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4067
hasMethodNodeSelected
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4068
    |selectedNode|
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4069
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4070
    selectedNode := self selectedTreeNode.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4071
    selectedNode isNil ifTrue:[^ false].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4072
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4073
    ^ selectedNode contents isAssociation
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4074
      and:[selectedNode contents key == #method]
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4075
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4076
!
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4077
1255
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  4078
hasNodeSelected
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  4079
    ^ self selectedTreeNode notNil
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  4080
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  4081
!
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  4082
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  4083
hasNodeSelected:type
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4084
    |selectedNode|
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4085
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4086
    selectedNode := self selectedTreeNode.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4087
    selectedNode isNil ifTrue:[^ false].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4088
1255
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  4089
    ^ selectedNode contents == type
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  4090
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  4091
!
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  4092
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  4093
hasPatchesNodeSelected
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  4094
    ^ self hasNodeSelected:#patches.
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  4095
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  4096
!
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  4097
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  4098
hasPrerequisiteClassesNodeSelected
1255
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  4099
    ^ self hasNodeSelected:#prerequisiteClasses.
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  4100
!
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  4101
1291
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  4102
hasPrerequisitePackagesNodeSelected
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  4103
    ^ self hasNodeSelected:#prerequisitePackages.
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  4104
!
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  4105
1327
3645e5215142 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1324
diff changeset
  4106
hasPrerequisitesNodeSelected
3645e5215142 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1324
diff changeset
  4107
    ^ self hasNodeSelected:#prerequisites.
3645e5215142 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1324
diff changeset
  4108
3645e5215142 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1324
diff changeset
  4109
!
3645e5215142 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1324
diff changeset
  4110
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4111
hasProjectNodeSelected
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4112
    |selectedNode|
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4113
1099
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  4114
    selectedNode := self selectedTreeNode.
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4115
    selectedNode isNil ifTrue:[^ false].
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4116
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4117
    ^ selectedNode isProjectNode
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4118
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4119
!
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4120
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4121
hasProjectSelected
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4122
    |selectedNode node|
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4123
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4124
    selectedNode := self selectedTreeNode.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4125
    selectedNode isNil ifTrue:[^ false].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4126
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4127
    node := selectedNode.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4128
    [node notNil] whileTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4129
	node isProjectNode ifTrue:[^ true].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4130
	node := node parent.
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4131
    ].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4132
    ^ false.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4133
!
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4134
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4135
hasSubProjectsNodeSelected
1255
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  4136
    ^ self hasNodeSelected:#subprojects.
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4137
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4138
!
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4139
1251
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  4140
makeTranscriptVisible
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  4141
    |transcript|
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  4142
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  4143
    transcript := self transcript.
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  4144
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  4145
    (transcript relativeCorner y - transcript relativeOrigin y) < 0.1 ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4146
	(self builder componentAt:#VariableVerticalPanel1)      
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4147
	    resizeSubViewsTo:#(0.7 0.3)
1251
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  4148
    ].
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  4149
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  4150
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  4151
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  4152
!
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  4153
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4154
nodeFor:aProject
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4155
    "generate and return a treeNode for some project"
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4156
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4157
    |projectName pNode 
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  4158
     propertiesNode docNode classesNode patchesNode subprojectsNode filesNode
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  4159
     commentNode prerequisitesNode analysisNode designNode codeNode
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4160
     userDocNode userOverViewNode userGuideNode userRefManNode
1234
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  4161
     deploymentNode classIcon methodIcon buildOptionsNode
1291
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  4162
     prerequisitePackagesNode prerequisiteClassesNode|
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4163
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4164
    projectName := aProject name.
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4165
    pNode := ProjectNode name:projectName.
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4166
    pNode contents:aProject.
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4167
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4168
    pNode add:(commentNode := ProjectTreeItem name:'Comment').
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4169
"/    pNode add:(docNode := ProjectTreeItem name:'Documentation').
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4170
    pNode add:(propertiesNode := ProjectTreeItem name:'Properties').
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4171
    pNode add:(prerequisitesNode := ProjectTreeItem name:'Prerequisites').
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4172
"/    pNode add:(subprojectsNode := ProjectTreeItem name:'SubProjects').
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  4173
    pNode add:(classesNode := ProjectTreeItem name:'Classes').
1327
3645e5215142 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1324
diff changeset
  4174
    pNode add:(patchesNode := ProjectTreeItem name:'Patches & Extensions').
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4175
    pNode add:(filesNode := ProjectTreeItem name:'Files').
1234
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  4176
    pNode add:(buildOptionsNode := ProjectTreeItem name:'Build Options').
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4177
    pNode add:(deploymentNode := ProjectTreeItem name:'Deployment').
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4178
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4179
    subprojectsNode notNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4180
	subprojectsNode contents:#subprojects.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4181
	aProject subProjects do:[:aSubProject |
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4182
	    subprojectsNode add:(self nodeFor:aSubProject)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4183
	].
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4184
    ].
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4185
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4186
    commentNode icon:(self class commentIcon).
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4187
    commentNode action:[:item | self showCommentOf:item].
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  4188
    commentNode info:'Some comment describing the project'.
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4189
    commentNode contents:#comment.
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4190
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4191
    docNode notNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4192
	docNode contents:#documentation.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4193
	docNode action:[:item | self showDocumentationFor:item].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4194
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4195
	docNode add:(analysisNode := ProjectTreeItem name:'Analysis').
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4196
	docNode add:(designNode := ProjectTreeItem name:'Design').
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4197
	docNode add:(codeNode := ProjectTreeItem name:'Code').
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4198
	docNode add:(userDocNode := ProjectTreeItem name:'User Documentation').
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4199
	userDocNode add:(userOverViewNode := ProjectTreeItem name:'Overview').
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4200
	userDocNode add:(userGuideNode := ProjectTreeItem name:'Guide').
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4201
	userDocNode add:(userRefManNode := ProjectTreeItem name:'Reference').
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4202
	docNode add:(userDocNode := ProjectTreeItem name:'Error Reports').
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4203
	docNode add:(userDocNode := ProjectTreeItem name:'Other').
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4204
    ].
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  4205
1327
3645e5215142 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1324
diff changeset
  4206
    prerequisitesNode contents:#prerequisites.
1080
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  4207
    prerequisitesNode icon:(self class prerequisitesIcon).
1291
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  4208
    prerequisitesNode add:(prerequisitePackagesNode := ProjectTreeItem name:'Packages').
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  4209
    prerequisitesNode add:(prerequisiteClassesNode := ProjectTreeItem name:'Classes').
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  4210
    prerequisitesNode info:'Other projects and classes required by the project'.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  4211
1291
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  4212
    prerequisitePackagesNode contents:#prerequisitePackages.
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  4213
    prerequisitePackagesNode icon:(self class prerequisitePackagesIcon).
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  4214
    prerequisitePackagesNode spec:[self class rightCanvasSpecForPrerequisitePackages].
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  4215
    prerequisitePackagesNode info:'Other projects required by the project'.
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  4216
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  4217
    prerequisiteClassesNode contents:#prerequisiteClasses.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  4218
    prerequisiteClassesNode icon:(self class prerequisiteClassesIcon).
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  4219
    prerequisiteClassesNode spec:[self class rightCanvasSpecForPrerequisiteClasses].
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  4220
    prerequisiteClassesNode info:'Other (autoloaded-) classes required by the project'.
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  4221
1097
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
  4222
    classIcon := self class classIcon.
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
  4223
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4224
    classesNode contents:#classes.
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4225
    classesNode icon:(self class classesIcon).
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  4226
    classesNode info:'Classes contained in the project'.
1253
9b66c237df0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1251
diff changeset
  4227
    (aProject classes copy 
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4228
	sort:[:a :b | 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4229
		    |nmA nmB|
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4230
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4231
		    nmA := a isBehavior ifTrue:[a name] ifFalse:[a].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4232
		    nmB := b isBehavior ifTrue:[b name] ifFalse:[b].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4233
		    nmA < nmB
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4234
	     ]
1253
9b66c237df0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1251
diff changeset
  4235
    ) do:[:aClass |
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4236
	|cNode cName|
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4237
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4238
	cName := aClass isBehavior ifTrue:[aClass name] ifFalse:[aClass].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4239
	cNode := ProjectTreeItem name:cName.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4240
	cNode contents:(#class -> aClass).
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4241
	cNode icon:classIcon.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4242
	classesNode add:cNode.
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  4243
    ].
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4244
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  4245
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4246
    propertiesNode contents:#properties.
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  4247
    propertiesNode spec:[self class rightCanvasSpecForProperties].
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  4248
    propertiesNode info:'Project propreties'.
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4249
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4250
    filesNode contents:#files.
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4251
    filesNode icon:(self class filesIcon).
1223
23a55549641a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1220
diff changeset
  4252
    filesNode info:'Files (extensions, bitmaps, data) contained in the project'.
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4253
    filesNode spec:[self class rightCanvasSpecForFiles].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4254
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4255
    methodIcon := self class methodIcon.
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4256
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  4257
    patchesNode contents:#patches.
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4258
    patchesNode icon:(self class methodsIcon).
1223
23a55549641a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1220
diff changeset
  4259
    patchesNode info:'Patches & Extensions (system-changes) contained in the project'.
1255
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  4260
    (aProject methodInfo copy 
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4261
	sort:[:a :b | 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4262
		    a displayString < b displayString.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4263
	    ]
1253
9b66c237df0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1251
diff changeset
  4264
    ) do:[:aMethodInfo |
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4265
	|cNode cName|
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4266
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4267
	cNode := ProjectTreeItem name:(aMethodInfo className , ' ' , aMethodInfo methodName).
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4268
	cNode contents:(#method -> aMethodInfo).
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4269
	cNode icon:methodIcon.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4270
	patchesNode add:cNode.
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4271
    ].
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4272
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4273
    deploymentNode icon:(self class deploymentIcon).
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  4274
    deploymentNode spec:[self class rightCanvasSpecForDeployment].
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  4275
    deploymentNode info:'Deployment & packaging specification.'.
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4276
    deploymentNode contents:#deployment.
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  4277
1234
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  4278
    buildOptionsNode icon:(self class buildOptionsIcon).
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  4279
    buildOptionsNode spec:[self class rightCanvasSpecForBuildOptions].
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  4280
    buildOptionsNode info:'Compilation & include options.'.
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  4281
    buildOptionsNode contents:#buildOptions.
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  4282
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4283
    ^ pNode
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4284
1080
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  4285
    "Modified: / 23.3.1999 / 14:27:30 / cg"
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4286
!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4287
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4288
projectTree
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4289
    projectTree isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4290
	self updateProjectTree
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4291
    ].
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4292
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4293
    ^ projectTree
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4294
!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4295
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4296
readAspectsFromProject
1291
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  4297
    |p type l ns mMod mDir mPkg pkg|
1080
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  4298
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4299
    p := self currentProject.
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4300
    p notNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4301
	self selectedTreeNode contents == #comment ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4302
	    self rightCanvasTextHolder value:p comment.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4303
	].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4304
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4305
	self methodsFile value:(p propertyAt:#methodsFile).
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4306
	self projectCodeIsLoadedHolder value:(p isLoaded == true).
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4307
	p isLoaded == true ifFalse:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4308
	    self valueOfInfoLabel value:'Projects code is not loaded.'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4309
	].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4310
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4311
	self currentProjectWasNotLoadedFromFile value:p wasLoadedFromFile not.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4312
	(type := p type) == #classLibrary ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4313
	   type := #library
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4314
	].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4315
	self projectType value:type.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4316
	self projectDirectory value:(p directory).
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4317
	ns := p defaultNameSpace ? Smalltalk.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4318
	ns isSymbol ifFalse:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4319
	    ns := ns name
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4320
	].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4321
	self projectNamespace value:ns.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4322
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4323
	pkg := p package ? Project current package.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4324
	mMod := p repositoryModule ? '?'.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4325
	mDir := p repositoryDirectory ? '?'.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4326
	mPkg := mMod , ':' , mDir.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4327
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4328
	mPkg ~= pkg ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4329
	    (pkg includes:$:) ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4330
		mMod := pkg upTo:$:.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4331
		mDir := pkg copyFrom:mMod size + 2.
1292
f5fcf9ef07ab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1291
diff changeset
  4332
"/                self warn:('package id: ''' , pkg , ''' different from moduleId: ''' , mPkg , 
f5fcf9ef07ab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1291
diff changeset
  4333
"/                           '\\Assume module:''' , mMod , ''' directory:''' , mDir , '''') withCRs.
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4334
	    ] ifFalse:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4335
		((mMod ~= '?') and:[mDir ~= '?']) ifTrue:[
1292
f5fcf9ef07ab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1291
diff changeset
  4336
"/                    self warn:('package id: ''' , pkg , ''' different from moduleId: ''' , mPkg , 
f5fcf9ef07ab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1291
diff changeset
  4337
"/                               '\\Assume package:''' , mMod , ':' , mDir , '''') withCRs.
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4338
		    pkg := mMod , ':' , mDir
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4339
		] ifFalse:[
1292
f5fcf9ef07ab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1291
diff changeset
  4340
"/                    self warn:('package id: ''' , pkg , ''' different from moduleId: ''' , mPkg , 
f5fcf9ef07ab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1291
diff changeset
  4341
"/                               '\\Please care for the module and directory settings.') withCRs.
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4342
		]
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4343
	    ]
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4344
	].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4345
	self projectPackage value:pkg.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4346
	self repositoryModule value:mMod.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4347
	self repositoryDirectory value:mDir.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4348
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4349
	self deliverCompiledBinary value:(p propertyAt:#deliverCompiledBinary) ? false.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4350
	self deliverByteCode value:(p propertyAt:#deliverByteCode) ? false.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4351
	self deliverGZipArchive value:(p propertyAt:#deliverGZipArchive) ? false.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4352
	self deliverZipArchive value:(p propertyAt:#deliverZipArchive) ? false.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4353
	self deliverTarArchive value:(p propertyAt:#deliverTarArchive) ? false.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4354
	self deliverLoadAllFile value:(p propertyAt:#deliverLoadAllFile) ? false.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4355
	self deliverSources value:(p propertyAt:#deliverSources) ? false.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4356
	self deliverMakefiles value:(p propertyAt:#deliverMakefiles) ? false.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4357
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4358
	self makeDefines value:(p propertyAt:#'make.stc.LOCALDEFINES') ? ''.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4359
	self makeIncludes value:(p propertyAt:#'make.stc.LOCALINCLUDES') ? ''.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4360
	self makeOtherWarningOptions value:(p propertyAt:#'make.stc.WARNINGOPTIONS') ? ''.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4361
	self makeWarnEOLComments value:(p propertyAt:#'make.stc.warnEOLComments') ? false.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4362
	self makeWarnNonStandard value:(p propertyAt:#'make.stc.warnNonStandard') ? true.
1234
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  4363
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  4364
"/        self makeLocalLibs value:(p propertyAt:#'make.LD_OBJ_LIBS') ? ''.
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  4365
"/        self makeExtraTargets value:(p propertyAt:#'make.LOCAL_EXTRA_TARGETS') ? ''.
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  4366
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4367
	self installDirectoryUnix 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4368
		value:(p propertyAt:#installDirectoryUnix) ? 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4369
			((p propertyAt:#installDirectory) ? '/opt/smalltalk/packages').
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4370
	self installDirectoryWin32 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4371
		value:(p propertyAt:#installDirectoryWin32) ? 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4372
			((p propertyAt:#installDirectory) ? '\Programme\SmalltalkX\packages').
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4373
	self installDirectoryVMS 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4374
		value:(p propertyAt:#installDirectoryVMS) ? 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4375
			((p propertyAt:#installDirectory) ? 'SYS$SMALLTALKX:[PACKAGES]').
1149
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  4376
"/        self installDirectoryMacOS 
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  4377
"/                value:(p propertyAt:#installDirectoryMacOS) ? 
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  4378
"/                        ((p propertyAt:#installDirectory) ? '\Programme\SmalltalkX').
1094
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  4379
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4380
	l := p prerequisitePackages collect:[:entry |
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4381
		    |pName|
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4382
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4383
		    entry isString ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4384
			pName := entry
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4385
		    ] ifFalse:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4386
			entry isArray ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4387
			    pName := entry at:1
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4388
			] ifFalse:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4389
			    pName := entry name
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4390
			]
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4391
		    ]
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4392
		].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4393
	self listOfRequiredProjectsInPrerequisites value:(l sort).
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4394
	self listOfRequiredClassesInPrerequisites value:(p prerequisiteClasses copy sort).
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4395
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4396
	modifiedChannel value:false.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4397
	p addDependent:self.
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4398
    ].
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4399
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4400
    "Created: / 23.3.1999 / 14:16:12 / cg"
1116
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  4401
    "Modified: / 26.4.1999 / 23:38:14 / cg"
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4402
!
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4403
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4404
reallyModified
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4405
    |p l selectedNodeType|
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4406
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4407
    p := self currentProject.
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4408
    selectedNodeType := self selectedTreeNode contents.
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4409
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4410
    selectedNodeType == #comment ifTrue:[
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4411
self halt.
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4412
	^ self rightCanvasTextHolder value ~= p comment
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4413
    ].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4414
    selectedNodeType == #deployment ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4415
	(self deliverByteCode value ~= (p propertyAt:#deliverByteCode)) ifTrue:[^ true].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4416
	(self deliverCompiledBinary value ~= (p propertyAt:#deliverCompiledBinary)) ifTrue:[^ true].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4417
	(self deliverLoadAllFile value ~= (p propertyAt:#deliverLoadAllFile)) ifTrue:[^ true]. 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4418
	(self deliverSources value ~= (p propertyAt:#deliverSources)) ifTrue:[^ true].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4419
	(self deliverMakefiles value ~= (p propertyAt:#deliverMakefiles)) ifTrue:[^ true].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4420
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4421
	(self deliverZipArchive value ~= (p propertyAt:#deliverZipArchive)) ifTrue:[^ true].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4422
	(self deliverTarArchive value ~= (p propertyAt:#deliverTarArchive)) ifTrue:[^ true].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4423
	(self deliverGZipArchive value ~= (p propertyAt:#deliverGZipArchive)) ifTrue:[^ true].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4424
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4425
	self installDirectoryUnix value ~=
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4426
		    ((p propertyAt:#installDirectoryUnix) ? 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4427
		       ((p propertyAt:#installDirectory) ? 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4428
			    '/opt/smalltalk/packages')) ifTrue:[^ true].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4429
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4430
	self installDirectoryWin32 value ~=
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4431
		    ((p propertyAt:#installDirectoryWin32) ? 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4432
			((p propertyAt:#installDirectory) ? 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4433
			    '\Programme\SmalltalkX\packages')) ifTrue:[^ true].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4434
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4435
	self installDirectoryVMS value ~=
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4436
		    ((p propertyAt:#installDirectoryVMS) ? 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4437
			((p propertyAt:#installDirectory) ? 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4438
			    'SYS$SMALLTALKX:[PACKAGES]')) ifTrue:[^ true].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4439
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4440
	^ false
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4441
    ].
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4442
    selectedNodeType == #files ifTrue:[
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4443
^ true.
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4444
	(self methodsFile value ~= (p propertyAt:#methodsFile)) ifTrue:[^ true].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4445
	^ false
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4446
    ].
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4447
self halt.
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4448
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4449
    (self projectType value ~~ p type) ifTrue:[^ true].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4450
    (self projectDirectory value ~= p directory) ifTrue:[^ true].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4451
    (self projectPackage value ~= p package) ifTrue:[^ true].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4452
    (self projectNamespace value ~= (p defaultNameSpace ? Smalltalk) name) ifTrue:[^ true].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4453
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4454
    (self repositoryModule value ~= p repositoryModule) ifTrue:[^ true].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4455
    (self repositoryDirectory value ~= p repositoryDirectory) ifTrue:[^ true].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4456
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4457
"/        self installDirectoryMacOS value ~=
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4458
"/                ((p propertyAt:#installDirectoryMacOS) ? 
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4459
"/                    ((p propertyAt:#installDirectory) ? 
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4460
"/                        '\Programme\SmalltalkX')) ifTrue:[^ true].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4461
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4462
    l := p prerequisitePackages collect:[:entry |
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4463
		|pName|
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4464
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4465
		entry isString ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4466
		    pName := entry
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4467
		] ifFalse:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4468
		    entry isArray ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4469
			pName := entry at:1
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4470
		    ] ifFalse:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4471
			pName := entry name
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4472
		    ]
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4473
		]
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4474
	    ].
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4475
    self listOfRequiredProjectsInPrerequisites value ~= (l sort) ifTrue:[^ true].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4476
    self listOfRequiredClassesInPrerequisites value ~= (p prerequisiteClasses copy sort)  ifTrue:[^ true].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4477
    self halt.
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4478
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4479
!
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4480
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4481
saveAspectsIntoProject
1291
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  4482
    |p s ns dir pkg|
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4483
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4484
    p := self currentProject.
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4485
    p notNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4486
	p removeDependent:self.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4487
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4488
	self acceptChannel value:true; value:false.
1108
e88edf4a8cbe editFields - accept
Claus Gittinger <cg@exept.de>
parents: 1107
diff changeset
  4489
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4490
"/        self currentProjectWasNotLoadedFromFile value:p wasLoadedFromFile not.
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4491
	p type:self projectType value.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4492
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4493
	dir := self projectDirectory value.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4494
	dir := (dir ? '') asFilename.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4495
	(dir exists and:[dir isDirectory]) ifFalse:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4496
	    self warn:'Invalid project directory: ' , dir pathName
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4497
	].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4498
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4499
	p directory:self projectDirectory value.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4500
	pkg := self repositoryModule value , ':' , self repositoryDirectory value.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4501
	p packageName:pkg asSymbol.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4502
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4503
	p repositoryModule:self repositoryModule value.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4504
	p repositoryDirectory:self repositoryDirectory value.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4505
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4506
	s := self projectNamespace value.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4507
	(s size == 0) ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4508
	    ns := Smalltalk
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4509
	] ifFalse:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4510
	    ns := NameSpace name:s
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4511
	].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4512
	p defaultNameSpace:ns.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4513
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4514
	p propertyAt:#methodsFile put:self methodsFile value.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4515
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4516
	p propertyAt:#deliverCompiledBinary put:self deliverCompiledBinary value.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4517
	p propertyAt:#deliverByteCode put:self deliverByteCode value.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4518
	p propertyAt:#deliverTarArchive put:self deliverTarArchive value.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4519
	p propertyAt:#deliverZipArchive put:self deliverZipArchive value.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4520
	p propertyAt:#deliverGZipArchive put:self deliverGZipArchive value.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4521
	p propertyAt:#deliverLoadAllFile put:self deliverLoadAllFile value.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4522
	p propertyAt:#deliverSources put:self deliverSources value.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4523
	p propertyAt:#deliverMakefiles put:self deliverMakefiles value.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4524
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4525
	p propertyAt:#'make.stc.LOCALDEFINES' put:self makeDefines value.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4526
	p propertyAt:#'make.stc.LOCALINCLUDES' put:self makeIncludes value.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4527
	p propertyAt:#'make.stc.WARNINGOPTIONS' put:self makeOtherWarningOptions value.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4528
	p propertyAt:#'make.stc.warnEOLComments' put:self makeWarnEOLComments value.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4529
	p propertyAt:#'make.stc.warnNonStandard' put:self makeWarnNonStandard value.
1234
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  4530
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  4531
"/        p propertyAt:#'make.LD_OBJ_LIBS' put:self makeLocalLibs value.
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  4532
"/        p propertyAt:#'make.LOCAL_EXTRA_TARGETS' put:self makeExtraTargets value.
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  4533
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4534
	p propertyAt:#installDirectoryUnix put:self installDirectoryUnix value.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4535
	p propertyAt:#installDirectoryWin32 put:self installDirectoryWin32 value.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4536
	p propertyAt:#installDirectoryVMS put:self installDirectoryVMS value.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4537
	p propertyAt:#installDirectoryMacOS put:self installDirectoryMacOS value.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4538
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4539
	p prerequisiteClasses:(self listOfRequiredClassesInPrerequisites value
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4540
			       collect:[:entry | entry string asSymbol]).
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4541
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4542
	p prerequisitePackages:(self listOfRequiredProjectsInPrerequisites value
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4543
			       collect:[:entry | entry string asSymbol]).
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4544
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4545
	p addDependent:self.
1080
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  4546
    ].
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  4547
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  4548
    "Created: / 23.3.1999 / 14:16:12 / cg"
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  4549
    "Modified: / 23.3.1999 / 14:18:38 / cg"
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  4550
!
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  4551
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  4552
selectedMethod
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  4553
    |node methodInfo classOrClassName cls mthd text|
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  4554
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  4555
    self hasMethodNodeSelected ifFalse:[^ nil].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  4556
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  4557
    node := self selectedTreeNode.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  4558
    methodInfo := node contents value.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  4559
    mthd := methodInfo method.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  4560
    mthd isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4561
	self valueOfInfoLabel value:'The method is not (yet) loaded.'.
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  4562
    ].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  4563
    ^ mthd
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  4564
!
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  4565
1251
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  4566
transcript
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  4567
    ^ self builder componentAt:#commandOutputView
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  4568
!
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  4569
1291
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  4570
updateFlagValueHolders
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  4571
    self hasProjectSelectedHolder value:(self hasProjectSelected).
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  4572
    self canLoadCurrentProjectHolder value:(self canLoadCurrentProject).
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  4573
    self canUnloadCurrentProjectHolder value:(self canUnloadCurrentProject).
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  4574
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  4575
!
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  4576
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  4577
updateProjectTree
1210
30bd57bbe9ce better tree
Claus Gittinger <cg@exept.de>
parents: 1207
diff changeset
  4578
    |tree moduleRoots root showWhat|
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  4579
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4580
    self withCursor:Cursor execute do:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4581
	showWhat := self showWhat value.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4582
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4583
	moduleRoots := Dictionary new.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4584
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4585
	tree := SelectionInTree new.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4586
	tree root:(root := ProjectTreeItem name:'invisibleRoot').
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4587
	root hide:false.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4588
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4589
	showWhat notNil ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4590
	    showWhat == #current ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4591
		root add:(self nodeFor:Project current).
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4592
	    ] ifFalse:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4593
		(Project knownProjects asOrderedCollection
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4594
		    sort:[:a :b | a package < b package]) 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4595
		do:[:aProject |
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4596
		    |newNode nodeToAdd doShow childNode path|
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4597
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4598
		    (doShow := showWhat == #all) ifFalse:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4599
			doShow := (aProject package startsWith:'stx:') not
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4600
		    ].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4601
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4602
		    doShow ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4603
			newNode := self nodeFor:aProject.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4604
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4605
			"/ insert into tree ...
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4606
			nodeToAdd := root.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4607
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4608
			path := aProject package asCollectionOfSubstringsSeparatedByAny:'/\:'.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4609
			path from:1 to:path size-1 do:[:part |
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4610
			    childNode := nodeToAdd children detect:[:child | child name = part] ifNone:nil.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4611
			    childNode isNil ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4612
				nodeToAdd add:(childNode := ProjectTreeItem new name:part).
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4613
			    ].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4614
			    nodeToAdd := childNode.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4615
			].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4616
			newNode name:(path last).
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4617
			nodeToAdd add:newNode.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4618
		    ]
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4619
		].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4620
	    ].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4621
	].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4622
	projectTree := root.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4623
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4624
	self projectTreeHolder root:projectTree.
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  4625
    ].
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  4626
    ^ projectTree
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  4627
!
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  4628
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4629
updateRightCanvas
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4630
    |selectedNode nodeContents spec|
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4631
1149
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  4632
    self builder bindings removeKey:#listOfAllClassesInPrerequisites ifAbsent:nil.  "/ force recompute
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  4633
    self builder bindings removeKey:#listOfAllProjectsInPrerequisites ifAbsent:nil.  "/ force recompute
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  4634
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  4635
    self selectedProjectInPrerequisites value:nil.
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  4636
    self selectedRequiredProjectInPrerequisites value:nil.
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  4637
1099
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  4638
    selectedNode := self selectedTreeNode.
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4639
    selectedNode isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4640
	self setupCanvasForNoSelection.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4641
	^ self
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4642
    ].
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4643
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4644
    (spec := selectedNode spec) notNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4645
	self currentCanvasHolder value:spec value.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4646
	^ self
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4647
    ].
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4648
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4649
    selectedNode isProjectNode ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4650
	self showCommentOf:selectedNode.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4651
	^ self.
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4652
    ].
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4653
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4654
    selectedNode contents == #classes ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4655
	self showClassListOf:selectedNode.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4656
	^ self.
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4657
    ].
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  4658
    selectedNode contents == #patches ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4659
	self showPatchesListOf:selectedNode.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4660
	^ self.
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  4661
    ].
1097
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
  4662
    self hasClassNodeSelected ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4663
	self showClassDefinitionOf:selectedNode.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4664
	^ self.
1097
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
  4665
    ].      
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4666
    self hasMethodNodeSelected ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4667
	self showMethodSourceOf:selectedNode.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4668
	^ self.
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4669
    ].      
1327
3645e5215142 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1324
diff changeset
  4670
    self hasPrerequisitesNodeSelected ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4671
	self showPrerequisitesInfo.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4672
	^ self.
1327
3645e5215142 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1324
diff changeset
  4673
    ].
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  4674
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4675
    self currentCanvasHolder value:(self class emptyRightCanvasSpec).
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4676
    self rightCanvasTextHolder value:''.
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4677
1080
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  4678
    "Modified: / 23.3.1999 / 14:16:02 / cg"
1327
3645e5215142 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1324
diff changeset
  4679
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4680
! !
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4681
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4682
!ProjectBrowser methodsFor:'private - building'!
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4683
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4684
checkForMakeProtoFor:aProject
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4685
    |f|
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4686
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4687
    "/ check for project directory ...
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4688
    (self checkForProjectDirectoryFor:aProject) ifFalse:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4689
	^ false
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4690
    ].
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4691
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4692
    "/ check for Make.proto ...
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4693
    f := aProject directory asFilename construct:'Make.proto'.
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4694
    f exists ifFalse:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4695
	(self confirm:'''Make.proto'' does not exist in project directory\\Create ?' withCRs) ifFalse:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4696
	    ^ false
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4697
	].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4698
	self buildMakefiles.
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4699
    ].
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4700
    ^ true
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4701
!
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4702
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4703
checkForMakefileFor:aProject
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4704
    |f|
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4705
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4706
    "/ check for project directory ...
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4707
    (self checkForProjectDirectoryFor:aProject) ifFalse:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4708
	^ false
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4709
    ].
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4710
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4711
    "/ check for Makefile ...
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4712
    f := aProject directory asFilename construct:'Makefile'.
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4713
    f exists ifFalse:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4714
	(self confirm:'''Makefile'' does not exist in project directory\\Create ?' withCRs) ifFalse:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4715
	    ^ false
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4716
	].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4717
	(self checkForMakeProtoFor:aProject) ifFalse:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4718
	    ^ false
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4719
	].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4720
	self buildMakefiles.
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4721
    ].
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4722
    ^ true
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4723
!
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4724
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4725
checkForProjectDirectoryFor:aProject
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4726
    |dir|
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4727
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4728
    "/ check for project directory ...
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4729
    dir := aProject directory asFilename.
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4730
    dir exists ifFalse:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4731
	(self confirm:'Project directory does not exist\\Create ?' withCRs) ifFalse:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4732
	    ^ false
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4733
	].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4734
	dir recursiveMakeDirectory.
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4735
    ].
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4736
    ^ true
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4737
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4738
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4739
! !
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4740
1327
3645e5215142 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1324
diff changeset
  4741
!ProjectBrowser methodsFor:'private - info'!
3645e5215142 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1324
diff changeset
  4742
3645e5215142 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1324
diff changeset
  4743
showPrerequisitesInfo
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4744
	self showReadOnlyText:
1327
3645e5215142 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1324
diff changeset
  4745
'When loading this package, 
3645e5215142 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1324
diff changeset
  4746
these other packages/classes 
3645e5215142 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1324
diff changeset
  4747
will be loaded before.
3645e5215142 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1324
diff changeset
  4748
Also, the prerequisite packages'' 
3645e5215142 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1324
diff changeset
  4749
directory pathes will be added
3645e5215142 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1324
diff changeset
  4750
to the include path for 
3645e5215142 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1324
diff changeset
  4751
stc-compilation.'.
3645e5215142 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1324
diff changeset
  4752
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4753
	^ self.
1327
3645e5215142 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1324
diff changeset
  4754
3645e5215142 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1324
diff changeset
  4755
3645e5215142 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1324
diff changeset
  4756
! !
3645e5215142 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1324
diff changeset
  4757
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4758
!ProjectBrowser methodsFor:'private - table col access'!
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4759
1038
41da0e38af84 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1037
diff changeset
  4760
classFilenameFromClassInfo:cInfo
41da0e38af84 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1037
diff changeset
  4761
    ^ cInfo classFileName
41da0e38af84 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1037
diff changeset
  4762
!
41da0e38af84 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1037
diff changeset
  4763
41da0e38af84 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1037
diff changeset
  4764
classIncludeConditionFromClassInfo:cInfo
41da0e38af84 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1037
diff changeset
  4765
    ^ cInfo conditionForInclusion
41da0e38af84 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1037
diff changeset
  4766
!
41da0e38af84 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1037
diff changeset
  4767
1235
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  4768
classIncludeConditionFromClassInfo:cInfo put:aSymbol
1238
af3b724392f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1237
diff changeset
  4769
    cInfo conditionForInclusion:aSymbol.
af3b724392f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1237
diff changeset
  4770
    ^ cInfo
1235
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  4771
!
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  4772
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4773
classNameFromClassInfo:cInfo
1241
3bbc7d113387 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1240
diff changeset
  4774
    |cls nm|
3bbc7d113387 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1240
diff changeset
  4775
3bbc7d113387 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1240
diff changeset
  4776
    nm := cInfo className.
3bbc7d113387 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1240
diff changeset
  4777
3bbc7d113387 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1240
diff changeset
  4778
    cls := cInfo theClass.
3bbc7d113387 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1240
diff changeset
  4779
    (cls isNil or:[cls isLoaded not]) ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4780
	^ nm asText allItalic
1241
3bbc7d113387 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1240
diff changeset
  4781
    ].
3bbc7d113387 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1240
diff changeset
  4782
    ^ nm
3bbc7d113387 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1240
diff changeset
  4783
3bbc7d113387 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1240
diff changeset
  4784
    "Modified: / 26.9.1999 / 13:49:51 / cg"
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  4785
!
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  4786
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4787
classNameFromMethodInfo:pInfo
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4788
    ^ pInfo className
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4789
!
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4790
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  4791
classNameFromPatchesInfo:pInfo
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  4792
    ^ pInfo methodClass name
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  4793
!
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  4794
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4795
selectorFromMethodInfo:pInfo
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4796
    ^ pInfo methodName
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4797
!
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4798
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  4799
selectorFromPatchesInfo:pInfo
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  4800
    ^ pInfo methodSelector
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4801
! !
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4802
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4803
!ProjectBrowser methodsFor:'user actions'!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4804
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4805
addClasses
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  4806
    "ask for, and add a single class"
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4807
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4808
    |p className cls oldPackage|
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4809
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4810
    p := self currentProject.
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4811
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4812
    className := Dialog request:'Class to add:'.
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4813
    className size == 0 ifTrue:[^ self].
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4814
    cls := Smalltalk classNamed:className.
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4815
    cls isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4816
	"/ a new one
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4817
	(self confirm:'This is a new class. Add ?') ifFalse:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4818
	    ^ self      
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4819
	].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4820
	p
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4821
	    addClass:className
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4822
	    classFileName:((Smalltalk fileNameForClass:className) , '.st').
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4823
    ] ifFalse:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4824
	(oldPackage := cls package) ~= p package ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4825
	    "/ a new one
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4826
	    (self confirm:'Change the classes package from ' , oldPackage , ' to ' , p package , ' ?') ifFalse:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4827
		^ self      
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4828
	    ].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4829
	    cls package:p package.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4830
	].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4831
	"/ find the other package ..
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4832
	oldPackage := Project projectWithId:oldPackage.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4833
	oldPackage notNil ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4834
	    oldPackage removeClass:cls
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4835
	].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4836
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4837
	p
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4838
	    addClass:cls name
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4839
	    classFileName:(cls classFilename 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4840
			    ? ((Smalltalk fileNameForClass:cls) , '.st')).
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4841
    ].
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4842
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4843
    self updateClassListForProject:p
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4844
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4845
!
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4846
1099
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  4847
itemDoubleClicked:index
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  4848
    |node classOrClassName cls|
1099
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  4849
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  4850
    self hasClassNodeSelected ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4851
	node := self selectedTreeNode.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4852
	classOrClassName := node contents value.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4853
	classOrClassName isBehavior ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4854
	    cls := classOrClassName.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4855
	] ifFalse:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4856
	    cls := Smalltalk at:classOrClassName.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4857
	].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4858
	cls isNil ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4859
	    self information:'The class is not (yet) loaded'.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4860
	    ^ self
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4861
	].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4862
	SystemBrowser browseClass:cls.
1099
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  4863
    ].
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  4864
!
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  4865
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4866
itemSelected:index
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4867
    |item action info p|
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4868
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  4869
    self withWaitCursorDo:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4870
	self updateRightCanvas.
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  4871
    ].
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4872
    index isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4873
	modifiedChannel value:false.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4874
	^ self
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4875
    ].
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4876
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4877
    self readAspectsFromProject.
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4878
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4879
    item := self projectTreeHolder value at:index.
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4880
    action := item action.
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4881
    action notNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4882
	action value:item.
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4883
    ].
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  4884
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4885
    info := item info.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4886
    info size == 0 ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4887
	((p := self currentProject) notNil
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4888
	and:[p isLoaded ~~ true]) ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4889
	    info := 'Projects code is not loaded.'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4890
	].
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4891
    ].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4892
    self valueOfInfoLabel value:info.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4893
1291
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  4894
    self updateFlagValueHolders.
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4895
    modifiedChannel value:false.
1116
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  4896
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  4897
    "Modified: / 26.4.1999 / 22:49:20 / cg"
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4898
!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4899
1095
660185e02224 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1094
diff changeset
  4900
loadFromProjectFile:aFilenameString
1239
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
  4901
    |oldNode newProject|
1095
660185e02224 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1094
diff changeset
  4902
1096
7efff9ca044f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1095
diff changeset
  4903
    self withReadCursorDo:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4904
	newProject := Project new loadFromProjectFile:aFilenameString.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4905
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4906
	oldNode := self projectTreeHolder 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4907
			detectFirstItem:[:item | item contents class == Project
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4908
						 and:[item contents package = newProject package]].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4909
	oldNode notNil ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4910
	    (self confirm:'Overload packages definitions from file ?') ifFalse:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4911
		^ self
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4912
	    ].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4913
	    self projectTreeHolder remove:oldNode.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4914
	].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4915
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4916
	newProject notNil ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4917
	    self newProject:newProject
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4918
	].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4919
	self expandPathToNodeFor:newProject.
1239
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
  4920
1224
825e6e9fc37f expand the path to the load project
Claus Gittinger <cg@exept.de>
parents: 1223
diff changeset
  4921
    ].
825e6e9fc37f expand the path to the load project
Claus Gittinger <cg@exept.de>
parents: 1223
diff changeset
  4922
    ^ newProject
1095
660185e02224 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1094
diff changeset
  4923
!
660185e02224 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1094
diff changeset
  4924
1291
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  4925
loadProject
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  4926
    |project|
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  4927
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  4928
    project := self currentProject.
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  4929
self halt.
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  4930
    Smalltalk loadPackage:(project name)
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  4931
!
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  4932
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4933
loadProjectCode
1219
0bcf1df24277 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1218
diff changeset
  4934
    |project filesToLoad methodsFile ns anyPatchClassMissing anyPatches
0bcf1df24277 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1218
diff changeset
  4935
     nMissingSuper prevNMissingSuper|
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4936
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4937
    project := self currentProject.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4938
    ns := project defaultNameSpace.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4939
    ns isSymbol ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4940
	ns := NameSpace name:ns
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4941
    ].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4942
    self withReadCursorDo:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4943
	filesToLoad := OrderedCollection new.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4944
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4945
	"/ load all classes ...
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4946
	project classInfo do:[:aClassInfo |
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4947
	    |className fileToLoad cls|
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4948
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4949
	    className := aClassInfo className.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4950
	    fileToLoad := aClassInfo classFileName.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4951
	    cls := ns at:className asSymbol.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4952
	    cls notNil ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4953
		cls isBehavior ifFalse:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4954
		    (self confirm:('Attention: a global named ' , className , ' exists, but is not a class.\\Load anyway ?') withCRs)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4955
		    ifFalse:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4956
			fileToLoad := nil
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4957
		    ]
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4958
		] ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4959
		    cls isLoaded ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4960
			fileToLoad := nil
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4961
		    ]
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4962
		]
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4963
	    ].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4964
	    fileToLoad notNil ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4965
		filesToLoad add:fileToLoad
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4966
	    ].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4967
	].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4968
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4969
	anyPatchClassMissing := false.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4970
	anyPatches := false.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4971
	project methodInfo do:[:aMethodInfo |
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4972
	    |className methodName mthd cls|
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4973
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4974
	    className := aMethodInfo className.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4975
	    methodName := aMethodInfo methodName.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4976
	    cls := Smalltalk at:className asSymbol.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4977
	    (cls isNil or:[cls isBehavior not or:[cls isLoaded not]]) ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4978
		self warn:('Missing class: ' , className , ' (required for patches)').
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4979
		anyPatchClassMissing := anyPatches := true.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4980
	    ] ifFalse:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4981
		"/ already present ?
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4982
		(cls compiledMethodAt:methodName asSymbol) isNil ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4983
		    anyPatches := true.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4984
		]
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4985
	    ]
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4986
	].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4987
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4988
	(methodsFile := project propertyAt:#methodsFile) notNil ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4989
	    anyPatches ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4990
		anyPatchClassMissing ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4991
		    self warn:('Cannot load patches & extensions, due to missing class(es)')
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4992
		] ifFalse:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4993
		    filesToLoad add:methodsFile
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4994
		]
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4995
	    ]
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4996
	] ifFalse:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4997
	    anyPatches ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4998
		self warn:('No file for methods (patches & extensions) is defined in project')
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  4999
	    ].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5000
	].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5001
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5002
	filesToLoad size == 0 ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5003
	    self information:'Projects code is already loaded.'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5004
	] ifFalse:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5005
	    "/ load as long as superclasses are missing
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5006
	    "/ (since the load order could be incorrect)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5007
	    prevNMissingSuper := nil.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5008
	    nMissingSuper := 1.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5009
	    [nMissingSuper > 0 and:[nMissingSuper ~~ prevNMissingSuper]]
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5010
	    whileTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5011
		nMissingSuper := 0.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5012
		Parser::UndefinedSuperclassError handle:[:ex |
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5013
		    nMissingSuper := nMissingSuper + 1.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5014
		    ex proceed
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5015
		] do:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5016
		    Class packageQuerySignal answer:project package asSymbol
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5017
		    do:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5018
			filesToLoad do:[:fileToLoad |
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5019
			    Smalltalk fileIn:(project directory asFilename construct:fileToLoad) pathName
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5020
			]
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5021
		    ]
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5022
		].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5023
		prevNMissingSuper := nMissingSuper.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5024
	    ].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5025
	].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5026
	project isLoaded:true.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5027
	self readAspectsFromProject
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5028
    ]
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5029
!
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5030
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5031
methodPatchDoubleClick:arg
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5032
self halt.
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5033
!
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5034
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  5035
projectFilterChanged
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  5036
    |theNode|
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  5037
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  5038
    self updateProjectTree.
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  5039
    self updateRightCanvas.
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  5040
    self showWhat value == #current ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5041
	theNode := self projectTreeHolder 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5042
			detectFirstItem:[:item | item contents == Project current].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5043
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5044
	[theNode notNil] whileTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5045
	    self projectTreeHolder expand:theNode.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5046
	    theNode := theNode parent.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5047
	].
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  5048
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  5049
    ].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  5050
!
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  5051
1107
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  5052
selectionChangeAllowed:newNode
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  5053
    |answer|
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  5054
1107
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  5055
    newNode == self selectedTreeNode ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5056
	^ true 
1107
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  5057
    ].
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  5058
    (modifiedChannel value 
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  5059
    and:[true "self reallyModified"]) ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5060
	answer := Dialog confirmWithCancel:'Accept changes ?'.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5061
	answer isNil ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5062
	    ^ false
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5063
	].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5064
	answer == true ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5065
	    self accept.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5066
	].
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  5067
    ].
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  5068
    ^ true
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  5069
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  5070
!
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  5071
1097
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
  5072
showClassDefinitionOf:anItem
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5073
    |node classOrClassName cls text|
1097
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
  5074
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
  5075
    self hasClassNodeSelected ifFalse:[^ self].
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
  5076
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
  5077
    self currentCanvasHolder value:(self class rightCanvasSpecForEditableText).
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
  5078
1099
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  5079
    node := self selectedTreeNode.
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5080
    classOrClassName := node contents value.
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5081
    classOrClassName isBehavior ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5082
	cls := classOrClassName.
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5083
    ] ifFalse:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5084
	cls := Smalltalk at:classOrClassName.
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5085
    ].
1097
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
  5086
    cls isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5087
	text := 'The class is not (yet) loaded'.
1097
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
  5088
    ] ifFalse:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5089
	text := cls definition
1097
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
  5090
    ].
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
  5091
    self rightCanvasTextHolder value:text.
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
  5092
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
  5093
!
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
  5094
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  5095
showClassListOf:anItem
1107
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  5096
    |projectItem project|
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  5097
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  5098
    projectItem := anItem parent.
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  5099
    project := projectItem contents.
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  5100
1107
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  5101
    self updateClassListForProject:project.
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  5102
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  5103
    self currentCanvasHolder value:(self class rightCanvasSpecForClassList).
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  5104
!
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  5105
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  5106
showCommentOf:anItem
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  5107
    |projectItem project|
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5108
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  5109
    anItem contents == #comment ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5110
	projectItem := anItem parent
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  5111
    ] ifFalse:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5112
	projectItem := anItem
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  5113
    ].
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  5114
    project := projectItem contents.
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  5115
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  5116
    self textCanvasLabelHolder value:'Projects comment'.
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  5117
    self currentCanvasHolder value:(self class rightCanvasSpecForEditableText).
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5118
    self rightCanvasTextHolder value:project comment.
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5119
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5120
!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5121
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  5122
showDocumentationFor:anItem
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  5123
    |projectItem project|
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  5124
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  5125
    anItem contents == #documentation ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5126
	projectItem := anItem parent
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  5127
    ] ifFalse:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5128
	projectItem := anItem
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  5129
    ].
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  5130
    project := projectItem contents.
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  5131
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  5132
    self currentCanvasHolder value:(self class rightCanvasSpecForHTMLText).
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  5133
    self htmlDocumentURLHolder value:project documentationURL.
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  5134
!
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  5135
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5136
showMethodSourceOf:anItem
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5137
    |node methodInfo classOrClassName cls mthd text|
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5138
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5139
    self hasMethodNodeSelected ifFalse:[^ self].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5140
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5141
    self currentCanvasHolder value:(self class rightCanvasSpecForEditableText).
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5142
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5143
    node := self selectedTreeNode.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5144
    methodInfo := node contents value.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5145
    cls := Smalltalk at:methodInfo className asSymbol.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5146
    cls isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5147
	text := 'The class is not (yet) loaded'.
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5148
    ] ifFalse:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5149
	mthd := cls compiledMethodAt:(methodInfo methodName asSymbol).
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5150
	mthd isNil ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5151
	    text := 'The method is not (yet) loaded'.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5152
	] ifFalse:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5153
	    text := mthd source
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5154
	]
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5155
    ].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5156
    self rightCanvasTextHolder value:text.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5157
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5158
!
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5159
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  5160
showPatchesListOf:anItem
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  5161
    |projectItem project patches l|
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  5162
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  5163
    projectItem := anItem parent.
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  5164
    project := projectItem contents.
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  5165
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5166
    self updatePatchesListForProject:project.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5167
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5168
"/    patches := project methods.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5169
"/    patches := patches collect:[:m | m who].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5170
"/    patches := patches sort:[:w1 :w2 |
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5171
"/                        |w1Nm w2Nm|
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5172
"/
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5173
"/                        w1Nm := w1 methodClass name.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5174
"/                        w2Nm := w2 methodClass name.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5175
"/                        w1Nm < w2Nm ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5176
"/                            true
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5177
"/                        ] ifFalse:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5178
"/                            w1Nm = w2Nm ifFalse:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5179
"/                                false
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5180
"/                            ] ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5181
"/                                w1 methodSelector < w2 methodSelector
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5182
"/                            ]
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5183
"/                        ]
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5184
"/                       ].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5185
"/
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5186
"/    l := self patchesList.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5187
"/    l removeAll.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5188
"/    l addAll:patches.
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  5189
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  5190
    self currentCanvasHolder value:(self class rightCanvasSpecForPatchesList).
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  5191
!
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  5192
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  5193
showReadOnlyText:someText
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  5194
    self currentCanvasHolder value:(self class rightCanvasSpecForReadOnlyText).
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  5195
    self rightCanvasTextHolder value:someText.
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  5196
1107
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  5197
!
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  5198
1291
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  5199
unloadProject
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  5200
    |project filesToLoad methodsFile ns anyPatchClassMissing anyPatches
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  5201
     nMissingSuper prevNMissingSuper|
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  5202
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  5203
    project := self currentProject.
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  5204
self halt.
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  5205
!
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  5206
1107
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  5207
updateClassListForProject:aProject
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  5208
    |classInfo l|
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  5209
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  5210
    classInfo := aProject classInfo copy asOrderedCollection.
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  5211
    classInfo sort:[:a :b | a className < b className].
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  5212
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  5213
    l := self classList.
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  5214
    l removeAll.
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  5215
    l addAll:classInfo.
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  5216
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5217
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5218
!
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5219
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5220
updateListOfProjects
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5221
    "scan all classes/methods for new projects"
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5222
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5223
    self withWaitCursorDo:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5224
	Project initKnownProjects.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5225
	self updateProjectTree
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5226
    ].
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5227
!
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5228
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5229
updateListOfRequiredPrerequisiteClasses
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5230
    "all autoloaded superclasses of my classes are definitely required"
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5231
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5232
    |p anyChange allInPre requiredInPre nTotal nMissing msg|
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5233
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5234
    p := self currentProject.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5235
    p isNil ifTrue:[^ self].
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5236
    anyChange := false.
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5237
    nTotal := 0.
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5238
    nMissing := 0.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5239
    allInPre := self listOfAllClassesInPrerequisites value.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5240
    requiredInPre := self listOfRequiredClassesInPrerequisites value.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5241
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5242
    self currentProjectsClassNames do:[:aClassName |
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5243
	|cls|
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5244
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5245
	cls := Smalltalk at:aClassName asSymbol.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5246
	(cls notNil and:[cls isLoaded]) ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5247
	    cls allSuperclasses do:[:superClass |
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5248
		|sName idx|
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5249
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5250
		(superClass notNil 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5251
		and:[superClass isLoaded
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5252
		and:[superClass wasAutoloaded]]) ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5253
		    |sName entry|
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5254
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5255
		    sName := superClass name.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5256
		    idx := allInPre findFirst:[:item | item string = sName].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5257
		    idx ~~ 0 ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5258
			allInPre removeIndex:idx.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5259
			requiredInPre add:sName asText allBold.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5260
			anyChange := true.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5261
		    ]
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5262
		]
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5263
	    ]
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5264
	] ifFalse:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5265
	    nMissing := nMissing + 1.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5266
	].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5267
	nTotal := nTotal + 1.
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5268
    ].
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5269
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5270
    anyChange ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5271
	self listOfRequiredClassesInPrerequisites changed.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5272
	self listOfAllClassesInPrerequisites changed.
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5273
    ].
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5274
    nMissing ~~ 0 ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5275
	nMissing == nTotal ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5276
	    msg := 'Project is not loaded (' , nMissing printString
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5277
			    , ' unloaded classes)'.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5278
	] ifFalse:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5279
	    msg := 'Project is not loaded completely - ' , nMissing printString
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5280
			    , ' of the projects ' , nTotal printString , ' classes are not loaded'.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5281
	].
1207
9a14f97ee279 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1206
diff changeset
  5282
"/        self notify:msg.
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5283
    ].
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5284
    modifiedChannel value:false.
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5285
!
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5286
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5287
updatePatchesListForProject:aProject
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5288
    |methodInfo l|
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5289
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5290
    methodInfo := aProject methodInfo copy asOrderedCollection.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5291
    methodInfo sort:[:a :b | a displayString < b displayString].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5292
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5293
    l := self patchesList.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5294
    l removeAll.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5295
    l addAll:methodInfo.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5296
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5297
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5298
! !
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5299
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5300
!ProjectBrowser methodsFor:'user actions - canvas'!
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5301
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5302
accept
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5303
    "save values from aspects into the project"
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5304
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5305
    self saveAspectsIntoProject.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5306
    modifiedChannel value:false.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5307
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5308
!
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5309
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5310
addClassToPrerequisites
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5311
    |sel cls|
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5312
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5313
    sel := self selectedClassInPrerequisites value.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5314
    self listOfRequiredClassesInPrerequisites value add:sel.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5315
    self listOfAllClassesInPrerequisites value remove:sel.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5316
    self selectedClassInPrerequisites value:nil.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5317
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5318
    "/ also add any autoloaded superclass(es)
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5319
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5320
    cls := Smalltalk at:sel asSymbol.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5321
    (cls notNil and:[cls isLoaded]) ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5322
	cls allSuperclasses do:[:superClass |
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5323
	    |sName|
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5324
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5325
	    (superClass notNil 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5326
	    and:[superClass isLoaded
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5327
	    and:[superClass wasAutoloaded]]) ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5328
		|sName idx|
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5329
		sName := superClass name.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5330
		idx := self listOfAllClassesInPrerequisites value findFirst:[:s | s string = sName].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5331
		idx ~~ 0 ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5332
		    self listOfAllClassesInPrerequisites value removeIndex:idx.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5333
		    self listOfRequiredClassesInPrerequisites value add:sName asString allBold.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5334
		].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5335
	    ]
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5336
	]
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5337
    ].
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5338
    self listOfRequiredClassesInPrerequisites changed.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5339
    self listOfAllClassesInPrerequisites changed.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5340
    self accept
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5341
!
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5342
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5343
addProjectToPrerequisites
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5344
    |sel|
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5345
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5346
    sel := self selectedProjectInPrerequisites value.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5347
    self listOfRequiredProjectsInPrerequisites value add:sel.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5348
    self listOfAllProjectsInPrerequisites value remove:sel.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5349
    self selectedProjectInPrerequisites value:nil.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5350
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5351
    self listOfRequiredProjectsInPrerequisites changed.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5352
    self listOfAllProjectsInPrerequisites changed.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5353
    self accept
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5354
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5355
!
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5356
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5357
browseMethod
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5358
    "browse the selected method (from tree)"
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5359
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5360
    |patchWho mthdInfo cls mthd|
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5361
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5362
    mthdInfo := self selectedTreeNode value value.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5363
    cls := Smalltalk at: mthdInfo className asSymbol.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5364
    cls notNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5365
	mthd := cls compiledMethodAt:(mthdInfo methodName asSymbol).    
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5366
	mthd notNil ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5367
	    SystemBrowser browseClass:cls selector:mthdInfo methodName.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5368
	    ^ self
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5369
	]
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5370
    ].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5371
    self information:'Method not (yet) loaded.'
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5372
!
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5373
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5374
browseMethodFromCanvas
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5375
    "browse the selected table-rows method (from patches canvas)"
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5376
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5377
    |patchWho patchIndex|
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5378
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5379
    patchIndex := self selectedPatchInRightCanvas value.
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5380
    patchWho := self patchesList at:patchIndex.
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5381
    SystemBrowser browseClass:patchWho methodClass selector:patchWho methodSelector.
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5382
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5383
!
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5384
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5385
browseMethodFull
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5386
    "browse the selected method (from tree)"
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5387
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5388
    |patchWho mthdInfo cls mthd|
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5389
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5390
    mthdInfo := self selectedTreeNode value value.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5391
    cls := Smalltalk at: mthdInfo className asSymbol.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5392
    cls notNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5393
	mthd := cls compiledMethodAt:(mthdInfo methodName asSymbol).    
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5394
	mthd notNil ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5395
	    SystemBrowser openInClass:cls selector:mthdInfo methodName.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5396
	    ^ self
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5397
	]
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5398
    ].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5399
    self information:'Method not (yet) loaded.'
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5400
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5401
!
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5402
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5403
browseMethodFullFromCanvas
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5404
    "browse the selected table-rows method (from patches canvas)"
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5405
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5406
    |patchWho patchIndex|
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5407
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5408
    patchIndex := self selectedPatchInRightCanvas value.
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5409
    patchWho := self patchesList at:patchIndex.
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5410
    SystemBrowser openInClass:patchWho methodClass selector:patchWho methodSelector.
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5411
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5412
!
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5413
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5414
cancel
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5415
    "reload aspects from the project"
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5416
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5417
    self readAspectsFromProject
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5418
!
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5419
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5420
removeClassFromPrerequisites
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5421
    |sel cls myClasses|
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5422
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5423
    sel := self selectedRequiredClassInPrerequisites value.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5424
    cls := Smalltalk at:sel asSymbol.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5425
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5426
    "/ check if this affects my classes
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5427
    (cls notNil and:[cls isLoaded and:[cls wasAutoloaded]]) ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5428
	myClasses := self currentProjectsClassNames.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5429
	cls allSubclassesDo:[:cls |
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5430
	    (myClasses includes:cls name) ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5431
		self valueOfInfoLabel value:'Attention - this class is required by ' , cls name.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5432
		(self confirm:'Attention - this class is required by ' , cls name asText allBold, '.\(The project could later fail to load correctly)\\Really remove ?' withCRs) ifFalse:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5433
		    ^ self
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5434
		].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5435
	    ].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5436
	]
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5437
    ].
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5438
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5439
    self listOfAllClassesInPrerequisites value add:sel.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5440
    self listOfRequiredClassesInPrerequisites value remove:sel.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5441
    self selectedRequiredClassInPrerequisites value:nil.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5442
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5443
    "/ also remove any autoloaded subclass(es)
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5444
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5445
    (cls notNil and:[cls isLoaded and:[cls wasAutoloaded]]) ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5446
	cls allSubclassesDo:[:cls |
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5447
	    |entry|
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5448
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5449
	    entry := self listOfRequiredClassesInPrerequisites value remove:cls name ifAbsent:nil.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5450
	    entry notNil ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5451
	       self listOfAllClassesInPrerequisites value add:cls name.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5452
	    ]
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5453
	]
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5454
    ].
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5455
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5456
    self listOfRequiredClassesInPrerequisites changed.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5457
    self listOfAllClassesInPrerequisites changed.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5458
    self accept
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5459
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5460
!
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5461
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5462
removeProjectFromPrerequisites
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5463
    |sel|
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5464
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5465
    sel := self selectedRequiredProjectInPrerequisites value.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5466
    self listOfAllProjectsInPrerequisites value add:sel.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5467
    self listOfRequiredProjectsInPrerequisites value remove:sel.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5468
    self selectedRequiredProjectInPrerequisites value:nil.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5469
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5470
    self listOfRequiredProjectsInPrerequisites changed.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5471
    self listOfAllProjectsInPrerequisites changed.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5472
    self accept
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5473
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5474
!
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5475
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5476
showInfoForRequiredClass:entry
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5477
    "show why a class is required"
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5478
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5479
    |cls myClasses|
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5480
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5481
    entry notNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5482
	myClasses := self currentProjectsClassNames asSet.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5483
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5484
	cls := Smalltalk at:entry string asSymbol.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5485
	cls allSubclasses do:[:subClass |
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5486
	    (myClasses includes:subClass name) ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5487
		self valueOfInfoLabel value:('Required by ' , subClass name).
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5488
		^ self.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5489
	    ]
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5490
	].
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5491
    ].
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5492
    self valueOfInfoLabel value:nil
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5493
! !
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5494
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5495
!ProjectBrowser methodsFor:'user actions - menu'!
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5496
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5497
addClass
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5498
    "ask for, and add a single class"
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5499
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5500
    |p className cls|
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5501
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5502
    p := self currentProject.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5503
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5504
    className := Dialog request:'Class to add:'.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5505
    className size == 0 ifTrue:[^ self].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5506
    cls := Smalltalk classNamed:className.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5507
    cls isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5508
	"/ a new one
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5509
	(self confirm:'This is a new class. Add ?') ifFalse:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5510
	    ^ self      
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5511
	].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5512
	p
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5513
	    addClass:className
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5514
	    classFileName:((Smalltalk fileNameForClass:className) , '.st').
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5515
    ] ifFalse:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5516
	cls package ~= p package ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5517
	    "/ a new one
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5518
	    (self confirm:'Change the classes package from ' , cls package , ' to ' , p package , ' ?') ifFalse:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5519
		^ self      
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5520
	    ].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5521
	    cls package:p package.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5522
	].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5523
	p
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5524
	    addClass:cls name
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5525
	    classFileName:(cls classFilename 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5526
			    ? ((Smalltalk fileNameForClass:cls) , '.st')).
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5527
    ].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5528
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5529
    self updateClassListForProject:p
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5530
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5531
!
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5532
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5533
addClassesFromFilesInDirectory
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5534
    "add all classes found from files in the project directory"
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5535
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5536
    self addClassesFromFilesInDirectoryWithFilter:nil
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5537
!
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5538
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5539
addClassesFromFilesInDirectoryIfPresentInImage
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5540
    "add all classes found from files in the project directory,
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5541
     but only if class is currently present in the image."
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5542
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5543
    self addClassesFromFilesInDirectoryWithFilter:[:classOrName | classOrName isBehavior]
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5544
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5545
!
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5546
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5547
addClassesFromFilesInDirectoryWithFilter:aFilterBlockOrNil
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5548
    "helper to add all classes found from files in the project directory"
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5549
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5550
    |project existingClasses prjDirectory anyChange numSTFilesFound|
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5551
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5552
    project := self currentProject.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5553
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5554
    existingClasses := project classInfo.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5555
    anyChange := false.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5556
    numSTFilesFound := 0.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5557
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5558
    prjDirectory := project directory asFilename.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5559
    (prjDirectory exists and:[prjDirectory isDirectory]) ifFalse:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5560
	self warn:'Invalid project directory: ' , prjDirectory pathName.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5561
	^ self
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5562
    ].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5563
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5564
    prjDirectory directoryContents do:[:fn |
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5565
	|f oldInfo cls|
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5566
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5567
	f := prjDirectory construct:fn.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5568
	(f hasSuffix:'st') ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5569
	    numSTFilesFound := numSTFilesFound + 1.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5570
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5571
	    oldInfo := existingClasses 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5572
			    detect:[:clsInfo |
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5573
					clsInfo classFileName = fn
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5574
				   ] 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5575
			    ifNone:nil.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5576
	    oldInfo isNil ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5577
		"/ extract className from fileName ...
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5578
		cls := Smalltalk filenameAbbreviations keyAtValue:(f withoutSuffix baseName ).
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5579
		cls isNil ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5580
		    cls := f withoutSuffix baseName asSymbol.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5581
		    project defaultNameSpace notNil ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5582
			cls := (project defaultNameSpace name , '::' , cls) asSymbol
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5583
		    ]
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5584
		].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5585
		(aFilterBlockOrNil isNil 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5586
		or:[aFilterBlockOrNil value:cls]) ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5587
		    project addClass:cls classFileName:fn.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5588
		    anyChange := true.
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5589
Transcript showCR:'added ' , fn , ' as class: ' , cls printString.
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5590
		] ifFalse:[
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5591
Transcript showCR:'skipped ' , fn , ' as class: ' , cls printString.
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5592
		]
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5593
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5594
	    ]
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5595
	]
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5596
    ].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5597
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5598
    anyChange ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5599
	self updateClassListForProject:project
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5600
    ] ifFalse:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5601
	numSTFilesFound == 0 ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5602
	    self information:'No st-sourcefiles found in ' , prjDirectory pathName.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5603
	]
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5604
    ]
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5605
!
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5606
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5607
addClassesFromImage
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5608
    "add classes with this packageId found in the image"
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5609
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5610
    |project|
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5611
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5612
    project := self currentProject.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5613
    Smalltalk allClassesDo:[:aClass |
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5614
	aClass isMeta ifFalse:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5615
	    (aClass isNameSpace not or:[aClass == Smalltalk]) ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5616
		aClass package = project package ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5617
		    (project classInfoFor:aClass) isNil ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5618
			project 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5619
			    addClass:aClass name
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5620
			    classFileName:(aClass classFilename 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5621
					    ? ((Smalltalk fileNameForClass:aClass) , '.st')).
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5622
		    ]
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5623
		 ]
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5624
	     ]
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5625
	]
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5626
    ].                 
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5627
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5628
    self updateClassListForProject:project
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5629
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5630
!
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5631
1291
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  5632
addPrerequisitePackage
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  5633
    "ask for, and add a single class"
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  5634
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  5635
    |p packageName cls|
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  5636
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  5637
    p := self currentProject.
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  5638
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  5639
    packageName := Dialog request:'Package to add:'.
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  5640
    packageName size == 0 ifTrue:[^ self].
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  5641
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  5642
    p addPrerequisitePackage:packageName.
1292
f5fcf9ef07ab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1291
diff changeset
  5643
"/    self updatePrerequisitePackageListForProject:p.
1291
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  5644
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  5645
    self listOfRequiredProjectsInPrerequisites value add:packageName.
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  5646
    self listOfAllProjectsInPrerequisites value remove:packageName ifAbsent:nil.
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  5647
    self selectedProjectInPrerequisites value:nil.
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  5648
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  5649
    self listOfRequiredProjectsInPrerequisites changed.
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  5650
    self listOfAllProjectsInPrerequisites changed.
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  5651
    self accept
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  5652
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  5653
!
2beb244c45df *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
  5654
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5655
browseClasses
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5656
    "browse the projects classes"
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5657
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5658
    |ns p classes nBad uniqueClasses|
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5659
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5660
    p := self currentProject.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5661
    classes := p classes
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5662
		collect:[:clsOrName |
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5663
			    |cls realName|
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5664
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5665
			    clsOrName isSymbol ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5666
				realName := clsOrName.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5667
				(realName includes:$:) ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5668
				    (realName startsWith:'Smalltalk::') ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5669
					realName := (realName copyFrom:'Smalltalk::' size + 1) asSymbol
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5670
				    ]
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5671
				].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5672
				cls := Smalltalk at:realName
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5673
			    ] ifFalse:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5674
				cls := clsOrName
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5675
			    ].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5676
			    cls
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5677
			].
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5678
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5679
    "/ remove duplicates - but want to preserve order
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5680
    "/ thats why we do not use asIdentitySet asOrderedCollection
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5681
    uniqueClasses := OrderedCollection new.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5682
    classes do:[:cls | (uniqueClasses includesIdentical:cls) ifFalse:[uniqueClasses add:cls]].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5683
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5684
    nBad := classes inject:0 into:[:sum :el | el isNil ifTrue:[sum+1] ifFalse:[sum]].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5685
    nBad ~~ 0 ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5686
	classes := classes select:[:cls | cls notNil].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5687
	self warn:('Oops - %1 classes could not be found.\\You should probably load them first.' bindWith:nBad) withCRs.
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5688
    ].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5689
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5690
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5691
    SystemBrowser
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5692
	browseClasses:classes title:('Classes in ' , p name) sort:true.
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5693
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5694
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5695
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5696
!
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5697
1370
c975b2f00291 create abbrev file added
Claus Gittinger <cg@exept.de>
parents: 1329
diff changeset
  5698
buildAbbrevFile
c975b2f00291 create abbrev file added
Claus Gittinger <cg@exept.de>
parents: 1329
diff changeset
  5699
    "generate an abbrev.stc file in the projects directory"
c975b2f00291 create abbrev file added
Claus Gittinger <cg@exept.de>
parents: 1329
diff changeset
  5700
c975b2f00291 create abbrev file added
Claus Gittinger <cg@exept.de>
parents: 1329
diff changeset
  5701
    |p |
c975b2f00291 create abbrev file added
Claus Gittinger <cg@exept.de>
parents: 1329
diff changeset
  5702
c975b2f00291 create abbrev file added
Claus Gittinger <cg@exept.de>
parents: 1329
diff changeset
  5703
    p := self currentProject.
c975b2f00291 create abbrev file added
Claus Gittinger <cg@exept.de>
parents: 1329
diff changeset
  5704
    p isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5705
	self information:'No project selected'.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5706
	^ self
1370
c975b2f00291 create abbrev file added
Claus Gittinger <cg@exept.de>
parents: 1329
diff changeset
  5707
    ].
c975b2f00291 create abbrev file added
Claus Gittinger <cg@exept.de>
parents: 1329
diff changeset
  5708
c975b2f00291 create abbrev file added
Claus Gittinger <cg@exept.de>
parents: 1329
diff changeset
  5709
    self withCursor:Cursor wait do:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5710
	self makeTranscriptVisible.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5711
	TextCollector transcriptQuerySignal answer:self transcript
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5712
	do:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5713
	    p createAbbrevFile.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5714
	]
1370
c975b2f00291 create abbrev file added
Claus Gittinger <cg@exept.de>
parents: 1329
diff changeset
  5715
    ]
c975b2f00291 create abbrev file added
Claus Gittinger <cg@exept.de>
parents: 1329
diff changeset
  5716
!
c975b2f00291 create abbrev file added
Claus Gittinger <cg@exept.de>
parents: 1329
diff changeset
  5717
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5718
buildAll
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5719
    "build all as specified in the deployment section"
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5720
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5721
    |p|
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5722
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5723
    p := self currentProject.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5724
    p isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5725
	self information:'No project selected'.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5726
	^ self
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5727
    ].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5728
1251
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5729
    self makeTranscriptVisible.
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5730
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5731
    self withCursor:Cursor wait do:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5732
	"/ prepare the building ...
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5733
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5734
	TextCollector transcriptQuerySignal answer:self transcript
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5735
	do:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5736
	    (p propertyAt:#deliverLoadAllFile) == true ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5737
		p createLoadAllFile
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5738
	    ].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5739
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5740
	    (p propertyAt:#deliverSources) == true ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5741
		p createSourceFiles
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5742
	    ].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5743
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5744
	    (p propertyAt:#deliverMakefiles) == true ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5745
		self buildMakefiles
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5746
	    ].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5747
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5748
	    (p propertyAt:#deliverCompiledBinary) == true ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5749
		self buildCompiledClassLibrary
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5750
	    ].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5751
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5752
	    (p propertyAt:#deliverByteCode) == true ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5753
		self buildByteCodeClassLibrary
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5754
	    ].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5755
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5756
	    "/ now, deploy ...
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5757
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5758
	    (p propertyAt:#deliverZipArchive) == true ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5759
		p buildZipArchive
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5760
	    ].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5761
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5762
	    (p propertyAt:#deliverTarArchive) == true ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5763
		p buildTarArchive
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5764
	    ].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5765
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5766
	    (p propertyAt:#deliverGZipArchive) == true ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5767
		p buildGZipArchive
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5768
	    ].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5769
	].
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5770
    ].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5771
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5772
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5773
!
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5774
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5775
buildCompiledClassLibrary
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5776
    "compile a binary class library in the projects directory"
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5777
1251
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5778
    |p diagnostic error textBox|
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5779
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5780
    p := self currentProject.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5781
    p isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5782
	self information:'No project selected'.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5783
	^ self
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5784
    ].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5785
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5786
    "/ check for directory ...
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5787
    (self checkForProjectDirectoryFor:p) ifFalse:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5788
	^ self
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5789
    ].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5790
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5791
    "/ check for Make.proto ...
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5792
    (self checkForMakeProtoFor:p) ifFalse:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5793
	^ self
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5794
    ].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5795
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5796
    "/ check for Makefile ...
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5797
    (self checkForMakefileFor:p) ifFalse:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5798
	^ self
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5799
    ].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5800
1251
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5801
    self makeTranscriptVisible.
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5802
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5803
    "/ now, execute the makefile found there ...
1251
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5804
    diagnostic := self transcript.
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5805
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5806
    error := false.
1251
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5807
    diagnostic nextPutLine:('Building compiled class library...' asText emphasizeAllWith:#color->Color blue).
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5808
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5809
    self withCursor:Cursor wait do:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5810
	OperatingSystem
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5811
	    executeCommand:'make' 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5812
	    inputFrom:nil 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5813
	    outputTo:diagnostic 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5814
	    errorTo:diagnostic 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5815
	    inDirectory:(p directory asFilename pathName) 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5816
	    onError:[:status | error := true].
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5817
    ].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5818
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5819
1251
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5820
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5821
!
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5822
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5823
buildLoadAllFile
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5824
    "generate a loadAll file in the projects directory"
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5825
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5826
    |p |
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5827
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5828
    p := self currentProject.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5829
    p isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5830
	self information:'No project selected'.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5831
	^ self
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5832
    ].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5833
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5834
    self withCursor:Cursor wait do:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5835
	self makeTranscriptVisible.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5836
	TextCollector transcriptQuerySignal answer:self transcript
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5837
	do:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5838
	    p createLoadAllFile.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5839
	]
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5840
    ]
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5841
!
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5842
1278
b9769689b45c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1267
diff changeset
  5843
buildMakefile
b9769689b45c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1267
diff changeset
  5844
    "generate a Makefile/nt.mak/vms.mak in the projects directory"
b9769689b45c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1267
diff changeset
  5845
b9769689b45c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1267
diff changeset
  5846
    |p |
b9769689b45c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1267
diff changeset
  5847
b9769689b45c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1267
diff changeset
  5848
    p := self currentProject.
b9769689b45c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1267
diff changeset
  5849
    p isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5850
	self information:'No project selected'.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5851
	^ self
1278
b9769689b45c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1267
diff changeset
  5852
    ].
b9769689b45c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1267
diff changeset
  5853
b9769689b45c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1267
diff changeset
  5854
    self withCursor:Cursor wait do:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5855
	self makeTranscriptVisible.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5856
	TextCollector transcriptQuerySignal answer:self transcript
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5857
	do:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5858
	    p createMakefile
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5859
	]
1278
b9769689b45c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1267
diff changeset
  5860
    ].
b9769689b45c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1267
diff changeset
  5861
b9769689b45c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1267
diff changeset
  5862
    "Created: / 16.12.1999 / 01:29:30 / cg"
b9769689b45c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1267
diff changeset
  5863
!
b9769689b45c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1267
diff changeset
  5864
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5865
buildMakefiles
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5866
    "generate a Make.proto and Makefile in the projects directory"
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5867
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5868
    |p |
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5869
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5870
    p := self currentProject.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5871
    p isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5872
	self information:'No project selected'.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5873
	^ self
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5874
    ].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5875
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5876
    self withCursor:Cursor wait do:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5877
	self makeTranscriptVisible.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5878
	TextCollector transcriptQuerySignal answer:self transcript
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5879
	do:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5880
	    p createProtoMakefile.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5881
	    p createMakefile
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5882
	]
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5883
    ].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5884
!
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5885
1298
64cfa48905dc nt makefiles.
Claus Gittinger <cg@exept.de>
parents: 1293
diff changeset
  5886
buildNTMakefile
64cfa48905dc nt makefiles.
Claus Gittinger <cg@exept.de>
parents: 1293
diff changeset
  5887
    "generate an nt.mak in the projects directory"
64cfa48905dc nt makefiles.
Claus Gittinger <cg@exept.de>
parents: 1293
diff changeset
  5888
64cfa48905dc nt makefiles.
Claus Gittinger <cg@exept.de>
parents: 1293
diff changeset
  5889
    |p |
64cfa48905dc nt makefiles.
Claus Gittinger <cg@exept.de>
parents: 1293
diff changeset
  5890
64cfa48905dc nt makefiles.
Claus Gittinger <cg@exept.de>
parents: 1293
diff changeset
  5891
    p := self currentProject.
64cfa48905dc nt makefiles.
Claus Gittinger <cg@exept.de>
parents: 1293
diff changeset
  5892
    p isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5893
	self information:'No project selected'.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5894
	^ self
1298
64cfa48905dc nt makefiles.
Claus Gittinger <cg@exept.de>
parents: 1293
diff changeset
  5895
    ].
64cfa48905dc nt makefiles.
Claus Gittinger <cg@exept.de>
parents: 1293
diff changeset
  5896
64cfa48905dc nt makefiles.
Claus Gittinger <cg@exept.de>
parents: 1293
diff changeset
  5897
    self withCursor:Cursor wait do:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5898
	self makeTranscriptVisible.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5899
	TextCollector transcriptQuerySignal answer:self transcript
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5900
	do:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5901
	    p createNTMakefile
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5902
	]
1298
64cfa48905dc nt makefiles.
Claus Gittinger <cg@exept.de>
parents: 1293
diff changeset
  5903
    ].
64cfa48905dc nt makefiles.
Claus Gittinger <cg@exept.de>
parents: 1293
diff changeset
  5904
64cfa48905dc nt makefiles.
Claus Gittinger <cg@exept.de>
parents: 1293
diff changeset
  5905
    "Created: / 19.1.2000 / 15:55:17 / cg"
64cfa48905dc nt makefiles.
Claus Gittinger <cg@exept.de>
parents: 1293
diff changeset
  5906
!
64cfa48905dc nt makefiles.
Claus Gittinger <cg@exept.de>
parents: 1293
diff changeset
  5907
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5908
checkInAllClasses
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5909
    "check in all classes"
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5910
1289
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  5911
    |p classes classesToCheckIn anyBad|
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5912
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5913
    p := self currentProject.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5914
    p isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5915
	self information:'No project selected'.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5916
	^ self
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5917
    ].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5918
1289
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  5919
    classesToCheckIn := OrderedCollection new.
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  5920
    anyBad := false.
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  5921
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  5922
    "/ collect in classes ...
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5923
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5924
    classes := p classes.
1289
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  5925
    classes do:[:aClassOrClassName |
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5926
	|cls clsName|
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5927
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5928
	cls := aClassOrClassName.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5929
	cls isString ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5930
	    cls := Smalltalk at:cls asSymbol.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5931
	    clsName := aClassOrClassName
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5932
	] ifFalse:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5933
	    clsName := aClassOrClassName name
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5934
	].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5935
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5936
	cls isBehavior ifFalse:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5937
	    Transcript showCR:('ProjectBrowser: cannot checkIn unloaded class: ' , clsName).
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5938
	    anyBad := true.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5939
	] ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5940
	    cls isLoaded ifFalse:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5941
		Transcript showCR:('ProjectBrowser: cannot checkIn unloaded class: ' , clsName).
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5942
		anyBad := true.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5943
	    ] ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5944
		cls owningClass isNil ifTrue:[ "/ skip private classes
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5945
		    Transcript showCR:('ProjectBrowser: checking in class: ' , clsName).
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5946
		    classesToCheckIn add:cls.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5947
		]
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5948
	    ]
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5949
	]
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5950
    ].
1289
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  5951
    anyBad ifTrue:[^ self].
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  5952
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  5953
    self checkInClasses:classesToCheckIn.
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5954
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5955
!
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5956
1267
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  5957
checkInMakefiles
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  5958
    "check in the Make.proto, Makefile, nt.mak and vms.mak files"
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  5959
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  5960
    |p|
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  5961
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  5962
    p := self currentProject.
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  5963
    p isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5964
	self information:'No project selected'.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5965
	^ self
1267
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  5966
    ].
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  5967
1290
57d613905108 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1289
diff changeset
  5968
    self warn:'CheckIn of Makefiles not yet implemented.'.
1267
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  5969
    ^ self.
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  5970
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  5971
    "/ check it in ...
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  5972
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  5973
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  5974
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  5975
!
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  5976
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5977
checkInMethods
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5978
    "check in all extensions (patches)"
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5979
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5980
    |p  methods anyMethodMissing|
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5981
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5982
    p := self currentProject.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5983
    p isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5984
	self information:'No project selected'.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5985
	^ self
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5986
    ].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5987
1290
57d613905108 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1289
diff changeset
  5988
    self warn:'CheckIn of extensions not yet implemented.'.
1267
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  5989
    ^ self.
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  5990
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5991
    "/ check methods ...
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5992
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5993
    anyMethodMissing := false.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5994
    methods := p methods.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5995
    methods size > 0 ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5996
	methods do:[:aMethod |
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5997
	    aMethod isMethod ifFalse:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5998
		Transcript showCR:('ProjectBrowser: cannot checkIn unloaded method: ' , aMethod className , ' ' , aMethod methodName).
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  5999
		anyMethodMissing := true.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6000
	    ]
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6001
	].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6002
	anyMethodMissing ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6003
	    Transcript showCR:'ProjectBrowser: cannot save method patches & extensions due to missing method(s)'.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6004
	] ifFalse:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6005
	    Transcript showCR:('ProjectBrowser: checking in patches & extensions').
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6006
	    self checkInMethods:methods
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6007
	].
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6008
    ].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6009
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6010
!
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6011
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6012
checkInProject
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6013
    "check in all classes and extensions"
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6014
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6015
    |p|
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6016
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6017
    p := self currentProject.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6018
    p isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6019
	self information:'No project selected'.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6020
	^ self
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6021
    ].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6022
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6023
    "/ check in classes ...
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6024
    self checkInAllClasses.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6025
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6026
    "/ check methods ...
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6027
    self checkInMethods.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6028
1290
57d613905108 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1289
diff changeset
  6029
    "/ build & check in makefiles
57d613905108 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1289
diff changeset
  6030
"/    self buildMakefiles.
57d613905108 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1289
diff changeset
  6031
    self checkInMakefiles.
57d613905108 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1289
diff changeset
  6032
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6033
    "/ check in the project file itself
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6034
    self checkInProjectFile.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6035
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6036
!
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6037
1267
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  6038
checkInProjectFile
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  6039
    "check in the prj-file"
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  6040
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  6041
    |p|
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  6042
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  6043
    p := self currentProject.
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  6044
    p isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6045
	self information:'No project selected'.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6046
	^ self
1267
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  6047
    ].
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  6048
1290
57d613905108 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1289
diff changeset
  6049
    self warn:'CheckIn of ProjectFile not yet implemented.'.
1267
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  6050
    ^ self.
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  6051
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  6052
    "/ check it in ...
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  6053
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  6054
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  6055
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  6056
!
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  6057
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6058
inspectCurrentProject
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6059
    "inspect the current project"
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6060
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6061
    self hasProjectSelected ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6062
	self currentProject inspect.
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6063
    ]
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6064
!
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6065
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6066
loadClassesFromDirectory
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6067
    "load all classes as contained in the project into the system"
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6068
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6069
    self withReadCursorDo:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6070
	self currentProject loadClassesFromProjectDirectory.
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6071
    ].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6072
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6073
!
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6074
1289
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  6075
loadClassesFromRepository
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  6076
    "load all classes as contained in the project from the source code
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  6077
     repository into the system"
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  6078
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  6079
    self warn:'not yet implemented - please load from directory'
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  6080
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  6081
!
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  6082
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6083
makeCurrentProject
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6084
    "make the selected Project the current project"
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6085
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6086
    |project|
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6087
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6088
    self hasProjectSelected ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6089
	project := self currentProject.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6090
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6091
	Project current:project.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6092
	self showWhat value == #current ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6093
	    self updateProjectTree
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6094
	]
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6095
    ]
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6096
!
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6097
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6098
moveMethodToProject
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6099
    |p mthd newPackage|
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6100
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6101
    p := self currentProject.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6102
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6103
    mthd := self selectedMethod.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6104
    mthd notNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6105
	newPackage := Dialog request:'Move to project:' initialAnswer:lastMoveToProject.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6106
	newPackage size > 0 ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6107
	    lastMoveToProject := newPackage.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6108
	    newPackage ~= p package ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6109
		mthd package:newPackage asSymbol.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6110
		p removeMethod:mthd.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6111
		self updatePatchesListForProject:p.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6112
		self projectTree remove:self selectedTreeNode.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6113
	    ]
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6114
	]
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6115
    ].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6116
!
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6117
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6118
newProject
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6119
    self newProject:Project new.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6120
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6121
!
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6122
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6123
newProject:newProject
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6124
    |newNode|
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6125
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6126
    newNode := self nodeFor:newProject.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6127
    self addProjectNodeToTree:newNode.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6128
    self projectTreeHolder root:projectTree.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6129
"/    self projectTreeHolder selectNode:newNode.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6130
"/    self projectTreeHolder expand:newNode.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6131
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6132
    self readAspectsFromProject.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6133
    newProject wasLoadedFromFile ifFalse:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6134
	 self updateListOfRequiredPrerequisiteClasses.
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6135
    ]
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6136
!
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6137
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6138
newSubProject
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6139
    |projectNode subProjectsNode newNode parentProject newProject|
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6140
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6141
    projectNode := self currentProjectNode.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6142
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6143
    projectNode notNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6144
	parentProject := projectNode contents.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6145
	subProjectsNode := projectNode children detect:[:child | child contents == #subprojects].
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6146
self halt.
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6147
	parentProject notNil ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6148
	    newProject := Project new.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6149
	    newNode := self nodeFor:newProject.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6150
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6151
	    parentProject addSubProject:newProject.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6152
	    subProjectsNode add:newNode.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6153
	    self projectTreeHolder root:projectTree.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6154
	    self projectTreeHolder selectNode:newNode.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6155
	]    
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6156
    ]    
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6157
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6158
!
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6159
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6160
openDocumentation
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6161
    self openHTMLDocument: 'tools/pbrowser/TOP.html'
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6162
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6163
!
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6164
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6165
openProject
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6166
    |fn|
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6167
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6168
    fn := Dialog 
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6169
	requestFileName:'filename:' 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6170
	default:nil
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6171
	ifFail:nil
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6172
	pattern:'*.prj'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6173
	fromDirectory:(FileSelectionBox lastFileSelectionDirectory).
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6174
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6175
    fn notNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6176
	self loadFromProjectFile:fn.
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6177
    ]
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6178
!
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6179
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6180
removeMethod
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6181
    |p mthd|
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6182
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6183
    p := self currentProject.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6184
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6185
    mthd := self selectedMethod.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6186
    mthd notNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6187
	(self confirm:'Really remove the method (from both project and image) ?') ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6188
	    p removeMethod:mthd.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6189
	    mthd who methodClass removeSelector:mthd who methodSelector.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6190
	    self updatePatchesListForProject:p.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6191
	    self projectTree remove:self selectedTreeNode.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6192
	]
1327
3645e5215142 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1324
diff changeset
  6193
    ] ifFalse:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6194
	self information:'No such method in the image (yet)'.
1327
3645e5215142 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1324
diff changeset
  6195
    ]
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6196
!
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6197
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6198
removeMethodFromProject
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6199
    |p mthd|
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6200
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6201
    p := self currentProject.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6202
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6203
    mthd := self selectedMethod.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6204
    mthd notNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6205
	(self confirm:'Really remove the method (from the project) ?') ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6206
	    mthd package:#unknown.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6207
	    p removeMethod:mthd.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6208
	    self updatePatchesListForProject:p.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6209
	    self projectTree remove:self selectedTreeNode.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6210
	]
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6211
    ].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6212
!
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6213
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6214
removeProject
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6215
    |projectToRemove selectedNode subNode newNode parentNode parentProject newProject|
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6216
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6217
    self hasProjectNodeSelected ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6218
	selectedNode := self selectedTreeNode.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6219
	projectToRemove := selectedNode contents.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6220
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6221
	(self confirm:'Really remove the project ?') ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6222
	    self withExecuteCursorDo:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6223
		self projectTreeHolder removeSelection.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6224
		projectToRemove removeFromSystem.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6225
	    ]
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6226
	]
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6227
    ]
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6228
!
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6229
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6230
renameProject
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6231
    |nm projectNode selectedProject|
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6232
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6233
    projectNode := self currentProjectNode.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6234
    projectNode notNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6235
	selectedProject := projectNode contents.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6236
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6237
	nm := Dialog 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6238
		request:'Rename to:'
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6239
		initialAnswer:selectedProject name.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6240
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6241
	nm size > 0 ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6242
	    selectedProject name:nm.
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6243
"/            selectedNode name:nm.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6244
"/            selectedNode changed.
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6245
	]
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6246
    ]
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6247
!
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6249
saveProjectFile
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6250
    "save the project file in the project directory"
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6251
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6252
    |d p|
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6253
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6254
    self modifiedChannel value ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6255
	(self confirm:'Changes not confirmed; save anyway ?') ifFalse:[^ self]
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6256
    ].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6257
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6258
    p := self currentProject.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6259
    p isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6260
	self information:'Select a project first.'.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6261
	^self
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6262
    ].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6263
    p directory isNil ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6264
	d := (Dialog request:'Project Directory:').
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6265
	d size == 0 ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6266
	    ^ self
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6267
	].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6268
	p directory:d
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6269
    ].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6270
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6271
    self withCursor:Cursor write do:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6272
	p saveAsProjectFile.
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6273
    ]
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6274
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6275
    "Modified: / 26.4.1999 / 22:43:57 / cg"
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6276
!
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6277
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6278
validateAgainstClassesInImage
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6279
    "validate classes in project against classes found in the image"
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6280
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6281
    |project classesInProjectOnly classesInImageOnly bindings|
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6282
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6283
    project := self currentProject.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6284
    classesInImageOnly := IdentitySet new.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6285
    classesInProjectOnly := IdentitySet new.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6286
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6287
    Smalltalk allClassesDo:[:aClass |
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6288
	aClass isMeta ifFalse:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6289
	    (aClass isNameSpace not or:[aClass == Smalltalk]) ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6290
		aClass package = project package ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6291
		    (project classInfoFor:aClass) isNil ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6292
			classesInImageOnly add:aClass name.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6293
		    ]
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6294
		 ]
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6295
	     ]
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6296
	]
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6297
    ].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6298
    project classInfo do:[:clsInfo |
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6299
	|clsName cls|
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6300
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6301
	clsName := clsInfo className.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6302
	cls := Smalltalk at:clsName asSymbol.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6303
	(cls isBehavior not) ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6304
	    classesInProjectOnly add:clsName
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6305
	].
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6306
    ].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6307
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6308
    (classesInImageOnly isEmpty and:[classesInProjectOnly isEmpty]) ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6309
	self information:'Set of classes in project and image are equal.'.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6310
	^ self.
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6311
    ].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6312
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6313
    classesInImageOnly := classesInImageOnly asOrderedCollection sort.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6314
    classesInProjectOnly := classesInProjectOnly asOrderedCollection sort.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6315
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6316
    bindings := IdentityDictionary new.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6317
    bindings at:#classesInImageOnly put:classesInImageOnly.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6318
    bindings at:#classesInProjectOnly put:classesInProjectOnly.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6319
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6320
    SimpleDialog
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6321
	openDialogInterfaceSpec:(self class classValidationDialogSpec)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6322
	withBindings:bindings
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6323
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6324
    "Modified: / 26.9.1999 / 16:03:50 / cg"
1255
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6325
!
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6326
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6327
validateAgainstMethodsInImage
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6328
    "validate methods in project against methods found in the image"
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6329
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6330
    |project package methodsInProjectOnly methodsInImageOnly bindings who|
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6331
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6332
    project := self currentProject.
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6333
    package := project package.
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6334
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6335
    methodsInImageOnly := IdentitySet new.
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6336
    methodsInProjectOnly := IdentitySet new.
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6337
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6338
    Method allSubInstancesDo:[:aMethod |
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6339
	aMethod package = package ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6340
	    who := aMethod who.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6341
	    who notNil ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6342
		(project classInfoFor:who methodClass) isNil ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6343
		    "/ is it in the projects methodList ?
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6344
		    (project includesMethod:aMethod) ifFalse:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6345
			methodsInImageOnly add:(who methodClass name , ' ' , who methodSelector).
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6346
		    ]
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6347
		]
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6348
	    ]
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6349
	 ]
1255
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6350
    ].
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6351
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6352
    project methodInfo do:[:mthdInfo |
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6353
	|clsName sel cls m|
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6354
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6355
	clsName := mthdInfo className.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6356
	sel := mthdInfo methodName.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6357
	cls := Smalltalk at:clsName asSymbol.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6358
	(project includesClass:clsName) ifFalse:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6359
	    (cls isBehavior not 
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6360
	    or:[(m := cls compiledMethodAt:sel) isNil
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6361
	    or:[m package ~= package]]) ifTrue:[
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6362
		methodsInProjectOnly add:(clsName , ' ' , sel)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6363
	    ].
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6364
	].
1255
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6365
    ].
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6366
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6367
    (methodsInImageOnly isEmpty and:[methodsInProjectOnly isEmpty]) ifTrue:[
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6368
	self information:'Set of methods in project and image are equal.'.
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6369
	^ self.
1255
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6370
    ].
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6371
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6372
    methodsInImageOnly := methodsInImageOnly asOrderedCollection sort:[:a :b | a printString < b printString].
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6373
    methodsInProjectOnly := methodsInProjectOnly asOrderedCollection sort:[:a :b | a printString < b printString].
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6374
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6375
    bindings := IdentityDictionary new.
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6376
    bindings at:#methodsInImageOnly put:methodsInImageOnly.
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6377
    bindings at:#methodsInProjectOnly put:methodsInProjectOnly.
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6378
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6379
    SimpleDialog
1371
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6380
	openDialogInterfaceSpec:(self class methodValidationDialogSpec)
1753f2293bce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1370
diff changeset
  6381
	withBindings:bindings
1255
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6382
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6383
    "Modified: / 26.9.1999 / 16:03:50 / cg"
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6384
! !
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6385
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  6386
!ProjectBrowser::ProjectTreeItem methodsFor:'accessing'!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  6387
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  6388
action
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  6389
    "return the value of the instance variable 'action' (automatically generated)"
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  6390
2076
66d858959276 category change
Claus Gittinger <cg@exept.de>
parents: 1371
diff changeset
  6391
    ^ action
66d858959276 category change
Claus Gittinger <cg@exept.de>
parents: 1371
diff changeset
  6392
!
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  6393
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  6394
action:something
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  6395
    "set the value of the instance variable 'action' (automatically generated)"
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  6396
2076
66d858959276 category change
Claus Gittinger <cg@exept.de>
parents: 1371
diff changeset
  6397
    action := something.
66d858959276 category change
Claus Gittinger <cg@exept.de>
parents: 1371
diff changeset
  6398
!
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  6399
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  6400
info
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  6401
    "return the value of the instance variable 'info' (automatically generated)"
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  6402
2076
66d858959276 category change
Claus Gittinger <cg@exept.de>
parents: 1371
diff changeset
  6403
    ^ info
66d858959276 category change
Claus Gittinger <cg@exept.de>
parents: 1371
diff changeset
  6404
!
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  6405
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  6406
info:something
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  6407
    "set the value of the instance variable 'info' (automatically generated)"
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  6408
2076
66d858959276 category change
Claus Gittinger <cg@exept.de>
parents: 1371
diff changeset
  6409
    info := something.
66d858959276 category change
Claus Gittinger <cg@exept.de>
parents: 1371
diff changeset
  6410
!
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  6411
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  6412
spec
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  6413
    "return the value of the instance variable 'spec' (automatically generated)"
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  6414
2076
66d858959276 category change
Claus Gittinger <cg@exept.de>
parents: 1371
diff changeset
  6415
    ^ spec
66d858959276 category change
Claus Gittinger <cg@exept.de>
parents: 1371
diff changeset
  6416
!
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  6417
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  6418
spec:something
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  6419
    "set the value of the instance variable 'spec' (automatically generated)"
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  6420
2076
66d858959276 category change
Claus Gittinger <cg@exept.de>
parents: 1371
diff changeset
  6421
    spec := something.
66d858959276 category change
Claus Gittinger <cg@exept.de>
parents: 1371
diff changeset
  6422
! !
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  6423
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  6424
!ProjectBrowser::ProjectTreeItem methodsFor:'queries'!
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  6425
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  6426
isProjectNode
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  6427
    ^ false
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  6428
! !
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  6429
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  6430
!ProjectBrowser::ProjectNode methodsFor:'queries'!
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  6431
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  6432
isProjectNode
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  6433
    ^ true
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  6434
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  6435
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  6436
! !
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  6437
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  6438
!ProjectBrowser class methodsFor:'documentation'!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  6439
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  6440
version
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  6441
    ^ '$Header$'
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  6442
! !
2076
66d858959276 category change
Claus Gittinger <cg@exept.de>
parents: 1371
diff changeset
  6443
1236
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
  6444
ProjectBrowser initialize!