ProjectBrowser.st
author Claus Gittinger <cg@exept.de>
Fri, 24 Sep 1999 19:10:24 +0200
changeset 1238 af3b724392f4
parent 1237 6d473fbfdf7d
child 1239 a95243b3ab4a
permissions -rw-r--r--
checkin from browser
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
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
     3
              All Rights Reserved
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
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
    16
ToolApplicationModel subclass:#ProjectBrowser
1210
30bd57bbe9ce better tree
Claus Gittinger <cg@exept.de>
parents: 1207
diff changeset
    17
	instanceVariableNames:'projectTree modifiedChannel selectedTreeNodeHolder'
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
    18
	classVariableNames:'AlreadCheckedExistingModulesAndPackages'
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
	poolDictionaries:''
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
	category:'Interface-Smalltalk'
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
    23
TreeItemWithImage subclass:#ProjectTreeItem
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
    24
	instanceVariableNames:'action spec info'
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
	classVariableNames:''
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    26
	poolDictionaries:''
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    27
	privateIn:ProjectBrowser
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
    30
ProjectBrowser::ProjectTreeItem subclass:#ProjectNode
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
    31
	instanceVariableNames:''
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
    32
	classVariableNames:''
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
    33
	poolDictionaries:''
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
    34
	privateIn:ProjectBrowser
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
    35
!
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
    36
1227
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    37
!ProjectBrowser class methodsFor:'documentation'!
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    38
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    39
copyright
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    40
"
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    41
 COPYRIGHT (c) 1999 by eXept Software AG
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    42
              All Rights Reserved
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
 This software is furnished under a license and may be used
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    45
 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
    46
 inclusion of the above copyright notice. This software may not
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    47
 be provided or otherwise made available to, or used by, any
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    48
 other person. No title to or ownership of the software is
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    49
 hereby transferred.
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    50
"
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    51
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    52
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
documentation
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
    The new project browser & builder.
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    59
    This one will (eventually) make packaging of classLibraries and
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    60
    applications easier. 
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    61
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    62
    EXPERIMENTAL: not finished.
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    63
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    64
    [start with:]
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    65
        ProjectBrowser open
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
    [see also:]
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    68
        Project
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
    [author:]
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    71
        Claus Gittinger, eXept Software AG
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
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    74
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    75
! !
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    76
1236
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
    77
!ProjectBrowser class methodsFor:'class initialization'!
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
    78
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
    79
initialize
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
    80
    "add myself to the launchers tool menu"
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
    NewLauncher allInstancesDo:[:l |
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
    83
        l addUserTool:'Project Builder' 
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
    84
          action:[ProjectBrowser open] 
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
    85
          in:#menu 
1237
6d473fbfdf7d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1236
diff changeset
    86
          after:'Changes Browser' 
1236
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
    87
          icon:self projectBrowserIcon 
1237
6d473fbfdf7d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1236
diff changeset
    88
          space:false
1236
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
    89
    ].
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
    90
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
    91
    "
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
    92
     self initialize
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
    93
    "
1237
6d473fbfdf7d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1236
diff changeset
    94
    "
6d473fbfdf7d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1236
diff changeset
    95
     NewLauncher allInstancesDo:[:l |
6d473fbfdf7d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1236
diff changeset
    96
        l removeUserTool:'Project Builder'
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
    "
1236
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
    99
! !
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
   100
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   101
!ProjectBrowser class methodsFor:'help specs'!
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   102
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   103
helpSpec
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   104
    "This resource specification was automatically generated
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   105
     by the UIHelpTool of ST/X."
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   106
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   107
    "Do not manually edit this!! If it is corrupted,
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   108
     the UIHelpTool may not be able to read the specification."
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
    "
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   111
     UIHelpTool openOnClass:ProjectBrowser    
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
    <resource: #help>
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
    ^super helpSpec addPairsFrom:#(
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   117
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   118
#accept
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   119
'Accept modifications made here.'
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
#appType
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   122
'An application - ie an executable program (and support files if any).'
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
#cancel
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   125
'Undo modifications made here.'
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
#defaultNamespace
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   128
'Namespace for new classes when created in the Browser.'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   129
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   130
#deliverGZipArchive
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   131
'Package delivery into a gzip archive (for unix)'
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
#deliverTarArchive
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   134
'Package delivery into a tar 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
#deliverZipArchive
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   137
'Package delivery into a zip archive (for win32)'
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
#deliverCompiledBinary
1229
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
   140
'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
   141
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
   142
#deliverByteCode
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
   143
'Create and deliver as bytecode - portable across architectures.'
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   144
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   145
#deliverLoadAll
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   146
'Deliver a loadAll script file, which files-In the other files.'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   147
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   148
#deliverSources
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   149
'Include smalltalk sourceCode in the delivery.'
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
#deliverMakefiles
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   152
'Include makefiles in the delivery.'
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   153
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   154
#includeSource
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   155
'Include smalltalk sourceCode in the delivery.'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   156
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   157
#installDirMacOS
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   158
'The final install directory for MacOS deliveries.'
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
#installDirUnix
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   161
'The final install directory for UNIX 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
#installDirVMS
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   164
'The final install directory for VMS 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
#installDirWin32
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   167
'The final install directory for Win32 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
#libType
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   170
'A classLibrary addOn (and support files if any)'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   171
1223
23a55549641a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1220
diff changeset
   172
#methodsFile
23a55549641a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1220
diff changeset
   173
'Patches & Extensions are stored in this file.'
23a55549641a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1220
diff changeset
   174
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   175
#packageID
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   176
'Package ID used to associate classes & methods to this project.'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   177
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   178
#projectDir
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   179
'The projects directory.'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   180
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   181
#repositoryDirectory
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   182
'The directory path below the module in the source-repository.'
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
#repositoryModule
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   185
'The module (top directory) in the source-repository.'
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
)
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   188
! !
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   189
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   190
!ProjectBrowser class methodsFor:'image specs'!
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   191
1234
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   192
buildOptionsIcon
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   193
    "This resource specification was automatically generated
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   194
     by the ImageEditor of ST/X."
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   195
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   196
    "Do not manually edit this!! If it is corrupted,
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   197
     the ImageEditor may not be able to read the specification."
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   198
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   199
    "
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   200
     self deploymentIcon inspect
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   201
     ImageEditor openOnClass:self andSelector:#deploymentIcon
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   202
    "
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   203
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   204
    <resource: #image>
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   205
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   206
    ^Icon
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   207
        constantNamed:#'ProjectBrowser buildOptionsIcon'
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   208
        ifAbsentPut:[(Depth4Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@CL0@3L0@@@CL3@3@3@@@CL@LC@CL@@@L0@0LCL0@@@CMCP3MD@@@@L3L3L3M@@@ADP3QD@4@@@@@3@@ACP@@DQCMDPDM@@@QDL4Q@P4@@ADP3QDACP@@DQCMDPDM@@@QDL4Q@P0@@ADP3QDAC@@@DQCMDP@@@@@@@L0@@@@@b') ; colorMapFromArray:#[0 0 0 0 0 132 132 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]
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   209
!
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   210
1097
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
   211
classIcon
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
   212
    "This resource specification was automatically generated
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
   213
     by the ImageEditor of ST/X."
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
   214
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
   215
    "Do not manually edit this!! If it is corrupted,
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
   216
     the ImageEditor may not be able to read the specification."
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
   217
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
   218
    "
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
   219
     self classIcon inspect
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
   220
     ImageEditor openOnClass:self andSelector:#classIcon
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
   221
    "
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
   222
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
   223
    <resource: #image>
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
   224
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
   225
    ^Icon
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
   226
        constantNamed:#'ProjectBrowser classIcon'
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
   227
        ifAbsentPut:[(Depth4Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'H"H"H"H"H"@"H"H"H"H"HBH@@@@@@@H H H!!DQD"@"@"@@@@@@@BHBHBH"H"H H H HQDQDR@@@@@@@@@@@@@@@BH"H"H @@@@HQDQDR@@@@@"H"H"HBHBHBDQDQD H H H"H"H"@"@"@@@@@@@@@BHBH"H"H"H"H H"H"H"H"Hb') ; 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? ?>C?8O? ?>C?8O? ?>C?8O? ?>@@@@@@b') ; yourself); yourself]!
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
   228
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   229
classesIcon
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   230
    "This resource specification was automatically generated
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   231
     by the ImageEditor of ST/X."
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   232
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   233
    "Do not manually edit this!! If it is corrupted,
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   234
     the ImageEditor may not be able to read the specification."
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   235
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   236
    "
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   237
     self classesIcon inspect
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   238
     ImageEditor openOnClass:self andSelector:#classesIcon
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   239
    "
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   240
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   241
    <resource: #image>
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   242
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   243
    ^Icon
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   244
        constantNamed:#'ProjectBrowser classesIcon'
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   245
        ifAbsentPut:[(Depth4Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@ADA@AD"H"DPDPD@@@@@@@@@@P@QDQDQDA@A@AH"H"HPD@@@DQDQDQ@PD@@@@@@@@A@P@ADQDQDPDA@@DRH"HQ@PD@@QDQDQDA@P@ADQDQDPDA@@@@@@@@@PD@DPDQDQDQ@P@Q@@@@@@@A@ADQ@QDQDQD@DQD@@@@@@@@b') ; 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?8??#??/?>??;??/?>??;??/?>O?8?? ?>C?8b') ; yourself); yourself]!
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   246
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   247
commentIcon
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   248
    "This resource specification was automatically generated
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   249
     by the ImageEditor of ST/X."
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   250
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   251
    "Do not manually edit this!! If it is corrupted,
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   252
     the ImageEditor may not be able to read the specification."
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   253
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   254
    "
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   255
     self commentIcon inspect
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   256
     ImageEditor openOnClass:self andSelector:#commentIcon
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   257
    "
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   258
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   259
    <resource: #image>
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   260
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   261
    ^Icon
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   262
        constantNamed:#'ProjectBrowser commentIcon'
1106
07f8c4005d10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1099
diff changeset
   263
        ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDAA@PD@PDA@PDA@PDA@PDA@PPDA@DA@PDA@PDA@PDA@PDDA@PA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PPDA@DA@PDA@PDA@PDA@P@DA@P@@PDA@PDA@PDA@PD@A@PD@@DA@PDA@PDA@PDA@@PDA@@A@PDA@PDA@PDA@P@DA@P@@PDA@PDA@PDA@PD@A@PD@@DA@PDA@PDA@PD@A@PDA@P@@PDA@PDA@PDA@PD@@@@A@PDA@PDA@PDA@PDA@PD@@PDA@PDA@P@a') ; colorMapFromArray:#[0 0 0 255 255 255 255 0 0 0 255 0 0 0 255]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@8@C @N@@@@C @N@@8@C @N@@8@G0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; yourself); yourself]!
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   264
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   265
deploymentIcon
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   266
    "This resource specification was automatically generated
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   267
     by the ImageEditor of ST/X."
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   268
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   269
    "Do not manually edit this!! If it is corrupted,
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   270
     the ImageEditor may not be able to read the specification."
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   271
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   272
    "
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   273
     self deploymentIcon inspect
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   274
     ImageEditor openOnClass:self andSelector:#deploymentIcon
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   275
    "
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   276
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   277
    <resource: #image>
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   278
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   279
    ^Icon
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   280
        constantNamed:#'ProjectBrowser deploymentIcon'
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   281
        ifAbsentPut:[(Depth4Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@CL0@3L0@@@CL3@3@3@@@CL@LC@CL@@@L0@0LCL0@@@CMCP3MD@@@@L3L3L3M@@@ADP3QD@4@@@@@3@@ACP@@DQCMDPDM@@@QDL4Q@P4@@ADP3QDACP@@DQCMDPDM@@@QDL4Q@P0@@ADP3QDAC@@@DQCMDP@@@@@@@L0@@@@@b') ; colorMapFromArray:#[0 0 0 0 0 132 132 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]!
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   282
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   283
filesIcon
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   284
    "This resource specification was automatically generated
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   285
     by the ImageEditor of ST/X."
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   286
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   287
    "Do not manually edit this!! If it is corrupted,
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   288
     the ImageEditor may not be able to read the specification."
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   289
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   290
    "
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   291
     self filesIcon inspect
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   292
     ImageEditor openOnClass:self andSelector:#filesIcon
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   293
    "
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   294
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   295
    <resource: #image>
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   296
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   297
    ^Icon
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   298
        constantNamed:#'ProjectBrowser filesIcon'
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   299
        ifAbsentPut:[(Depth4Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@DQDQ@P@@@@@P@@@@@@@@@A@QDQDA@@@@DA@@@@@@@@@PDADQDPD@@A@PDQDQ@Q@@DA@QDQD@@@@PDADQDQDQ@A@PDQDQDQD@@A@QDQDQDP@@DADQDQDQ@@@@DQDQDQD@@@@QDQDQDP@@@@@@@@@@@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]!
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   300
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   301
methodIcon
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   302
    "This resource specification was automatically generated
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   303
     by the ImageEditor of ST/X."
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   304
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   305
    "Do not manually edit this!! If it is corrupted,
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   306
     the ImageEditor may not be able to read the specification."
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   307
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   308
    "
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   309
     self methodIcon inspect
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   310
     ImageEditor openOnClass:self andSelector:#methodIcon
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   311
    "
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   312
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   313
    <resource: #image>
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   314
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   315
    ^Icon
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   316
        constantNamed:#'ProjectBrowser methodIcon'
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   317
        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]!
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   318
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   319
methodsIcon
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   320
    "This resource specification was automatically generated
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   321
     by the ImageEditor of ST/X."
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   322
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   323
    "Do not manually edit this!! If it is corrupted,
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   324
     the ImageEditor may not be able to read the specification."
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
    "
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   327
     self multipleUnlockedMagentaIcon inspect
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   328
     ImageEditor openOnClass:self andSelector:#multipleUnlockedMagentaIcon
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
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   331
    <resource: #image>
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   332
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   333
    ^Icon
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   334
        constantNamed:#'ProjectBrowser methodsIcon'
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   335
        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]
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   336
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   337
1080
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
   338
!
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
   339
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   340
prerequisiteClassesIcon
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   341
    <resource: #programImage>
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   342
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   343
    ^ self classesIcon
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   344
!
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   345
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   346
prerequisiteProjectsIcon
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   347
    <resource: #programImage>
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   348
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   349
    ^ self projectsIcon
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   350
!
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   351
1080
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
   352
prerequisitesIcon
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
   353
    "This resource specification was automatically generated
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
   354
     by the ImageEditor of ST/X."
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
   355
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
   356
    "Do not manually edit this!! If it is corrupted,
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
   357
     the ImageEditor may not be able to read the specification."
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
   358
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
   359
    "
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
   360
     self prerequisitesIcon inspect
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
   361
     ImageEditor openOnClass:self andSelector:#prerequisitesIcon
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
   362
    "
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
   363
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
   364
    <resource: #image>
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
   365
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
   366
    ^Icon
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
   367
        constantNamed:#'ProjectBrowser prerequisitesIcon'
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   368
        ifAbsentPut:[(Depth4Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@Q@@@@@@@@@AD@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DP@@@@@AD@@Q@@@@@@DP@@@@@@@@@Q@@@@@@@@@@@@@@@@@@@@@@@AD@@@@@@@@@DP@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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]!
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   369
1236
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
   370
projectBrowserIcon
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
   371
    "This resource specification was automatically generated
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
   372
     by the ImageEditor of ST/X."
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
   373
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
   374
    "Do not manually edit this!! If it is corrupted,
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
   375
     the ImageEditor may not be able to read the specification."
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
   376
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
   377
    "
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
   378
     self projectBrowserIcon inspect
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
   379
     ImageEditor openOnClass:self andSelector:#projectBrowserIcon
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
   380
    "
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
   381
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
   382
    <resource: #image>
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
   383
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
   384
    ^Icon
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
   385
        constantNamed:#'ProjectBrowser projectBrowserIcon'
1237
6d473fbfdf7d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1236
diff changeset
   386
        ifAbsentPut:[(Depth4Image new) width: 32; height: 32; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@L0@@@3L0@@@@@@@@@@@@L3L0@CL3L0@@@@@@@@@@@3LCL@L0@CL@@@@@@@@@@CL@@3@CL@@3@@@@@@@@@@@3@@L0@3@@L0@@@@@@@@@@L0@CL@L0L3L@@@@@@@@@@@L3P3QCL3MDP@@@@@@@@@@CL3L4L3L4Q@P@@@@@@@@@@3L3L3L3L3MD@@@@@@@@@@QDQCL3QDPCQ@@@@@@@@@@DQDL3MDQ@P4P@@@@@@@@@@@@3L0@@ADMD@@@@@@@@ADQDL3QDQ@QCQ@@@@@@@@@QDQCL4QDPDP4P@@@@@@@@DQDP3MDQDADMD@@@@@@@@ADQDL3QDQ@QCQ@@@@@@@@@QDQCL4QDPDP4P@@@@@@@@DQDP3MDQDADMD@@@@@@@@ADQDL3QDQ@QCP@@@@@@@@@QDQCL4QDPDP0@@@@@@@@@DQDP3MDQDADL@@@@@@@@@ADQDL3QDQ@P@@@@@@@@@@@QDQCL4QDP@@@@@@@@@@@@@@@@3L@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 0 0 132 132 0 0 132 0 132 255 255 0]; mask:((Depth1Image new) width: 32; height: 32; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@FC0@@G1>@@C,1 @A#LX@@X3F@@F_?<@@???@@O??0@C??<@A???@@_??0@_??<@G???@A???0@_??<@G???@A???0@_??<@G??>@A???@@_?? @G??0@A??8@@_?<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; yourself); yourself]!
1236
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
   387
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   388
projectsIcon
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   389
    "This resource specification was automatically generated
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   390
     by the ImageEditor of ST/X."
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   391
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   392
    "Do not manually edit this!! If it is corrupted,
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   393
     the ImageEditor may not be able to read the specification."
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   394
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   395
    "
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   396
     self projectsIcon inspect
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   397
     ImageEditor openOnClass:self andSelector:#projectsIcon
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   398
    "
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   399
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   400
    <resource: #image>
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   401
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   402
    ^Icon
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   403
        constantNamed:#'ProjectBrowser projectsIcon'
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   404
        ifAbsentPut:[(Depth4Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@@"H"H"@@@@@"H"H"@ @@@"H"H"@"@@@@@@@@@"H@@BH"H"HBH @@H"H"H H"@@@"H"H"@"H@@BH"H"HBH @@H"H"H H @@@"H"H"@ @@@BH"H"H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 0 0 132 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]! !
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   405
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   406
!ProjectBrowser class methodsFor:'interface specs'!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   407
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   408
emptyRightCanvasSpec
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   409
    "This resource specification was automatically generated
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   410
     by the UIPainter of ST/X."
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   411
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   412
    "Do not manually edit this!! If it is corrupted,
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   413
     the UIPainter may not be able to read the specification."
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   414
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   415
    "
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   416
     UIPainter new openOnClass:ProjectBrowser andSelector:#emptyRightCanvasSpec
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   417
     ProjectBrowser new openInterface:#emptyRightCanvasSpec
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   418
    "
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   419
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   420
    <resource: #canvas>
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   421
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   422
    ^ 
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   423
     #(#FullSpec
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   424
        #name: #emptyRightCanvasSpec
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   425
        #window: 
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   426
       #(#WindowSpec
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   427
          #label: 'NewApplication'
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   428
          #name: 'NewApplication'
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   429
          #min: #(#Point 10 10)
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   430
          #max: #(#Point 1280 1024)
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   431
          #bounds: #(#Rectangle 10 20 310 320)
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   432
        )
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   433
        #component: 
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   434
       #(#SpecCollection
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   435
          #collection: #(
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   436
           #(#TextEditorSpec
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   437
              #name: 'TextEditor1'
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   438
              #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   439
              #initiallyInvisible: true
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   440
              #model: #rightCanvasTextHolder
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   441
              #hasHorizontalScrollBar: true
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   442
              #hasVerticalScrollBar: true
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   443
              #miniScrollerHorizontal: true
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   444
              #isReadOnly: true
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   445
            )
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   446
           )
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   447
         
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   448
        )
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   449
      )
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   450
!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   451
1234
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   452
rightCanvasSpecForBuildOptions
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   453
    "This resource specification was automatically generated
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   454
     by the UIPainter of ST/X."
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   455
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   456
    "Do not manually edit this!! If it is corrupted,
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   457
     the UIPainter may not be able to read the specification."
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   458
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   459
    "
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   460
     UIPainter new openOnClass:ProjectBrowser andSelector:#rightCanvasSpecForBuildOptions
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   461
     ProjectBrowser new openInterface:#rightCanvasSpecForBuildOptions
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   462
    "
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   463
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   464
    <resource: #canvas>
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   465
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   466
    ^ 
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   467
     #(#FullSpec
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   468
        #name: #rightCanvasSpecForBuildOptions
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   469
        #window: 
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   470
       #(#WindowSpec
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   471
          #label: 'NewApplication'
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   472
          #name: 'NewApplication'
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   473
          #min: #(#Point 10 10)
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   474
          #max: #(#Point 1280 1024)
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   475
          #bounds: #(#Rectangle 216 173 577 536)
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   476
        )
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   477
        #component: 
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   478
       #(#SpecCollection
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   479
          #collection: #(
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   480
           #(#FramedBoxSpec
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   481
              #label: 'STC Compiler Warnings'
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   482
              #name: 'FramedBox2'
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   483
              #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 146 0)
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   484
              #labelPosition: #topLeft
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   485
              #translateLabel: true
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   486
              #component: 
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   487
             #(#SpecCollection
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   488
                #collection: #(
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   489
                 #(#CheckBoxSpec
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   490
                    #label: 'Non Standard Language Features'
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   491
                    #name: 'CheckBox1'
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   492
                    #layout: #(#LayoutFrame 0 0.0 9 0 0 1.0 31 0)
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   493
                    #tabable: true
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   494
                    #model: #makeWarnNonStandard
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   495
                    #translateLabel: true
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   496
                  )
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   497
                 #(#CheckBoxSpec
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   498
                    #label: 'End-of-line Comments'
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   499
                    #name: 'CheckBox2'
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   500
                    #layout: #(#LayoutFrame 0 0.0 36 0 0 1.0 58 0)
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   501
                    #tabable: true
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   502
                    #model: #makeWarnEOLComments
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   503
                    #translateLabel: true
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   504
                  )
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   505
                 #(#LabelSpec
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   506
                    #label: 'other warning options:'
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   507
                    #name: 'Label3'
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   508
                    #layout: #(#LayoutFrame 0 0.0 69 0 0 1.0 91 0)
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   509
                    #translateLabel: true
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   510
                    #adjust: #left
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   511
                  )
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   512
                 #(#InputFieldSpec
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   513
                    #name: 'EntryField1'
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   514
                    #layout: #(#LayoutFrame 0 0.0 93 0 0 1.0 115 0)
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   515
                    #activeHelpKey: #projectDir
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   516
                    #tabable: true
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   517
                    #model: #makeOtherWarningOptions
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   518
                    #acceptChannel: #acceptChannel
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   519
                    #modifiedChannel: #modifiedChannel
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   520
                    #acceptOnPointerLeave: false
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   521
                  )
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   522
                 )
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   523
               
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   524
              )
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   525
            )
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   526
           #(#FramedBoxSpec
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   527
              #label: 'STC Compiler Includes'
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   528
              #name: 'FramedBox3'
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   529
              #layout: #(#LayoutFrame 0 0.0 146 0.0 0 1.0 203 0)
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   530
              #labelPosition: #topLeft
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   531
              #translateLabel: true
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   532
              #component: 
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   533
             #(#SpecCollection
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   534
                #collection: #(
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   535
                 #(#InputFieldSpec
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   536
                    #name: 'EntryField2'
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   537
                    #layout: #(#LayoutFrame 0 0.0 4 0 0 1.0 26 0)
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   538
                    #activeHelpKey: #repositoryModule
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   539
                    #tabable: true
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   540
                    #model: #makeIncludes
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   541
                    #acceptChannel: #acceptChannel
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   542
                    #modifiedChannel: #modifiedChannel
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   543
                    #acceptOnPointerLeave: false
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   544
                  )
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   545
                 )
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   546
               
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   547
              )
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   548
            )
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   549
           #(#FramedBoxSpec
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   550
              #label: 'STC Compiler Defines'
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   551
              #name: 'FramedBox5'
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   552
              #layout: #(#LayoutFrame 0 0.0 210 0.0 0 1.0 267 0)
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   553
              #labelPosition: #topLeft
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   554
              #translateLabel: true
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   555
              #component: 
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   556
             #(#SpecCollection
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   557
                #collection: #(
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   558
                 #(#InputFieldSpec
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   559
                    #name: 'EntryField5'
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   560
                    #layout: #(#LayoutFrame 0 0.0 4 0 0 1.0 26 0)
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   561
                    #activeHelpKey: #repositoryModule
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   562
                    #tabable: true
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   563
                    #model: #makeDefines
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   564
                    #acceptChannel: #acceptChannel
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   565
                    #modifiedChannel: #modifiedChannel
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   566
                    #acceptOnPointerLeave: false
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   567
                  )
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   568
                 )
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   569
               
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   570
              )
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   571
            )
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   572
           #(#HorizontalPanelViewSpec
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   573
              #name: 'HorizontalPanel1'
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   574
              #layout: #(#LayoutFrame 0 0 -30 1 0 1 0 1)
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   575
              #horizontalLayout: #fitSpace
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   576
              #verticalLayout: #center
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   577
              #horizontalSpace: 3
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   578
              #verticalSpace: 3
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   579
              #component: 
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   580
             #(#SpecCollection
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   581
                #collection: #(
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   582
                 #(#ActionButtonSpec
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   583
                    #label: 'Cancel'
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   584
                    #name: 'Button1'
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   585
                    #activeHelpKey: #cancel
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   586
                    #translateLabel: true
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   587
                    #model: #cancel
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   588
                    #enableChannel: #modifiedChannel
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   589
                    #actionValue: ''
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   590
                    #useDefaultExtent: true
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   591
                  )
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   592
                 #(#ActionButtonSpec
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   593
                    #label: 'OK'
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   594
                    #name: 'Button2'
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   595
                    #activeHelpKey: #accept
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   596
                    #translateLabel: true
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   597
                    #model: #accept
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   598
                    #enableChannel: #modifiedChannel
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   599
                    #useDefaultExtent: true
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   600
                  )
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   601
                 )
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   602
               
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   603
              )
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   604
            )
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   605
           )
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   606
         
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   607
        )
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   608
      )
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   609
!
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   610
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   611
rightCanvasSpecForClassList
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   612
    "This resource specification was automatically generated
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   613
     by the UIPainter of ST/X."
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   614
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   615
    "Do not manually edit this!! If it is corrupted,
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   616
     the UIPainter may not be able to read the specification."
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   617
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   618
    "
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   619
     UIPainter new openOnClass:ProjectBrowser andSelector:#rightCanvasSpecForClassList
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   620
     ProjectBrowser new openInterface:#rightCanvasSpecForClassList
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   621
    "
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   622
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   623
    <resource: #canvas>
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   624
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   625
    ^ 
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   626
     #(#FullSpec
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   627
        #name: #rightCanvasSpecForClassList
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   628
        #window: 
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   629
       #(#WindowSpec
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   630
          #label: 'NewApplication'
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   631
          #name: 'NewApplication'
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   632
          #min: #(#Point 10 10)
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   633
          #max: #(#Point 1280 1024)
1238
af3b724392f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1237
diff changeset
   634
          #bounds: #(#Rectangle 10 20 310 320)
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   635
        )
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   636
        #component: 
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   637
       #(#SpecCollection
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   638
          #collection: #(
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   639
           #(#DataSetSpec
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   640
              #name: 'classTable'
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   641
              #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   642
              #hasHorizontalScrollBar: true
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   643
              #hasVerticalScrollBar: true
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   644
              #miniScrollerHorizontal: true
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   645
              #dataList: #classList
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   646
              #has3Dsepartors: false
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   647
              #columnHolder: #classTableColumns
1238
af3b724392f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1237
diff changeset
   648
              #verticalSpacing: 0
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   649
              #columnAdaptor: #classTableAdaptor
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   650
            )
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   651
           )
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   652
         
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   653
        )
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   654
      )
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   655
!
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   656
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
   657
rightCanvasSpecForDeployment
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
   658
    "This resource specification was automatically generated
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
   659
     by the UIPainter of ST/X."
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
   660
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
   661
    "Do not manually edit this!! If it is corrupted,
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
   662
     the UIPainter may not be able to read the specification."
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
   663
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
   664
    "
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
   665
     UIPainter new openOnClass:ProjectBrowser andSelector:#rightCanvasSpecForDeployment
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
   666
     ProjectBrowser new openInterface:#rightCanvasSpecForDeployment
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
   667
    "
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
   668
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
   669
    <resource: #canvas>
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
   670
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
   671
    ^ 
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
   672
     #(#FullSpec
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
   673
        #name: #rightCanvasSpecForDeployment
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
   674
        #window: 
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
   675
       #(#WindowSpec
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
   676
          #label: 'NewApplication'
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
   677
          #name: 'NewApplication'
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
   678
          #min: #(#Point 10 10)
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
   679
          #max: #(#Point 1280 1024)
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   680
          #bounds: #(#Rectangle 40 127 393 626)
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
   681
        )
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
   682
        #component: 
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
   683
       #(#SpecCollection
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
   684
          #collection: #(
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
   685
           #(#FramedBoxSpec
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   686
              #label: 'Deliver'
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   687
              #name: 'DeliverBox'
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   688
              #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 172 0)
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
   689
              #labelPosition: #topLeft
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
   690
              #translateLabel: true
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
   691
              #component: 
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
   692
             #(#SpecCollection
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
   693
                #collection: #(
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
   694
                 #(#CheckBoxSpec
1223
23a55549641a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1220
diff changeset
   695
                    #label: '''loadAll''-File'
23a55549641a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1220
diff changeset
   696
                    #name: 'CheckBox5'
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   697
                    #layout: #(#LayoutFrame 0 0.0 67 0 0 1.0 89 0)
1223
23a55549641a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1220
diff changeset
   698
                    #activeHelpKey: #deliverLoadAll
23a55549641a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1220
diff changeset
   699
                    #tabable: true
23a55549641a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1220
diff changeset
   700
                    #model: #deliverLoadAllFile
23a55549641a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1220
diff changeset
   701
                    #translateLabel: true
23a55549641a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1220
diff changeset
   702
                  )
23a55549641a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1220
diff changeset
   703
                 #(#CheckBoxSpec
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   704
                    #label: 'Compiled Binary (non-portable .dll / .so)'
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   705
                    #name: 'CheckBox6'
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   706
                    #layout: #(#LayoutFrame 0 0.0 32 0 0 1.0 54 0)
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   707
                    #activeHelpKey: #deliverCompiledBinary
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   708
                    #tabable: true
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   709
                    #model: #deliverCompiledBinary
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   710
                    #translateLabel: true
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   711
                  )
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   712
                 #(#CheckBoxSpec
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   713
                    #label: 'Bytecode Binary (portable)'
1229
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
   714
                    #name: 'CheckBox1'
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   715
                    #layout: #(#LayoutFrame 0 0.0 8 0 0 1.0 30 0)
1229
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
   716
                    #activeHelpKey: #deliverByteCode
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
   717
                    #tabable: true
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
   718
                    #model: #deliverByteCode
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
   719
                    #translateLabel: true
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
   720
                  )
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
   721
                 #(#CheckBoxSpec
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   722
                    #label: 'Sources'
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   723
                    #name: 'CheckBox4'
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   724
                    #layout: #(#LayoutFrame 0 0.0 90 0 0 1.0 112 0)
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   725
                    #activeHelpKey: #deliverSources
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
   726
                    #tabable: true
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   727
                    #model: #deliverSources
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
   728
                    #translateLabel: true
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
   729
                  )
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
   730
                 #(#CheckBoxSpec
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   731
                    #label: 'Makefiles'
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   732
                    #name: 'CheckBox8'
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   733
                    #layout: #(#LayoutFrame 0 0.0 113 0 0 1.0 135 0)
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   734
                    #activeHelpKey: #deliverMakefiles
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
   735
                    #tabable: true
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   736
                    #model: #deliverMakefiles
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
   737
                    #translateLabel: true
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
   738
                  )
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
   739
                 )
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
   740
               
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
   741
              )
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
   742
            )
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
   743
           #(#FramedBoxSpec
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   744
              #label: 'Format'
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   745
              #name: 'DeliverAsBox'
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   746
              #layout: #(#LayoutFrame 0 0.0 172 0 0 1.0 290 0)
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   747
              #labelPosition: #topLeft
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   748
              #translateLabel: true
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   749
              #component: 
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   750
             #(#SpecCollection
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   751
                #collection: #(
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   752
                 #(#CheckBoxSpec
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   753
                    #label: 'Tar Archive (.tar - for unix)'
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   754
                    #name: 'CheckBox7'
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   755
                    #layout: #(#LayoutFrame 0 0.0 34 0 0 1.0 56 0)
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   756
                    #activeHelpKey: #deliverTarArchive
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   757
                    #tabable: true
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   758
                    #model: #deliverTarArchive
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   759
                    #translateLabel: true
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   760
                  )
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   761
                 #(#CheckBoxSpec
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   762
                    #label: 'Zip Archive (.zip - for windows)'
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   763
                    #name: 'CheckBox2'
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   764
                    #layout: #(#LayoutFrame 0 0.0 10 0 0 1.0 32 0)
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   765
                    #activeHelpKey: #deliverZipArchive
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   766
                    #tabable: true
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   767
                    #model: #deliverZipArchive
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   768
                    #translateLabel: true
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   769
                  )
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   770
                 #(#CheckBoxSpec
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   771
                    #label: 'GZip Archive (self extracting for unix)'
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   772
                    #name: 'CheckBox3'
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   773
                    #layout: #(#LayoutFrame 0 0.0 58 0 0 1.0 80 0)
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   774
                    #activeHelpKey: #deliverGZipArchive
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   775
                    #tabable: true
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   776
                    #model: #deliverGZipArchive
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   777
                    #translateLabel: true
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   778
                  )
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   779
                 )
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   780
               
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   781
              )
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   782
            )
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   783
           #(#FramedBoxSpec
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   784
              #label: 'Target Install Directory'
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   785
              #name: 'DestinationBox'
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   786
              #layout: #(#LayoutFrame 0 0.0 295 0 0 1.0 448 0)
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
   787
              #labelPosition: #topLeft
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
   788
              #translateLabel: true
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
   789
              #component: 
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
   790
             #(#SpecCollection
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
   791
                #collection: #(
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   792
                 #(#LabelSpec
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   793
                    #label: 'Unix:'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   794
                    #name: 'Label1'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   795
                    #layout: #(#LayoutFrame 0 0.0 5 0 60 0.0 27 0)
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   796
                    #translateLabel: true
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   797
                    #adjust: #right
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   798
                  )
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
   799
                 #(#InputFieldSpec
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
   800
                    #name: 'EntryField1'
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   801
                    #layout: #(#LayoutFrame 64 0.0 4 0 0 1.0 26 0)
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   802
                    #activeHelpKey: #installDirUnix
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   803
                    #enableChannel: #canDeliverForUnix
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   804
                    #tabable: true
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   805
                    #model: #installDirectoryUnix
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   806
                    #acceptChannel: #acceptChannel
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   807
                    #modifiedChannel: #modifiedChannel
1223
23a55549641a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1220
diff changeset
   808
                    #acceptOnPointerLeave: false
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   809
                  )
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   810
                 #(#LabelSpec
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   811
                    #label: 'Win32:'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   812
                    #name: 'Label2'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   813
                    #layout: #(#LayoutFrame 0 0.0 36 0 60 0.0 58 0)
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   814
                    #translateLabel: true
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   815
                    #adjust: #right
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   816
                  )
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   817
                 #(#InputFieldSpec
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   818
                    #name: 'EntryField2'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   819
                    #layout: #(#LayoutFrame 64 0.0 34 0 0 1.0 56 0)
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   820
                    #activeHelpKey: #installDirWin32
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   821
                    #enableChannel: #canDeliverForWin32
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
   822
                    #tabable: true
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   823
                    #model: #installDirectoryWin32
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   824
                    #acceptChannel: #acceptChannel
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
   825
                    #modifiedChannel: #modifiedChannel
1223
23a55549641a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1220
diff changeset
   826
                    #acceptOnPointerLeave: false
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   827
                  )
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   828
                 #(#LabelSpec
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   829
                    #label: 'VMS:'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   830
                    #name: 'Label3'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   831
                    #layout: #(#LayoutFrame 0 0.0 65 0 60 0.0 87 0)
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   832
                    #translateLabel: true
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   833
                    #adjust: #right
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   834
                  )
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   835
                 #(#InputFieldSpec
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   836
                    #name: 'EntryField3'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   837
                    #layout: #(#LayoutFrame 64 0.0 63 0 0 1.0 85 0)
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   838
                    #activeHelpKey: #installDirVMS
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   839
                    #initiallyDisabled: true
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   840
                    #enableChannel: #canDeliverForVMS
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   841
                    #tabable: true
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   842
                    #model: #installDirectoryVMS
1108
e88edf4a8cbe editFields - accept
Claus Gittinger <cg@exept.de>
parents: 1107
diff changeset
   843
                    #acceptChannel: #acceptChannel
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   844
                    #modifiedChannel: #modifiedChannel
1223
23a55549641a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1220
diff changeset
   845
                    #acceptOnPointerLeave: false
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   846
                  )
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   847
                 #(#LabelSpec
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   848
                    #label: 'MacOS:'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   849
                    #name: 'Label4'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   850
                    #layout: #(#LayoutFrame 0 0.0 95 0 60 0.0 117 0)
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   851
                    #translateLabel: true
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   852
                    #adjust: #right
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   853
                  )
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   854
                 #(#InputFieldSpec
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   855
                    #name: 'EntryField4'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   856
                    #layout: #(#LayoutFrame 64 0.0 93 0 0 1.0 115 0)
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   857
                    #activeHelpKey: #installDirMacOS
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   858
                    #initiallyDisabled: true
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   859
                    #enableChannel: #canDeliverForMacOS
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   860
                    #tabable: true
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   861
                    #model: #installDirectoryMac
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   862
                    #acceptChannel: #acceptChannel
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   863
                    #modifiedChannel: #modifiedChannel
1223
23a55549641a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1220
diff changeset
   864
                    #acceptOnPointerLeave: false
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
   865
                  )
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
   866
                 )
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
   867
               
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
   868
              )
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
   869
            )
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
   870
           #(#HorizontalPanelViewSpec
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
   871
              #name: 'HorizontalPanel1'
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
   872
              #layout: #(#LayoutFrame 0 0 -30 1 0 1 0 1)
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
   873
              #horizontalLayout: #fitSpace
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
   874
              #verticalLayout: #center
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
   875
              #horizontalSpace: 3
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
   876
              #verticalSpace: 3
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
   877
              #component: 
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
   878
             #(#SpecCollection
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
   879
                #collection: #(
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
   880
                 #(#ActionButtonSpec
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
   881
                    #label: 'Cancel'
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
   882
                    #name: 'Button1'
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
   883
                    #translateLabel: true
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
   884
                    #tabable: true
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
   885
                    #model: #cancel
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
   886
                    #enableChannel: #modifiedChannel
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
   887
                    #actionValue: ''
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
   888
                    #useDefaultExtent: true
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
   889
                  )
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
   890
                 #(#ActionButtonSpec
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
   891
                    #label: 'OK'
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
   892
                    #name: 'Button2'
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
   893
                    #translateLabel: true
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
   894
                    #tabable: true
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
   895
                    #model: #accept
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
   896
                    #enableChannel: #modifiedChannel
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
   897
                    #actionValue: ''
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
   898
                    #useDefaultExtent: true
1085
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
   899
                  )
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
   900
                 )
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
   901
               
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
   902
              )
1085
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
   903
            )
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
   904
           )
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
   905
         
1085
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
   906
        )
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
   907
      )
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
   908
!
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
   909
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   910
rightCanvasSpecForEditableText
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   911
    "This resource specification was automatically generated
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   912
     by the UIPainter of ST/X."
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   913
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   914
    "Do not manually edit this!! If it is corrupted,
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   915
     the UIPainter may not be able to read the specification."
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   916
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   917
    "
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   918
     UIPainter new openOnClass:ProjectBrowser andSelector:#rightCanvasSpecForEditableText
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   919
     ProjectBrowser new openInterface:#rightCanvasSpecForEditableText
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   920
    "
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   921
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   922
    <resource: #canvas>
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   923
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   924
    ^ 
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   925
     #(#FullSpec
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   926
        #name: #rightCanvasSpecForEditableText
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   927
        #window: 
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   928
       #(#WindowSpec
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   929
          #label: 'NewApplication'
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   930
          #name: 'NewApplication'
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   931
          #min: #(#Point 10 10)
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   932
          #max: #(#Point 1280 1024)
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   933
          #bounds: #(#Rectangle 216 173 516 473)
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   934
        )
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   935
        #component: 
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   936
       #(#SpecCollection
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   937
          #collection: #(
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   938
           #(#TextEditorSpec
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   939
              #name: 'TextEditor1'
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   940
              #layout: #(#LayoutFrame 0 0.0 30 0.0 0 1.0 0 1.0)
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   941
              #model: #rightCanvasTextHolder
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   942
              #hasHorizontalScrollBar: true
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   943
              #hasVerticalScrollBar: true
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   944
              #miniScrollerHorizontal: true
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   945
            )
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   946
           #(#LabelSpec
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   947
              #label: 'Label'
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   948
              #name: 'Label1'
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   949
              #layout: #(#LayoutFrame 0 0 0 0 0 1 30 0)
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   950
              #translateLabel: true
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   951
              #labelChannel: #textCanvasLabelHolder
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   952
              #adjust: #left
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   953
            )
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   954
           )
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   955
         
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   956
        )
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   957
      )
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   958
!
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   959
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   960
rightCanvasSpecForFiles
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   961
    "This resource specification was automatically generated
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   962
     by the UIPainter of ST/X."
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   963
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   964
    "Do not manually edit this!! If it is corrupted,
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   965
     the UIPainter may not be able to read the specification."
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   966
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   967
    "
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   968
     UIPainter new openOnClass:ProjectBrowser andSelector:#rightCanvasSpecForFiles
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   969
     ProjectBrowser new openInterface:#rightCanvasSpecForFiles
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   970
    "
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   971
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   972
    <resource: #canvas>
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   973
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   974
    ^ 
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   975
     #(#FullSpec
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   976
        #name: #rightCanvasSpecForFiles
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   977
        #window: 
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   978
       #(#WindowSpec
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   979
          #label: 'NewApplication'
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   980
          #name: 'NewApplication'
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   981
          #min: #(#Point 10 10)
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   982
          #max: #(#Point 1280 1024)
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   983
          #bounds: #(#Rectangle 216 173 577 536)
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   984
        )
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   985
        #component: 
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   986
       #(#SpecCollection
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   987
          #collection: #(
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   988
           #(#FramedBoxSpec
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   989
              #label: 'File for extensions & patches'
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   990
              #name: 'FramedBox2'
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   991
              #layout: #(#LayoutFrame 0 0.0 62 0.0 0 1.0 122 0)
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   992
              #labelPosition: #topLeft
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   993
              #translateLabel: true
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   994
              #component: 
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   995
             #(#SpecCollection
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   996
                #collection: #(
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   997
                 #(#InputFieldSpec
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   998
                    #name: 'methodsFileEntryField'
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   999
                    #layout: #(#LayoutFrame 0 0.0 1 0 0 1.0 23 0)
1223
23a55549641a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1220
diff changeset
  1000
                    #activeHelpKey: #methodsFile
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1001
                    #model: #methodsFile
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1002
                    #acceptChannel: #acceptChannel
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1003
                    #modifiedChannel: #modifiedChannel
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1004
                    #acceptOnPointerLeave: false
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1005
                  )
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1006
                 )
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1007
               
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1008
              )
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1009
            )
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1010
           #(#HorizontalPanelViewSpec
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1011
              #name: 'HorizontalPanel1'
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1012
              #layout: #(#LayoutFrame 0 0 -30 1 0 1 0 1)
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1013
              #horizontalLayout: #fitSpace
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1014
              #verticalLayout: #center
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1015
              #horizontalSpace: 3
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1016
              #verticalSpace: 3
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1017
              #component: 
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1018
             #(#SpecCollection
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1019
                #collection: #(
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1020
                 #(#ActionButtonSpec
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1021
                    #label: 'Cancel'
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1022
                    #name: 'Button1'
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1023
                    #activeHelpKey: #cancel
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1024
                    #translateLabel: true
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1025
                    #model: #cancel
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1026
                    #enableChannel: #modifiedChannel
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1027
                    #actionValue: ''
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1028
                    #useDefaultExtent: true
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1029
                  )
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1030
                 #(#ActionButtonSpec
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1031
                    #label: 'OK'
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1032
                    #name: 'Button2'
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1033
                    #activeHelpKey: #accept
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1034
                    #translateLabel: true
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1035
                    #model: #accept
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1036
                    #enableChannel: #modifiedChannel
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1037
                    #useDefaultExtent: true
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1038
                  )
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1039
                 )
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1040
               
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1041
              )
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1042
            )
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1043
           )
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1044
         
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1045
        )
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1046
      )
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1047
!
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1048
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1049
rightCanvasSpecForHTMLText
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1050
    "This resource specification was automatically generated
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1051
     by the UIPainter of ST/X."
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1052
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1053
    "Do not manually edit this!! If it is corrupted,
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1054
     the UIPainter may not be able to read the specification."
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1055
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1056
    "
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1057
     UIPainter new openOnClass:ProjectBrowser andSelector:#rightCanvasSpecForHTMLText
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1058
     ProjectBrowser new openInterface:#rightCanvasSpecForHTMLText
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1059
    "
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1060
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1061
    <resource: #canvas>
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1062
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1063
    ^
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1064
     
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1065
       #(#FullSpec
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1066
          #window: 
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1067
           #(#WindowSpec
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1068
              #name: 'NewApplication'
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1069
              #layout: #(#LayoutFrame 216 0 173 0 515 0 472 0)
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1070
              #level: 0
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1071
              #label: 'NewApplication'
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1072
              #min: #(#Point 10 10)
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1073
              #max: #(#Point 1280 1024)
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1074
              #bounds: #(#Rectangle 216 173 516 473)
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1075
              #usePreferredExtent: false
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1076
          )
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1077
          #component: 
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1078
           #(#SpecCollection
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1079
              #collection: 
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1080
               #(
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1081
                 #(#HTMLViewSpec
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1082
                    #name: 'HTMLBrowser1'
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1083
                    #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1084
                    #model: #htmlDocumentURLHolder
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1085
                    #hasHorizontalScrollBar: true
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1086
                    #hasVerticalScrollBar: true
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1087
                )
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1088
              )
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1089
          )
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1090
      )
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1091
!
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1092
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1093
rightCanvasSpecForPatchesList
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1094
    "This resource specification was automatically generated
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1095
     by the UIPainter of ST/X."
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1096
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1097
    "Do not manually edit this!! If it is corrupted,
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1098
     the UIPainter may not be able to read the specification."
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1099
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1100
    "
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1101
     UIPainter new openOnClass:ProjectBrowser andSelector:#rightCanvasSpecForPatchesList
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1102
     ProjectBrowser new openInterface:#rightCanvasSpecForPatchesList
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1103
    "
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1104
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1105
    <resource: #canvas>
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1106
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1107
    ^ 
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1108
     #(#FullSpec
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1109
        #name: #rightCanvasSpecForPatchesList
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1110
        #window: 
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1111
       #(#WindowSpec
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1112
          #label: 'NewApplication'
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1113
          #name: 'NewApplication'
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1114
          #min: #(#Point 10 10)
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1115
          #max: #(#Point 1280 1024)
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1116
          #bounds: #(#Rectangle 162 22 462 322)
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1117
        )
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1118
        #component: 
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1119
       #(#SpecCollection
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1120
          #collection: #(
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1121
           #(#DataSetSpec
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1122
              #name: 'patchesTable'
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1123
              #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1124
              #menu: #methodMenu
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1125
              #hasHorizontalScrollBar: true
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1126
              #hasVerticalScrollBar: true
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1127
              #miniScrollerHorizontal: true
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1128
              #dataList: #patchesList
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1129
              #has3Dsepartors: false
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1130
              #columnHolder: #patchesTableColumns
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1131
              #columnAdaptor: #classTableAdaptor
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1132
            )
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1133
           )
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1134
         
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1135
        )
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1136
      )
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1137
!
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1138
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1139
rightCanvasSpecForPrerequisiteClasses
1089
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1140
    "This resource specification was automatically generated
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1141
     by the UIPainter of ST/X."
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1142
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1143
    "Do not manually edit this!! If it is corrupted,
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1144
     the UIPainter may not be able to read the specification."
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1145
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1146
    "
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1147
     UIPainter new openOnClass:ProjectBrowser andSelector:#rightCanvasSpecForPrerequisiteClasses
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1148
     ProjectBrowser new openInterface:#rightCanvasSpecForPrerequisiteClasses
1089
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1149
    "
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1150
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1151
    <resource: #canvas>
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1152
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1153
    ^ 
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1154
     #(#FullSpec
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1155
        #name: #rightCanvasSpecForPrerequisiteClasses
1089
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1156
        #window: 
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1157
       #(#WindowSpec
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1158
          #label: 'NewApplication'
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1159
          #name: 'NewApplication'
1149
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  1160
          #layout: #(#LayoutFrame 220 0 200 0 519 0 499 0)
1089
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1161
          #level: 0
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1162
          #min: #(#Point 10 10)
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1163
          #max: #(#Point 1280 1024)
1149
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  1164
          #bounds: #(#Rectangle 220 200 520 500)
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1165
          #usePreferredExtent: false
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1166
          #returnIsOKInDialog: true
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1167
          #escapeIsCancelInDialog: true
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1168
        )
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1169
        #component: 
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1170
       #(#SpecCollection
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1171
          #collection: #(
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1172
           #(#LabelSpec
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1173
              #label: 'Known Classes'
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1174
              #name: 'Label1'
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1175
              #layout: #(#LayoutFrame 0 0 0 0 0 0.5 30 0)
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1176
              #translateLabel: true
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1177
            )
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1178
           #(#SequenceViewSpec
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1179
              #name: 'List1'
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1180
              #layout: #(#LayoutFrame 0 0 30 0 0 0.5 -62 1)
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1181
              #tabable: true
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1182
              #model: #selectedClassInPrerequisites
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1183
              #hasHorizontalScrollBar: true
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1184
              #hasVerticalScrollBar: true
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1185
              #miniScrollerHorizontal: true
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1186
              #miniScrollerVertical: true
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1187
              #doubleClickSelector: #addClassToPrerequisites
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1188
              #valueChangeSelector: #showInfoForRequiredClass:
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1189
              #useIndex: false
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1190
              #sequenceList: #listOfAllClassesInPrerequisites
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1191
            )
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1192
           #(#LabelSpec
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1193
              #label: 'Required Classes'
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1194
              #name: 'Label2'
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1195
              #layout: #(#LayoutFrame 0 0.5 0 0 0 1 30 0)
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1196
              #translateLabel: true
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1197
            )
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1198
           #(#SequenceViewSpec
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1199
              #name: 'List2'
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1200
              #layout: #(#LayoutFrame 0 0.5 30 0 0 1 -62 1)
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1201
              #tabable: true
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1202
              #model: #selectedRequiredClassInPrerequisites
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1203
              #hasHorizontalScrollBar: true
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1204
              #hasVerticalScrollBar: true
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1205
              #miniScrollerHorizontal: true
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1206
              #miniScrollerVertical: true
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1207
              #doubleClickSelector: #removeClassFromPrerequisites
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1208
              #valueChangeSelector: #showInfoForRequiredClass:
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1209
              #useIndex: false
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1210
              #sequenceList: #listOfRequiredClassesInPrerequisites
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1211
            )
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1212
           #(#HorizontalPanelViewSpec
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1213
              #name: 'HorizontalPanel2'
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1214
              #layout: #(#LayoutFrame 0 0 -62 1 0 1 -32 1)
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1215
              #horizontalLayout: #fitSpace
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1216
              #verticalLayout: #center
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1217
              #horizontalSpace: 3
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1218
              #verticalSpace: 3
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1219
              #component: 
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1220
             #(#SpecCollection
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1221
                #collection: #(
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1222
                 #(#ActionButtonSpec
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1223
                    #label: 'Add'
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1224
                    #name: 'addButton'
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1225
                    #translateLabel: true
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1226
                    #resizeForLabel: false
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1227
                    #tabable: true
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1228
                    #model: #addClassToPrerequisites
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1229
                    #enableChannel: #canAddSelectedClassToPrerequisites
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1230
                    #actionValue: ''
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1231
                    #useDefaultExtent: true
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1232
                  )
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1233
                 #(#ActionButtonSpec
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1234
                    #label: 'Remove'
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1235
                    #name: 'removeButton'
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1236
                    #translateLabel: true
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1237
                    #resizeForLabel: false
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1238
                    #tabable: true
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1239
                    #model: #removeClassFromPrerequisites
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1240
                    #enableChannel: #canRemoveSelectedClassFromPrerequisites
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1241
                    #actionValue: ''
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1242
                    #useDefaultExtent: true
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1243
                  )
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1244
                 )
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1245
               
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1246
              )
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1247
            )
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1248
           #(#HorizontalPanelViewSpec
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1249
              #name: 'HorizontalPanel1'
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1250
              #layout: #(#LayoutFrame 0 0.0 -30 1 0 1.0 0 1.0)
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1251
              #horizontalLayout: #fitSpace
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1252
              #verticalLayout: #center
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1253
              #horizontalSpace: 3
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1254
              #verticalSpace: 3
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1255
              #component: 
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1256
             #(#SpecCollection
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1257
                #collection: #(
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1258
                 #(#ActionButtonSpec
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1259
                    #label: 'Cancel'
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1260
                    #name: 'Button1'
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1261
                    #translateLabel: true
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1262
                    #tabable: true
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1263
                    #model: #cancel
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1264
                    #useDefaultExtent: true
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1265
                  )
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1266
                 #(#ActionButtonSpec
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1267
                    #label: 'OK'
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1268
                    #name: 'Button2'
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1269
                    #translateLabel: true
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1270
                    #tabable: true
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1271
                    #model: #accept
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1272
                    #useDefaultExtent: true
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1273
                  )
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1274
                 )
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1275
               
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1276
              )
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1277
            )
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1278
           )
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1279
         
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1280
        )
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1281
      )
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1282
!
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1283
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1284
rightCanvasSpecForPrerequisiteProjects
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1285
    "This resource specification was automatically generated
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1286
     by the UIPainter of ST/X."
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1287
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1288
    "Do not manually edit this!! If it is corrupted,
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1289
     the UIPainter may not be able to read the specification."
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1290
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1291
    "
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1292
     UIPainter new openOnClass:ProjectBrowser andSelector:#rightCanvasSpecForPrerequisiteProjects
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1293
     ProjectBrowser new openInterface:#rightCanvasSpecForPrerequisiteProjects
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1294
    "
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1295
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1296
    <resource: #canvas>
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1297
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1298
    ^ 
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1299
     #(#FullSpec
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1300
        #name: #rightCanvasSpecForPrerequisiteProjects
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1301
        #window: 
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1302
       #(#WindowSpec
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1303
          #label: 'NewApplication'
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1304
          #name: 'NewApplication'
1149
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  1305
          #layout: #(#LayoutFrame 220 0 200 0 519 0 499 0)
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1306
          #level: 0
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1307
          #min: #(#Point 10 10)
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1308
          #max: #(#Point 1280 1024)
1149
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  1309
          #bounds: #(#Rectangle 220 200 520 500)
1089
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1310
          #usePreferredExtent: false
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1311
          #returnIsOKInDialog: true
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1312
          #escapeIsCancelInDialog: true
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1313
        )
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1314
        #component: 
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1315
       #(#SpecCollection
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1316
          #collection: #(
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1317
           #(#LabelSpec
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1318
              #label: 'Known Packages'
1089
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1319
              #name: 'Label1'
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1320
              #layout: #(#LayoutFrame 0 0 0 0 0 0.5 30 0)
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1321
              #translateLabel: true
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1322
            )
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1323
           #(#SequenceViewSpec
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1324
              #name: 'List1'
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1325
              #layout: #(#LayoutFrame 0 0 30 0 0 0.5 -62 1)
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1326
              #tabable: true
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1327
              #model: #selectedProjectInPrerequisites
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1328
              #hasHorizontalScrollBar: true
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1329
              #hasVerticalScrollBar: true
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1330
              #miniScrollerHorizontal: true
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1331
              #miniScrollerVertical: true
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1332
              #doubleClickSelector: #addProjectToPrerequisites
1089
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1333
              #useIndex: false
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1334
              #sequenceList: #listOfAllProjectsInPrerequisites
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1335
            )
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1336
           #(#LabelSpec
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1337
              #label: 'Prerequisites'
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1338
              #name: 'Label2'
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1339
              #layout: #(#LayoutFrame 0 0.5 0 0 0 1 30 0)
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1340
              #translateLabel: true
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1341
            )
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1342
           #(#SequenceViewSpec
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1343
              #name: 'List2'
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1344
              #layout: #(#LayoutFrame 0 0.5 30 0 0 1 -62 1)
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1345
              #tabable: true
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1346
              #model: #selectedRequiredProjectInPrerequisites
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1347
              #hasHorizontalScrollBar: true
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1348
              #hasVerticalScrollBar: true
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1349
              #miniScrollerHorizontal: true
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1350
              #miniScrollerVertical: true
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1351
              #doubleClickSelector: #removeProjectFromPrerequisites
1089
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1352
              #useIndex: false
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1353
              #sequenceList: #listOfRequiredProjectsInPrerequisites
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1354
            )
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1355
           #(#HorizontalPanelViewSpec
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1356
              #name: 'HorizontalPanel2'
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1357
              #layout: #(#LayoutFrame 0 0 -62 1 0 1 -32 1)
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1358
              #horizontalLayout: #fitSpace
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1359
              #verticalLayout: #center
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1360
              #horizontalSpace: 3
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1361
              #verticalSpace: 3
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1362
              #component: 
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1363
             #(#SpecCollection
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1364
                #collection: #(
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1365
                 #(#ActionButtonSpec
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1366
                    #label: 'Add'
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1367
                    #name: 'addButton'
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1368
                    #translateLabel: true
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1369
                    #resizeForLabel: false
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1370
                    #tabable: true
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1371
                    #model: #addProjectToPrerequisites
1089
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1372
                    #enableChannel: #canAddSelectedProjectToPrerequisites
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1373
                    #actionValue: ''
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1374
                    #useDefaultExtent: true
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1375
                  )
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1376
                 #(#ActionButtonSpec
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1377
                    #label: 'Remove'
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1378
                    #name: 'removeButton'
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1379
                    #translateLabel: true
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1380
                    #resizeForLabel: false
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1381
                    #tabable: true
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1382
                    #model: #removeProjectFromPrerequisites
1089
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1383
                    #enableChannel: #canRemoveSelectedProjectFromPrerequisites
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1384
                    #actionValue: ''
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1385
                    #useDefaultExtent: true
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1386
                  )
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1387
                 )
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1388
               
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1389
              )
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1390
            )
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1391
           #(#HorizontalPanelViewSpec
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1392
              #name: 'HorizontalPanel1'
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1393
              #layout: #(#LayoutFrame 0 0.0 -30 1 0 1.0 0 1.0)
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1394
              #horizontalLayout: #fitSpace
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1395
              #verticalLayout: #center
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1396
              #horizontalSpace: 3
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1397
              #verticalSpace: 3
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1398
              #component: 
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1399
             #(#SpecCollection
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1400
                #collection: #(
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1401
                 #(#ActionButtonSpec
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1402
                    #label: 'Cancel'
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1403
                    #name: 'Button1'
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1404
                    #translateLabel: true
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1405
                    #tabable: true
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1406
                    #model: #cancel
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1407
                    #useDefaultExtent: true
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1408
                  )
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1409
                 #(#ActionButtonSpec
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1410
                    #label: 'OK'
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1411
                    #name: 'Button2'
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1412
                    #translateLabel: true
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1413
                    #tabable: true
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1414
                    #model: #accept
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1415
                    #useDefaultExtent: true
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1416
                  )
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1417
                 )
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1418
               
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1419
              )
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1420
            )
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1421
           )
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1422
         
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1423
        )
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1424
      )
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1425
!
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1426
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  1427
rightCanvasSpecForProperties
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  1428
    "This resource specification was automatically generated
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  1429
     by the UIPainter of ST/X."
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  1430
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  1431
    "Do not manually edit this!! If it is corrupted,
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  1432
     the UIPainter may not be able to read the specification."
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  1433
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  1434
    "
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  1435
     UIPainter new openOnClass:ProjectBrowser andSelector:#rightCanvasSpecForProperties
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  1436
     ProjectBrowser new openInterface:#rightCanvasSpecForProperties
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  1437
    "
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  1438
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  1439
    <resource: #canvas>
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  1440
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1441
    ^ 
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1442
     #(#FullSpec
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1443
        #name: #rightCanvasSpecForProperties
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1444
        #window: 
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1445
       #(#WindowSpec
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1446
          #label: 'NewApplication'
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1447
          #name: 'NewApplication'
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1448
          #min: #(#Point 10 10)
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1449
          #max: #(#Point 1280 1024)
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1450
          #bounds: #(#Rectangle 216 173 577 536)
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1451
        )
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1452
        #component: 
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1453
       #(#SpecCollection
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1454
          #collection: #(
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1455
           #(#FramedBoxSpec
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1456
              #label: 'Project Type'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1457
              #name: 'FramedBox1'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1458
              #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 61 0)
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1459
              #labelPosition: #topLeft
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1460
              #translateLabel: true
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1461
              #component: 
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1462
             #(#SpecCollection
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1463
                #collection: #(
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1464
                 #(#RadioButtonSpec
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1465
                    #label: 'Application'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1466
                    #name: 'RadioButton1'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1467
                    #layout: #(#LayoutFrame -1 0.0 5 0 0 0.5 27 0)
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1468
                    #activeHelpKey: #appType
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1469
                    #translateLabel: true
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1470
                    #model: #projectType
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1471
                    #isTriggerOnDown: true
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1472
                    #select: #application
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1473
                  )
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1474
                 #(#RadioButtonSpec
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1475
                    #label: 'Class Library'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1476
                    #name: 'RadioButton2'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1477
                    #layout: #(#LayoutFrame 0 0.5 5 0 0 1.0 27 0)
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1478
                    #activeHelpKey: #libType
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1479
                    #translateLabel: true
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1480
                    #model: #projectType
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1481
                    #isTriggerOnDown: true
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1482
                    #select: #library
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1483
                  )
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1484
                 )
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1485
               
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1486
              )
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1487
            )
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1488
           #(#FramedBoxSpec
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1489
              #label: 'Project Working Directory'
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1490
              #name: 'FramedBox2'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1491
              #layout: #(#LayoutFrame 0 0.0 62 0.0 0 1.0 122 0)
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1492
              #labelPosition: #topLeft
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1493
              #translateLabel: true
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1494
              #component: 
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1495
             #(#SpecCollection
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1496
                #collection: #(
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1497
                 #(#InputFieldSpec
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1498
                    #name: 'EntryField1'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1499
                    #layout: #(#LayoutFrame 0 0.0 1 0 0 1.0 23 0)
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1500
                    #activeHelpKey: #projectDir
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1501
                    #enableChannel: #currentProjectWasNotLoadedFromFile
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1502
                    #model: #projectDirectory
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1503
                    #acceptChannel: #acceptChannel
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1504
                    #modifiedChannel: #modifiedChannel
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1505
                    #acceptOnPointerLeave: false
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1506
                  )
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1507
                 )
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1508
               
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1509
              )
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1510
            )
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1511
           #(#FramedBoxSpec
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1512
              #label: 'Projects Package ID'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1513
              #name: 'FramedBox5'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1514
              #layout: #(#LayoutFrame 0 0.0 127 0.0 0 1.0 187 0)
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1515
              #labelPosition: #topLeft
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1516
              #translateLabel: true
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1517
              #component: 
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1518
             #(#SpecCollection
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1519
                #collection: #(
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1520
                 #(#InputFieldSpec
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1521
                    #name: 'EntryField5'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1522
                    #layout: #(#LayoutFrame 0 0.0 1 0 0 1.0 23 0)
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1523
                    #activeHelpKey: #packageID
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1524
                    #model: #projectPackage
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1525
                    #acceptChannel: #acceptChannel
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1526
                    #modifiedChannel: #modifiedChannel
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1527
                    #acceptOnPointerLeave: false
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1528
                  )
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1529
                 )
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1530
               
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1531
              )
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1532
            )
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1533
           #(#FramedBoxSpec
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1534
              #label: 'Repository'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1535
              #name: 'FramedBox3'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1536
              #layout: #(#LayoutFrame 0 0.0 191 0.0 0 1.0 274 0)
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1537
              #labelPosition: #topLeft
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1538
              #translateLabel: true
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1539
              #component: 
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1540
             #(#SpecCollection
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1541
                #collection: #(
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1542
                 #(#LabelSpec
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1543
                    #label: 'Module:'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1544
                    #name: 'Label1'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1545
                    #layout: #(#LayoutFrame 0 0 0 0 86 0 22 0)
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1546
                    #translateLabel: true
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1547
                    #adjust: #right
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1548
                  )
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1549
                 #(#InputFieldSpec
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1550
                    #name: 'EntryField2'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1551
                    #layout: #(#LayoutFrame 92 0.0 0 0 0 1.0 22 0)
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1552
                    #activeHelpKey: #repositoryModule
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1553
                    #model: #repositoryModule
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1554
                    #acceptChannel: #acceptChannel
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1555
                    #modifiedChannel: #modifiedChannel
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1556
                    #acceptOnPointerLeave: false
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1557
                  )
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1558
                 #(#LabelSpec
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1559
                    #label: 'Directory:'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1560
                    #name: 'Label2'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1561
                    #layout: #(#LayoutFrame 0 0 25 0 86 0 47 0)
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1562
                    #translateLabel: true
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1563
                    #adjust: #right
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1564
                  )
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1565
                 #(#InputFieldSpec
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1566
                    #name: 'EntryField3'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1567
                    #layout: #(#LayoutFrame 92 0.0 25 0 0 1.0 47 0)
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1568
                    #activeHelpKey: #repositoryDirectory
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1569
                    #model: #repositoryDirectory
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1570
                    #acceptChannel: #acceptChannel
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1571
                    #modifiedChannel: #modifiedChannel
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1572
                    #acceptOnPointerLeave: false
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1573
                  )
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1574
                 )
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1575
               
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1576
              )
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1577
            )
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1578
           #(#FramedBoxSpec
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1579
              #label: 'Default Namespace'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1580
              #name: 'FramedBox4'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1581
              #layout: #(#LayoutFrame 0 0.0 279 0 0 1.0 337 0)
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1582
              #activeHelpKey: #defaultNamespace
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1583
              #labelPosition: #topLeft
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1584
              #translateLabel: true
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1585
              #component: 
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1586
             #(#SpecCollection
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1587
                #collection: #(
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1588
                 #(#InputFieldSpec
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1589
                    #name: 'EntryField4'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1590
                    #layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 22 0)
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1591
                    #model: #projectNamespace
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1592
                    #acceptChannel: #acceptChannel
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1593
                    #modifiedChannel: #modifiedChannel
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1594
                    #acceptOnPointerLeave: false
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1595
                  )
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1596
                 )
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1597
               
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1598
              )
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1599
            )
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1600
           #(#HorizontalPanelViewSpec
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1601
              #name: 'HorizontalPanel1'
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1602
              #layout: #(#LayoutFrame 0 0 -30 1 0 1 0 1)
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1603
              #horizontalLayout: #fitSpace
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1604
              #verticalLayout: #center
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1605
              #horizontalSpace: 3
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1606
              #verticalSpace: 3
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1607
              #component: 
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1608
             #(#SpecCollection
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1609
                #collection: #(
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1610
                 #(#ActionButtonSpec
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1611
                    #label: 'Cancel'
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1612
                    #name: 'Button1'
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1613
                    #activeHelpKey: #cancel
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1614
                    #translateLabel: true
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1615
                    #model: #cancel
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1616
                    #enableChannel: #modifiedChannel
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  1617
                    #actionValue: ''
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  1618
                    #useDefaultExtent: true
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1619
                  )
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1620
                 #(#ActionButtonSpec
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1621
                    #label: 'OK'
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1622
                    #name: 'Button2'
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1623
                    #activeHelpKey: #accept
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1624
                    #translateLabel: true
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1625
                    #model: #accept
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1626
                    #enableChannel: #modifiedChannel
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  1627
                    #useDefaultExtent: true
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1628
                  )
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1629
                 )
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1630
               
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1631
              )
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1632
            )
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1633
           )
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1634
         
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1635
        )
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  1636
      )
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  1637
!
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  1638
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1639
rightCanvasSpecForReadOnlyText
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1640
    "This resource specification was automatically generated
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1641
     by the UIPainter of ST/X."
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1642
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1643
    "Do not manually edit this!! If it is corrupted,
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1644
     the UIPainter may not be able to read the specification."
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1645
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1646
    "
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1647
     UIPainter new openOnClass:ProjectBrowser andSelector:#rightCanvasSpecForReadOnlyText
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1648
     ProjectBrowser new openInterface:#rightCanvasSpecForReadOnlyText
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1649
    "
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1650
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1651
    <resource: #canvas>
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1652
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1653
    ^ 
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1654
     #(#FullSpec
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1655
        #name: #rightCanvasSpecForReadOnlyText
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1656
        #window: 
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1657
       #(#WindowSpec
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1658
          #label: 'NewApplication'
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1659
          #name: 'NewApplication'
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1660
          #min: #(#Point 10 10)
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1661
          #max: #(#Point 1280 1024)
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1662
          #bounds: #(#Rectangle 216 173 516 473)
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1663
        )
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1664
        #component: 
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1665
       #(#SpecCollection
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1666
          #collection: #(
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1667
           #(#TextEditorSpec
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1668
              #name: 'TextEditor1'
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1669
              #layout: #(#LayoutFrame 0 0.0 30 0.0 0 1.0 0 1.0)
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1670
              #model: #rightCanvasTextHolder
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1671
              #hasHorizontalScrollBar: true
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1672
              #hasVerticalScrollBar: true
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1673
              #miniScrollerHorizontal: true
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1674
              #isReadOnly: true
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1675
            )
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1676
           #(#LabelSpec
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1677
              #label: 'Label'
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1678
              #name: 'Label1'
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1679
              #layout: #(#LayoutFrame 0 0 0 0 0 1 30 0)
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1680
              #translateLabel: true
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1681
              #labelChannel: #textCanvasLabelHolder
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1682
              #adjust: #left
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1683
            )
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1684
           )
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1685
         
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1686
        )
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1687
      )
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1688
!
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1689
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1690
windowSpec
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1691
    "This resource specification was automatically generated
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1692
     by the UIPainter of ST/X."
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1693
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1694
    "Do not manually edit this!! If it is corrupted,
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1695
     the UIPainter may not be able to read the specification."
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1696
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1697
    "
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1698
     UIPainter new openOnClass:ProjectBrowser andSelector:#windowSpec
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1699
     ProjectBrowser new openInterface:#windowSpec
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1700
     ProjectBrowser open
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1701
    "
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1702
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1703
    <resource: #canvas>
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1704
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1705
    ^ 
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1706
     #(#FullSpec
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1707
        #name: #windowSpec
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1708
        #window: 
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1709
       #(#WindowSpec
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1710
          #label: 'ProjectBrowser'
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1711
          #name: 'ProjectBrowser'
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1712
          #min: #(#Point 10 10)
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1713
          #max: #(#Point 1024 768)
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1714
          #bounds: #(#Rectangle 30 377 633 928)
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1715
          #menu: #mainMenu
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1716
        )
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1717
        #component: 
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1718
       #(#SpecCollection
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1719
          #collection: #(
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1720
           #(#MenuPanelSpec
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1721
              #name: 'ToolBar1'
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1722
              #layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 32 0)
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1723
              #menu: #menu
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1724
              #textDefault: true
1085
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  1725
            )
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1726
           #(#VariableHorizontalPanelSpec
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1727
              #name: 'VariableHorizontalPanel1'
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1728
              #layout: #(#LayoutFrame 0 0.0 40 0.0 0 1.0 -24 1.0)
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1729
              #handles: #(#Any 0.379433 1.0)
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1730
              #component: 
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1731
             #(#SpecCollection
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1732
                #collection: #(
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1733
                 #(#SelectionInTreeViewSpec
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1734
                    #name: 'TreeList1'
1099
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  1735
                    #model: #selectedTreeNodeHolder
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1736
                    #menu: #itemMenuHolder
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1737
                    #performer: #itemMenuPerformer
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1738
                    #hasHorizontalScrollBar: true
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1739
                    #hasVerticalScrollBar: true
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1740
                    #miniScrollerHorizontal: true
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1741
                    #showRoot: false
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1742
                    #showDirectoryIndicatorForRoot: false
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1743
                    #showDirectoryIndicator: true
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1744
                    #valueChangeSelector: #itemSelected:
1099
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  1745
                    #doubleClickSelector: #itemDoubleClicked:
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1746
                    #hierarchicalList: #projectTreeHolder
1107
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  1747
                    #selectConditionSelector: #selectionChangeAllowed:
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1748
                    #highlightMode: #label
1085
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  1749
                  )
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1750
                 #(#SubCanvasSpec
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1751
                    #name: 'SubCanvas1'
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1752
                    #hasHorizontalScrollBar: false
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1753
                    #hasVerticalScrollBar: false
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1754
                    #specHolder: #currentCanvasHolder
1085
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  1755
                  )
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1756
                 )
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1757
               
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1758
              )
1085
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  1759
            )
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1760
           #(#UISubSpecification
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1761
              #name: 'infoBarSubSpec'
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1762
              #layout: #(#LayoutFrame 0 0.0 -24 1 0 1.0 0 1.0)
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1763
              #majorKey: #ToolApplicationModel
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1764
              #minorKey: #windowSpecForInfoBar
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1765
            )
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1766
           )
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1767
         
1085
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  1768
        )
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1769
      )
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1770
! !
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1771
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1772
!ProjectBrowser class methodsFor:'menu specs'!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1773
1094
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  1774
classItemMenu
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  1775
    "This resource specification was automatically generated
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  1776
     by the MenuEditor of ST/X."
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  1777
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  1778
    "Do not manually edit this!! If it is corrupted,
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  1779
     the MenuEditor may not be able to read the specification."
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  1780
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  1781
    "
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  1782
     MenuEditor new openOnClass:ProjectBrowser andSelector:#classItemMenu
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  1783
     (Menu new fromLiteralArrayEncoding:(ProjectBrowser classItemMenu)) startUp
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  1784
    "
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  1785
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  1786
    <resource: #menu>
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  1787
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  1788
    ^ 
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  1789
     #(#Menu
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  1790
        #(
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  1791
         #(#MenuItem
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  1792
            #label: 'Remove from Project...'
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  1793
            #translateLabel: true
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  1794
            #value: #removeClassFromProject
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  1795
            #enabled: #hasClassesSelectedHolder
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  1796
          )
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  1797
         #(#MenuItem
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  1798
            #label: '-'
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  1799
          )
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  1800
         #(#MenuItem
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  1801
            #label: 'Browse...'
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  1802
            #translateLabel: true
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  1803
            #value: #browseClass
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  1804
            #enabled: #hasClassesSelectedHolder
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  1805
          )
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  1806
         )
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  1807
        nil
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  1808
        nil
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  1809
      )
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  1810
!
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  1811
1052
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  1812
classesItemMenu
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  1813
    "This resource specification was automatically generated
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  1814
     by the MenuEditor of ST/X."
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  1815
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  1816
    "Do not manually edit this!! If it is corrupted,
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  1817
     the MenuEditor may not be able to read the specification."
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  1818
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  1819
    "
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  1820
     MenuEditor new openOnClass:ProjectBrowser andSelector:#classesItemMenu
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  1821
     (Menu new fromLiteralArrayEncoding:(ProjectBrowser classesItemMenu)) startUp
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  1822
    "
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  1823
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  1824
    <resource: #menu>
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  1825
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  1826
    ^
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  1827
     
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  1828
       #(#Menu
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  1829
          
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  1830
           #(
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  1831
             #(#MenuItem
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  1832
                #label: 'Add Class...'
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  1833
                #translateLabel: true
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  1834
                #value: #addClass
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  1835
                #enabled: #hasClassesSelectedHolder
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  1836
            )
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  1837
             #(#MenuItem
1226
21133accee5b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1224
diff changeset
  1838
                #label: 'Add Classes found in image'
21133accee5b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1224
diff changeset
  1839
                #translateLabel: true
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1840
                #value: #addClassesFromImage
1226
21133accee5b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1224
diff changeset
  1841
                #enabled: #hasClassesSelectedHolder
21133accee5b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1224
diff changeset
  1842
            )
21133accee5b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1224
diff changeset
  1843
             #(#MenuItem
1107
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  1844
                #label: 'Add Classes from files found in directory'
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  1845
                #translateLabel: true
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  1846
                #value: #addClassesFromFilesInDirectory
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  1847
                #enabled: #hasClassesSelectedHolder
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  1848
            )
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  1849
             #(#MenuItem
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  1850
                #label: 'Add Classes from files found in directory if present in image'
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  1851
                #translateLabel: true
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  1852
                #value: #addClassesFromFilesInDirectoryIfPresentInImage
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  1853
                #enabled: #hasClassesSelectedHolder
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  1854
            )
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  1855
             #(#MenuItem
1052
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  1856
                #label: '-'
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  1857
            )
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  1858
             #(#MenuItem
1107
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  1859
                #label: 'Load Classes from Directory'
1094
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  1860
                #translateLabel: true
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  1861
                #value: #loadClassesFromDirectory
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  1862
                #enabled: #canLoadClassesFromDirectory
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  1863
            )
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  1864
             #(#MenuItem
1107
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  1865
                #label: 'Load Classes from Repository'
1094
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  1866
                #translateLabel: true
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  1867
                #value: #loadClassesFromRepository
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  1868
                #enabled: #canLoadClassesFromRepository
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  1869
            )
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  1870
             #(#MenuItem
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  1871
                #label: '-'
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  1872
            )
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  1873
             #(#MenuItem
1052
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  1874
                #label: 'Browse...'
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  1875
                #translateLabel: true
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  1876
                #value: #browseClasses
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  1877
                #enabled: #hasClassesSelectedHolder
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  1878
            )
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  1879
          ) nil
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  1880
          nil
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  1881
      )
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  1882
!
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  1883
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1884
mainMenu
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1885
    "This resource specification was automatically generated
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1886
     by the MenuEditor of ST/X."
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1887
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1888
    "Do not manually edit this!! If it is corrupted,
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1889
     the MenuEditor may not be able to read the specification."
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1890
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1891
    "
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1892
     MenuEditor new openOnClass:ProjectBrowser andSelector:#mainMenu
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1893
     (Menu new fromLiteralArrayEncoding:(ProjectBrowser mainMenu)) startUp
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1894
    "
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1895
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1896
    <resource: #menu>
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1897
1085
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  1898
    ^ 
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  1899
     #(#Menu
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  1900
        #(
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  1901
         #(#MenuItem
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  1902
            #label: 'File'
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  1903
            #translateLabel: true
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  1904
            #submenu: 
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  1905
           #(#Menu
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  1906
              #(
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  1907
               #(#MenuItem
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1908
                  #label: 'New'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1909
                  #translateLabel: true
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1910
                  #value: #newProject
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1911
                )
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1912
               #(#MenuItem
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1913
                  #label: '-'
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1914
                )
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1915
               #(#MenuItem
1085
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  1916
                  #label: 'Load From...'
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  1917
                  #translateLabel: true
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  1918
                  #value: #openProject
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  1919
                )
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  1920
               #(#MenuItem
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1921
                  #label: 'Load Project Code'
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1922
                  #translateLabel: true
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1923
                  #value: #loadProjectCode
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1924
                  #enabled: #hasProjectSelectedAndProjectFilenameHolder
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1925
                )
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1926
               #(#MenuItem
1085
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  1927
                  #label: '-'
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  1928
                )
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  1929
               #(#MenuItem
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1930
                  #label: 'Save Project File'
1085
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  1931
                  #translateLabel: true
1228
90dee52628ec more building
Claus Gittinger <cg@exept.de>
parents: 1227
diff changeset
  1932
                  #value: #saveProjectFile
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1933
                  #enabled: #hasProjectSelectedAndProjectFilenameHolder
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1934
                )
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1935
               #(#MenuItem
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1936
                  #label: 'Save Project Code'
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1937
                  #translateLabel: true
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1938
                  #value: #saveProjectCode
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1939
                  #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1940
                )
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1941
               #(#MenuItem
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1942
                  #label: 'Save All'
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1943
                  #translateLabel: true
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1944
                  #value: #saveAll
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1945
                  #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1946
                )
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1947
               #(#MenuItem
1085
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  1948
                  #label: '-'
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  1949
                )
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  1950
               #(#MenuItem
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  1951
                  #label: 'Exit'
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  1952
                  #translateLabel: true
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  1953
                  #value: #closeRequest
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1954
                )
1085
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  1955
               )
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  1956
              nil
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  1957
              nil
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1958
            )
1085
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  1959
          )
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  1960
         #(#MenuItem
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1961
            #label: 'Repository'
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1962
            #translateLabel: true
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1963
            #submenu: 
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1964
           #(#Menu
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1965
              #(
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1966
               #(#MenuItem
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1967
                  #label: 'CheckIn All'
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1968
                  #translateLabel: true
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1969
                  #value: #checkInProject
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1970
                  #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1971
                )
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1972
               )
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1973
              nil
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1974
              nil
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1975
            )
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1976
          )
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1977
         #(#MenuItem
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1978
            #label: 'View'
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1979
            #translateLabel: true
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1980
            #submenu: 
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1981
           #(#Menu
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1982
              #(
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1983
               #(#MenuItem
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1984
                  #label: 'Current Project'
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1985
                  #translateLabel: true
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1986
                  #choice: #showWhat
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1987
                  #choiceValue: #current
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1988
                )
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1989
               #(#MenuItem
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1990
                  #label: 'Non BaseSystem Projects'
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1991
                  #translateLabel: true
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1992
                  #choice: #showWhat
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1993
                  #choiceValue: #userProjects
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1994
                )
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1995
               #(#MenuItem
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1996
                  #label: 'All Projects'
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1997
                  #translateLabel: true
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1998
                  #choice: #showWhat
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1999
                  #choiceValue: #all
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2000
                )
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2001
               #(#MenuItem
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2002
                  #label: '-'
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2003
                )
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2004
               #(#MenuItem
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2005
                  #label: 'Update'
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2006
                  #translateLabel: true
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2007
                  #value: #updateListOfProjects
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2008
                )
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2009
               )
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2010
              nil
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2011
              nil
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2012
            )
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2013
          )
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2014
         #(#MenuItem
1085
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2015
            #label: 'Project'
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2016
            #translateLabel: true
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2017
            #submenuChannel: #projectItemMenu
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2018
          )
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2019
         #(#MenuItem
1093
311115f31a4d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  2020
            #label: 'Build'
311115f31a4d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  2021
            #translateLabel: true
311115f31a4d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  2022
            #submenu: 
311115f31a4d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  2023
           #(#Menu
311115f31a4d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  2024
              #(
311115f31a4d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  2025
               #(#MenuItem
311115f31a4d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  2026
                  #label: 'All'
311115f31a4d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  2027
                  #translateLabel: true
311115f31a4d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  2028
                  #value: #buildAll
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2029
                  #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
1093
311115f31a4d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  2030
                )
311115f31a4d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  2031
               #(#MenuItem
311115f31a4d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  2032
                  #label: '-'
311115f31a4d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  2033
                )
311115f31a4d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  2034
               #(#MenuItem
311115f31a4d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  2035
                  #label: 'Make.proto && Makefile'
311115f31a4d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  2036
                  #translateLabel: true
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2037
                  #value: #buildMakefiles
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2038
                  #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2039
                )
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2040
               #(#MenuItem
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2041
                  #label: 'LoadAll file'
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2042
                  #translateLabel: true
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2043
                  #value: #buildLoadAllFile
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2044
                  #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2045
                )
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2046
               #(#MenuItem
1229
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  2047
                  #label: 'Binary class library (non portable)'
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2048
                  #translateLabel: true
1229
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  2049
                  #value: #buildCompiledClassLibrary
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  2050
                  #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  2051
                )
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  2052
               #(#MenuItem
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  2053
                  #label: 'Bytecode class library (portable)'
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  2054
                  #translateLabel: true
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  2055
                  #value: #buildByteCodeClassLibrary
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2056
                  #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2057
                )
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2058
               #(#MenuItem
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2059
                  #label: 'Zip archive'
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2060
                  #translateLabel: true
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2061
                  #value: #buildZipArchive
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2062
                  #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
1093
311115f31a4d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  2063
                )
311115f31a4d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  2064
               )
311115f31a4d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  2065
              nil
311115f31a4d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  2066
              nil
311115f31a4d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  2067
            )
311115f31a4d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  2068
          )
311115f31a4d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  2069
         #(#MenuItem
1085
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2070
            #label: 'Help'
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2071
            #translateLabel: true
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2072
            #startGroup: #right
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2073
            #submenu: 
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2074
           #(#Menu
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2075
              #(
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2076
               #(#MenuItem
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2077
                  #label: 'Documentation'
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2078
                  #translateLabel: true
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2079
                  #value: #openDocumentation
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2080
                )
1085
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2081
               #(#MenuItem
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2082
                  #label: '-'
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2083
                )
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2084
               #(#MenuItem
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2085
                  #label: 'About this Application'
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2086
                  #translateLabel: true
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2087
                  #value: #openAboutThisApplication
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2088
                )
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2089
               )
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2090
              nil
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2091
              nil
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2092
            )
1085
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2093
          )
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2094
         )
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2095
        nil
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2096
        nil
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2097
      )
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2098
!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2099
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2100
methodItemMenu
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2101
    "This resource specification was automatically generated
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2102
     by the MenuEditor of ST/X."
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2103
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2104
    "Do not manually edit this!! If it is corrupted,
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2105
     the MenuEditor may not be able to read the specification."
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2106
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2107
    "
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2108
     MenuEditor new openOnClass:ProjectBrowser andSelector:#menu
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2109
     (Menu new fromLiteralArrayEncoding:(ProjectBrowser menu)) startUp
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2110
    "
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2111
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2112
    <resource: #menu>
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2113
1116
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  2114
    ^ 
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  2115
     #(#Menu
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  2116
        #(
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  2117
         #(#MenuItem
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2118
            #label: 'Browse'
1116
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  2119
            #translateLabel: true
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2120
            #value: #browseMethod
1116
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  2121
          )
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  2122
         #(#MenuItem
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2123
            #label: 'Browse Full'
1116
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  2124
            #translateLabel: true
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2125
            #value: #browseMethodFull
1116
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  2126
          )
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  2127
         )
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  2128
        nil
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  2129
        nil
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2130
      )
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2131
!
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2132
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2133
noItemMenu
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2134
    "This resource specification was automatically generated
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2135
     by the MenuEditor of ST/X."
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2136
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2137
    "Do not manually edit this!! If it is corrupted,
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2138
     the MenuEditor may not be able to read the specification."
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2139
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2140
    "
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2141
     MenuEditor new openOnClass:ProjectBrowser andSelector:#projectItemMenu
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2142
     (Menu new fromLiteralArrayEncoding:(ProjectBrowser projectItemMenu)) startUp
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2143
    "
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2144
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2145
    <resource: #menu>
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2146
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2147
    ^
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2148
     
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2149
       #(#Menu
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2150
          
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2151
           #(
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2152
             #(#MenuItem
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2153
                #label: 'New Project'
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2154
                #translateLabel: true
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2155
                #value: #newProject
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2156
            )
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2157
          ) nil
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2158
          nil
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2159
      )
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2160
!
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2161
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2162
prerequisiteClassesItemMenu
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2163
    "This resource specification was automatically generated
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2164
     by the MenuEditor of ST/X."
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2165
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2166
    "Do not manually edit this!! If it is corrupted,
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2167
     the MenuEditor may not be able to read the specification."
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2168
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2169
    "
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2170
     MenuEditor new openOnClass:ProjectBrowser andSelector:#prerequisiteClassesItemMenu
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2171
     (Menu new fromLiteralArrayEncoding:(ProjectBrowser prerequisiteClassesItemMenu)) startUp
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2172
    "
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2173
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2174
    <resource: #menu>
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2175
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2176
    ^ 
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2177
     #(#Menu
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2178
        #(
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2179
         #(#MenuItem
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2180
            #label: 'Update'
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2181
            #translateLabel: true
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2182
            #value: #updateListOfRequiredPrerequisiteClasses
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2183
            #enabled: #hasClassesSelectedHolder
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2184
          )
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2185
         )
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2186
        nil
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2187
        nil
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2188
      )
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2189
!
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2190
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2191
projectItemMenu
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2192
    "This resource specification was automatically generated
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2193
     by the MenuEditor of ST/X."
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2194
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2195
    "Do not manually edit this!! If it is corrupted,
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2196
     the MenuEditor may not be able to read the specification."
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2197
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2198
    "
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2199
     MenuEditor new openOnClass:ProjectBrowser andSelector:#projectItemMenu
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2200
     (Menu new fromLiteralArrayEncoding:(ProjectBrowser projectItemMenu)) startUp
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2201
    "
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2202
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2203
    <resource: #menu>
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2204
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2205
    ^
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2206
     
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2207
       #(#Menu
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2208
          
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2209
           #(
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2210
             #(#MenuItem
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2211
                #label: 'Make Current'
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2212
                #translateLabel: true
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2213
                #value: #makeCurrentProject
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2214
                #enabled: #hasProjectSelectedHolder
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2215
            )
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2216
             #(#MenuItem
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2217
                #label: 'Inspect'
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2218
                #translateLabel: true
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2219
                #value: #inspectCurrentProject
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2220
                #enabled: #hasProjectSelectedHolder
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2221
            )
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2222
             #(#MenuItem
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2223
                #label: '-'
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2224
            )
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2225
             #(#MenuItem
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2226
                #label: 'New SubProject'
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2227
                #translateLabel: true
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2228
                #value: #newSubProject
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2229
                #enabled: #hasProjectSelectedHolder
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2230
            )
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2231
             #(#MenuItem
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2232
                #label: '-'
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2233
            )
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2234
             #(#MenuItem
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2235
                #label: 'Rename...'
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2236
                #translateLabel: true
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2237
                #value: #renameProject
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2238
                #enabled: #hasProjectSelectedHolder
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2239
            )
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2240
             #(#MenuItem
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2241
                #label: '-'
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2242
            )
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2243
             #(#MenuItem
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2244
                #label: 'Remove...'
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2245
                #translateLabel: true
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2246
                #value: #removeProject
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2247
                #enabled: #hasProjectSelectedHolder
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2248
            )
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2249
          ) nil
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2250
          nil
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2251
      )
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2252
!
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2253
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2254
subProjectsItemMenu
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2255
    "This resource specification was automatically generated
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2256
     by the MenuEditor of ST/X."
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2257
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2258
    "Do not manually edit this!! If it is corrupted,
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2259
     the MenuEditor may not be able to read the specification."
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2260
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2261
    "
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2262
     MenuEditor new openOnClass:ProjectBrowser andSelector:#subProjectsItemMenu
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2263
     (Menu new fromLiteralArrayEncoding:(ProjectBrowser subProjectsItemMenu)) startUp
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2264
    "
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2265
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2266
    <resource: #menu>
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2267
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2268
    ^
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2269
     
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2270
       #(#Menu
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2271
          
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2272
           #(
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2273
             #(#MenuItem
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2274
                #label: 'New SubProject'
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2275
                #translateLabel: true
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2276
                #value: #newSubProject
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2277
                #enabled: #hasSubProjectsSelectedHolder
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2278
            )
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2279
          ) nil
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2280
          nil
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2281
      )
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2282
! !
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2283
1095
660185e02224 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1094
diff changeset
  2284
!ProjectBrowser class methodsFor:'startup'!
660185e02224 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1094
diff changeset
  2285
660185e02224 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1094
diff changeset
  2286
openOnFile:aFilename
1224
825e6e9fc37f expand the path to the load project
Claus Gittinger <cg@exept.de>
parents: 1223
diff changeset
  2287
    |project browser nodes theNode|
1095
660185e02224 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1094
diff changeset
  2288
660185e02224 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1094
diff changeset
  2289
    browser := self new.
660185e02224 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1094
diff changeset
  2290
    browser allButOpen.
1224
825e6e9fc37f expand the path to the load project
Claus Gittinger <cg@exept.de>
parents: 1223
diff changeset
  2291
    project := browser loadFromProjectFile:aFilename.
825e6e9fc37f expand the path to the load project
Claus Gittinger <cg@exept.de>
parents: 1223
diff changeset
  2292
825e6e9fc37f expand the path to the load project
Claus Gittinger <cg@exept.de>
parents: 1223
diff changeset
  2293
    theNode := browser projectTreeHolder 
825e6e9fc37f expand the path to the load project
Claus Gittinger <cg@exept.de>
parents: 1223
diff changeset
  2294
                    detectFirstItem:[:item | item contents == project].
825e6e9fc37f expand the path to the load project
Claus Gittinger <cg@exept.de>
parents: 1223
diff changeset
  2295
825e6e9fc37f expand the path to the load project
Claus Gittinger <cg@exept.de>
parents: 1223
diff changeset
  2296
    [theNode notNil] whileTrue:[
825e6e9fc37f expand the path to the load project
Claus Gittinger <cg@exept.de>
parents: 1223
diff changeset
  2297
        browser projectTreeHolder expand:theNode.
825e6e9fc37f expand the path to the load project
Claus Gittinger <cg@exept.de>
parents: 1223
diff changeset
  2298
        theNode := theNode parent.
1095
660185e02224 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1094
diff changeset
  2299
    ].
660185e02224 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1094
diff changeset
  2300
660185e02224 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1094
diff changeset
  2301
    browser openWindow
660185e02224 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1094
diff changeset
  2302
! !
660185e02224 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1094
diff changeset
  2303
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2304
!ProjectBrowser class methodsFor:'tableColumns specs'!
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2305
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2306
classTableColumns
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2307
    "This resource specification was automatically generated
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2308
     by the DataSetBuilder of ST/X."
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2309
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2310
    "Do not manually edit this!! If it is corrupted,
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2311
     the DataSetBuilder may not be able to read the specification."
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2312
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2313
    "
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2314
     DataSetBuilder new openOnClass:ProjectBrowser andSelector:#classTableColumns
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2315
    "
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2316
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2317
    <resource: #tableColumns>
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2318
1235
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  2319
    ^#(
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  2320
      #(#DataSetColumnSpec
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  2321
         #label: 'Class'
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  2322
         #id: 'classColumn'
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  2323
         #labelAlignment: #left
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  2324
         #model: #classNameFromClassInfo:
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2325
       )
1235
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  2326
      #(#DataSetColumnSpec
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  2327
         #label: 'Included'
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  2328
         #id: 'inclusion'
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  2329
         #width: 150
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  2330
         #editorType: #ComboList
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  2331
         #choices: #listOfPossibleConditions:
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  2332
         #model: #classIncludeConditionFromClassInfo:
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  2333
         #writeSelector: #classIncludeConditionFromClassInfo:put:
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2334
       )
1235
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  2335
      #(#DataSetColumnSpec
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  2336
         #label: 'Filename'
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  2337
         #labelAlignment: #left
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  2338
         #minWidth: 200
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  2339
         #model: #classFilenameFromClassInfo:
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2340
       )
1235
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  2341
      )
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  2342
    
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  2343
!
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  2344
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  2345
patchesTableColumns
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  2346
    "This resource specification was automatically generated
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  2347
     by the DataSetBuilder of ST/X."
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  2348
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  2349
    "Do not manually edit this!! If it is corrupted,
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  2350
     the DataSetBuilder may not be able to read the specification."
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  2351
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  2352
    "
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  2353
     DataSetBuilder new openOnClass:ProjectBrowser andSelector:#patchesTableColumns
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  2354
    "
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  2355
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  2356
    <resource: #tableColumns>
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  2357
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2358
    ^#(
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2359
      #(#DataSetColumnSpec
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2360
         #label: 'Class'
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2361
         #id: 'classColumn'
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2362
         #labelAlignment: #left
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2363
         #menu: #patchesMethodMenu
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2364
         #model: #classNameFromMethodInfo:
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2365
         #doubleClickedSelector: #methodPatchDoubleClick:
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2366
         #canSelect: false
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  2367
       )
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2368
      #(#DataSetColumnSpec
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2369
         #label: 'Selector'
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2370
         #id: 'selectorColumn'
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2371
         #labelAlignment: #left
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2372
         #model: #selectorFromMethodInfo:
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2373
         #canSelect: false
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  2374
       )
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2375
      )
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2376
    
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2377
! !
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2378
1099
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  2379
!ProjectBrowser methodsFor:'accessing'!
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  2380
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  2381
selectedTreeNode
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  2382
    "automatically generated by UIPainter ..."
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  2383
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  2384
    ^ self selectedTreeNodeHolder value
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  2385
! !
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  2386
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2387
!ProjectBrowser methodsFor:'aspects'!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2388
1108
e88edf4a8cbe editFields - accept
Claus Gittinger <cg@exept.de>
parents: 1107
diff changeset
  2389
acceptChannel
e88edf4a8cbe editFields - accept
Claus Gittinger <cg@exept.de>
parents: 1107
diff changeset
  2390
    |holder|
e88edf4a8cbe editFields - accept
Claus Gittinger <cg@exept.de>
parents: 1107
diff changeset
  2391
e88edf4a8cbe editFields - accept
Claus Gittinger <cg@exept.de>
parents: 1107
diff changeset
  2392
    (holder := builder bindingAt:#acceptChannel) isNil ifTrue:[
e88edf4a8cbe editFields - accept
Claus Gittinger <cg@exept.de>
parents: 1107
diff changeset
  2393
        holder := false asValue.
e88edf4a8cbe editFields - accept
Claus Gittinger <cg@exept.de>
parents: 1107
diff changeset
  2394
        builder aspectAt:#acceptChannel put:holder.
e88edf4a8cbe editFields - accept
Claus Gittinger <cg@exept.de>
parents: 1107
diff changeset
  2395
    ].
e88edf4a8cbe editFields - accept
Claus Gittinger <cg@exept.de>
parents: 1107
diff changeset
  2396
    ^ holder.
e88edf4a8cbe editFields - accept
Claus Gittinger <cg@exept.de>
parents: 1107
diff changeset
  2397
e88edf4a8cbe editFields - accept
Claus Gittinger <cg@exept.de>
parents: 1107
diff changeset
  2398
    "Created: / 23.3.1999 / 14:18:05 / cg"
e88edf4a8cbe editFields - accept
Claus Gittinger <cg@exept.de>
parents: 1107
diff changeset
  2399
!
e88edf4a8cbe editFields - accept
Claus Gittinger <cg@exept.de>
parents: 1107
diff changeset
  2400
1094
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2401
browseClass
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2402
    |node classOrClassName cls|
1094
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2403
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2404
    self hasClassNodeSelected ifFalse:[^ self].
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2405
1099
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  2406
    node := self selectedTreeNode.
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2407
    classOrClassName := node contents value.
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2408
    classOrClassName isBehavior ifTrue:[
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2409
        cls := classOrClassName.
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2410
    ] ifFalse:[
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2411
        cls := Smalltalk at:classOrClassName.
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2412
    ].
1094
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2413
    cls isNil ifTrue:[
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2414
        self information:'The class is not (yet) loaded'.
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2415
        ^ self.
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2416
    ].
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2417
    cls isLoaded ifFalse:[
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2418
        self information:'The class is an autoloaded class.'.
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2419
    ].
1094
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2420
    SystemBrowser openInClass:cls selector:nil.
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2421
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2422
!
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2423
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2424
canAddSelectedClassToPrerequisites
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2425
    |holder|
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2426
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2427
    (holder := builder bindingAt:#canAddSelectedClassToPrerequisites) isNil ifTrue:[
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2428
        holder := BlockValue 
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2429
                        with:[:m | self canAddClassToPrerequisites:m] 
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2430
                        argument:(self selectedClassInPrerequisites).
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2431
        builder aspectAt:#canAddSelectedClassToPrerequisites put:holder.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2432
    ].
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2433
    ^ holder.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2434
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2435
    "Created: / 23.3.1999 / 14:18:05 / cg"
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2436
!
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2437
1089
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2438
canAddSelectedProjectToPrerequisites
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2439
    |holder|
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2440
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2441
    (holder := builder bindingAt:#canAddSelectedProjectToPrerequisites) isNil ifTrue:[
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  2442
        holder := BlockValue 
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2443
                        with:[:m | self canAddProjectToPrerequisites:m] 
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  2444
                        argument:(self selectedProjectInPrerequisites).
1089
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2445
        builder aspectAt:#canAddSelectedProjectToPrerequisites put:holder.
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2446
    ].
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2447
    ^ holder.
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2448
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2449
    "Created: / 23.3.1999 / 14:18:05 / cg"
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2450
!
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2451
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2452
canDeliverBinaryForMacOS
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2453
    ^ OperatingSystem platformName == #macOS
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2454
!
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2455
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2456
canDeliverBinaryForUnix
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2457
    ^ OperatingSystem platformName == #unix 
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2458
!
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2459
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2460
canDeliverBinaryForVMS
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2461
    ^ OperatingSystem platformName == #vms 
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2462
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2463
!
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2464
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2465
canDeliverBinaryForWin32
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2466
    ^ OperatingSystem platformName == #win32 
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2467
!
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2468
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2469
canDeliverForMacOS
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2470
    |holder|
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2471
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2472
    (holder := builder bindingAt:#canDeliverForMacOS) isNil ifTrue:[
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2473
        holder := BlockValue 
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2474
                        with:[:a1 :a2 | a1 or:[a2 not]] 
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2475
                        arguments:(Array 
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2476
                                        with:self canDeliverBinaryForMacOS
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2477
                                        with:self deliverCompiledBinary).
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2478
        builder aspectAt:#canDeliverForMacOS put:holder.
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2479
    ].
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2480
    ^ holder.
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2481
!
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2482
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2483
canDeliverForUnix
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2484
    |holder|
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2485
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2486
    (holder := builder bindingAt:#canDeliverForUnix) isNil ifTrue:[
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2487
        holder := BlockValue 
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2488
                        with:[:a1 :a2 | a1 or:[a2 not]] 
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2489
                        arguments:(Array 
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2490
                                        with:self canDeliverBinaryForUnix
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2491
                                        with:self deliverCompiledBinary).
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2492
        builder aspectAt:#canDeliverForUnix put:holder.
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2493
    ].
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2494
    ^ holder.
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2495
!
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2496
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2497
canDeliverForVMS
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2498
    |holder|
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2499
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2500
    (holder := builder bindingAt:#canDeliverForVMS) isNil ifTrue:[
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2501
        holder := BlockValue 
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2502
                        with:[:a1 :a2 | a1 or:[a2 not]] 
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2503
                        arguments:(Array 
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2504
                                        with:self canDeliverBinaryForVMS
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2505
                                        with:self deliverCompiledBinary).
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2506
        builder aspectAt:#canDeliverForVMS put:holder.
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2507
    ].
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2508
    ^ holder.
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2509
!
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2510
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2511
canDeliverForWin32
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2512
    |holder|
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2513
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2514
    (holder := builder bindingAt:#canDeliverForWin32) isNil ifTrue:[
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2515
        holder := BlockValue 
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2516
                        with:[:a1 :a2 | a1 or:[a2 not]] 
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2517
                        arguments:(Array 
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2518
                                        with:self canDeliverBinaryForWin32
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2519
                                        with:self deliverCompiledBinary).
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2520
        builder aspectAt:#canDeliverForWin32 put:holder.
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2521
    ].
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2522
    ^ holder.
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2523
!
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2524
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2525
canRemoveSelectedClassFromPrerequisites
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2526
    |holder|
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2527
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2528
    (holder := builder bindingAt:#canRemoveSelectedClassFromPrerequisites) isNil ifTrue:[
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2529
        holder := BlockValue with:[:m | m notNil] argument:(self selectedRequiredClassInPrerequisites).
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2530
        builder aspectAt:#canRemoveSelectedClassFromPrerequisites put:holder.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2531
    ].
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2532
    ^ holder.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2533
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2534
    "Created: / 23.3.1999 / 14:18:05 / cg"
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2535
!
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2536
1089
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2537
canRemoveSelectedProjectFromPrerequisites
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2538
    |holder|
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2539
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2540
    (holder := builder bindingAt:#canRemoveSelectedProjectFromPrerequisites) isNil ifTrue:[
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2541
        holder := BlockValue with:[:m | m notNil] argument:(self selectedRequiredProjectInPrerequisites).
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2542
        builder aspectAt:#canRemoveSelectedProjectFromPrerequisites put:holder.
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2543
    ].
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2544
    ^ holder.
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2545
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2546
    "Created: / 23.3.1999 / 14:18:05 / cg"
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2547
!
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2548
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2549
classList
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2550
    "automatically generated by UIPainter ..."
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2551
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2552
    |holder|
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2553
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2554
    (holder := builder bindingAt:#classList) isNil ifTrue:[
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2555
        builder aspectAt:#classList put:(holder :=  List new).
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2556
    ].
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2557
    ^ holder.
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2558
!
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2559
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2560
classTableAdaptor
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2561
    ^ self
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2562
!
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2563
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2564
classTableColumns
1038
41da0e38af84 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1037
diff changeset
  2565
    ^ self class classTableColumns
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2566
!
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2567
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2568
currentCanvasHolder
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2569
    "automatically generated by UIPainter ..."
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2570
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2571
    |holder|
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2572
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2573
    (holder := builder bindingAt:#currentCanvasHolder) isNil ifTrue:[
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2574
        builder aspectAt:#currentCanvasHolder put:(holder :=  ValueHolder new).
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2575
    ].
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2576
    ^ holder.
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2577
!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2578
1080
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  2579
currentProjectWasNotLoadedFromFile
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  2580
    "automatically generated by UIPainter ..."
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  2581
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  2582
    |holder|
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  2583
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  2584
    (holder := builder bindingAt:#currentProjectWasNotLoadedFromFile) isNil ifTrue:[
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  2585
        builder aspectAt:#currentProjectWasNotLoadedFromFile put:(holder :=  ValueHolder new).
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  2586
    ].
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  2587
    ^ holder.
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  2588
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  2589
    "Created: / 23.3.1999 / 14:01:09 / cg"
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  2590
!
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  2591
1229
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  2592
deliverByteCode
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  2593
    "automatically generated by UIPainter ..."
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  2594
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  2595
    |holder|
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  2596
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  2597
    (holder := builder bindingAt:#deliverByteCode) isNil ifTrue:[
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  2598
        builder aspectAt:#deliverByteCode put:(holder :=  ValueHolder new).
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  2599
        holder onChangeSend:#value to:[modifiedChannel value:true].
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  2600
    ].
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  2601
    ^ holder.
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  2602
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  2603
    "Created: / 23.3.1999 / 14:18:05 / cg"
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  2604
!
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  2605
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  2606
deliverCompiledBinary
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  2607
    "automatically generated by UIPainter ..."
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  2608
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  2609
    |holder|
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  2610
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  2611
    (holder := builder bindingAt:#deliverCompiledBinary) isNil ifTrue:[
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  2612
        builder aspectAt:#deliverCompiledBinary put:(holder :=  ValueHolder new).
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  2613
        holder onChangeSend:#value to:[modifiedChannel value:true].
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  2614
    ].
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  2615
    ^ holder.
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  2616
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  2617
    "Created: / 23.3.1999 / 14:18:05 / cg"
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  2618
!
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  2619
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  2620
deliverGZipArchive
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  2621
    "automatically generated by UIPainter ..."
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  2622
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  2623
    |holder|
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  2624
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  2625
    (holder := builder bindingAt:#deliverGZipArchive) isNil ifTrue:[
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  2626
        builder aspectAt:#deliverGZipArchive put:(holder :=  ValueHolder new).
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  2627
        holder onChangeSend:#value to:[modifiedChannel value:true].
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  2628
    ].
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  2629
    ^ holder.
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  2630
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  2631
    "Created: / 23.3.1999 / 14:18:05 / cg"
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  2632
!
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  2633
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  2634
deliverLoadAllFile
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  2635
    "automatically generated by UIPainter ..."
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  2636
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  2637
    |holder|
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  2638
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  2639
    (holder := builder bindingAt:#deliverLoadAllFile) isNil ifTrue:[
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  2640
        builder aspectAt:#deliverLoadAllFile put:(holder :=  ValueHolder new).
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  2641
        holder onChangeSend:#value to:[modifiedChannel value:true].
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  2642
    ].
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  2643
    ^ holder.
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  2644
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  2645
    "Created: / 23.3.1999 / 14:18:05 / cg"
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  2646
!
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  2647
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  2648
deliverMakefiles
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  2649
    "automatically generated by UIPainter ..."
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  2650
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  2651
    |holder|
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  2652
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  2653
    (holder := builder bindingAt:#deliverMakefiles) isNil ifTrue:[
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  2654
        builder aspectAt:#deliverMakefiles put:(holder :=  ValueHolder new).
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  2655
        holder onChangeSend:#value to:[modifiedChannel value:true].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  2656
    ].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  2657
    ^ holder.
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  2658
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  2659
    "Created: / 23.3.1999 / 14:18:05 / cg"
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  2660
!
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  2661
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  2662
deliverSources
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  2663
    "automatically generated by UIPainter ..."
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  2664
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  2665
    |holder|
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  2666
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  2667
    (holder := builder bindingAt:#deliverSources) isNil ifTrue:[
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  2668
        builder aspectAt:#deliverSources put:(holder :=  ValueHolder new).
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  2669
        holder onChangeSend:#value to:[modifiedChannel value:true].
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  2670
    ].
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  2671
    ^ holder.
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  2672
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  2673
    "Created: / 23.3.1999 / 14:18:05 / cg"
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  2674
!
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  2675
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  2676
deliverTarArchive
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  2677
    "automatically generated by UIPainter ..."
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  2678
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  2679
    |holder|
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  2680
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  2681
    (holder := builder bindingAt:#deliverTarArchive) isNil ifTrue:[
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  2682
        builder aspectAt:#deliverTarArchive put:(holder :=  ValueHolder new).
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  2683
        holder onChangeSend:#value to:[modifiedChannel value:true].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  2684
    ].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  2685
    ^ holder.
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  2686
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  2687
    "Created: / 23.3.1999 / 14:18:05 / cg"
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  2688
!
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  2689
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  2690
deliverZipArchive
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  2691
    "automatically generated by UIPainter ..."
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  2692
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  2693
    |holder|
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  2694
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  2695
    (holder := builder bindingAt:#deliverZipArchive) isNil ifTrue:[
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  2696
        builder aspectAt:#deliverZipArchive put:(holder :=  ValueHolder new).
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  2697
        holder onChangeSend:#value to:[modifiedChannel value:true].
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  2698
    ].
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  2699
    ^ holder.
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  2700
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  2701
    "Created: / 23.3.1999 / 14:18:05 / cg"
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  2702
!
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  2703
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2704
hasProjectSelectedAndProjectFilenameHolder
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2705
    ^ [ |dir|
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2706
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2707
        dir := self projectDirectory value asFilename.
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2708
        (dir exists and:[dir isDirectory]) ifTrue:[
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2709
            self hasProjectSelectedHolder value
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2710
        ] ifFalse:[
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2711
            false
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2712
        ]
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2713
    ].
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2714
!
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2715
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2716
hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2717
    ^ [ |dir|
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2718
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2719
        dir := self projectDirectory value asFilename.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2720
        (dir exists and:[dir isDirectory]) ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2721
            (self hasProjectSelectedHolder value) ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2722
                self projectCodeIsLoaded value
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2723
            ] ifFalse:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2724
                false.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2725
            ]
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2726
        ] ifFalse:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2727
            false
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2728
        ]
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2729
    ].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2730
!
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2731
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2732
hasProjectSelectedHolder
1116
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  2733
    |holder|
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  2734
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  2735
    (holder := builder bindingAt:#hasProjectSelectedHolder) isNil ifTrue:[
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  2736
        holder := false asValue.
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  2737
        builder aspectAt:#hasProjectSelectedHolder put:holder.
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  2738
    ].
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  2739
    ^ holder.
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  2740
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  2741
    "Modified: / 26.4.1999 / 22:47:33 / cg"
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2742
!
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2743
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2744
hasSubProjectsSelectedHolder
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2745
    ^ [
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2746
        self hasSubProjectsNodeSelected
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
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2750
htmlDocumentURLHolder
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2751
    "automatically generated by UIPainter ..."
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
    |holder|
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2754
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2755
    (holder := builder bindingAt:#htmlDocumentURLHolder) isNil ifTrue:[
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2756
        builder aspectAt:#htmlDocumentURLHolder put:(holder :=  ValueHolder new).
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2757
    ].
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2758
    ^ holder.
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2759
!
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2760
1149
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  2761
installDirectoryMacOS
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  2762
    "automatically generated by UIPainter ..."
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  2763
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  2764
    |holder|
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  2765
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  2766
    (holder := builder bindingAt:#installDirectoryMacOS) isNil ifTrue:[
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  2767
        builder aspectAt:#installDirectoryMacOS put:(holder := '' asValue).
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  2768
        holder onChangeSend:#value to:[modifiedChannel value:true].
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  2769
    ].
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  2770
    ^ holder.
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  2771
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  2772
    "Created: / 23.3.1999 / 14:18:05 / cg"
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  2773
!
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  2774
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2775
installDirectoryUnix
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  2776
    "automatically generated by UIPainter ..."
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  2777
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  2778
    |holder|
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  2779
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2780
    (holder := builder bindingAt:#installDirectoryUnix) isNil ifTrue:[
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2781
        builder aspectAt:#installDirectoryUnix put:(holder := '/opt/smalltalk' asValue).
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2782
        holder onChangeSend:#value to:[modifiedChannel value:true].
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2783
    ].
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2784
    ^ holder.
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2785
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2786
    "Created: / 23.3.1999 / 14:18:05 / cg"
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2787
!
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2788
1149
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  2789
installDirectoryVMS
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  2790
    "automatically generated by UIPainter ..."
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  2791
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  2792
    |holder|
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  2793
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  2794
    (holder := builder bindingAt:#installDirectoryVMS) isNil ifTrue:[
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  2795
        builder aspectAt:#installDirectoryVMS put:(holder := '' asValue).
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  2796
        holder onChangeSend:#value to:[modifiedChannel value:true].
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  2797
    ].
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  2798
    ^ holder.
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  2799
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  2800
    "Created: / 23.3.1999 / 14:18:05 / cg"
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  2801
!
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  2802
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2803
installDirectoryWin32
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2804
    "automatically generated by UIPainter ..."
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2805
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2806
    |holder|
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2807
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2808
    (holder := builder bindingAt:#installDirectoryWin32) isNil ifTrue:[
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2809
        builder aspectAt:#installDirectoryWin32 put:(holder := '\Programme\SmalltalkX' asValue).
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  2810
        holder onChangeSend:#value to:[modifiedChannel value:true].
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  2811
    ].
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  2812
    ^ holder.
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  2813
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  2814
    "Created: / 23.3.1999 / 14:18:05 / cg"
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  2815
!
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  2816
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2817
listOfAllClassesInPrerequisites
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2818
    |holder classes|
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2819
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2820
    (holder := builder bindingAt:#listOfAllClassesInPrerequisites) isNil ifTrue:[
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2821
        builder aspectAt:#listOfAllClassesInPrerequisites put:(holder := SortedCollection new asValue).
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2822
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2823
        "/ all unloaded classes and classes which where
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2824
        "/ loaded are candidates.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2825
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2826
        classes := Smalltalk allClasses 
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2827
                        select:[:cls |
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2828
                                cls isMeta not
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2829
                                and:[
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2830
                                    cls isLoaded not
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2831
                                    or:[cls wasAutoloaded]]
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2832
                               ].
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2833
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2834
        "/ mark currently loaded classes as bold;
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2835
        "/ LATER: those which are superclasses of any of my classes bold-red.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2836
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2837
        classes := classes collect:[:cls | |nm|
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2838
                                        nm := cls name.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2839
                                        cls isLoaded ifTrue:[
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2840
                                            nm := nm asText allBold.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2841
                                        ].
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2842
                                        nm
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2843
                                   ].
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2844
        holder value addAll:classes.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2845
        self currentProject wasLoadedFromFile ifFalse:[
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2846
            self updateListOfRequiredPrerequisiteClasses.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2847
        ]
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2848
    ].
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2849
    ^ holder.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2850
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2851
    "Created: / 23.3.1999 / 14:18:05 / cg"
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2852
!
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2853
1089
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2854
listOfAllProjectsInPrerequisites
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2855
    "automatically generated by UIPainter ..."
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2856
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  2857
    |holder projects currentProject|
1089
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2858
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2859
    (holder := builder bindingAt:#listOfAllProjectsInPrerequisites) isNil ifTrue:[
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2860
        builder aspectAt:#listOfAllProjectsInPrerequisites put:(holder := SortedCollection new asValue).
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  2861
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  2862
        currentProject := self currentProject.
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  2863
1089
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2864
        projects := Set new.
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2865
        Project allInstancesDo:[:p |
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  2866
            (p ~~ currentProject 
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  2867
            and:[p ~~ Project defaultProject]) ifTrue:[
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  2868
                projects add:p name.
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  2869
            ]
1089
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2870
        ].
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2871
        holder value addAll:projects.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2872
    ].
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2873
    ^ holder.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2874
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2875
    "Created: / 23.3.1999 / 14:18:05 / cg"
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2876
!
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2877
1235
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  2878
listOfPossibleConditions:aRow
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  2879
    ^ #( always never autoload '-' unix win32 vms macos)
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  2880
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  2881
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  2882
!
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  2883
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2884
listOfRequiredClassesInPrerequisites
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2885
    "automatically generated by UIPainter ..."
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2886
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2887
    |holder|
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2888
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2889
    (holder := builder bindingAt:#listOfRequiredClassesInPrerequisites) isNil ifTrue:[
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2890
        builder aspectAt:#listOfRequiredClassesInPrerequisites put:(holder := SortedCollection new asValue).
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2891
        self currentProject wasLoadedFromFile ifFalse:[
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2892
            self updateListOfRequiredPrerequisiteClasses.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2893
        ]
1089
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2894
    ].
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2895
    ^ holder.
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2896
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2897
    "Created: / 23.3.1999 / 14:18:05 / cg"
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2898
!
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2899
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2900
listOfRequiredProjectsInPrerequisites
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2901
    "automatically generated by UIPainter ..."
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2902
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2903
    |holder|
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2904
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2905
    (holder := builder bindingAt:#listOfRequiredProjectsInPrerequisites) isNil ifTrue:[
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2906
        builder aspectAt:#listOfRequiredProjectsInPrerequisites put:(holder := SortedCollection new asValue).
1089
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2907
    ].
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2908
    ^ holder.
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2909
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2910
    "Created: / 23.3.1999 / 14:18:05 / cg"
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2911
!
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2912
1234
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  2913
makeDefines
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  2914
    "automatically generated by UIPainter ..."
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  2915
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  2916
    |holder|
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  2917
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  2918
    (holder := builder bindingAt:#makeDefines) isNil ifTrue:[
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  2919
        builder aspectAt:#makeDefines put:(holder := '' asValue).
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  2920
        holder onChangeSend:#value to:[modifiedChannel value:true].
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  2921
    ].
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  2922
    ^ holder.
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  2923
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  2924
    "Created: / 23.3.1999 / 14:18:05 / cg"
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  2925
!
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  2926
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  2927
makeIncludes
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  2928
    "automatically generated by UIPainter ..."
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  2929
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  2930
    |holder|
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  2931
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  2932
    (holder := builder bindingAt:#makeIncludes) isNil ifTrue:[
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  2933
        builder aspectAt:#makeIncludes put:(holder := '' asValue).
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  2934
        holder onChangeSend:#value to:[modifiedChannel value:true].
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  2935
    ].
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  2936
    ^ holder.
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  2937
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  2938
    "Created: / 23.3.1999 / 14:18:05 / cg"
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  2939
!
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  2940
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  2941
makeOtherWarningOptions
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  2942
    "automatically generated by UIPainter ..."
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  2943
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  2944
    |holder|
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  2945
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  2946
    (holder := builder bindingAt:#makeOtherWarningOptions) isNil ifTrue:[
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  2947
        builder aspectAt:#makeOtherWarningOptions put:(holder := '' asValue).
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  2948
        holder onChangeSend:#value to:[modifiedChannel value:true].
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  2949
    ].
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  2950
    ^ holder.
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  2951
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  2952
    "Created: / 23.3.1999 / 14:18:05 / cg"
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  2953
!
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  2954
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  2955
makeWarnEOLComments
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  2956
    "automatically generated by UIPainter ..."
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  2957
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  2958
    |holder|
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  2959
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  2960
    (holder := builder bindingAt:#makeWarnEOLComments) isNil ifTrue:[
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  2961
        builder aspectAt:#makeWarnEOLComments put:(holder := false asValue).
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  2962
        holder onChangeSend:#value to:[modifiedChannel value:true].
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  2963
    ].
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  2964
    ^ holder.
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  2965
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  2966
    "Created: / 23.3.1999 / 14:18:05 / cg"
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  2967
!
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  2968
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  2969
makeWarnNonStandard
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  2970
    "automatically generated by UIPainter ..."
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  2971
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  2972
    |holder|
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  2973
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  2974
    (holder := builder bindingAt:#makeWarnNonStandard) isNil ifTrue:[
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  2975
        builder aspectAt:#makeWarnNonStandard put:(holder := true asValue).
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  2976
        holder onChangeSend:#value to:[modifiedChannel value:true].
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  2977
    ].
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  2978
    ^ holder.
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  2979
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  2980
    "Created: / 23.3.1999 / 14:18:05 / cg"
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  2981
!
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  2982
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2983
methodsFile
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2984
    "automatically generated by UIPainter ..."
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2985
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2986
    |holder|
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2987
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2988
    (holder := builder bindingAt:#methodsFile) isNil ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2989
        builder aspectAt:#methodsFile put:(holder := '' asValue).
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2990
        holder onChangeSend:#value to:[modifiedChannel value:true].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2991
    ].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2992
    ^ holder.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2993
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2994
    "Created: / 23.3.1999 / 14:18:05 / cg"
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2995
!
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2996
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  2997
modifiedChannel
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  2998
    "automatically generated by UIPainter ..."
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  2999
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3000
    modifiedChannel isNil ifTrue:[
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3001
        modifiedChannel := false asValue.
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3002
    ].
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3003
    ^ modifiedChannel.
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3004
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3005
!
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3006
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  3007
patchesList
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  3008
    "automatically generated by UIPainter ..."
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  3009
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  3010
    |holder|
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  3011
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  3012
    (holder := builder bindingAt:#patchesList) isNil ifTrue:[
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  3013
        builder aspectAt:#patchesList put:(holder :=  List new).
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  3014
    ].
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  3015
    ^ holder.
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  3016
!
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  3017
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3018
projectCodeIsLoaded
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3019
    "automatically generated by UIPainter ..."
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3020
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3021
    |holder|
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3022
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3023
    (holder := builder bindingAt:#projectCodeIsLoaded) isNil ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3024
        builder aspectAt:#projectCodeIsLoaded put:(holder :=  ValueHolder new).
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3025
    ].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3026
    ^ holder.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3027
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3028
    "Created: / 23.3.1999 / 14:18:05 / cg"
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3029
!
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3030
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3031
projectDirectory
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3032
    "automatically generated by UIPainter ..."
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3033
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3034
    |holder|
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3035
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3036
    (holder := builder bindingAt:#projectDirectory) isNil ifTrue:[
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3037
        builder aspectAt:#projectDirectory put:(holder := '.' asValue).
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3038
        holder onChangeSend:#value to:[modifiedChannel value:true].
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3039
    ].
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3040
    ^ holder.
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3041
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3042
    "Created: / 23.3.1999 / 14:18:05 / cg"
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3043
!
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3044
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3045
projectNamespace
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3046
    "automatically generated by UIPainter ..."
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3047
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3048
    |holder|
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3049
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3050
    (holder := builder bindingAt:#projectNamespace) isNil ifTrue:[
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3051
        builder aspectAt:#projectNamespace put:(holder :=  ValueHolder new).
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3052
        holder onChangeSend:#value to:[modifiedChannel value:true].
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3053
    ].
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3054
    ^ holder.
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3055
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3056
    "Created: / 23.3.1999 / 14:18:05 / cg"
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3057
!
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3058
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3059
projectPackage
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3060
    |holder dir module|
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3061
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3062
    (holder := builder bindingAt:#projectPackage) isNil ifTrue:[
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3063
        builder aspectAt:#projectPackage put:(holder := '' asValue).
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3064
    ].
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3065
    holder value size == 0 ifTrue:[
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3066
        (module := self repositoryModule value) notNil ifTrue:[
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3067
            (dir := self repositoryDirectory value) notNil ifTrue:[
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3068
                holder value:(module , ':' , dir)
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3069
            ]
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3070
        ]
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3071
    ].
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3072
    ^ holder.
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3073
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3074
    "Created: / 23.3.1999 / 14:18:05 / cg"
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3075
!
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3076
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3077
projectTreeHolder
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3078
    "automatically generated by UIPainter ..."
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3079
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3080
    |holder|
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3081
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3082
    (holder := builder bindingAt:#projectTree) isNil ifTrue:[
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3083
        builder aspectAt:#projectTree put:(holder :=  SelectionInTree new).
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3084
        holder root:self projectTree.
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3085
    ].
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3086
    ^ holder.
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3087
!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3088
1080
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3089
projectType
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3090
    "automatically generated by UIPainter ..."
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3091
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3092
    |holder|
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3093
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3094
    (holder := builder bindingAt:#projectType) isNil ifTrue:[
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3095
        builder aspectAt:#projectType put:(holder :=  ValueHolder new).
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3096
        holder onChangeSend:#value to:[modifiedChannel value:true].
1080
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3097
    ].
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3098
    ^ holder.
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3099
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3100
    "Created: / 23.3.1999 / 14:18:05 / cg"
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3101
!
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3102
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3103
repositoryDirectory
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3104
    "automatically generated by UIPainter ..."
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3105
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3106
    |holder|
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3107
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3108
    (holder := builder bindingAt:#repositoryDirectory) isNil ifTrue:[
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3109
        builder aspectAt:#repositoryDirectory put:(holder :=  ValueHolder new).
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3110
        holder onChangeSend:#value to:[modifiedChannel value:true].
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3111
    ].
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3112
    ^ holder.
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3113
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3114
    "Created: / 23.3.1999 / 14:18:05 / cg"
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3115
!
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3116
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3117
repositoryModule
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3118
    "automatically generated by UIPainter ..."
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3119
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3120
    |holder|
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 := builder bindingAt:#repositoryModule) isNil ifTrue:[
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3123
        builder aspectAt:#repositoryModule put:(holder :=  ValueHolder new).
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3124
        holder onChangeSend:#value to:[modifiedChannel value:true].
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3125
    ].
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3126
    ^ holder.
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
    "Created: / 23.3.1999 / 14:18:05 / cg"
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
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3131
rightCanvasTextHolder
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3132
    "automatically generated by UIPainter ..."
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3133
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3134
    |holder|
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3135
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3136
    (holder := builder bindingAt:#rightCanvasTextHolder) isNil ifTrue:[
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3137
        builder aspectAt:#rightCanvasTextHolder put:(holder :=  ValueHolder new).
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3138
    ].
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3139
    ^ holder.
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3140
!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3141
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3142
selectedClassInPrerequisites
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3143
    "automatically generated by UIPainter ..."
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3144
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3145
    |holder|
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3146
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3147
    (holder := builder bindingAt:#selectedClassInPrerequisites) isNil ifTrue:[
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3148
        builder aspectAt:#selectedClassInPrerequisites put:(holder := ValueHolder new).
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3149
    ].
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3150
    ^ holder.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3151
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3152
    "Created: / 23.3.1999 / 14:18:05 / cg"
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3153
!
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3154
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3155
selectedPatchInRightCanvas
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3156
    "automatically generated by UIPainter ..."
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3157
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3158
    |holder|
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3159
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3160
    (holder := builder bindingAt:#selectedPatchInRightCanvas) isNil ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3161
        builder aspectAt:#selectedPatchInRightCanvas put:(holder :=  ValueHolder new).
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3162
    ].
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3163
    ^ holder.
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3164
!
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3165
1089
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3166
selectedProjectInPrerequisites
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3167
    "automatically generated by UIPainter ..."
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3168
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3169
    |holder|
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3170
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3171
    (holder := builder bindingAt:#selectedProjectInPrerequisites) isNil ifTrue:[
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3172
        builder aspectAt:#selectedProjectInPrerequisites put:(holder := ValueHolder new).
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3173
    ].
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3174
    ^ holder.
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3175
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3176
    "Created: / 23.3.1999 / 14:18:05 / cg"
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3177
!
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3178
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3179
selectedRequiredClassInPrerequisites
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3180
    "automatically generated by UIPainter ..."
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3181
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3182
    |holder|
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3183
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3184
    (holder := builder bindingAt:#selectedRequiredClassInPrerequisites) isNil ifTrue:[
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3185
        builder aspectAt:#selectedRequiredClassInPrerequisites put:(holder := ValueHolder new).
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3186
    ].
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3187
    ^ holder.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3188
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3189
    "Created: / 23.3.1999 / 14:18:05 / cg"
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3190
!
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3191
1089
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3192
selectedRequiredProjectInPrerequisites
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3193
    "automatically generated by UIPainter ..."
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3194
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3195
    |holder|
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3196
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3197
    (holder := builder bindingAt:#selectedRequiredProjectInPrerequisites) isNil ifTrue:[
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3198
        builder aspectAt:#selectedRequiredProjectInPrerequisites put:(holder := ValueHolder new).
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3199
    ].
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3200
    ^ holder.
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3201
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3202
    "Created: / 23.3.1999 / 14:18:05 / cg"
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3203
!
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3204
1099
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  3205
selectedTreeNodeHolder
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3206
    "automatically generated by UIPainter ..."
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3207
1210
30bd57bbe9ce better tree
Claus Gittinger <cg@exept.de>
parents: 1207
diff changeset
  3208
    selectedTreeNodeHolder isNil ifTrue:[
30bd57bbe9ce better tree
Claus Gittinger <cg@exept.de>
parents: 1207
diff changeset
  3209
        selectedTreeNodeHolder :=  ValueHolder new.
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3210
    ].
1210
30bd57bbe9ce better tree
Claus Gittinger <cg@exept.de>
parents: 1207
diff changeset
  3211
    ^ selectedTreeNodeHolder.
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3212
!
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3213
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3214
showWhat
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3215
    |holder|
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3216
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3217
    (holder := builder bindingAt:#showWhat) isNil ifTrue:[
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3218
        holder := ValueHolder new.
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3219
        builder aspectAt:#showWhat put:holder.
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3220
        holder onChangeSend:#projectFilterChanged to:self.
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3221
    ].
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3222
    ^ holder.
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3223
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3224
    "Created: / 23.3.1999 / 14:18:05 / cg"
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  3225
!
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  3226
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  3227
textCanvasLabelHolder
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  3228
    "automatically generated by UIPainter ..."
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  3229
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  3230
    |holder|
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  3231
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  3232
    (holder := builder bindingAt:#textCanvasLabelHolder) isNil ifTrue:[
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  3233
        builder aspectAt:#textCanvasLabelHolder put:(holder :='' asValue).
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  3234
    ].
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  3235
    ^ holder.
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3236
! !
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3237
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3238
!ProjectBrowser methodsFor:'change & update'!
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3239
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3240
update:something with:aParameter from:changedObject
1085
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  3241
    something == #name ifTrue:[
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  3242
        "/ a project was renamed - update my tree
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  3243
        self projectTree children do:[:pNode |
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  3244
            pNode contents == changedObject ifTrue:[
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  3245
                pNode name:changedObject name.
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  3246
                pNode changed.
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  3247
            ]
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  3248
        ].
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  3249
        ^ self.
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  3250
    ].
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  3251
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3252
    changedObject == self currentProject ifTrue:[
1094
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3253
        self readAspectsFromProject.
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3254
    ].
1116
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  3255
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  3256
    "Modified: / 26.4.1999 / 23:39:04 / cg"
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3257
! !
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3258
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3259
!ProjectBrowser methodsFor:'initialization'!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3260
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3261
postBuildWith:aBuiler
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3262
    self modifiedChannel value:false.
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3263
1095
660185e02224 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1094
diff changeset
  3264
    self updateRightCanvas.
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3265
    ^ super postBuildWith:aBuiler
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3266
!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3267
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3268
setupCanvasForNoSelection
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  3269
    self 
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  3270
        showReadOnlyText:'Please select an existing project,
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  3271
load one from a (''.prj'')-file,
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3272
or create a new project.'.
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3273
! !
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3274
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3275
!ProjectBrowser methodsFor:'menus'!
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3276
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3277
itemMenu
1052
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  3278
    |m|
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  3279
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3280
    self hasNodeSelected ifFalse:[
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3281
        ^ self class noItemMenu
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3282
    ].
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3283
    self hasProjectNodeSelected ifTrue:[
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3284
        ^ self class projectItemMenu
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3285
    ].      
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3286
    self hasSubProjectsNodeSelected ifTrue:[
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3287
        ^ self class subProjectsItemMenu
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3288
    ].      
1052
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  3289
    self hasClassesNodeSelected ifTrue:[
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  3290
        ^ self class classesItemMenu
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  3291
    ].      
1094
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3292
    self hasClassNodeSelected ifTrue:[
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3293
        ^ self class classItemMenu
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3294
    ].      
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3295
    self hasMethodNodeSelected ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3296
        ^ self class methodItemMenu
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3297
    ].      
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3298
    self hasPrerequisiteClassesNodeSelected ifTrue:[
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3299
        ^ self class prerequisiteClassesItemMenu
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3300
    ].      
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3301
    ^ nil
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3302
!
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3303
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3304
itemMenuHolder
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3305
    ^ [ self itemMenu]
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3306
!
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3307
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3308
itemMenuPerformer
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3309
    ^ self
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3310
! !
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3311
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3312
!ProjectBrowser methodsFor:'private'!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3313
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3314
addProjectNodeToTree:newNode
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3315
    |aProject nodeToAdd path childNode|
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3316
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3317
"/    projectTree add:newNode.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3318
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3319
    "/ insert into tree ...
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3320
    nodeToAdd := projectTree.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3321
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3322
    path := newNode contents package asCollectionOfSubstringsSeparatedByAny:'/\:'.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3323
    path from:1 to:path size-1 do:[:part |
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3324
        childNode := nodeToAdd children detect:[:child | child name = part] ifNone:nil.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3325
        childNode isNil ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3326
            nodeToAdd add:(childNode := ProjectTreeItem new name:part).
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3327
        ].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3328
        nodeToAdd := childNode.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3329
    ].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3330
    newNode name:(path last).
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3331
    nodeToAdd add:newNode.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3332
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3333
!
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3334
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3335
canAddClassToPrerequisites:aClassName
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3336
    ^ aClassName notNil
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3337
!
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3338
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3339
canAddProjectToPrerequisites:aProjectName
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3340
    ^ aProjectName notNil
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3341
      and:[aProjectName ~= self currentProject name]
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3342
!
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3343
1094
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3344
canLoadClassesFromDirectory
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3345
    |p projectDir|
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3346
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3347
    self hasClassesNodeSelected ifFalse:[^ false].
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3348
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3349
    (p := self currentProject) isNil ifTrue:[^ false].
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3350
    (projectDir := p directory) size == 0 ifTrue:[^ false].
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3351
    projectDir asFilename exists ifFalse:[^ false].
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3352
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3353
    ^ true
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3354
!
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3355
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3356
canLoadClassesFromRepository
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3357
    |manager p moduleDir packageDir|
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3358
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3359
    self hasClassesNodeSelected ifFalse:[^ false].
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3360
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3361
    (p := self currentProject) isNil ifTrue:[^ false].
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3362
    (moduleDir := p repositoryModule) size == 0 ifTrue:[^ false].
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3363
    (packageDir := p repositoryDirectory) size == 0 ifTrue:[^ false].
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3364
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3365
    "/ SourceCodeManager available ?
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3366
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3367
    (AbstractSourceCodeManager notNil 
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3368
    and:[AbstractSourceCodeManager isLoaded not]) ifTrue:[
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3369
        AbstractSourceCodeManager autoload.    
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3370
    ].
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3371
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3372
    AbstractSourceCodeManager isNil ifTrue:[^ false].
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3373
    AbstractSourceCodeManager isLoaded ifFalse:[^ false].
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3374
    (manager := Smalltalk at:#SourceCodeManager) isNil ifTrue:[^ false].
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3375
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3376
    "/ does the repository contain the module/package ?
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3377
    "/ since this is a slow operation (involving the CVS manager,
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3378
    "/ remember checked modules here in a classVar
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3379
    AlreadCheckedExistingModulesAndPackages isNil ifTrue:[
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3380
        AlreadCheckedExistingModulesAndPackages := OrderedCollection new
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3381
    ].
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3382
    AlreadCheckedExistingModulesAndPackages do:[:entry |
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3383
        (entry at:1) = moduleDir ifTrue:[
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3384
            (entry at:2) = packageDir ifTrue:[
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3385
                ^ true
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3386
            ]
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3387
        ]
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3388
    ].
1094
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3389
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3390
    (manager checkForExistingModule:moduleDir package:packageDir) ifFalse:[^ false].
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3391
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3392
    AlreadCheckedExistingModulesAndPackages add:(Array with:moduleDir with:packageDir).
1094
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3393
    ^ true
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3394
!
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3395
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3396
currentProject
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3397
    |node|
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3398
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3399
    node := self currentProjectNode.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3400
    node isNil ifTrue:[^ nil].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3401
    ^ node contents
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3402
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3403
!
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3404
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3405
currentProjectNode
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3406
    |node|
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3407
1099
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  3408
    node := self selectedTreeNode.
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3409
    node isNil ifTrue:[^ nil].
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3410
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3411
    [node notNil and:[node isProjectNode not]] whileTrue:[
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3412
        node := node parent.
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3413
    ].
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3414
    node notNil ifTrue:[
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3415
        ^ node
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3416
    ].
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3417
    ^ nil
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3418
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3419
!
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3420
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3421
currentProjectsClassNames
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3422
    |p|
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3423
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3424
    p := self currentProject.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3425
    ^ (p classes ? #()) 
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3426
        collect:[:classOrSymbol |
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3427
                    classOrSymbol isBehavior ifTrue:[
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3428
                        classOrSymbol name
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3429
                    ] ifFalse:[
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3430
                        classOrSymbol
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3431
                    ]
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3432
                ]
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3433
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3434
!
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3435
1094
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3436
hasClassNodeSelected
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3437
    |selectedNode|
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3438
1099
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  3439
    selectedNode := self selectedTreeNode.
1094
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3440
    selectedNode isNil ifTrue:[^ false].
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3441
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3442
    ^ selectedNode contents isAssociation
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3443
      and:[selectedNode contents key == #class]
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3444
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3445
!
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3446
1052
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  3447
hasClassesNodeSelected
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  3448
    |selectedNode|
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  3449
1099
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  3450
    selectedNode := self selectedTreeNode.
1052
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  3451
    selectedNode isNil ifTrue:[^ false].
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  3452
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  3453
    ^ selectedNode contents == #classes
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  3454
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  3455
!
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  3456
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3457
hasMethodNodeSelected
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3458
    |selectedNode|
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3459
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3460
    selectedNode := self selectedTreeNode.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3461
    selectedNode isNil ifTrue:[^ false].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3462
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3463
    ^ selectedNode contents isAssociation
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3464
      and:[selectedNode contents key == #method]
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3465
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3466
!
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3467
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3468
hasMethodsNodeSelected
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3469
    |selectedNode|
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3470
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3471
    selectedNode := self selectedTreeNode.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3472
    selectedNode isNil ifTrue:[^ false].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3473
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3474
    ^ selectedNode contents key == #patches
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3475
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3476
!
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3477
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3478
hasNodeSelected
1099
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  3479
    ^ self selectedTreeNode notNil
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3480
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3481
!
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3482
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3483
hasPrerequisiteClassesNodeSelected
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3484
    |selectedNode|
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3485
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3486
    selectedNode := self selectedTreeNode.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3487
    selectedNode isNil ifTrue:[^ false].
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3488
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3489
    ^ selectedNode contents == #prerequisiteClasses
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3490
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3491
!
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3492
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3493
hasProjectNodeSelected
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3494
    |selectedNode|
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3495
1099
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  3496
    selectedNode := self selectedTreeNode.
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3497
    selectedNode isNil ifTrue:[^ false].
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3498
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3499
    ^ selectedNode isProjectNode
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3500
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3501
!
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3502
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3503
hasProjectSelected
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3504
    |selectedNode node|
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3505
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3506
    selectedNode := self selectedTreeNode.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3507
    selectedNode isNil ifTrue:[^ false].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3508
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3509
    node := selectedNode.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3510
    [node notNil] whileTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3511
        node isProjectNode ifTrue:[^ true].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3512
        node := node parent.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3513
    ].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3514
    ^ false.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3515
!
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3516
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3517
hasSubProjectsNodeSelected
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3518
    |selectedNode|
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3519
1099
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  3520
    selectedNode := self selectedTreeNode.
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3521
    selectedNode isNil ifTrue:[^ false].
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3522
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3523
    ^ selectedNode contents == #subprojects
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3524
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3525
!
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3526
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3527
nodeFor:aProject
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3528
    "generate and return a treeNode for some project"
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3529
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3530
    |projectName pNode 
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  3531
     propertiesNode docNode classesNode patchesNode subprojectsNode filesNode
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  3532
     commentNode prerequisitesNode analysisNode designNode codeNode
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  3533
     userDocNode userOverViewNode userGuideNode userRefManNode
1234
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3534
     deploymentNode classIcon methodIcon buildOptionsNode
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3535
     prerequisiteProjectsNode prerequisiteClassesNode|
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3536
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3537
    projectName := aProject name.
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3538
    pNode := ProjectNode name:projectName.
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3539
    pNode contents:aProject.
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3540
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3541
    pNode add:(commentNode := ProjectTreeItem name:'Comment').
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  3542
"/    pNode add:(docNode := ProjectTreeItem name:'Documentation').
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3543
    pNode add:(propertiesNode := ProjectTreeItem name:'Properties').
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3544
    pNode add:(prerequisitesNode := ProjectTreeItem name:'Prerequisites').
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  3545
"/    pNode add:(subprojectsNode := ProjectTreeItem name:'SubProjects').
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  3546
    pNode add:(classesNode := ProjectTreeItem name:'Classes').
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  3547
    pNode add:(patchesNode := ProjectTreeItem name:'Patches').
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3548
    pNode add:(filesNode := ProjectTreeItem name:'Files').
1234
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3549
    pNode add:(buildOptionsNode := ProjectTreeItem name:'Build Options').
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  3550
    pNode add:(deploymentNode := ProjectTreeItem name:'Deployment').
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3551
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  3552
    subprojectsNode notNil ifTrue:[
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  3553
        subprojectsNode contents:#subprojects.
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  3554
        aProject subProjects do:[:aSubProject |
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  3555
            subprojectsNode add:(self nodeFor:aSubProject)
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  3556
        ].
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3557
    ].
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3558
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  3559
    commentNode icon:(self class commentIcon).
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3560
    commentNode action:[:item | self showCommentOf:item].
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3561
    commentNode info:'Some comment describing the project'.
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3562
    commentNode contents:#comment.
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3563
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  3564
    docNode notNil ifTrue:[
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  3565
        docNode contents:#documentation.
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  3566
        docNode action:[:item | self showDocumentationFor:item].
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3567
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  3568
        docNode add:(analysisNode := ProjectTreeItem name:'Analysis').
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  3569
        docNode add:(designNode := ProjectTreeItem name:'Design').
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  3570
        docNode add:(codeNode := ProjectTreeItem name:'Code').
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  3571
        docNode add:(userDocNode := ProjectTreeItem name:'User Documentation').
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  3572
        userDocNode add:(userOverViewNode := ProjectTreeItem name:'Overview').
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  3573
        userDocNode add:(userGuideNode := ProjectTreeItem name:'Guide').
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  3574
        userDocNode add:(userRefManNode := ProjectTreeItem name:'Reference').
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  3575
        docNode add:(userDocNode := ProjectTreeItem name:'Error Reports').
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  3576
        docNode add:(userDocNode := ProjectTreeItem name:'Other').
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  3577
    ].
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  3578
1080
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3579
    prerequisitesNode icon:(self class prerequisitesIcon).
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  3580
    prerequisitesNode add:(prerequisiteProjectsNode := ProjectTreeItem name:'Packages').
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3581
    prerequisitesNode add:(prerequisiteClassesNode := ProjectTreeItem name:'Classes').
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3582
    prerequisitesNode info:'Other projects and classes required by the project'.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3583
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3584
    prerequisiteProjectsNode contents:#prerequisiteProjects.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3585
    prerequisiteProjectsNode icon:(self class prerequisiteProjectsIcon).
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3586
    prerequisiteProjectsNode spec:[self class rightCanvasSpecForPrerequisiteProjects].
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3587
    prerequisiteProjectsNode info:'Other projects required by the project'.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3588
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3589
    prerequisiteClassesNode contents:#prerequisiteClasses.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3590
    prerequisiteClassesNode icon:(self class prerequisiteClassesIcon).
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3591
    prerequisiteClassesNode spec:[self class rightCanvasSpecForPrerequisiteClasses].
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3592
    prerequisiteClassesNode info:'Other (autoloaded-) classes required by the project'.
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  3593
1097
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
  3594
    classIcon := self class classIcon.
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
  3595
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3596
    classesNode contents:#classes.
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  3597
    classesNode icon:(self class classesIcon).
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3598
    classesNode info:'Classes contained in the project'.
1090
4b7c3e6fc5f1 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1089
diff changeset
  3599
    ((aProject classes ? #()) copy sort:[:a :b | 
4b7c3e6fc5f1 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1089
diff changeset
  3600
                                                |nmA nmB|
4b7c3e6fc5f1 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1089
diff changeset
  3601
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3602
                                                nmA := a isBehavior ifTrue:[a name] ifFalse:[a].
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3603
                                                nmB := b isBehavior ifTrue:[b name] ifFalse:[b].
1090
4b7c3e6fc5f1 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1089
diff changeset
  3604
                                                nmA < nmB
4b7c3e6fc5f1 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1089
diff changeset
  3605
                                        ]) 
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  3606
    do:[:aClass |
1090
4b7c3e6fc5f1 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1089
diff changeset
  3607
        |cNode cName|
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  3608
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3609
        cName := aClass isBehavior ifTrue:[aClass name] ifFalse:[aClass].
1090
4b7c3e6fc5f1 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1089
diff changeset
  3610
        cNode := ProjectTreeItem name:cName.
1094
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3611
        cNode contents:(#class -> aClass).
1097
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
  3612
        cNode icon:classIcon.
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  3613
        classesNode add:cNode.
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  3614
    ].
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3615
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3616
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3617
    propertiesNode contents:#properties.
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3618
    propertiesNode spec:[self class rightCanvasSpecForProperties].
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3619
    propertiesNode info:'Project propreties'.
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3620
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3621
    filesNode contents:#files.
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  3622
    filesNode icon:(self class filesIcon).
1223
23a55549641a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1220
diff changeset
  3623
    filesNode info:'Files (extensions, bitmaps, data) contained in the project'.
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3624
    filesNode spec:[self class rightCanvasSpecForFiles].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3625
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3626
    methodIcon := self class methodIcon.
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3627
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  3628
    patchesNode contents:#patches.
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  3629
    patchesNode icon:(self class methodsIcon).
1223
23a55549641a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1220
diff changeset
  3630
    patchesNode info:'Patches & Extensions (system-changes) contained in the project'.
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3631
    ((aProject methodInfo ? #()) copy sort:[:a :b | 
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3632
                                                a displayString < b displayString.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3633
                                        ]) 
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3634
    do:[:aMethodInfo |
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3635
        |cNode cName|
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3636
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3637
        cNode := ProjectTreeItem name:(aMethodInfo className , ' ' , aMethodInfo methodName).
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3638
        cNode contents:(#method -> aMethodInfo).
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3639
        cNode icon:methodIcon.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3640
        patchesNode add:cNode.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3641
    ].
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  3642
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  3643
    deploymentNode icon:(self class deploymentIcon).
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3644
    deploymentNode spec:[self class rightCanvasSpecForDeployment].
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3645
    deploymentNode info:'Deployment & packaging specification.'.
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3646
    deploymentNode contents:#deployment.
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  3647
1234
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3648
    buildOptionsNode icon:(self class buildOptionsIcon).
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3649
    buildOptionsNode spec:[self class rightCanvasSpecForBuildOptions].
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3650
    buildOptionsNode info:'Compilation & include options.'.
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3651
    buildOptionsNode contents:#buildOptions.
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3652
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3653
    ^ pNode
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3654
1080
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3655
    "Modified: / 23.3.1999 / 14:27:30 / cg"
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3656
!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3657
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3658
projectTree
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3659
    projectTree isNil ifTrue:[
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3660
        self updateProjectTree
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3661
    ].
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3662
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3663
    ^ projectTree
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3664
!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3665
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3666
readAspectsFromProject
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3667
    |p type l ns|
1080
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3668
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3669
    p := self currentProject.
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3670
    p notNil ifTrue:[
1099
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  3671
        self selectedTreeNode contents == #comment ifTrue:[
1097
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
  3672
            self rightCanvasTextHolder value:p comment.
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
  3673
        ].
1080
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3674
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3675
        self methodsFile value:(p propertyAt:#methodsFile).
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3676
        self projectCodeIsLoaded value:(p isLoaded == true).
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3677
        p isLoaded == true ifFalse:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3678
            self valueOfInfoLabel value:'Projects code is not loaded.'
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3679
        ].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3680
1080
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3681
        self currentProjectWasNotLoadedFromFile value:p wasLoadedFromFile not.
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3682
        (type := p type) == #classLibrary ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3683
           type := #library
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3684
        ].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3685
        self projectType value:type.
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3686
        self projectDirectory value:(p directory).
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3687
        self projectPackage value:(p package).
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3688
        ns := p defaultNameSpace ? Smalltalk.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3689
        ns isSymbol ifFalse:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3690
            ns := ns name
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3691
        ].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3692
        self projectNamespace value:ns.
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3693
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3694
        self repositoryModule value:(p repositoryModule).
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3695
        self repositoryDirectory value:(p repositoryDirectory).
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3696
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3697
        self deliverCompiledBinary value:(p propertyAt:#deliverCompiledBinary) ? false.
1229
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  3698
        self deliverByteCode value:(p propertyAt:#deliverByteCode) ? false.
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3699
        self deliverGZipArchive value:(p propertyAt:#deliverGZipArchive) ? false.
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3700
        self deliverZipArchive value:(p propertyAt:#deliverZipArchive) ? false.
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  3701
        self deliverTarArchive value:(p propertyAt:#deliverTarArchive) ? false.
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3702
        self deliverLoadAllFile value:(p propertyAt:#deliverLoadAllFile) ? false.
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3703
        self deliverSources value:(p propertyAt:#deliverSources) ? false.
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3704
        self deliverMakefiles value:(p propertyAt:#deliverMakefiles) ? false.
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3705
1234
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3706
        self makeDefines value:(p propertyAt:#'make.stc.LOCALDEFINES') ? ''.
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3707
        self makeIncludes value:(p propertyAt:#'make.stc.LOCALINCLUDES') ? ''.
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3708
        self makeOtherWarningOptions value:(p propertyAt:#'make.stc.WARNINGOPTIONS') ? ''.
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3709
        self makeWarnEOLComments value:(p propertyAt:#'make.stc.warnEOLComments') ? false.
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3710
        self makeWarnNonStandard value:(p propertyAt:#'make.stc.warnNonStandard') ? true.
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3711
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3712
"/        self makeLocalLibs value:(p propertyAt:#'make.LD_OBJ_LIBS') ? ''.
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3713
"/        self makeExtraTargets value:(p propertyAt:#'make.LOCAL_EXTRA_TARGETS') ? ''.
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3714
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3715
        self installDirectoryUnix 
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3716
                value:(p propertyAt:#installDirectoryUnix) ? 
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3717
                        ((p propertyAt:#installDirectory) ? '/opt/smalltalk/packages').
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3718
        self installDirectoryWin32 
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3719
                value:(p propertyAt:#installDirectoryWin32) ? 
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3720
                        ((p propertyAt:#installDirectory) ? '\Programme\SmalltalkX\packages').
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3721
        self installDirectoryVMS 
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3722
                value:(p propertyAt:#installDirectoryVMS) ? 
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3723
                        ((p propertyAt:#installDirectory) ? 'SYS$SMALLTALKX:[PACKAGES]').
1149
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  3724
"/        self installDirectoryMacOS 
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  3725
"/                value:(p propertyAt:#installDirectoryMacOS) ? 
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  3726
"/                        ((p propertyAt:#installDirectory) ? '\Programme\SmalltalkX').
1094
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3727
1116
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  3728
        l := p prerequisitePackages collect:[:entry |
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  3729
                    |pName|
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  3730
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  3731
                    entry isString ifTrue:[
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  3732
                        pName := entry
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  3733
                    ] ifFalse:[
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  3734
                        entry isArray ifTrue:[
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  3735
                            pName := entry at:1
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  3736
                        ] ifFalse:[
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  3737
                            pName := entry name
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  3738
                        ]
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  3739
                    ]
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  3740
                ].
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  3741
        self listOfRequiredProjectsInPrerequisites value:(l sort).
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3742
        self listOfRequiredClassesInPrerequisites value:(p prerequisiteClasses copy sort).
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3743
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3744
        modifiedChannel value:false.
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3745
        p addDependent:self.
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3746
    ].
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3747
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3748
    "Created: / 23.3.1999 / 14:16:12 / cg"
1116
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  3749
    "Modified: / 26.4.1999 / 23:38:14 / cg"
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3750
!
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3751
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3752
reallyModified
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3753
    |p l selectedNodeType|
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3754
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3755
    p := self currentProject.
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3756
    selectedNodeType := self selectedTreeNode contents.
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3757
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3758
    selectedNodeType == #comment ifTrue:[
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  3759
self halt.
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3760
        ^ self rightCanvasTextHolder value ~= p comment
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3761
    ].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3762
    selectedNodeType == #deployment ifTrue:[
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3763
        (self deliverByteCode value ~= (p propertyAt:#deliverByteCode)) ifTrue:[^ true].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3764
        (self deliverCompiledBinary value ~= (p propertyAt:#deliverCompiledBinary)) ifTrue:[^ true].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3765
        (self deliverLoadAllFile value ~= (p propertyAt:#deliverLoadAllFile)) ifTrue:[^ true]. 
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3766
        (self deliverSources value ~= (p propertyAt:#deliverSources)) ifTrue:[^ true].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3767
        (self deliverMakefiles value ~= (p propertyAt:#deliverMakefiles)) ifTrue:[^ true].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3768
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3769
        (self deliverZipArchive value ~= (p propertyAt:#deliverZipArchive)) ifTrue:[^ true].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3770
        (self deliverTarArchive value ~= (p propertyAt:#deliverTarArchive)) ifTrue:[^ true].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3771
        (self deliverGZipArchive value ~= (p propertyAt:#deliverGZipArchive)) ifTrue:[^ true].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3772
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3773
        self installDirectoryUnix value ~=
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3774
                    ((p propertyAt:#installDirectoryUnix) ? 
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3775
                       ((p propertyAt:#installDirectory) ? 
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3776
                            '/opt/smalltalk/packages')) ifTrue:[^ true].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3777
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3778
        self installDirectoryWin32 value ~=
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3779
                    ((p propertyAt:#installDirectoryWin32) ? 
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3780
                        ((p propertyAt:#installDirectory) ? 
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3781
                            '\Programme\SmalltalkX\packages')) ifTrue:[^ true].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3782
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3783
        self installDirectoryVMS value ~=
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3784
                    ((p propertyAt:#installDirectoryVMS) ? 
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3785
                        ((p propertyAt:#installDirectory) ? 
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3786
                            'SYS$SMALLTALKX:[PACKAGES]')) ifTrue:[^ true].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3787
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3788
        ^ false
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3789
    ].
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  3790
    selectedNodeType == #files ifTrue:[
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  3791
^ true.
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  3792
        (self methodsFile value ~= (p propertyAt:#methodsFile)) ifTrue:[^ true].
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  3793
        ^ false
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  3794
    ].
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3795
self halt.
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  3796
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3797
    (self projectType value ~~ p type) ifTrue:[^ true].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3798
    (self projectDirectory value ~= p directory) ifTrue:[^ true].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3799
    (self projectPackage value ~= p package) ifTrue:[^ true].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3800
    (self projectNamespace value ~= (p defaultNameSpace ? Smalltalk) name) ifTrue:[^ true].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3801
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3802
    (self repositoryModule value ~= p repositoryModule) ifTrue:[^ true].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3803
    (self repositoryDirectory value ~= p repositoryDirectory) ifTrue:[^ true].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3804
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3805
"/        self installDirectoryMacOS value ~=
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3806
"/                ((p propertyAt:#installDirectoryMacOS) ? 
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3807
"/                    ((p propertyAt:#installDirectory) ? 
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3808
"/                        '\Programme\SmalltalkX')) ifTrue:[^ true].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3809
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3810
    l := p prerequisitePackages collect:[:entry |
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3811
                |pName|
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3812
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3813
                entry isString ifTrue:[
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3814
                    pName := entry
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3815
                ] ifFalse:[
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3816
                    entry isArray ifTrue:[
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3817
                        pName := entry at:1
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3818
                    ] ifFalse:[
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3819
                        pName := entry name
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3820
                    ]
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3821
                ]
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3822
            ].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3823
    self listOfRequiredProjectsInPrerequisites value ~= (l sort) ifTrue:[^ true].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3824
    self listOfRequiredClassesInPrerequisites value ~= (p prerequisiteClasses copy sort)  ifTrue:[^ true].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3825
    self halt.
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3826
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3827
!
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3828
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3829
saveAspectsIntoProject
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3830
    |p s ns dir|
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3831
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3832
    p := self currentProject.
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3833
    p notNil ifTrue:[
1094
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3834
        p removeDependent:self.
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3835
1108
e88edf4a8cbe editFields - accept
Claus Gittinger <cg@exept.de>
parents: 1107
diff changeset
  3836
        self acceptChannel value:true; value:false.
e88edf4a8cbe editFields - accept
Claus Gittinger <cg@exept.de>
parents: 1107
diff changeset
  3837
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3838
"/        self currentProjectWasNotLoadedFromFile value:p wasLoadedFromFile not.
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3839
        p type:self projectType value.
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3840
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3841
        dir := self projectDirectory value asFilename.
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3842
        (dir exists and:[dir isDirectory]) ifFalse:[
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3843
            self warn:'Invalid project directory: ' , dir pathName
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3844
        ].
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3845
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3846
        p directory:self projectDirectory value.
1148
3e42f8601522 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1147
diff changeset
  3847
        p packageName:(self projectPackage value) asSymbol.
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3848
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3849
        p repositoryModule:self repositoryModule value.
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3850
        p repositoryDirectory:self repositoryDirectory value.
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3851
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3852
        s := self projectNamespace value.
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3853
        (s size == 0) ifTrue:[
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3854
            ns := Smalltalk
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3855
        ] ifFalse:[
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3856
            ns := Namespace name:s
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3857
        ].
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3858
        p defaultNameSpace:ns.
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3859
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  3860
        p propertyAt:#methodsFile put:self methodsFile value.
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  3861
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3862
        p propertyAt:#deliverCompiledBinary put:self deliverCompiledBinary value.
1229
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  3863
        p propertyAt:#deliverByteCode put:self deliverByteCode value.
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  3864
        p propertyAt:#deliverTarArchive put:self deliverTarArchive value.
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3865
        p propertyAt:#deliverZipArchive put:self deliverZipArchive value.
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3866
        p propertyAt:#deliverGZipArchive put:self deliverGZipArchive value.
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3867
        p propertyAt:#deliverLoadAllFile put:self deliverLoadAllFile value.
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3868
        p propertyAt:#deliverSources put:self deliverSources value.
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3869
        p propertyAt:#deliverMakefiles put:self deliverMakefiles value.
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3870
1234
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3871
        p propertyAt:#'make.stc.LOCALDEFINES' put:self makeDefines value.
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3872
        p propertyAt:#'make.stc.LOCALINCLUDES' put:self makeIncludes value.
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3873
        p propertyAt:#'make.stc.WARNINGOPTIONS' put:self makeOtherWarningOptions value.
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3874
        p propertyAt:#'make.stc.warnEOLComments' put:self makeWarnEOLComments value.
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3875
        p propertyAt:#'make.stc.warnNonStandard' put:self makeWarnNonStandard value.
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3876
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3877
"/        p propertyAt:#'make.LD_OBJ_LIBS' put:self makeLocalLibs value.
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3878
"/        p propertyAt:#'make.LOCAL_EXTRA_TARGETS' put:self makeExtraTargets value.
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3879
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3880
        p propertyAt:#installDirectoryUnix put:self installDirectoryUnix value.
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3881
        p propertyAt:#installDirectoryWin32 put:self installDirectoryWin32 value.
1149
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  3882
        p propertyAt:#installDirectoryVMS put:self installDirectoryVMS value.
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  3883
        p propertyAt:#installDirectoryMacOS put:self installDirectoryMacOS value.
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  3884
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3885
        p prerequisiteClasses:(self listOfRequiredClassesInPrerequisites value
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3886
                               collect:[:entry | entry string asSymbol]).
1094
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3887
1234
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3888
        p prerequisitePackages:(self listOfRequiredProjectsInPrerequisites value
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3889
                               collect:[:entry | entry string asSymbol]).
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3890
1094
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3891
        p addDependent:self.
1080
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3892
    ].
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3893
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3894
    "Created: / 23.3.1999 / 14:16:12 / cg"
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3895
    "Modified: / 23.3.1999 / 14:18:38 / cg"
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3896
!
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3897
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3898
updateProjectTree
1210
30bd57bbe9ce better tree
Claus Gittinger <cg@exept.de>
parents: 1207
diff changeset
  3899
    |tree moduleRoots root showWhat|
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3900
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3901
    self withCursor:Cursor execute do:[
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3902
        showWhat := self showWhat value.
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3903
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3904
        moduleRoots := Dictionary new.
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3905
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3906
        tree := SelectionInTree new.
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3907
        tree root:(root := ProjectTreeItem name:'invisibleRoot').
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3908
        root hide:false.
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3909
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3910
        showWhat notNil ifTrue:[
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3911
            showWhat == #current ifTrue:[
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3912
                root add:(self nodeFor:Project current).
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3913
            ] ifFalse:[
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3914
                (Project knownProjects asOrderedCollection
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3915
                    sort:[:a :b | a package < b package]) 
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3916
                do:[:aProject |
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3917
                    |newNode nodeToAdd doShow childNode path|
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3918
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3919
                    (doShow := showWhat == #all) ifFalse:[
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3920
                        doShow := (aProject package startsWith:'stx:') not
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3921
                    ].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3922
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3923
                    doShow ifTrue:[
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3924
                        newNode := self nodeFor:aProject.
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3925
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3926
                        "/ insert into tree ...
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3927
                        nodeToAdd := root.
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3928
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3929
                        path := aProject package asCollectionOfSubstringsSeparatedByAny:'/\:'.
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3930
                        path from:1 to:path size-1 do:[:part |
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3931
                            childNode := nodeToAdd children detect:[:child | child name = part] ifNone:nil.
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3932
                            childNode isNil ifTrue:[
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3933
                                nodeToAdd add:(childNode := ProjectTreeItem new name:part).
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3934
                            ].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3935
                            nodeToAdd := childNode.
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3936
                        ].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3937
                        newNode name:(path last).
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3938
                        nodeToAdd add:newNode.
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3939
                    ]
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3940
                ].
1207
9a14f97ee279 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1206
diff changeset
  3941
            ].
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3942
        ].
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3943
        projectTree := root.
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3944
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3945
        self projectTreeHolder root:projectTree.
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3946
    ].
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3947
    ^ projectTree
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3948
!
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3949
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3950
updateRightCanvas
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  3951
    |selectedNode nodeContents spec|
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3952
1149
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  3953
    self builder bindings removeKey:#listOfAllClassesInPrerequisites ifAbsent:nil.  "/ force recompute
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  3954
    self builder bindings removeKey:#listOfAllProjectsInPrerequisites ifAbsent:nil.  "/ force recompute
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  3955
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3956
    self selectedProjectInPrerequisites value:nil.
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3957
    self selectedRequiredProjectInPrerequisites value:nil.
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3958
1099
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  3959
    selectedNode := self selectedTreeNode.
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3960
    selectedNode isNil ifTrue:[
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3961
        self setupCanvasForNoSelection.
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3962
        ^ self
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3963
    ].
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3964
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  3965
    (spec := selectedNode spec) notNil ifTrue:[
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3966
        self currentCanvasHolder value:spec value.
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  3967
        ^ self
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  3968
    ].
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  3969
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3970
    selectedNode isProjectNode ifTrue:[
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3971
        self showCommentOf:selectedNode.
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3972
        ^ self.
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3973
    ].
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3974
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3975
    selectedNode contents == #classes ifTrue:[
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3976
        self showClassListOf:selectedNode.
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3977
        ^ self.
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3978
    ].
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  3979
    selectedNode contents == #patches ifTrue:[
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  3980
        self showPatchesListOf:selectedNode.
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  3981
        ^ self.
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  3982
    ].
1097
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
  3983
    self hasClassNodeSelected ifTrue:[
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
  3984
        self showClassDefinitionOf:selectedNode.
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
  3985
        ^ self.
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
  3986
    ].      
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3987
    self hasMethodNodeSelected ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3988
        self showMethodSourceOf:selectedNode.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3989
        ^ self.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3990
    ].      
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3991
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  3992
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3993
    self currentCanvasHolder value:(self class emptyRightCanvasSpec).
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3994
    self rightCanvasTextHolder value:''.
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3995
1080
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3996
    "Modified: / 23.3.1999 / 14:16:02 / cg"
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3997
! !
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3998
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  3999
!ProjectBrowser methodsFor:'private - building'!
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4000
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4001
checkForMakeProtoFor:aProject
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4002
    |f|
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4003
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4004
    "/ check for project directory ...
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4005
    (self checkForProjectDirectoryFor:aProject) ifFalse:[
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4006
        ^ false
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4007
    ].
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4008
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4009
    "/ check for Make.proto ...
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4010
    f := aProject directory asFilename construct:'Make.proto'.
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4011
    f exists ifFalse:[
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4012
        (self confirm:'''Make.proto'' does not exist in project directory\\Create ?' withCRs) ifFalse:[
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4013
            ^ false
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4014
        ].
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4015
        self buildMakefiles.
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4016
    ].
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4017
    ^ true
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4018
!
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4019
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4020
checkForMakefileFor:aProject
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4021
    |f|
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4022
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4023
    "/ check for project directory ...
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4024
    (self checkForProjectDirectoryFor:aProject) ifFalse:[
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4025
        ^ false
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4026
    ].
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4027
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4028
    "/ check for Makefile ...
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4029
    f := aProject directory asFilename construct:'Makefile'.
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4030
    f exists ifFalse:[
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4031
        (self confirm:'''Makefile'' does not exist in project directory\\Create ?' withCRs) ifFalse:[
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4032
            ^ false
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4033
        ].
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4034
        (self checkForMakeProtoFor:aProject) ifFalse:[
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4035
            ^ false
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4036
        ].
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4037
        self buildMakefiles.
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4038
    ].
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4039
    ^ true
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4040
!
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4041
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4042
checkForProjectDirectoryFor:aProject
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4043
    |dir|
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4044
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4045
    "/ check for project directory ...
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4046
    dir := aProject directory asFilename.
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4047
    dir exists ifFalse:[
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4048
        (self confirm:'Project directory does not exist\\Create ?' withCRs) ifFalse:[
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4049
            ^ false
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4050
        ].
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4051
        dir recursiveMakeDirectory.
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4052
    ].
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4053
    ^ true
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4054
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4055
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4056
! !
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4057
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4058
!ProjectBrowser methodsFor:'private - table col access'!
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4059
1038
41da0e38af84 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1037
diff changeset
  4060
classFilenameFromClassInfo:cInfo
41da0e38af84 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1037
diff changeset
  4061
    ^ cInfo classFileName
41da0e38af84 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1037
diff changeset
  4062
!
41da0e38af84 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1037
diff changeset
  4063
41da0e38af84 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1037
diff changeset
  4064
classIncludeConditionFromClassInfo:cInfo
41da0e38af84 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1037
diff changeset
  4065
    ^ cInfo conditionForInclusion
41da0e38af84 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1037
diff changeset
  4066
!
41da0e38af84 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1037
diff changeset
  4067
1235
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  4068
classIncludeConditionFromClassInfo:cInfo put:aSymbol
1238
af3b724392f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1237
diff changeset
  4069
    cInfo conditionForInclusion:aSymbol.
af3b724392f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1237
diff changeset
  4070
    ^ cInfo
1235
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  4071
!
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  4072
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4073
classNameFromClassInfo:cInfo
1038
41da0e38af84 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1037
diff changeset
  4074
    ^ cInfo className
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  4075
!
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  4076
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4077
classNameFromMethodInfo:pInfo
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4078
    ^ pInfo className
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4079
!
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4080
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  4081
classNameFromPatchesInfo:pInfo
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  4082
    ^ pInfo methodClass name
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  4083
!
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  4084
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4085
selectorFromMethodInfo:pInfo
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4086
    ^ pInfo methodName
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4087
!
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4088
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  4089
selectorFromPatchesInfo:pInfo
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  4090
    ^ pInfo methodSelector
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4091
! !
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4092
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4093
!ProjectBrowser methodsFor:'user actions'!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4094
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4095
addClass
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4096
    "ask fo, and add a single class"
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4097
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4098
    |p className cls|
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4099
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4100
    p := self currentProject.
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4101
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4102
    className := Dialog request:'Class to add:'.
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4103
    className size == 0 ifTrue:[^ self].
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4104
    cls := Smalltalk classNamed:className.
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4105
    cls isNil ifTrue:[
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4106
        "/ a new one
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4107
        (self confirm:'This is a new class. Add ?') ifFalse:[
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4108
            ^ self      
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4109
        ].
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4110
        p
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4111
            addClass:className
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4112
            classFileName:((Smalltalk fileNameForClass:className) , '.st').
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4113
    ] ifFalse:[
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4114
        cls package ~= p package ifTrue:[
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4115
            "/ a new one
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4116
            (self confirm:'Change the classes package from ' , cls package , ' to ' , p package , ' ?') ifFalse:[
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4117
                ^ self      
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4118
            ].
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4119
            cls package:p package.
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4120
        ].
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4121
        p
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4122
            addClass:cls name
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4123
            classFileName:(cls classFilename 
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4124
                            ? ((Smalltalk fileNameForClass:cls) , '.st')).
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4125
    ].
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4126
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4127
    self updateClassListForProject:p
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4128
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4129
!
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4130
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4131
addClasses
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4132
    "ask fo, and add a single class"
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4133
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4134
    |p className cls oldPackage|
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4135
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4136
    p := self currentProject.
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4137
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4138
    className := Dialog request:'Class to add:'.
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4139
    className size == 0 ifTrue:[^ self].
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4140
    cls := Smalltalk classNamed:className.
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4141
    cls isNil ifTrue:[
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4142
        "/ a new one
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4143
        (self confirm:'This is a new class. Add ?') ifFalse:[
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4144
            ^ self      
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4145
        ].
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4146
        p
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4147
            addClass:className
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4148
            classFileName:((Smalltalk fileNameForClass:className) , '.st').
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4149
    ] ifFalse:[
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4150
        (oldPackage := cls package) ~= p package ifTrue:[
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4151
            "/ a new one
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4152
            (self confirm:'Change the classes package from ' , oldPackage , ' to ' , p package , ' ?') ifFalse:[
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4153
                ^ self      
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4154
            ].
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4155
            cls package:p package.
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4156
        ].
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4157
        "/ find the other package ..
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4158
        oldPackage := Project projectWithId:oldPackage.
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4159
        oldPackage notNil ifTrue:[
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4160
            oldPackage removeClass:cls
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4161
        ].
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4162
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4163
        p
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4164
            addClass:cls name
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4165
            classFileName:(cls classFilename 
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4166
                            ? ((Smalltalk fileNameForClass:cls) , '.st')).
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4167
    ].
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4168
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4169
    self updateClassListForProject:p
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4170
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4171
!
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4172
1107
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4173
addClassesFromFilesInDirectory
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4174
    self addClassesFromFilesInDirectoryWithFilter:nil
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4175
!
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4176
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4177
addClassesFromFilesInDirectoryIfPresentInImage
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4178
    self addClassesFromFilesInDirectoryWithFilter:[:classOrName | classOrName isBehavior]
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4179
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4180
!
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4181
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4182
addClassesFromFilesInDirectoryWithFilter:aFilterBlockOrNil
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  4183
    |project existingClasses prjDirectory anyChange numSTFilesFound|
1107
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4184
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4185
    project := self currentProject.
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4186
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4187
    existingClasses := project classInfo.
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4188
    anyChange := false.
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  4189
    numSTFilesFound := 0.
1107
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4190
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4191
    prjDirectory := project directory asFilename.
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  4192
    (prjDirectory exists and:[prjDirectory isDirectory]) ifFalse:[
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  4193
        self warn:'Invalid project directory: ' , prjDirectory pathName.
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  4194
        ^ self
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  4195
    ].
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  4196
1107
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4197
    prjDirectory directoryContents do:[:fn |
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4198
        |f oldInfo cls|
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4199
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4200
        f := prjDirectory construct:fn.
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4201
        (f hasSuffix:'st') ifTrue:[
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  4202
            numSTFilesFound := numSTFilesFound + 1.
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  4203
1107
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4204
            oldInfo := existingClasses 
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4205
                            detect:[:clsInfo |
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4206
                                        clsInfo classFileName = fn
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4207
                                   ] 
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4208
                            ifNone:nil.
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4209
            oldInfo isNil ifTrue:[
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4210
                "/ extract className from fileName ...
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4211
                cls := Smalltalk filenameAbbreviations keyAtValue:(f withoutSuffix baseName ).
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4212
                cls isNil ifTrue:[
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4213
                    cls := f withoutSuffix baseName asSymbol.
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4214
                    project defaultNameSpace notNil ifTrue:[
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  4215
                        cls := (project defaultNameSpace name , '::' , cls) asSymbol
1107
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4216
                    ]
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4217
                ].
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4218
                (aFilterBlockOrNil isNil 
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4219
                or:[aFilterBlockOrNil value:cls]) ifTrue:[
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4220
                    project addClass:cls classFileName:fn.
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4221
                    anyChange := true.
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4222
Transcript showCR:'added ' , fn , ' as class: ' , cls printString.
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4223
                ] ifFalse:[
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4224
Transcript showCR:'skipped ' , fn , ' as class: ' , cls printString.
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4225
                ]
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4226
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4227
            ]
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4228
        ]
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4229
    ].
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  4230
1107
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4231
    anyChange ifTrue:[
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4232
        self updateClassListForProject:project
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  4233
    ] ifFalse:[
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  4234
        numSTFilesFound == 0 ifTrue:[
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  4235
            self information:'No st-sourcefiles found in ' , prjDirectory pathName.
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  4236
        ]
1107
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4237
    ]
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4238
!
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4239
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4240
addClassesFromImage
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4241
    "add classes with this packageId found in the image"
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4242
1226
21133accee5b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1224
diff changeset
  4243
    |project|
21133accee5b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1224
diff changeset
  4244
21133accee5b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1224
diff changeset
  4245
    project := self currentProject.
21133accee5b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1224
diff changeset
  4246
    Smalltalk allClassesDo:[:aClass |
21133accee5b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1224
diff changeset
  4247
        aClass isMeta ifFalse:[
21133accee5b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1224
diff changeset
  4248
            (aClass isNamespace not or:[aClass == Smalltalk]) ifTrue:[
21133accee5b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1224
diff changeset
  4249
                aClass package = project package ifTrue:[
21133accee5b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1224
diff changeset
  4250
                    (project classInfoFor:aClass) isNil ifTrue:[
21133accee5b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1224
diff changeset
  4251
                        project 
21133accee5b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1224
diff changeset
  4252
                            addClass:aClass name
21133accee5b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1224
diff changeset
  4253
                            classFileName:(aClass classFilename 
21133accee5b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1224
diff changeset
  4254
                                            ? ((Smalltalk fileNameForClass:aClass) , '.st')).
21133accee5b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1224
diff changeset
  4255
                    ]
21133accee5b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1224
diff changeset
  4256
                 ]
21133accee5b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1224
diff changeset
  4257
             ]
21133accee5b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1224
diff changeset
  4258
        ]
21133accee5b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1224
diff changeset
  4259
    ].                 
21133accee5b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1224
diff changeset
  4260
21133accee5b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1224
diff changeset
  4261
    self updateClassListForProject:project
21133accee5b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1224
diff changeset
  4262
21133accee5b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1224
diff changeset
  4263
!
21133accee5b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1224
diff changeset
  4264
1096
7efff9ca044f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1095
diff changeset
  4265
browseClasses
1149
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  4266
    |ns p classes nBad uniqueClasses|
1096
7efff9ca044f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1095
diff changeset
  4267
7efff9ca044f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1095
diff changeset
  4268
    p := self currentProject.
7efff9ca044f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1095
diff changeset
  4269
    classes := p classes
7efff9ca044f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1095
diff changeset
  4270
                collect:[:clsOrName |
1149
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  4271
                            |cls realName|
1096
7efff9ca044f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1095
diff changeset
  4272
7efff9ca044f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1095
diff changeset
  4273
                            clsOrName isSymbol ifTrue:[
1149
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  4274
                                realName := clsOrName.
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  4275
                                (realName includes:$:) ifTrue:[
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  4276
                                    (realName startsWith:'Smalltalk::') ifTrue:[
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  4277
                                        realName := (realName copyFrom:'Smalltalk::' size + 1) asSymbol
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  4278
                                    ]
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  4279
                                ].
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  4280
                                cls := Smalltalk at:realName
1096
7efff9ca044f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1095
diff changeset
  4281
                            ] ifFalse:[
7efff9ca044f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1095
diff changeset
  4282
                                cls := clsOrName
7efff9ca044f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1095
diff changeset
  4283
                            ].
7efff9ca044f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1095
diff changeset
  4284
                            cls
7efff9ca044f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1095
diff changeset
  4285
                        ].
1149
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  4286
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  4287
    "/ remove duplicates - but want to preserve order
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  4288
    "/ thats why we do not use asIdentitySet asOrderedCollection
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  4289
    uniqueClasses := OrderedCollection new.
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  4290
    classes do:[:cls | (uniqueClasses includesIdentical:cls) ifFalse:[uniqueClasses add:cls]].
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  4291
1096
7efff9ca044f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1095
diff changeset
  4292
    nBad := classes inject:0 into:[:sum :el | el isNil ifTrue:[sum+1] ifFalse:[sum]].
7efff9ca044f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1095
diff changeset
  4293
    nBad ~~ 0 ifTrue:[
7efff9ca044f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1095
diff changeset
  4294
        classes := classes select:[:cls | cls notNil].
1149
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  4295
        self warn:('Oops - %1 classes could not be found.\\You should probably load them first.' bindWith:nBad) withCRs.
1096
7efff9ca044f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1095
diff changeset
  4296
    ].
7efff9ca044f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1095
diff changeset
  4297
7efff9ca044f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1095
diff changeset
  4298
7efff9ca044f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1095
diff changeset
  4299
    SystemBrowser
7efff9ca044f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1095
diff changeset
  4300
        browseClasses:classes title:('Classes in ' , p name) sort:true.
7efff9ca044f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1095
diff changeset
  4301
7efff9ca044f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1095
diff changeset
  4302
7efff9ca044f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1095
diff changeset
  4303
7efff9ca044f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1095
diff changeset
  4304
!
7efff9ca044f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1095
diff changeset
  4305
1107
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4306
buildAll
1229
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  4307
    |p|
1107
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4308
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4309
    p := self currentProject.
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4310
    p isNil ifTrue:[
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4311
        self information:'No project selected'.
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4312
        ^ self
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4313
    ].
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4314
1229
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  4315
    self withCursor:Cursor wait do:[
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  4316
        "/ prepare the building ...
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  4317
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  4318
        (p propertyAt:#deliverLoadAllFile) == true ifTrue:[
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  4319
            p createLoadAllFile
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  4320
        ].
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  4321
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  4322
        (p propertyAt:#deliverSources) == true ifTrue:[
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4323
            p createSourceFiles
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4324
        ].
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4325
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4326
        (p propertyAt:#deliverMakefiles) == true ifTrue:[
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4327
            self buildMakefiles
1229
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  4328
        ].
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  4329
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  4330
        (p propertyAt:#deliverCompiledBinary) == true ifTrue:[
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  4331
            self buildCompiledClassLibrary
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  4332
        ].
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  4333
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  4334
        (p propertyAt:#deliverByteCode) == true ifTrue:[
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  4335
            self buildByteCodeClassLibrary
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  4336
        ].
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  4337
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  4338
        "/ now, deploy ...
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  4339
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  4340
        (p propertyAt:#deliverZipArchive) == true ifTrue:[
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4341
            p buildZipArchive
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4342
        ].
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4343
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4344
        (p propertyAt:#deliverTarArchive) == true ifTrue:[
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4345
            p buildTarArchive
1229
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  4346
        ].
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  4347
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  4348
        (p propertyAt:#deliverGZipArchive) == true ifTrue:[
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4349
            p buildGZipArchive
1229
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  4350
        ].
1107
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4351
    ].
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4352
1229
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  4353
1107
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4354
!
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4355
1229
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  4356
buildCompiledClassLibrary
1227
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
  4357
    "compile a binary class library in the projects directory"
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4358
    |p diagnosticFile diagnostic error textBox|
1227
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
  4359
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
  4360
    p := self currentProject.
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
  4361
    p isNil ifTrue:[
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
  4362
        self information:'No project selected'.
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
  4363
        ^ self
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
  4364
    ].
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
  4365
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4366
    "/ check for directory ...
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4367
    (self checkForProjectDirectoryFor:p) ifFalse:[
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4368
        ^ self
1227
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
  4369
    ].
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
  4370
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
  4371
    "/ check for Make.proto ...
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4372
    (self checkForMakeProtoFor:p) ifFalse:[
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4373
        ^ self
1227
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
  4374
    ].
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
  4375
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
  4376
    "/ check for Makefile ...
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4377
    (self checkForMakefileFor:p) ifFalse:[
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4378
        ^ self
1227
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
  4379
    ].
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
  4380
1228
90dee52628ec more building
Claus Gittinger <cg@exept.de>
parents: 1227
diff changeset
  4381
    "/ now, execute the makefile found there ...
90dee52628ec more building
Claus Gittinger <cg@exept.de>
parents: 1227
diff changeset
  4382
    diagnosticFile := Filename newTemporary.
90dee52628ec more building
Claus Gittinger <cg@exept.de>
parents: 1227
diff changeset
  4383
    diagnostic := diagnosticFile writeStream.
90dee52628ec more building
Claus Gittinger <cg@exept.de>
parents: 1227
diff changeset
  4384
    error := false.
90dee52628ec more building
Claus Gittinger <cg@exept.de>
parents: 1227
diff changeset
  4385
90dee52628ec more building
Claus Gittinger <cg@exept.de>
parents: 1227
diff changeset
  4386
    [
90dee52628ec more building
Claus Gittinger <cg@exept.de>
parents: 1227
diff changeset
  4387
        self withCursor:Cursor wait do:[
90dee52628ec more building
Claus Gittinger <cg@exept.de>
parents: 1227
diff changeset
  4388
            OperatingSystem
90dee52628ec more building
Claus Gittinger <cg@exept.de>
parents: 1227
diff changeset
  4389
                executeCommand:'make' 
90dee52628ec more building
Claus Gittinger <cg@exept.de>
parents: 1227
diff changeset
  4390
                inputFrom:nil 
90dee52628ec more building
Claus Gittinger <cg@exept.de>
parents: 1227
diff changeset
  4391
                outputTo:diagnostic 
90dee52628ec more building
Claus Gittinger <cg@exept.de>
parents: 1227
diff changeset
  4392
                errorTo:diagnostic 
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4393
                inDirectory:(p directory asFilename pathName) 
1228
90dee52628ec more building
Claus Gittinger <cg@exept.de>
parents: 1227
diff changeset
  4394
                onError:[error := true].
90dee52628ec more building
Claus Gittinger <cg@exept.de>
parents: 1227
diff changeset
  4395
        ].
90dee52628ec more building
Claus Gittinger <cg@exept.de>
parents: 1227
diff changeset
  4396
90dee52628ec more building
Claus Gittinger <cg@exept.de>
parents: 1227
diff changeset
  4397
        diagnostic close.
90dee52628ec more building
Claus Gittinger <cg@exept.de>
parents: 1227
diff changeset
  4398
90dee52628ec more building
Claus Gittinger <cg@exept.de>
parents: 1227
diff changeset
  4399
        textBox := TextBox new.
90dee52628ec more building
Claus Gittinger <cg@exept.de>
parents: 1227
diff changeset
  4400
        textBox initialText:(diagnosticFile readStream contents).
90dee52628ec more building
Claus Gittinger <cg@exept.de>
parents: 1227
diff changeset
  4401
        textBox title:'Make Diagnostic output:'.
90dee52628ec more building
Claus Gittinger <cg@exept.de>
parents: 1227
diff changeset
  4402
        textBox readOnly:true.
90dee52628ec more building
Claus Gittinger <cg@exept.de>
parents: 1227
diff changeset
  4403
        textBox noCancel.
90dee52628ec more building
Claus Gittinger <cg@exept.de>
parents: 1227
diff changeset
  4404
        textBox label:'Make Diagnostic output'.
90dee52628ec more building
Claus Gittinger <cg@exept.de>
parents: 1227
diff changeset
  4405
        textBox extent:(600@250); sizeFixed:true.
90dee52628ec more building
Claus Gittinger <cg@exept.de>
parents: 1227
diff changeset
  4406
        textBox showAtPointer.
90dee52628ec more building
Claus Gittinger <cg@exept.de>
parents: 1227
diff changeset
  4407
90dee52628ec more building
Claus Gittinger <cg@exept.de>
parents: 1227
diff changeset
  4408
    ] valueNowOrOnUnwindDo:[
90dee52628ec more building
Claus Gittinger <cg@exept.de>
parents: 1227
diff changeset
  4409
        diagnosticFile delete
90dee52628ec more building
Claus Gittinger <cg@exept.de>
parents: 1227
diff changeset
  4410
    ].
1227
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
  4411
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
  4412
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
  4413
!
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
  4414
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4415
buildLoadAllFile
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4416
    |p |
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4417
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4418
    p := self currentProject.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4419
    p isNil ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4420
        self information:'No project selected'.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4421
        ^ self
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4422
    ].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4423
1229
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  4424
    self withCursor:Cursor wait do:[
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  4425
        p createLoadAllFile.
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  4426
    ]
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4427
!
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4428
1220
998ca027d633 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1219
diff changeset
  4429
buildMakefiles
998ca027d633 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1219
diff changeset
  4430
    |p |
998ca027d633 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1219
diff changeset
  4431
998ca027d633 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1219
diff changeset
  4432
    p := self currentProject.
998ca027d633 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1219
diff changeset
  4433
    p isNil ifTrue:[
998ca027d633 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1219
diff changeset
  4434
        self information:'No project selected'.
998ca027d633 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1219
diff changeset
  4435
        ^ self
998ca027d633 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1219
diff changeset
  4436
    ].
998ca027d633 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1219
diff changeset
  4437
1229
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  4438
    self withCursor:Cursor wait do:[
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  4439
        p createProtoMakefile.
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  4440
        p createMakefile
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  4441
    ].
1220
998ca027d633 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1219
diff changeset
  4442
!
998ca027d633 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1219
diff changeset
  4443
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4444
checkInProject
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4445
    |p classes methods anyMethodMissing|
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4446
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4447
    p := self currentProject.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4448
    p isNil ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4449
        self information:'No project selected'.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4450
        ^ self
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4451
    ].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4452
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4453
    "/ check in classes ...
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4454
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4455
    classes := p classes.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4456
    classes do:[:aClass |
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4457
        |clsName|
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4458
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4459
        aClass isBehavior ifFalse:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4460
            aClass isSymbol ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4461
                clsName := aClass
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4462
            ] ifFalse:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4463
                clsName := aClass className
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4464
            ].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4465
            Transcript showCR:('ProjectBrowser: cannot checkIn unloaded class: ' , clsName).
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4466
        ] ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4467
            aClass isLoaded ifFalse:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4468
                Transcript showCR:('ProjectBrowser: cannot checkIn unloaded class: ' , aClass name).
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4469
            ] ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4470
                aClass owningClass isNil ifTrue:[ "/ skip private classes
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4471
                    self checkInClass:aClass.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4472
                ]
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4473
            ]
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4474
        ]
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4475
    ].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4476
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4477
    "/ check methods ...
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4478
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4479
    anyMethodMissing := false.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4480
    methods := p methods.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4481
    methods size > 0 ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4482
        methods do:[:aMethod |
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4483
            aMethod isMethod ifFalse:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4484
                Transcript showCR:('ProjectBrowser: cannot checkIn unloaded method: ' , aMethod className , ' ' , aMethod methodName).
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4485
                anyMethodMissing := true.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4486
            ]
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4487
        ].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4488
        anyMethodMissing ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4489
            Transcript showCR:'ProjectBrowser: cannot save method patches & extensions due to missing method(s)'.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4490
        ] ifFalse:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4491
            self checkInMethods:methods
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4492
        ].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4493
    ].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4494
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4495
    "/ check in the project file itself
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4496
    self checkInProjectFile.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4497
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4498
!
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4499
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  4500
inspectCurrentProject
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4501
    "inspect the current project"
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4502
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4503
    self hasProjectSelected ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4504
        self currentProject inspect.
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  4505
    ]
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4506
!
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4507
1099
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  4508
itemDoubleClicked:index
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  4509
    |node classOrClassName cls|
1099
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  4510
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  4511
    self hasClassNodeSelected ifTrue:[
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  4512
        node := self selectedTreeNode.
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  4513
        classOrClassName := node contents value.
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  4514
        classOrClassName isBehavior ifTrue:[
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  4515
            cls := classOrClassName.
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  4516
        ] ifFalse:[
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  4517
            cls := Smalltalk at:classOrClassName.
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  4518
        ].
1099
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  4519
        cls isNil ifTrue:[
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  4520
            self information:'The class is not (yet) loaded'.
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  4521
            ^ self
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  4522
        ].
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  4523
        SystemBrowser browseClass:cls.
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  4524
    ].
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  4525
!
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  4526
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4527
itemSelected:index
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4528
    |item action info p|
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4529
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  4530
    self withWaitCursorDo:[
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  4531
        self updateRightCanvas.
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  4532
    ].
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4533
    index isNil ifTrue:[
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4534
        modifiedChannel value:false.
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4535
        ^ self
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4536
    ].
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4537
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4538
    self readAspectsFromProject.
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4539
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4540
    item := self projectTreeHolder value at:index.
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4541
    action := item action.
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4542
    action notNil ifTrue:[
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4543
        action value:item.
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4544
    ].
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  4545
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4546
    info := item info.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4547
    info size == 0 ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4548
        ((p := self currentProject) notNil
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4549
        and:[p isLoaded ~~ true]) ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4550
            info := 'Projects code is not loaded.'
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4551
        ].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4552
    ].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4553
    self valueOfInfoLabel value:info.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4554
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4555
    self hasProjectSelectedHolder value:self hasProjectSelected.
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4556
    modifiedChannel value:false.
1116
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  4557
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  4558
    "Modified: / 26.4.1999 / 22:49:20 / cg"
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4559
!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4560
1095
660185e02224 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1094
diff changeset
  4561
loadClassesFromDirectory
660185e02224 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1094
diff changeset
  4562
    "load all classes as contained in the project into the system"
660185e02224 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1094
diff changeset
  4563
1096
7efff9ca044f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1095
diff changeset
  4564
    self withReadCursorDo:[
1098
5f4b4338a68f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1097
diff changeset
  4565
        self currentProject loadClassesFromProjectDirectory.
1095
660185e02224 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1094
diff changeset
  4566
    ].
660185e02224 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1094
diff changeset
  4567
660185e02224 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1094
diff changeset
  4568
!
660185e02224 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1094
diff changeset
  4569
660185e02224 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1094
diff changeset
  4570
loadFromProjectFile:aFilenameString
660185e02224 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1094
diff changeset
  4571
    |newProject|
660185e02224 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1094
diff changeset
  4572
1096
7efff9ca044f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1095
diff changeset
  4573
    self withReadCursorDo:[
7efff9ca044f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1095
diff changeset
  4574
        newProject := Project new loadFromProjectFile:aFilenameString.
7efff9ca044f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1095
diff changeset
  4575
        newProject notNil ifTrue:[
7efff9ca044f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1095
diff changeset
  4576
            self newProject:newProject
7efff9ca044f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1095
diff changeset
  4577
        ]
1224
825e6e9fc37f expand the path to the load project
Claus Gittinger <cg@exept.de>
parents: 1223
diff changeset
  4578
    ].
825e6e9fc37f expand the path to the load project
Claus Gittinger <cg@exept.de>
parents: 1223
diff changeset
  4579
    ^ newProject
1095
660185e02224 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1094
diff changeset
  4580
!
660185e02224 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1094
diff changeset
  4581
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4582
loadProjectCode
1219
0bcf1df24277 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1218
diff changeset
  4583
    |project filesToLoad methodsFile ns anyPatchClassMissing anyPatches
0bcf1df24277 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1218
diff changeset
  4584
     nMissingSuper prevNMissingSuper|
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4585
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4586
    project := self currentProject.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4587
    ns := project defaultNameSpace.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4588
    ns isSymbol ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4589
        ns := Namespace name:ns
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4590
    ].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4591
    self withReadCursorDo:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4592
        filesToLoad := OrderedCollection new.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4593
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4594
        "/ load all classes ...
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4595
        project classInfo do:[:aClassInfo |
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4596
            |className fileToLoad cls|
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4597
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4598
            className := aClassInfo className.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4599
            fileToLoad := aClassInfo classFileName.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4600
            cls := ns at:className asSymbol.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4601
            cls notNil ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4602
                cls isBehavior ifFalse:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4603
                    (self confirm:('Attention: a global named ' , className , ' exists, but is not a class.\\Load anyway ?') withCRs)
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4604
                    ifFalse:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4605
                        fileToLoad := nil
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4606
                    ]
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4607
                ] ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4608
                    cls isLoaded ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4609
                        fileToLoad := nil
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4610
                    ]
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4611
                ]
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4612
            ].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4613
            fileToLoad notNil ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4614
                filesToLoad add:fileToLoad
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4615
            ].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4616
        ].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4617
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4618
        anyPatchClassMissing := false.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4619
        anyPatches := false.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4620
        project methodInfo do:[:aMethodInfo |
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4621
            |className methodName mthd cls|
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4622
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4623
            className := aMethodInfo className.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4624
            methodName := aMethodInfo methodName.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4625
            cls := Smalltalk at:className asSymbol.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4626
            (cls isNil or:[cls isBehavior not or:[cls isLoaded not]]) ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4627
                self warn:('Missing class: ' , className , ' (required for patches)').
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4628
                anyPatchClassMissing := anyPatches := true.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4629
            ] ifFalse:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4630
                "/ already present ?
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4631
                (cls compiledMethodAt:methodName asSymbol) isNil ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4632
                    anyPatches := true.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4633
                ]
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4634
            ]
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4635
        ].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4636
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4637
        (methodsFile := project propertyAt:#methodsFile) notNil ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4638
            anyPatches ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4639
                anyPatchClassMissing ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4640
                    self warn:('Cannot load patches & extensions, due to missing class(es)')
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4641
                ] ifFalse:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4642
                    filesToLoad add:methodsFile
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4643
                ]
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4644
            ]
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4645
        ] ifFalse:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4646
            anyPatches ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4647
                self warn:('No file for methods (patches & extensions) is defined in project')
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4648
            ].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4649
        ].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4650
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4651
        filesToLoad size == 0 ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4652
            self information:'Projects code is already loaded.'
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4653
        ] ifFalse:[
1219
0bcf1df24277 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1218
diff changeset
  4654
            "/ load as long as superclasses are missing
0bcf1df24277 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1218
diff changeset
  4655
            "/ (since the load order could be incorrect)
0bcf1df24277 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1218
diff changeset
  4656
            prevNMissingSuper := nil.
0bcf1df24277 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1218
diff changeset
  4657
            nMissingSuper := 1.
0bcf1df24277 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1218
diff changeset
  4658
            [nMissingSuper > 0 and:[nMissingSuper ~~ prevNMissingSuper]]
0bcf1df24277 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1218
diff changeset
  4659
            whileTrue:[
0bcf1df24277 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1218
diff changeset
  4660
                nMissingSuper := 0.
0bcf1df24277 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1218
diff changeset
  4661
                Parser::UndefinedSuperclassError handle:[:ex |
0bcf1df24277 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1218
diff changeset
  4662
                    nMissingSuper := nMissingSuper + 1.
0bcf1df24277 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1218
diff changeset
  4663
                    ex proceed
0bcf1df24277 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1218
diff changeset
  4664
                ] do:[
0bcf1df24277 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1218
diff changeset
  4665
                    Class packageQuerySignal answer:project package asSymbol
0bcf1df24277 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1218
diff changeset
  4666
                    do:[
0bcf1df24277 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1218
diff changeset
  4667
                        filesToLoad do:[:fileToLoad |
0bcf1df24277 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1218
diff changeset
  4668
                            Smalltalk fileIn:(project directory asFilename construct:fileToLoad) pathName
0bcf1df24277 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1218
diff changeset
  4669
                        ]
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4670
                    ]
1219
0bcf1df24277 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1218
diff changeset
  4671
                ].
0bcf1df24277 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1218
diff changeset
  4672
                prevNMissingSuper := nMissingSuper.
0bcf1df24277 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1218
diff changeset
  4673
            ].
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4674
        ].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4675
        project isLoaded:true.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4676
        self readAspectsFromProject
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4677
    ]
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4678
!
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4679
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4680
makeCurrentProject
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4681
    "make the selected Project the current project"
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4682
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4683
    |project|
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4684
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4685
    self hasProjectSelected ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4686
        project := self currentProject.
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4687
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4688
        Project current:project.
1207
9a14f97ee279 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1206
diff changeset
  4689
        self showWhat value == #current ifTrue:[
9a14f97ee279 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1206
diff changeset
  4690
            self updateProjectTree
9a14f97ee279 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1206
diff changeset
  4691
        ]
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4692
    ]
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4693
!
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4694
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  4695
methodPatchDoubleClick:arg
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  4696
self halt.
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  4697
!
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  4698
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4699
newProject
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4700
    self newProject:Project new.
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4701
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4702
!
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4703
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4704
newProject:newProject
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4705
    |newNode|
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4706
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4707
    newNode := self nodeFor:newProject.
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4708
    self addProjectNodeToTree:newNode.
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4709
    self projectTreeHolder root:projectTree.
1095
660185e02224 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1094
diff changeset
  4710
"/    self projectTreeHolder selectNode:newNode.
660185e02224 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1094
diff changeset
  4711
"/    self projectTreeHolder expand:newNode.
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  4712
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  4713
    self readAspectsFromProject.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  4714
    newProject wasLoadedFromFile ifFalse:[
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  4715
         self updateListOfRequiredPrerequisiteClasses.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  4716
    ]
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4717
!
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4718
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4719
newSubProject
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4720
    |projectNode subProjectsNode newNode parentProject newProject|
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4721
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4722
    projectNode := self currentProjectNode.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4723
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4724
    projectNode notNil ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4725
        parentProject := projectNode contents.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4726
        subProjectsNode := projectNode children detect:[:child | child contents == #subprojects].
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4727
self halt.
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4728
        parentProject notNil ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4729
            newProject := Project new.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4730
            newNode := self nodeFor:newProject.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4731
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4732
            parentProject addSubProject:newProject.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4733
            subProjectsNode add:newNode.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4734
            self projectTreeHolder root:projectTree.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4735
            self projectTreeHolder selectNode:newNode.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4736
        ]    
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4737
    ]    
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4738
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4739
!
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4740
1227
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
  4741
openDocumentation
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
  4742
    self openHTMLDocument: 'tools/pbrowser/TOP.html'
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
  4743
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
  4744
!
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
  4745
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4746
openProject
1095
660185e02224 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1094
diff changeset
  4747
    |fn|
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4748
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4749
    fn := Dialog 
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4750
        requestFileName:'filename:' 
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4751
        default:nil
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4752
        ifFail:nil
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4753
        pattern:'*.prj'
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4754
        fromDirectory:(FileSelectionBox lastFileSelectionDirectory).
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4755
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4756
    fn notNil ifTrue:[
1095
660185e02224 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1094
diff changeset
  4757
        self loadFromProjectFile:fn.
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4758
    ]
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4759
!
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4760
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4761
projectFilterChanged
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4762
    |theNode|
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4763
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4764
    self updateProjectTree.
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4765
    self updateRightCanvas.
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4766
    self showWhat value == #current ifTrue:[
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4767
        theNode := self projectTreeHolder 
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4768
                        detectFirstItem:[:item | item contents == Project current].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4769
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4770
        [theNode notNil] whileTrue:[
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4771
            self projectTreeHolder expand:theNode.
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4772
            theNode := theNode parent.
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4773
        ].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4774
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4775
    ].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4776
!
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4777
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4778
removeProject
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4779
    |projectToRemove selectedNode subNode newNode parentNode parentProject newProject|
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4780
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4781
    self hasProjectNodeSelected ifTrue:[
1099
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  4782
        selectedNode := self selectedTreeNode.
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4783
        projectToRemove := selectedNode contents.
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4784
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4785
        (self confirm:'Really remove the project ?') ifTrue:[
1098
5f4b4338a68f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1097
diff changeset
  4786
            self withExecuteCursorDo:[
5f4b4338a68f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1097
diff changeset
  4787
                self projectTreeHolder removeSelection.
5f4b4338a68f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1097
diff changeset
  4788
                projectToRemove removeFromSystem.
5f4b4338a68f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1097
diff changeset
  4789
            ]
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4790
        ]
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4791
    ]
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4792
!
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4793
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4794
renameProject
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4795
    |nm projectNode selectedProject|
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4796
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4797
    projectNode := self currentProjectNode.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4798
    projectNode notNil ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4799
        selectedProject := projectNode contents.
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4800
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4801
        nm := Dialog 
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4802
                request:'Rename to:'
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4803
                initialAnswer:selectedProject name.
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4804
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4805
        nm size > 0 ifTrue:[
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4806
            selectedProject name:nm.
1085
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  4807
"/            selectedNode name:nm.
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  4808
"/            selectedNode changed.
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4809
        ]
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4810
    ]
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4811
!
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4812
1228
90dee52628ec more building
Claus Gittinger <cg@exept.de>
parents: 1227
diff changeset
  4813
saveProjectFile
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4814
    |d p|
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4815
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  4816
    self modifiedChannel value ifTrue:[
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  4817
        (self confirm:'Changes not confirmed; save anyway ?') ifFalse:[^ self]
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  4818
    ].
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  4819
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4820
    p := self currentProject.
1116
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  4821
    p isNil ifTrue:[
1148
3e42f8601522 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1147
diff changeset
  4822
        self information:'Select a project first.'.
1116
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  4823
        ^self
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  4824
    ].
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4825
    p directory isNil ifTrue:[
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4826
        d := (Dialog request:'Project Directory:').
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4827
        d size == 0 ifTrue:[
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4828
            ^ self
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4829
        ].
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4830
        p directory:d
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4831
    ].
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4832
1148
3e42f8601522 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1147
diff changeset
  4833
    self withCursor:Cursor write do:[
3e42f8601522 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1147
diff changeset
  4834
        p saveAsProjectFile.
3e42f8601522 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1147
diff changeset
  4835
    ]
1116
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  4836
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  4837
    "Modified: / 26.4.1999 / 22:43:57 / cg"
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4838
!
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4839
1107
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4840
selectionChangeAllowed:newNode
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4841
    |answer|
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4842
1107
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4843
    newNode == self selectedTreeNode ifTrue:[
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4844
        ^ true 
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4845
    ].
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4846
    (modifiedChannel value 
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4847
    and:[true "self reallyModified"]) ifTrue:[
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4848
        answer := Dialog confirmWithCancel:'Accept changes ?'.
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4849
        answer isNil ifTrue:[
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4850
            ^ false
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4851
        ].
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4852
        answer == true ifTrue:[
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4853
            self accept.
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4854
        ].
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4855
    ].
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4856
    ^ true
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4857
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4858
!
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4859
1097
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
  4860
showClassDefinitionOf:anItem
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  4861
    |node classOrClassName cls text|
1097
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
  4862
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
  4863
    self hasClassNodeSelected ifFalse:[^ self].
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
  4864
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
  4865
    self currentCanvasHolder value:(self class rightCanvasSpecForEditableText).
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
  4866
1099
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  4867
    node := self selectedTreeNode.
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  4868
    classOrClassName := node contents value.
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  4869
    classOrClassName isBehavior ifTrue:[
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  4870
        cls := classOrClassName.
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  4871
    ] ifFalse:[
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  4872
        cls := Smalltalk at:classOrClassName.
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  4873
    ].
1097
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
  4874
    cls isNil ifTrue:[
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
  4875
        text := 'The class is not (yet) loaded'.
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
  4876
    ] ifFalse:[
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
  4877
        text := cls definition
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
  4878
    ].
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
  4879
    self rightCanvasTextHolder value:text.
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
  4880
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
  4881
!
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
  4882
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4883
showClassListOf:anItem
1107
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4884
    |projectItem project|
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4885
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4886
    projectItem := anItem parent.
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4887
    project := projectItem contents.
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4888
1107
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4889
    self updateClassListForProject:project.
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4890
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4891
    self currentCanvasHolder value:(self class rightCanvasSpecForClassList).
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4892
!
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4893
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4894
showCommentOf:anItem
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4895
    |projectItem project|
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4896
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4897
    anItem contents == #comment ifTrue:[
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4898
        projectItem := anItem parent
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4899
    ] ifFalse:[
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4900
        projectItem := anItem
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4901
    ].
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4902
    project := projectItem contents.
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4903
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4904
    self textCanvasLabelHolder value:'Projects comment'.
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4905
    self currentCanvasHolder value:(self class rightCanvasSpecForEditableText).
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4906
    self rightCanvasTextHolder value:project comment.
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4907
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4908
!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4909
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4910
showDocumentationFor:anItem
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4911
    |projectItem project|
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4912
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4913
    anItem contents == #documentation ifTrue:[
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4914
        projectItem := anItem parent
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4915
    ] ifFalse:[
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4916
        projectItem := anItem
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4917
    ].
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4918
    project := projectItem contents.
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4919
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4920
    self currentCanvasHolder value:(self class rightCanvasSpecForHTMLText).
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4921
    self htmlDocumentURLHolder value:project documentationURL.
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4922
!
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4923
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4924
showMethodSourceOf:anItem
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4925
    |node methodInfo classOrClassName cls mthd text|
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4926
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4927
    self hasMethodNodeSelected ifFalse:[^ self].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4928
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4929
    self currentCanvasHolder value:(self class rightCanvasSpecForEditableText).
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4930
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4931
    node := self selectedTreeNode.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4932
    methodInfo := node contents value.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4933
    cls := Smalltalk at:methodInfo className asSymbol.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4934
    cls isNil ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4935
        text := 'The class is not (yet) loaded'.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4936
    ] ifFalse:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4937
        mthd := cls compiledMethodAt:(methodInfo methodName asSymbol).
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4938
        mthd isNil ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4939
            text := 'The method is not (yet) loaded'.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4940
        ] ifFalse:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4941
            text := mthd source
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4942
        ]
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4943
    ].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4944
    self rightCanvasTextHolder value:text.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4945
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4946
!
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4947
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  4948
showPatchesListOf:anItem
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  4949
    |projectItem project patches l|
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  4950
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  4951
    projectItem := anItem parent.
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  4952
    project := projectItem contents.
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  4953
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4954
    self updatePatchesListForProject:project.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4955
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4956
"/    patches := project methods.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4957
"/    patches := patches collect:[:m | m who].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4958
"/    patches := patches sort:[:w1 :w2 |
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4959
"/                        |w1Nm w2Nm|
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4960
"/
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4961
"/                        w1Nm := w1 methodClass name.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4962
"/                        w2Nm := w2 methodClass name.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4963
"/                        w1Nm < w2Nm ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4964
"/                            true
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4965
"/                        ] ifFalse:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4966
"/                            w1Nm = w2Nm ifFalse:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4967
"/                                false
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4968
"/                            ] ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4969
"/                                w1 methodSelector < w2 methodSelector
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4970
"/                            ]
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4971
"/                        ]
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4972
"/                       ].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4973
"/
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4974
"/    l := self patchesList.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4975
"/    l removeAll.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4976
"/    l addAll:patches.
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  4977
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  4978
    self currentCanvasHolder value:(self class rightCanvasSpecForPatchesList).
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  4979
!
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  4980
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4981
showReadOnlyText:someText
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4982
    self currentCanvasHolder value:(self class rightCanvasSpecForReadOnlyText).
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4983
    self rightCanvasTextHolder value:someText.
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4984
1107
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4985
!
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4986
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4987
updateClassListForProject:aProject
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4988
    |classInfo l|
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4989
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4990
    classInfo := aProject classInfo copy asOrderedCollection.
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4991
    classInfo sort:[:a :b | a className < b className].
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4992
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4993
    l := self classList.
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4994
    l removeAll.
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4995
    l addAll:classInfo.
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4996
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  4997
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  4998
!
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  4999
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5000
updateListOfProjects
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5001
    "scan all classes/methods for new projects"
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5002
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5003
    self withWaitCursorDo:[
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5004
        Project initKnownProjects.
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5005
        self updateProjectTree
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5006
    ].
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5007
!
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5008
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5009
updateListOfRequiredPrerequisiteClasses
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5010
    "all autoloaded superclasses of my classes are definitely required"
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5011
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5012
    |p anyChange allInPre requiredInPre nTotal nMissing msg|
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5013
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5014
    p := self currentProject.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5015
    p isNil ifTrue:[^ self].
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5016
    anyChange := false.
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5017
    nTotal := 0.
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5018
    nMissing := 0.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5019
    allInPre := self listOfAllClassesInPrerequisites value.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5020
    requiredInPre := self listOfRequiredClassesInPrerequisites value.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5021
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5022
    self currentProjectsClassNames do:[:aClassName |
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5023
        |cls|
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5024
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5025
        cls := Smalltalk at:aClassName asSymbol.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5026
        (cls notNil and:[cls isLoaded]) ifTrue:[
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5027
            cls allSuperclasses do:[:superClass |
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5028
                |sName idx|
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5029
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5030
                (superClass notNil 
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5031
                and:[superClass isLoaded
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5032
                and:[superClass wasAutoloaded]]) ifTrue:[
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5033
                    |sName entry|
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5034
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5035
                    sName := superClass name.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5036
                    idx := allInPre findFirst:[:item | item string = sName].
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5037
                    idx ~~ 0 ifTrue:[
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5038
                        allInPre removeIndex:idx.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5039
                        requiredInPre add:sName asText allBold.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5040
                        anyChange := true.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5041
                    ]
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5042
                ]
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5043
            ]
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5044
        ] ifFalse:[
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5045
            nMissing := nMissing + 1.
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5046
        ].
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5047
        nTotal := nTotal + 1.
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5048
    ].
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5049
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5050
    anyChange ifTrue:[
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5051
        self listOfRequiredClassesInPrerequisites changed.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5052
        self listOfAllClassesInPrerequisites changed.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5053
    ].
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5054
    nMissing ~~ 0 ifTrue:[
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5055
        nMissing == nTotal ifTrue:[
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5056
            msg := 'Project is not loaded (' , nMissing printString
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5057
                            , ' unloaded classes)'.
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5058
        ] ifFalse:[
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5059
            msg := 'Project is not loaded completely - ' , nMissing printString
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5060
                            , ' of the projects ' , nTotal printString , ' classes are not loaded'.
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5061
        ].
1207
9a14f97ee279 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1206
diff changeset
  5062
"/        self notify:msg.
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5063
    ].
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5064
    modifiedChannel value:false.
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5065
!
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5066
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5067
updatePatchesListForProject:aProject
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5068
    |methodInfo l|
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5069
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5070
    methodInfo := aProject methodInfo copy asOrderedCollection.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5071
    methodInfo sort:[:a :b | a displayString < b displayString].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5072
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5073
    l := self patchesList.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5074
    l removeAll.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5075
    l addAll:methodInfo.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5076
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5077
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5078
! !
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5079
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5080
!ProjectBrowser methodsFor:'user actions - canvas'!
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5081
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5082
accept
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5083
    "save values from aspects into the project"
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5084
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5085
    self saveAspectsIntoProject.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5086
    modifiedChannel value:false.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5087
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5088
!
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5089
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5090
addClassToPrerequisites
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5091
    |sel cls|
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5092
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5093
    sel := self selectedClassInPrerequisites value.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5094
    self listOfRequiredClassesInPrerequisites value add:sel.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5095
    self listOfAllClassesInPrerequisites value remove:sel.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5096
    self selectedClassInPrerequisites value:nil.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5097
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5098
    "/ also add any autoloaded superclass(es)
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5099
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5100
    cls := Smalltalk at:sel asSymbol.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5101
    (cls notNil and:[cls isLoaded]) ifTrue:[
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5102
        cls allSuperclasses do:[:superClass |
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5103
            |sName|
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5104
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5105
            (superClass notNil 
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5106
            and:[superClass isLoaded
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5107
            and:[superClass wasAutoloaded]]) ifTrue:[
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5108
                |sName idx|
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5109
                sName := superClass name.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5110
                idx := self listOfAllClassesInPrerequisites value findFirst:[:s | s string = sName].
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5111
                idx ~~ 0 ifTrue:[
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5112
                    self listOfAllClassesInPrerequisites value removeIndex:idx.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5113
                    self listOfRequiredClassesInPrerequisites value add:sName asString allBold.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5114
                ].
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5115
            ]
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5116
        ]
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5117
    ].
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5118
    self listOfRequiredClassesInPrerequisites changed.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5119
    self listOfAllClassesInPrerequisites changed.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5120
    self accept
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5121
!
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5122
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5123
addProjectToPrerequisites
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5124
    |sel|
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5125
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5126
    sel := self selectedProjectInPrerequisites value.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5127
    self listOfRequiredProjectsInPrerequisites value add:sel.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5128
    self listOfAllProjectsInPrerequisites value remove:sel.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5129
    self selectedProjectInPrerequisites value:nil.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5130
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5131
    self listOfRequiredProjectsInPrerequisites changed.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5132
    self listOfAllProjectsInPrerequisites changed.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5133
    self accept
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5134
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5135
!
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5136
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5137
browseMethod
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5138
    "browse the selected method (from tree)"
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5139
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5140
    |patchWho mthdInfo cls mthd|
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5141
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5142
    mthdInfo := self selectedTreeNode value value.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5143
    cls := Smalltalk at: mthdInfo className asSymbol.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5144
    cls notNil ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5145
        mthd := cls compiledMethodAt:(mthdInfo methodName asSymbol).    
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5146
        mthd notNil ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5147
            SystemBrowser browseClass:cls selector:mthdInfo methodName.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5148
            ^ self
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5149
        ]
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5150
    ].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5151
    self information:'Method not (yet) loaded.'
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5152
!
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5153
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5154
browseMethodFromCanvas
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5155
    "browse the selected table-rows method (from patches canvas)"
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5156
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5157
    |patchWho patchIndex|
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5158
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5159
    patchIndex := self selectedPatchInRightCanvas value.
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5160
    patchWho := self patchesList at:patchIndex.
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5161
    SystemBrowser browseClass:patchWho methodClass selector:patchWho methodSelector.
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5162
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5163
!
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5164
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5165
browseMethodFull
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5166
    "browse the selected method (from tree)"
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
    |patchWho mthdInfo cls mthd|
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5169
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5170
    mthdInfo := self selectedTreeNode value value.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5171
    cls := Smalltalk at: mthdInfo className asSymbol.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5172
    cls notNil ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5173
        mthd := cls compiledMethodAt:(mthdInfo methodName asSymbol).    
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5174
        mthd notNil ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5175
            SystemBrowser openInClass:cls selector:mthdInfo methodName.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5176
            ^ self
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5177
        ]
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5178
    ].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5179
    self information:'Method not (yet) loaded.'
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5180
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5181
!
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
browseMethodFullFromCanvas
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5184
    "browse the selected table-rows method (from patches canvas)"
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5185
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5186
    |patchWho patchIndex|
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5187
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5188
    patchIndex := self selectedPatchInRightCanvas value.
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5189
    patchWho := self patchesList at:patchIndex.
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5190
    SystemBrowser openInClass:patchWho methodClass selector:patchWho methodSelector.
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5191
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5192
!
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5193
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5194
cancel
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5195
    "reload aspects from the project"
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5196
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5197
    self readAspectsFromProject
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5198
!
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5199
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5200
removeClassFromPrerequisites
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5201
    |sel cls myClasses|
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5202
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5203
    sel := self selectedRequiredClassInPrerequisites value.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5204
    cls := Smalltalk at:sel asSymbol.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5205
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5206
    "/ check if this affects my classes
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5207
    (cls notNil and:[cls isLoaded and:[cls wasAutoloaded]]) ifTrue:[
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5208
        myClasses := self currentProjectsClassNames.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5209
        cls allSubclassesDo:[:cls |
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5210
            (myClasses includes:cls name) ifTrue:[
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5211
                self valueOfInfoLabel value:'Attention - this class is required by ' , cls name.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5212
                (self confirm:'Attention - this class is required by ' , cls name asText allBold, '.\(The project could later fail to load correctly)\\Really remove ?' withCRs) ifFalse:[
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5213
                    ^ self
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5214
                ].
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5215
            ].
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5216
        ]
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
    self listOfAllClassesInPrerequisites value add:sel.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5220
    self listOfRequiredClassesInPrerequisites value remove:sel.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5221
    self selectedRequiredClassInPrerequisites value:nil.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5222
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5223
    "/ also remove any autoloaded subclass(es)
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5224
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5225
    (cls notNil and:[cls isLoaded and:[cls wasAutoloaded]]) ifTrue:[
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5226
        cls allSubclassesDo:[:cls |
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5227
            |entry|
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5228
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5229
            entry := self listOfRequiredClassesInPrerequisites value remove:cls name ifAbsent:nil.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5230
            entry notNil ifTrue:[
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5231
               self listOfAllClassesInPrerequisites value add:cls name.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5232
            ]
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
    ].
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5235
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5236
    self listOfRequiredClassesInPrerequisites changed.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5237
    self listOfAllClassesInPrerequisites changed.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5238
    self accept
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5239
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5240
!
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
removeProjectFromPrerequisites
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5243
    |sel|
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5244
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5245
    sel := self selectedRequiredProjectInPrerequisites value.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5246
    self listOfAllProjectsInPrerequisites value add:sel.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5247
    self listOfRequiredProjectsInPrerequisites value remove:sel.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5248
    self selectedRequiredProjectInPrerequisites value:nil.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5249
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5250
    self listOfRequiredProjectsInPrerequisites changed.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5251
    self listOfAllProjectsInPrerequisites changed.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5252
    self accept
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5253
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5254
!
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5255
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5256
showInfoForRequiredClass:entry
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5257
    "show why a class is required"
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5258
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5259
    |cls myClasses|
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5260
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5261
    entry notNil ifTrue:[
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5262
        myClasses := self currentProjectsClassNames asSet.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5263
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5264
        cls := Smalltalk at:entry string asSymbol.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5265
        cls allSubclasses do:[:subClass |
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5266
            (myClasses includes:subClass name) ifTrue:[
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5267
                self valueOfInfoLabel value:('Required by ' , subClass name).
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5268
                ^ self.
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
        ].
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5271
    ].
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5272
    self valueOfInfoLabel value:nil
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5273
! !
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5274
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5275
!ProjectBrowser::ProjectTreeItem methodsFor:'accessing'!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5276
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5277
action
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5278
    "return the value of the instance variable 'action' (automatically generated)"
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5279
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5280
    ^ action!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5281
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5282
action:something
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5283
    "set the value of the instance variable 'action' (automatically generated)"
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5284
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  5285
    action := something.!
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  5286
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5287
info
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5288
    "return the value of the instance variable 'info' (automatically generated)"
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5289
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5290
    ^ info!
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5291
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5292
info:something
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5293
    "set the value of the instance variable 'info' (automatically generated)"
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5294
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5295
    info := something.!
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5296
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  5297
spec
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  5298
    "return the value of the instance variable 'spec' (automatically generated)"
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  5299
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  5300
    ^ spec!
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  5301
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  5302
spec:something
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  5303
    "set the value of the instance variable 'spec' (automatically generated)"
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  5304
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  5305
    spec := something.! !
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5306
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  5307
!ProjectBrowser::ProjectTreeItem methodsFor:'queries'!
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  5308
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  5309
isProjectNode
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  5310
    ^ false
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  5311
! !
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  5312
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  5313
!ProjectBrowser::ProjectNode methodsFor:'queries'!
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  5314
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  5315
isProjectNode
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  5316
    ^ true
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  5317
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  5318
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  5319
! !
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  5320
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5321
!ProjectBrowser class methodsFor:'documentation'!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5322
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5323
version
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5324
    ^ '$Header$'
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5325
! !
1236
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
  5326
ProjectBrowser initialize!