ProjectBrowser.st
author Claus Gittinger <cg@exept.de>
Mon, 10 Jan 2000 17:03:20 +0100
changeset 1289 76e5acce57a6
parent 1287 b1dbcff964ea
child 1290 57d613905108
permissions -rw-r--r--
use new SCMUtilities class
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
1251
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
    17
	instanceVariableNames:'projectTree modifiedChannel selectedTreeNodeHolder
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
    18
		lastMoveToProject'
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
    19
	classVariableNames:'AlreadCheckedExistingModulesAndPackages'
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
	poolDictionaries:''
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
	category:'Interface-Smalltalk'
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    23
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
    24
TreeItemWithImage subclass:#ProjectTreeItem
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
    25
	instanceVariableNames:'action spec info'
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    26
	classVariableNames:''
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    27
	poolDictionaries:''
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
	privateIn:ProjectBrowser
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    30
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
    31
ProjectBrowser::ProjectTreeItem subclass:#ProjectNode
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
    32
	instanceVariableNames:''
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
    33
	classVariableNames:''
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
    34
	poolDictionaries:''
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
    35
	privateIn:ProjectBrowser
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
    36
!
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
    37
1227
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    38
!ProjectBrowser class methodsFor:'documentation'!
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    39
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    40
copyright
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    41
"
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    42
 COPYRIGHT (c) 1999 by eXept Software AG
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    43
              All Rights Reserved
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    44
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    45
 This software is furnished under a license and may be used
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    46
 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
    47
 inclusion of the above copyright notice. This software may not
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    48
 be provided or otherwise made available to, or used by, any
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    49
 other person. No title to or ownership of the software is
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    50
 hereby transferred.
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
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    57
documentation
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    58
"
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    59
    The new project browser & builder.
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    60
    This one will (eventually) make packaging of classLibraries and
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    61
    applications easier. 
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    62
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    63
    EXPERIMENTAL: not finished.
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    64
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    65
    [start with:]
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    66
        ProjectBrowser open
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    67
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    68
    [see also:]
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    69
        Project
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    70
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    71
    [author:]
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    72
        Claus Gittinger, eXept Software AG
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
4dcf819ffd59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1226
diff changeset
    76
! !
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    77
1236
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
    78
!ProjectBrowser class methodsFor:'class initialization'!
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
    79
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
    80
initialize
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
    81
    "add myself to the launchers tool menu"
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
    82
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
    83
    NewLauncher allInstancesDo:[:l |
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
    84
        l addUserTool:'Project Builder' 
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
    85
          action:[ProjectBrowser open] 
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
    86
          in:#menu 
1237
6d473fbfdf7d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1236
diff changeset
    87
          after:'Changes Browser' 
1236
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
    88
          icon:self projectBrowserIcon 
1237
6d473fbfdf7d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1236
diff changeset
    89
          space:false
1236
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
    "
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
    93
     self initialize
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
    94
    "
1237
6d473fbfdf7d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1236
diff changeset
    95
    "
6d473fbfdf7d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1236
diff changeset
    96
     NewLauncher allInstancesDo:[:l |
6d473fbfdf7d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1236
diff changeset
    97
        l removeUserTool:'Project Builder'
6d473fbfdf7d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1236
diff changeset
    98
     ]
6d473fbfdf7d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1236
diff changeset
    99
    "
1236
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
   100
! !
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
   101
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   102
!ProjectBrowser class methodsFor:'help specs'!
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   103
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   104
helpSpec
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   105
    "This resource specification was automatically generated
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   106
     by the UIHelpTool of ST/X."
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   107
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   108
    "Do not manually edit this!! If it is corrupted,
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   109
     the UIHelpTool may not be able to read the specification."
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
    "
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   112
     UIHelpTool openOnClass:ProjectBrowser    
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
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   115
    <resource: #help>
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   116
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   117
    ^super helpSpec addPairsFrom:#(
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   118
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   119
#accept
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   120
'Accept modifications made here.'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   121
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   122
#appType
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   123
'An application - ie an executable program (and support files if any).'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   124
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   125
#cancel
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   126
'Undo modifications made here.'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   127
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   128
#defaultNamespace
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   129
'Namespace for new classes when created in the Browser.'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   130
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   131
#deliverGZipArchive
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   132
'Package delivery into a gzip archive (for unix)'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   133
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   134
#deliverTarArchive
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   135
'Package delivery into a tar archive (for unix)'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   136
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   137
#deliverZipArchive
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   138
'Package delivery into a zip archive (for win32)'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   139
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   140
#deliverCompiledBinary
1229
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
   141
'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
   142
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
   143
#deliverByteCode
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
   144
'Create and deliver as bytecode - portable across architectures.'
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   145
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   146
#deliverLoadAll
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   147
'Deliver a loadAll script file, which files-In the other files.'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   148
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   149
#deliverSources
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   150
'Include smalltalk sourceCode in the delivery.'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   151
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   152
#deliverMakefiles
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   153
'Include makefiles in the delivery.'
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   154
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   155
#includeSource
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   156
'Include smalltalk sourceCode in the delivery.'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   157
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   158
#installDirMacOS
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   159
'The final install directory for MacOS deliveries.'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   160
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   161
#installDirUnix
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   162
'The final install directory for UNIX deliveries.'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   163
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   164
#installDirVMS
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   165
'The final install directory for VMS deliveries.'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   166
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   167
#installDirWin32
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   168
'The final install directory for Win32 deliveries.'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   169
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   170
#libType
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   171
'A classLibrary addOn (and support files if any)'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   172
1223
23a55549641a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1220
diff changeset
   173
#methodsFile
23a55549641a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1220
diff changeset
   174
'Patches & Extensions are stored in this file.'
23a55549641a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1220
diff changeset
   175
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   176
#packageID
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   177
'Package ID used to associate classes & methods to this project.'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   178
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   179
#projectDir
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   180
'The projects directory.'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   181
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   182
#repositoryDirectory
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   183
'The directory path below the module in the source-repository.'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   184
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   185
#repositoryModule
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   186
'The module (top directory) in the source-repository.'
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
! !
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
   190
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   191
!ProjectBrowser class methodsFor:'image specs'!
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   192
1239
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
   193
bigProjectBrowserIcon
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
   194
    "This resource specification was automatically generated
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
   195
     by the ImageEditor of ST/X."
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
   196
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
   197
    "Do not manually edit this!! If it is corrupted,
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
   198
     the ImageEditor may not be able to read the specification."
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
   199
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
   200
    "
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
   201
     self bigProjectBrowserIcon inspect
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
   202
     ImageEditor openOnClass:self andSelector:#bigProjectBrowserIcon
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
   203
    "
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
   204
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
   205
    <resource: #image>
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
   206
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
   207
    ^Icon
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
   208
        constantNamed:#'ProjectBrowser bigProjectBrowserIcon'
1287
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   209
        ifAbsentPut:[(Depth2Image new) width: 48; height: 48; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   210
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@U@@EUP@@@@@@@@@@U@@EUP@@@@@@@@@UUP
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   211
@UUU@@@@@@@@EUEPEP@U@@@@@@@@EUEPEP@U@@@@@@@@U@EPEP@U@@@@@@@@U@EPEP@U@@@@@@@@U@EPEP@U@@@@@@@@U@EPEPUU@@@@@@@@EU%Z%UU*(@@@
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   212
@@@@EU%Z%UU*"@@@@@@@EUUZUUZ*J@@@@@@@EUUUUUUU*@@@@@@@EUUUUUUU*@@@@@@@J**UU**E*@@@@@@@**%UZ*(%*@@@@@@B**%UZ*"%*@@@@@@@@@UU
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   213
@@J%*@@@@@@J**UZ**J%*@@@@@@J**UZ**J%*@@@@@@J**UZ**J%*@@@@@@J**UZ**J%*@@@@@@J**UZ**J%*@@@@@@J**UZ**J%*@@@@@@J**UZ**J%*@@@
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   214
@@@J**UZ**J%*@@@@@@J**UZ**J%*@@@@@@J**UZ**J%(@@@@@@J**UZ**J% @@@@@@J**UZ**J%@@@@@@@J**UZ**J%@@@@@@@J**UZ**J%@@@@@@@J**UZ
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   215
**J@@@@@@@@J**UZ**H@@@@@@@@J**UZ**@@@@@@@@@@@@UP@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   216
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[0 0 0 132 0 132 255 255 0]; mask:((Depth1Image new) width: 48; height: 48; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   217
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@8C<@@@@@8C<@@@@G<G?@@@@_\\G@@@@_\\G@@@@8\\G@@@@8\\G@@@@8\\G@@@@8???<@@@_???<@
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   218
@@_???<@@@_???<@@@_???<@@@_???<@@@????<@@A????<@@C????<@@G????<@@G????<@@G????<@@G????<@@G????<@@G????<@@G????<@@G????<@
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   219
@G????<@@G????<@@G????8@@G????0@@G???? @@G????@@@G????@@@G???<@@@G???8@@@G???0@@@G??? @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   220
@@@@@@@@@@@@@@@@@@@@@@@@') ; yourself); yourself]!
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   221
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   222
bigProjectBrowserIcon2
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   223
    "This resource specification was automatically generated
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   224
     by the ImageEditor of ST/X."
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   225
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   226
    "Do not manually edit this!! If it is corrupted,
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   227
     the ImageEditor may not be able to read the specification."
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   228
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   229
    "
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   230
     self bigProjectBrowserIcon2 inspect
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   231
     ImageEditor openOnClass:self andSelector:#bigProjectBrowserIcon2
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   232
    "
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   233
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   234
    <resource: #image>
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   235
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   236
    ^Icon
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   237
        constantNamed:#'ProjectBrowser bigProjectBrowserIcon2'
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   238
        ifAbsentPut:[(Depth2Image new) width: 48; height: 48; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   239
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@U@@EUP@@@@@@@@@@U@@EUP@@@@@@@@@UUP
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   240
@UUU@@@@@@@@EUEPEP@U@@@@@@@@EUEPEP@U@@@@@@@@U@EPEP@U@@@@@@@@U@EPEP@U@@@@@@@@U@EPEP@U@@@@@@@@U@EPEPUU@@@@@@@@EU%Z%UU*(@@@
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   241
@@@@EU%Z%UU*"@@@@@@@EUUZUUZ*J@@@@@@@EUUUUUUU*@@@@@@@EUUUUUUU*@@@@@@@J**UU**E*@@@@@@@**%UZ*(%*@@@@@@B**%UZ*"%*@@@@@@@@@UU
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   242
@@J%*@@@@@@J**UZ**J%*@@@@@@J**UZ**J%*@@@@@@J**UZ**J%*@@@@@@J**UZ**J%*@@@@@@J**UZ**J%*@@@@@@J**UZ**J%*@@@@@@J**UZ**J%*@@@
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   243
@@@J**UZ**J%*@@@@@@J**UZ**J%*@@@@@@J**UZ**J%(@@@@@@J**UZ**J% @@@@@@J**UZ**J%@@@@@@@J**UZ**J%@@@@@@@J**UZ**J%@@@@@@@J**UZ
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   244
**J@@@@@@@@J**UZ**H@@@@@@@@J**UZ**@@@@@@@@@@@@UP@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   245
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[0 0 0 132 0 132 255 255 0]; mask:((Depth1Image new) width: 48; height: 48; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   246
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@8C<@@@@@8C<@@@@G<G?@@@@_\\G@@@@_\\G@@@@8\\G@@@@8\\G@@@@8\\G@@@@8???<@@@_???<@
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   247
@@_???<@@@_???<@@@_???<@@@_???<@@@????<@@A????<@@C????<@@G????<@@G????<@@G????<@@G????<@@G????<@@G????<@@G????<@@G????<@
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   248
@G????<@@G????<@@G????8@@G????0@@G???? @@G????@@@G????@@@G???<@@@G???8@@@G???0@@@G??? @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   249
@@@@@@@@@@@@@@@@@@@@@@@@') ; yourself); yourself]!
1239
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
   250
1234
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   251
buildOptionsIcon
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   252
    "This resource specification was automatically generated
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   253
     by the ImageEditor of ST/X."
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   254
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   255
    "Do not manually edit this!! If it is corrupted,
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   256
     the ImageEditor may not be able to read the specification."
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   257
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   258
    "
1287
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   259
     self buildOptionsIcon inspect
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   260
     ImageEditor openOnClass:self andSelector:#buildOptionsIcon
1234
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   261
    "
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   262
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   263
    <resource: #image>
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   264
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   265
    ^Icon
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   266
        constantNamed:#'ProjectBrowser buildOptionsIcon'
1287
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   267
        ifAbsentPut:[(Depth2Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@ATET@AUEE@APQAP@TDQT@AY%Z@@UUUX@J%*F@@E@I B)Z"X@*V(&@J%*I B)Z"X@*V($@J%*I@B)Z @@@T@@@@a') ; colorMapFromArray:#[0 0 0 132 0 132 255 255 0]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'A30O[A%LF?<O?0??G?<??3??O?<??3??O?8??C?8O?@b') ; yourself); yourself]!
1234
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   268
1097
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
   269
classIcon
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
   270
    "This resource specification was automatically generated
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
   271
     by the ImageEditor of ST/X."
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
   272
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
   273
    "Do not manually edit this!! If it is corrupted,
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
   274
     the ImageEditor may not be able to read the specification."
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
   275
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
   276
    "
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
   277
     self classIcon inspect
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
   278
     ImageEditor openOnClass:self andSelector:#classIcon
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
   279
    "
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
   280
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
   281
    <resource: #image>
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
   282
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
   283
    ^Icon
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
   284
        constantNamed:#'ProjectBrowser classIcon'
1287
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   285
        ifAbsentPut:[(Depth2Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'UUUUUEUUUUQP@@@TTV*%EE@@@AQQUUTTTZ*)@@@@@@@AUUT@@Z*)@@EUUQQQ**$TTUUUEE@@@@AQUUUUTUUUUP@a') ; colorMapFromArray:#[0 0 0 255 255 255 132 130 132]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@C?8O? ?>C?8O? ?>C?8O? ?>C?8O? ?>@@@@@@b') ; yourself); yourself]!
1097
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
   286
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   287
classesIcon
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   288
    "This resource specification was automatically generated
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   289
     by the ImageEditor of ST/X."
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
    "Do not manually edit this!! If it is corrupted,
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   292
     the ImageEditor may not be able to read the specification."
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
     self classesIcon inspect
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   296
     ImageEditor openOnClass:self andSelector:#classesIcon
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   297
    "
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   298
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   299
    <resource: #image>
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   300
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   301
    ^Icon
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   302
        constantNamed:#'ProjectBrowser classesIcon'
1287
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   303
        ifAbsentPut:[(Depth2Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@B"B%U(( @@@@HJ**"BBUUX @***H @@@BHB**("@)UZH J**"HB**("@@@@H (***HJ@@@BB*J** * @@@@@a') ; colorMapFromArray:#[0 0 0 132 130 132 255 255 255]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'?>C?8O?8??#??/?>??;??/?>??;??/?>O?8?? ?>C?8b') ; yourself); yourself]!
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   304
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   305
commentIcon
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   306
    "This resource specification was automatically generated
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   307
     by the ImageEditor of ST/X."
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   308
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   309
    "Do not manually edit this!! If it is corrupted,
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   310
     the ImageEditor may not be able to read the specification."
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   311
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   312
    "
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   313
     self commentIcon inspect
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   314
     ImageEditor openOnClass:self andSelector:#commentIcon
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   315
    "
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   316
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   317
    <resource: #image>
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   318
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   319
    ^Icon
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   320
        constantNamed:#'ProjectBrowser commentIcon'
1287
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   321
        ifAbsentPut:[(Depth2Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'******************U****%Z***)V*********%Z***!!T***(UJ***ER***!!T***(UJ**(UT***(B****(** @a') ; colorMapFromArray:#[0 0 0 0 0 255 255 255 255]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   322
@@@@@@@@@8@C @N@@@@C @N@@8@C @N@@8@G0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   323
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   324
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; yourself); yourself]!
1079
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
deploymentIcon
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   327
    "This resource specification was automatically generated
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   328
     by the ImageEditor of ST/X."
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
    "Do not manually edit this!! If it is corrupted,
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   331
     the ImageEditor may not be able to read the specification."
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
    "
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   334
     self deploymentIcon inspect
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   335
     ImageEditor openOnClass:self andSelector:#deploymentIcon
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
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   338
    <resource: #image>
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   339
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   340
    ^Icon
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   341
        constantNamed:#'ProjectBrowser deploymentIcon'
1287
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   342
        ifAbsentPut:[(Depth2Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@ATET@AUEE@APQAP@TDQT@AY%Z@@UUUX@J%*F@@E@I B)Z"X@*V(&@J%*I B)Z"X@*V($@J%*I@B)Z @@@T@@@@a') ; colorMapFromArray:#[0 0 0 132 0 132 255 255 0]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'A30O[A%LF?<O?0??G?<??3??O?<??3??O?8??C?8O?@b') ; yourself); yourself]!
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   343
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   344
filesIcon
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   345
    "This resource specification was automatically generated
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   346
     by the ImageEditor of ST/X."
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   347
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   348
    "Do not manually edit this!! If it is corrupted,
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   349
     the ImageEditor may not be able to read the specification."
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   350
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   351
    "
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   352
     self filesIcon inspect
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   353
     ImageEditor openOnClass:self andSelector:#filesIcon
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   354
    "
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   355
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   356
    <resource: #image>
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   357
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   358
    ^Icon
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   359
        constantNamed:#'ProjectBrowser filesIcon'
1287
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   360
        ifAbsentPut:[(Depth1Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@G:@P@A_(E@@U>!!W;E_ U?9W?!!_>E?8G? _>@@@b') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@C? O?@?>C?<O?8??3??/??????????O?<??0??C?<b') ; yourself); yourself]!
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   361
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   362
methodIcon
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   363
    "This resource specification was automatically generated
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   364
     by the ImageEditor of ST/X."
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   365
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   366
    "Do not manually edit this!! If it is corrupted,
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   367
     the ImageEditor may not be able to read the specification."
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   368
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   369
    "
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   370
     self methodIcon inspect
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   371
     ImageEditor openOnClass:self andSelector:#methodIcon
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   372
    "
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   373
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   374
    <resource: #image>
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   375
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   376
    ^Icon
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   377
        constantNamed:#'ProjectBrowser methodIcon'
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   378
        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
   379
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   380
methodsIcon
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   381
    "This resource specification was automatically generated
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   382
     by the ImageEditor of ST/X."
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   383
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   384
    "Do not manually edit this!! If it is corrupted,
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   385
     the ImageEditor may not be able to read the specification."
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   386
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   387
    "
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   388
     self multipleUnlockedMagentaIcon inspect
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   389
     ImageEditor openOnClass:self andSelector:#multipleUnlockedMagentaIcon
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   390
    "
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   391
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   392
    <resource: #image>
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   393
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   394
    ^Icon
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   395
        constantNamed:#'ProjectBrowser methodsIcon'
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   396
        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
   397
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   398
1080
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
   399
!
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
   400
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   401
prerequisiteClassesIcon
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   402
    <resource: #programImage>
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   403
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   404
    ^ self classesIcon
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   405
!
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   406
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   407
prerequisiteProjectsIcon
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   408
    <resource: #programImage>
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   409
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   410
    ^ self projectsIcon
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   411
!
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   412
1080
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
   413
prerequisitesIcon
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
   414
    "This resource specification was automatically generated
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
   415
     by the ImageEditor of ST/X."
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
   416
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
   417
    "Do not manually edit this!! If it is corrupted,
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
   418
     the ImageEditor may not be able to read the specification."
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
   419
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
   420
    "
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
   421
     self prerequisitesIcon inspect
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
   422
     ImageEditor openOnClass:self andSelector:#prerequisitesIcon
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
   423
    "
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
   424
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
   425
    <resource: #image>
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
   426
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
   427
    ^Icon
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
   428
        constantNamed:#'ProjectBrowser prerequisitesIcon'
1287
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   429
        ifAbsentPut:[(Depth1Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@C@@L@@@@@@@@@@0A#@F@@X@@@@@L@@0@@@@@@@b') ; colorMapFromArray:#[0 0 0 127 127 127]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@A8@G(@^PA80@C@^@=8S7//^D<@C7#@^LA9@G(@@@@b') ; yourself); yourself]!
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   430
1236
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
   431
projectBrowserIcon
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
   432
    "This resource specification was automatically generated
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
   433
     by the ImageEditor of ST/X."
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
   434
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
   435
    "Do not manually edit this!! If it is corrupted,
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
   436
     the ImageEditor may not be able to read the specification."
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
   437
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
   438
    "
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
   439
     self projectBrowserIcon inspect
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
   440
     ImageEditor openOnClass:self andSelector:#projectBrowserIcon
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
   441
    "
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
   442
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
   443
    <resource: #image>
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
   444
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
   445
    ^Icon
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
   446
        constantNamed:#'ProjectBrowser projectBrowserIcon'
1287
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   447
        ifAbsentPut:[(Depth2Image new) width: 32; height: 32; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   448
@@@T@ET@@@@@@UTAUT@@@@@EQPTAP@@@@APEAPE@@@@@E@TE@T@@@@@TAPTUP@@@@@U%)UZ @@@@AUVUV( @@@@EUUUUZ@@@@@*)U*!!(@@@@B*UZ(& @@@@@
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   449
ET@JZ@@@@J*U*()(@@@@*)V*"& @@@B*%Z*JZ@@@@J*U*()(@@@@*)V*"& @@@B*%Z*JZ@@@@J*U*() @@@@*)V*"$@@@@B*%Z*JP@@@@J*U*( @@@@@*)V*
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   450
 @@@@@@@EP@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 132 0 132 255 255 0]; mask:((Depth1Image new) width: 32; height: 32; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   451
@FC0@@G1>@@C,1 @A#LX@@X3F@@F_?<@@???@@O??0@C??<@A???@@_??0@_??<@G???@A???0@_??<@G???@A???0@_??<@G??>@A???@@_?? @G??0@A??
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   452
8@@_?<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; yourself); yourself]!
1236
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
   453
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   454
projectsIcon
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   455
    "This resource specification was automatically generated
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   456
     by the ImageEditor of ST/X."
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   457
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   458
    "Do not manually edit this!! If it is corrupted,
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   459
     the ImageEditor may not be able to read the specification."
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   460
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   461
    "
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   462
     self projectsIcon inspect
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   463
     ImageEditor openOnClass:self andSelector:#projectsIcon
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   464
    "
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   465
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   466
    <resource: #image>
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   467
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   468
    ^Icon
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
   469
        constantNamed:#'ProjectBrowser projectsIcon'
1287
b1dbcff964ea checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1278
diff changeset
   470
        ifAbsentPut:[(Depth1Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@_8C?P_;@@\O=0?7C?\O=0?6C?PO<@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 128 128]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@G? ?>G?8??''?>_?9??''?>_?9??G?8_?A?8@@@@@@b') ; yourself); yourself]! !
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
   471
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   472
!ProjectBrowser class methodsFor:'interface specs'!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   473
1240
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   474
classValidationDialogSpec
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   475
    "This resource specification was automatically generated
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   476
     by the UIPainter of ST/X."
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   477
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   478
    "Do not manually edit this!! If it is corrupted,
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   479
     the UIPainter may not be able to read the specification."
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   480
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   481
    "
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   482
     UIPainter new openOnClass:ProjectBrowser andSelector:#classValidationDialogSpec
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   483
     ProjectBrowser new openInterface:#classValidationDialogSpec
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   484
    "
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   485
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   486
    <resource: #canvas>
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   487
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   488
    ^ 
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   489
     #(#FullSpec
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   490
        #name: #classValidationDialogSpec
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   491
        #window: 
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   492
       #(#WindowSpec
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   493
          #label: 'ProjectBrowser'
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   494
          #name: 'ProjectBrowser'
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   495
          #min: #(#Point 10 10)
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   496
          #max: #(#Point 1024 768)
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   497
          #bounds: #(#Rectangle 24 554 457 1003)
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   498
          #menu: #mainMenu
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   499
          #icon: #bigProjectBrowserIcon
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   500
        )
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   501
        #component: 
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   502
       #(#SpecCollection
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   503
          #collection: #(
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   504
           #(#VariableVerticalPanelSpec
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   505
              #name: 'VariableVerticalPanel1'
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   506
              #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 -30 1.0)
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   507
              #handles: 
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   508
             #(#OrderedCollection
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   509
                #Any 0.5
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   510
                1.0
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   511
              )
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   512
              #component: 
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   513
             #(#SpecCollection
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   514
                #collection: #(
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   515
                 #(#ViewSpec
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   516
                    #name: 'Box1'
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   517
                    #component: 
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   518
                   #(#SpecCollection
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   519
                      #collection: #(
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   520
                       #(#LabelSpec
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   521
                          #label: 'Classes only in Image'
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   522
                          #name: 'Label1'
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   523
                          #layout: #(#LayoutFrame 0 0 0 0 0 1 30 0)
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   524
                          #translateLabel: true
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   525
                          #adjust: #left
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   526
                        )
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   527
                       #(#SequenceViewSpec
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   528
                          #name: 'List2'
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   529
                          #layout: #(#LayoutFrame 0 0.0 30 0.0 0 1.0 0 1.0)
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   530
                          #hasHorizontalScrollBar: true
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   531
                          #hasVerticalScrollBar: true
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   532
                          #useIndex: false
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   533
                          #sequenceList: #classesInImageOnly
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   534
                        )
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   535
                       )
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   536
                     
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   537
                    )
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   538
                  )
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   539
                 #(#ViewSpec
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   540
                    #name: 'Box2'
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   541
                    #component: 
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   542
                   #(#SpecCollection
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   543
                      #collection: #(
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   544
                       #(#LabelSpec
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   545
                          #label: 'Classes only in Project'
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   546
                          #name: 'Label2'
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   547
                          #layout: #(#LayoutFrame 0 0 0 0 0 1 30 0)
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   548
                          #translateLabel: true
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   549
                          #adjust: #left
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   550
                        )
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   551
                       #(#SequenceViewSpec
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   552
                          #name: 'List1'
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   553
                          #layout: #(#LayoutFrame 0 0.0 30 0.0 0 1.0 0 1.0)
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   554
                          #hasHorizontalScrollBar: true
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   555
                          #hasVerticalScrollBar: true
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   556
                          #useIndex: false
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   557
                          #sequenceList: #classesInProjectOnly
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   558
                        )
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   559
                       )
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   560
                     
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   561
                    )
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   562
                  )
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   563
                 )
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   564
               
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   565
              )
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   566
            )
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   567
           #(#HorizontalPanelViewSpec
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   568
              #name: 'HorizontalPanel1'
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   569
              #layout: #(#LayoutFrame 0 0 -30 1 0 1 0 1)
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   570
              #horizontalLayout: #center
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   571
              #verticalLayout: #center
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   572
              #horizontalSpace: 3
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   573
              #verticalSpace: 3
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   574
              #component: 
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   575
             #(#SpecCollection
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   576
                #collection: #(
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   577
                 #(#ActionButtonSpec
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   578
                    #label: 'OK'
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   579
                    #name: 'Button1'
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   580
                    #translateLabel: true
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   581
                    #model: #closeRequest
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   582
                    #extent: #(#Point 125 22)
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   583
                  )
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   584
                 )
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   585
               
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   586
              )
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   587
            )
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   588
           )
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   589
         
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   590
        )
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   591
      )
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   592
!
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
   593
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   594
emptyRightCanvasSpec
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   595
    "This resource specification was automatically generated
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   596
     by the UIPainter of ST/X."
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   597
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   598
    "Do not manually edit this!! If it is corrupted,
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   599
     the UIPainter may not be able to read the specification."
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   600
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   601
    "
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   602
     UIPainter new openOnClass:ProjectBrowser andSelector:#emptyRightCanvasSpec
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   603
     ProjectBrowser new openInterface:#emptyRightCanvasSpec
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   604
    "
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   605
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   606
    <resource: #canvas>
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   607
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   608
    ^ 
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   609
     #(#FullSpec
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   610
        #name: #emptyRightCanvasSpec
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   611
        #window: 
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   612
       #(#WindowSpec
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   613
          #label: 'NewApplication'
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   614
          #name: 'NewApplication'
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   615
          #min: #(#Point 10 10)
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   616
          #max: #(#Point 1280 1024)
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   617
          #bounds: #(#Rectangle 10 20 310 320)
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   618
        )
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   619
        #component: 
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   620
       #(#SpecCollection
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   621
          #collection: #(
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   622
           #(#TextEditorSpec
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   623
              #name: 'TextEditor1'
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   624
              #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
   625
              #initiallyInvisible: true
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   626
              #model: #rightCanvasTextHolder
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   627
              #hasHorizontalScrollBar: true
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   628
              #hasVerticalScrollBar: true
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   629
              #miniScrollerHorizontal: true
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   630
              #isReadOnly: true
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   631
            )
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   632
           )
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   633
         
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
   634
        )
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   635
      )
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   636
!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   637
1255
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   638
methodValidationDialogSpec
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   639
    "This resource specification was automatically generated
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   640
     by the UIPainter of ST/X."
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   641
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   642
    "Do not manually edit this!! If it is corrupted,
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   643
     the UIPainter may not be able to read the specification."
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   644
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   645
    "
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   646
     UIPainter new openOnClass:ProjectBrowser andSelector:#classValidationDialogSpec
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   647
     ProjectBrowser new openInterface:#classValidationDialogSpec
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   648
    "
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   649
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   650
    <resource: #canvas>
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   651
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   652
    ^ 
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   653
     #(#FullSpec
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   654
        #name: #classValidationDialogSpec
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   655
        #window: 
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   656
       #(#WindowSpec
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   657
          #label: 'ProjectBrowser'
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   658
          #name: 'ProjectBrowser'
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   659
          #min: #(#Point 10 10)
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   660
          #max: #(#Point 1024 768)
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   661
          #bounds: #(#Rectangle 24 554 457 1003)
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   662
          #menu: #mainMenu
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   663
          #icon: #bigProjectBrowserIcon
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   664
        )
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   665
        #component: 
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   666
       #(#SpecCollection
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   667
          #collection: #(
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   668
           #(#VariableVerticalPanelSpec
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   669
              #name: 'VariableVerticalPanel1'
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   670
              #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 -30 1.0)
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   671
              #handles: 
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   672
             #(#OrderedCollection
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   673
                #Any 0.5
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   674
                1.0
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   675
              )
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   676
              #component: 
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   677
             #(#SpecCollection
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   678
                #collection: #(
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   679
                 #(#ViewSpec
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   680
                    #name: 'Box1'
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   681
                    #component: 
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   682
                   #(#SpecCollection
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   683
                      #collection: #(
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   684
                       #(#LabelSpec
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   685
                          #label: 'Methods only in Image'
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   686
                          #name: 'Label1'
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   687
                          #layout: #(#LayoutFrame 0 0 0 0 0 1 30 0)
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   688
                          #translateLabel: true
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   689
                          #adjust: #left
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   690
                        )
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   691
                       #(#SequenceViewSpec
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   692
                          #name: 'List2'
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   693
                          #layout: #(#LayoutFrame 0 0.0 30 0.0 0 1.0 0 1.0)
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   694
                          #hasHorizontalScrollBar: true
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   695
                          #hasVerticalScrollBar: true
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   696
                          #useIndex: false
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   697
                          #sequenceList: #methodsInImageOnly
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   698
                        )
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   699
                       )
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   700
                     
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   701
                    )
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   702
                  )
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   703
                 #(#ViewSpec
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   704
                    #name: 'Box2'
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   705
                    #component: 
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   706
                   #(#SpecCollection
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   707
                      #collection: #(
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   708
                       #(#LabelSpec
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   709
                          #label: 'Methods only in Project'
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   710
                          #name: 'Label2'
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   711
                          #layout: #(#LayoutFrame 0 0 0 0 0 1 30 0)
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   712
                          #translateLabel: true
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   713
                          #adjust: #left
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   714
                        )
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   715
                       #(#SequenceViewSpec
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   716
                          #name: 'List1'
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   717
                          #layout: #(#LayoutFrame 0 0.0 30 0.0 0 1.0 0 1.0)
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   718
                          #hasHorizontalScrollBar: true
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   719
                          #hasVerticalScrollBar: true
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   720
                          #useIndex: false
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   721
                          #sequenceList: #methodsInProjectOnly
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   722
                        )
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   723
                       )
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   724
                     
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   725
                    )
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   726
                  )
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   727
                 )
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   728
               
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   729
              )
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   730
            )
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   731
           #(#HorizontalPanelViewSpec
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   732
              #name: 'HorizontalPanel1'
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   733
              #layout: #(#LayoutFrame 0 0 -30 1 0 1 0 1)
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   734
              #horizontalLayout: #center
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   735
              #verticalLayout: #center
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   736
              #horizontalSpace: 3
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   737
              #verticalSpace: 3
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   738
              #component: 
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   739
             #(#SpecCollection
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   740
                #collection: #(
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   741
                 #(#ActionButtonSpec
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   742
                    #label: 'OK'
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   743
                    #name: 'Button1'
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   744
                    #translateLabel: true
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   745
                    #model: #closeRequest
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   746
                    #extent: #(#Point 125 22)
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   747
                  )
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   748
                 )
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   749
               
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   750
              )
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   751
            )
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   752
           )
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   753
         
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   754
        )
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   755
      )
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   756
!
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
   757
1234
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   758
rightCanvasSpecForBuildOptions
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   759
    "This resource specification was automatically generated
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   760
     by the UIPainter of ST/X."
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   761
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   762
    "Do not manually edit this!! If it is corrupted,
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   763
     the UIPainter may not be able to read the specification."
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   764
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   765
    "
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   766
     UIPainter new openOnClass:ProjectBrowser andSelector:#rightCanvasSpecForBuildOptions
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   767
     ProjectBrowser new openInterface:#rightCanvasSpecForBuildOptions
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   768
    "
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   769
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   770
    <resource: #canvas>
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   771
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   772
    ^ 
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   773
     #(#FullSpec
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   774
        #name: #rightCanvasSpecForBuildOptions
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   775
        #window: 
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   776
       #(#WindowSpec
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   777
          #label: 'NewApplication'
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   778
          #name: 'NewApplication'
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   779
          #min: #(#Point 10 10)
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   780
          #max: #(#Point 1280 1024)
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   781
          #bounds: #(#Rectangle 216 173 577 536)
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   782
        )
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   783
        #component: 
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   784
       #(#SpecCollection
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   785
          #collection: #(
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   786
           #(#FramedBoxSpec
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   787
              #label: 'STC Compiler Warnings'
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   788
              #name: 'FramedBox2'
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   789
              #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
   790
              #labelPosition: #topLeft
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   791
              #translateLabel: true
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   792
              #component: 
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   793
             #(#SpecCollection
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   794
                #collection: #(
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   795
                 #(#CheckBoxSpec
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   796
                    #label: 'Non Standard Language Features'
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   797
                    #name: 'CheckBox1'
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   798
                    #layout: #(#LayoutFrame 0 0.0 9 0 0 1.0 31 0)
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   799
                    #tabable: true
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   800
                    #model: #makeWarnNonStandard
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   801
                    #translateLabel: true
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   802
                  )
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   803
                 #(#CheckBoxSpec
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   804
                    #label: 'End-of-line Comments'
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   805
                    #name: 'CheckBox2'
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   806
                    #layout: #(#LayoutFrame 0 0.0 36 0 0 1.0 58 0)
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   807
                    #tabable: true
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   808
                    #model: #makeWarnEOLComments
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   809
                    #translateLabel: true
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   810
                  )
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   811
                 #(#LabelSpec
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   812
                    #label: 'other warning options:'
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   813
                    #name: 'Label3'
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   814
                    #layout: #(#LayoutFrame 0 0.0 69 0 0 1.0 91 0)
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   815
                    #translateLabel: true
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   816
                    #adjust: #left
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   817
                  )
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   818
                 #(#InputFieldSpec
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   819
                    #name: 'EntryField1'
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   820
                    #layout: #(#LayoutFrame 0 0.0 93 0 0 1.0 115 0)
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   821
                    #activeHelpKey: #projectDir
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   822
                    #tabable: true
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   823
                    #model: #makeOtherWarningOptions
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   824
                    #acceptChannel: #acceptChannel
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   825
                    #modifiedChannel: #modifiedChannel
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   826
                    #acceptOnPointerLeave: false
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   827
                  )
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   828
                 )
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   829
               
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   830
              )
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   831
            )
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   832
           #(#FramedBoxSpec
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   833
              #label: 'STC Compiler Includes'
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   834
              #name: 'FramedBox3'
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   835
              #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
   836
              #labelPosition: #topLeft
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   837
              #translateLabel: true
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   838
              #component: 
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   839
             #(#SpecCollection
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   840
                #collection: #(
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   841
                 #(#InputFieldSpec
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   842
                    #name: 'EntryField2'
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   843
                    #layout: #(#LayoutFrame 0 0.0 4 0 0 1.0 26 0)
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   844
                    #activeHelpKey: #repositoryModule
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   845
                    #tabable: true
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   846
                    #model: #makeIncludes
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   847
                    #acceptChannel: #acceptChannel
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   848
                    #modifiedChannel: #modifiedChannel
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   849
                    #acceptOnPointerLeave: false
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   850
                  )
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   851
                 )
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   852
               
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   853
              )
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   854
            )
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   855
           #(#FramedBoxSpec
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   856
              #label: 'STC Compiler Defines'
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   857
              #name: 'FramedBox5'
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   858
              #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
   859
              #labelPosition: #topLeft
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   860
              #translateLabel: true
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   861
              #component: 
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   862
             #(#SpecCollection
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   863
                #collection: #(
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   864
                 #(#InputFieldSpec
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   865
                    #name: 'EntryField5'
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   866
                    #layout: #(#LayoutFrame 0 0.0 4 0 0 1.0 26 0)
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   867
                    #activeHelpKey: #repositoryModule
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   868
                    #tabable: true
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   869
                    #model: #makeDefines
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   870
                    #acceptChannel: #acceptChannel
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   871
                    #modifiedChannel: #modifiedChannel
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   872
                    #acceptOnPointerLeave: false
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   873
                  )
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   874
                 )
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   875
               
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   876
              )
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   877
            )
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   878
           #(#HorizontalPanelViewSpec
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   879
              #name: 'HorizontalPanel1'
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   880
              #layout: #(#LayoutFrame 0 0 -30 1 0 1 0 1)
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   881
              #horizontalLayout: #fitSpace
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   882
              #verticalLayout: #center
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   883
              #horizontalSpace: 3
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   884
              #verticalSpace: 3
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   885
              #component: 
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   886
             #(#SpecCollection
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   887
                #collection: #(
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   888
                 #(#ActionButtonSpec
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   889
                    #label: 'Cancel'
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   890
                    #name: 'Button1'
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   891
                    #activeHelpKey: #cancel
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   892
                    #translateLabel: true
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   893
                    #model: #cancel
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   894
                    #enableChannel: #modifiedChannel
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   895
                    #actionValue: ''
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   896
                    #useDefaultExtent: true
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   897
                  )
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   898
                 #(#ActionButtonSpec
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   899
                    #label: 'OK'
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   900
                    #name: 'Button2'
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   901
                    #activeHelpKey: #accept
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   902
                    #translateLabel: true
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   903
                    #model: #accept
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   904
                    #enableChannel: #modifiedChannel
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   905
                    #useDefaultExtent: true
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   906
                  )
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   907
                 )
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   908
               
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   909
              )
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   910
            )
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   911
           )
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   912
         
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   913
        )
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   914
      )
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   915
!
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
   916
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   917
rightCanvasSpecForClassList
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   918
    "This resource specification was automatically generated
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   919
     by the UIPainter of ST/X."
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   920
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   921
    "Do not manually edit this!! If it is corrupted,
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   922
     the UIPainter may not be able to read the specification."
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   923
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   924
    "
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   925
     UIPainter new openOnClass:ProjectBrowser andSelector:#rightCanvasSpecForClassList
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   926
     ProjectBrowser new openInterface:#rightCanvasSpecForClassList
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   927
    "
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   928
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   929
    <resource: #canvas>
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   930
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   931
    ^ 
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   932
     #(#FullSpec
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   933
        #name: #rightCanvasSpecForClassList
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   934
        #window: 
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   935
       #(#WindowSpec
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   936
          #label: 'NewApplication'
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   937
          #name: 'NewApplication'
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   938
          #min: #(#Point 10 10)
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   939
          #max: #(#Point 1280 1024)
1238
af3b724392f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1237
diff changeset
   940
          #bounds: #(#Rectangle 10 20 310 320)
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   941
        )
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   942
        #component: 
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   943
       #(#SpecCollection
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   944
          #collection: #(
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   945
           #(#DataSetSpec
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   946
              #name: 'classTable'
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   947
              #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
   948
              #hasHorizontalScrollBar: true
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   949
              #hasVerticalScrollBar: true
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   950
              #miniScrollerHorizontal: true
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   951
              #dataList: #classList
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   952
              #has3Dsepartors: false
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   953
              #columnHolder: #classTableColumns
1238
af3b724392f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1237
diff changeset
   954
              #verticalSpacing: 0
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   955
              #columnAdaptor: #classTableAdaptor
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   956
            )
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   957
           )
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   958
         
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
   959
        )
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   960
      )
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   961
!
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   962
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
   963
rightCanvasSpecForDeployment
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
   964
    "This resource specification was automatically generated
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
   965
     by the UIPainter of ST/X."
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
   966
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
   967
    "Do not manually edit this!! If it is corrupted,
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
   968
     the UIPainter may not be able to read the specification."
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
   969
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
   970
    "
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
   971
     UIPainter new openOnClass:ProjectBrowser andSelector:#rightCanvasSpecForDeployment
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
   972
     ProjectBrowser new openInterface:#rightCanvasSpecForDeployment
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
   973
    "
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
   974
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
   975
    <resource: #canvas>
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
   976
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
   977
    ^ 
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
   978
     #(#FullSpec
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
   979
        #name: #rightCanvasSpecForDeployment
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
   980
        #window: 
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
   981
       #(#WindowSpec
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
   982
          #label: 'NewApplication'
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
   983
          #name: 'NewApplication'
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
   984
          #min: #(#Point 10 10)
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
   985
          #max: #(#Point 1280 1024)
1289
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
   986
          #bounds: #(#Rectangle 12 22 365 521)
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
   987
        )
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
   988
        #component: 
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
   989
       #(#SpecCollection
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
   990
          #collection: #(
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
   991
           #(#FramedBoxSpec
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   992
              #label: 'Deliver'
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   993
              #name: 'DeliverBox'
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
   994
              #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
   995
              #labelPosition: #topLeft
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
   996
              #translateLabel: true
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
   997
              #component: 
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
   998
             #(#SpecCollection
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
   999
                #collection: #(
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  1000
                 #(#CheckBoxSpec
1223
23a55549641a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1220
diff changeset
  1001
                    #label: '''loadAll''-File'
23a55549641a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1220
diff changeset
  1002
                    #name: 'CheckBox5'
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1003
                    #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
  1004
                    #activeHelpKey: #deliverLoadAll
23a55549641a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1220
diff changeset
  1005
                    #tabable: true
23a55549641a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1220
diff changeset
  1006
                    #model: #deliverLoadAllFile
23a55549641a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1220
diff changeset
  1007
                    #translateLabel: true
23a55549641a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1220
diff changeset
  1008
                  )
23a55549641a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1220
diff changeset
  1009
                 #(#CheckBoxSpec
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1010
                    #label: 'Compiled Binary (non-portable .dll / .so)'
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1011
                    #name: 'CheckBox6'
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1012
                    #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
  1013
                    #activeHelpKey: #deliverCompiledBinary
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1014
                    #tabable: true
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1015
                    #model: #deliverCompiledBinary
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1016
                    #translateLabel: true
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1017
                  )
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1018
                 #(#CheckBoxSpec
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1019
                    #label: 'Bytecode Binary (portable)'
1229
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  1020
                    #name: 'CheckBox1'
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1021
                    #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
  1022
                    #activeHelpKey: #deliverByteCode
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  1023
                    #tabable: true
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  1024
                    #model: #deliverByteCode
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  1025
                    #translateLabel: true
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  1026
                  )
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  1027
                 #(#CheckBoxSpec
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1028
                    #label: 'Sources'
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1029
                    #name: 'CheckBox4'
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1030
                    #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
  1031
                    #activeHelpKey: #deliverSources
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  1032
                    #tabable: true
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1033
                    #model: #deliverSources
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  1034
                    #translateLabel: true
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  1035
                  )
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  1036
                 #(#CheckBoxSpec
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1037
                    #label: 'Makefiles'
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1038
                    #name: 'CheckBox8'
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1039
                    #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
  1040
                    #activeHelpKey: #deliverMakefiles
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  1041
                    #tabable: true
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1042
                    #model: #deliverMakefiles
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  1043
                    #translateLabel: true
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  1044
                  )
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  1045
                 )
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  1046
               
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  1047
              )
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  1048
            )
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  1049
           #(#FramedBoxSpec
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1050
              #label: 'Format'
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1051
              #name: 'DeliverAsBox'
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1052
              #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
  1053
              #labelPosition: #topLeft
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1054
              #translateLabel: true
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1055
              #component: 
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1056
             #(#SpecCollection
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1057
                #collection: #(
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1058
                 #(#CheckBoxSpec
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1059
                    #label: 'Tar Archive (.tar - for unix)'
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1060
                    #name: 'CheckBox7'
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1061
                    #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
  1062
                    #activeHelpKey: #deliverTarArchive
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1063
                    #tabable: true
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1064
                    #model: #deliverTarArchive
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1065
                    #translateLabel: true
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1066
                  )
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1067
                 #(#CheckBoxSpec
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1068
                    #label: 'Zip Archive (.zip - for windows)'
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1069
                    #name: 'CheckBox2'
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1070
                    #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
  1071
                    #activeHelpKey: #deliverZipArchive
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1072
                    #tabable: true
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1073
                    #model: #deliverZipArchive
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1074
                    #translateLabel: true
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1075
                  )
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1076
                 #(#CheckBoxSpec
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1077
                    #label: 'GZip Archive (self extracting for unix)'
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1078
                    #name: 'CheckBox3'
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1079
                    #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
  1080
                    #activeHelpKey: #deliverGZipArchive
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1081
                    #tabable: true
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1082
                    #model: #deliverGZipArchive
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1083
                    #translateLabel: true
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1084
                  )
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1085
                 )
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1086
               
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1087
              )
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1088
            )
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1089
           #(#FramedBoxSpec
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1090
              #label: 'Target Install Directory'
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1091
              #name: 'DestinationBox'
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1092
              #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
  1093
              #labelPosition: #topLeft
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  1094
              #translateLabel: true
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  1095
              #component: 
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  1096
             #(#SpecCollection
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  1097
                #collection: #(
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1098
                 #(#LabelSpec
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1099
                    #label: 'Unix:'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1100
                    #name: 'Label1'
1289
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  1101
                    #layout: #(#AlignmentOrigin 76 0.0 16 0 1 0.5)
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1102
                    #translateLabel: true
1289
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  1103
                    #resizeForLabel: true
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1104
                    #adjust: #right
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1105
                  )
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  1106
                 #(#InputFieldSpec
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  1107
                    #name: 'EntryField1'
1289
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  1108
                    #layout: #(#LayoutFrame 80 0.0 4 0 0 1.0 26 0)
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1109
                    #activeHelpKey: #installDirUnix
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1110
                    #enableChannel: #canDeliverForUnix
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1111
                    #tabable: true
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1112
                    #model: #installDirectoryUnix
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1113
                    #acceptChannel: #acceptChannel
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1114
                    #modifiedChannel: #modifiedChannel
1223
23a55549641a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1220
diff changeset
  1115
                    #acceptOnPointerLeave: false
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1116
                  )
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1117
                 #(#LabelSpec
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1118
                    #label: 'Win32:'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1119
                    #name: 'Label2'
1289
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  1120
                    #layout: #(#AlignmentOrigin 76 0.0 47 0 1 0.5)
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1121
                    #translateLabel: true
1289
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  1122
                    #resizeForLabel: true
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1123
                    #adjust: #right
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1124
                  )
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1125
                 #(#InputFieldSpec
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1126
                    #name: 'EntryField2'
1289
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  1127
                    #layout: #(#LayoutFrame 80 0.0 34 0 0 1.0 56 0)
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1128
                    #activeHelpKey: #installDirWin32
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1129
                    #enableChannel: #canDeliverForWin32
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  1130
                    #tabable: true
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1131
                    #model: #installDirectoryWin32
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1132
                    #acceptChannel: #acceptChannel
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  1133
                    #modifiedChannel: #modifiedChannel
1223
23a55549641a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1220
diff changeset
  1134
                    #acceptOnPointerLeave: false
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1135
                  )
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1136
                 #(#LabelSpec
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1137
                    #label: 'VMS:'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1138
                    #name: 'Label3'
1289
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  1139
                    #layout: #(#AlignmentOrigin 76 0.0 76 0 1 0.5)
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1140
                    #translateLabel: true
1289
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  1141
                    #resizeForLabel: true
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1142
                    #adjust: #right
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1143
                  )
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1144
                 #(#InputFieldSpec
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1145
                    #name: 'EntryField3'
1289
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  1146
                    #layout: #(#LayoutFrame 80 0.0 63 0 0 1.0 85 0)
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1147
                    #activeHelpKey: #installDirVMS
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1148
                    #initiallyDisabled: true
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1149
                    #enableChannel: #canDeliverForVMS
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1150
                    #tabable: true
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1151
                    #model: #installDirectoryVMS
1108
e88edf4a8cbe editFields - accept
Claus Gittinger <cg@exept.de>
parents: 1107
diff changeset
  1152
                    #acceptChannel: #acceptChannel
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1153
                    #modifiedChannel: #modifiedChannel
1223
23a55549641a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1220
diff changeset
  1154
                    #acceptOnPointerLeave: false
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1155
                  )
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1156
                 #(#LabelSpec
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1157
                    #label: 'MacOS:'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1158
                    #name: 'Label4'
1289
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  1159
                    #layout: #(#AlignmentOrigin 76 0.0 106 0 1 0.5)
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1160
                    #translateLabel: true
1289
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  1161
                    #resizeForLabel: true
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1162
                    #adjust: #right
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1163
                  )
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1164
                 #(#InputFieldSpec
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1165
                    #name: 'EntryField4'
1289
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  1166
                    #layout: #(#LayoutFrame 80 0.0 93 0 0 1.0 115 0)
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1167
                    #activeHelpKey: #installDirMacOS
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1168
                    #initiallyDisabled: true
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1169
                    #enableChannel: #canDeliverForMacOS
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1170
                    #tabable: true
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1171
                    #model: #installDirectoryMac
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1172
                    #acceptChannel: #acceptChannel
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1173
                    #modifiedChannel: #modifiedChannel
1223
23a55549641a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1220
diff changeset
  1174
                    #acceptOnPointerLeave: false
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  1175
                  )
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  1176
                 )
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  1177
               
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  1178
              )
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  1179
            )
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1180
           #(#HorizontalPanelViewSpec
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1181
              #name: 'HorizontalPanel1'
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1182
              #layout: #(#LayoutFrame 0 0 -30 1 0 1 0 1)
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1183
              #horizontalLayout: #fitSpace
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1184
              #verticalLayout: #center
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1185
              #horizontalSpace: 3
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1186
              #verticalSpace: 3
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1187
              #component: 
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1188
             #(#SpecCollection
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1189
                #collection: #(
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1190
                 #(#ActionButtonSpec
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1191
                    #label: 'Cancel'
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1192
                    #name: 'Button1'
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1193
                    #translateLabel: true
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  1194
                    #tabable: true
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1195
                    #model: #cancel
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1196
                    #enableChannel: #modifiedChannel
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  1197
                    #actionValue: ''
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  1198
                    #useDefaultExtent: true
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1199
                  )
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1200
                 #(#ActionButtonSpec
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1201
                    #label: 'OK'
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1202
                    #name: 'Button2'
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1203
                    #translateLabel: true
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  1204
                    #tabable: true
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1205
                    #model: #accept
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1206
                    #enableChannel: #modifiedChannel
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  1207
                    #actionValue: ''
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  1208
                    #useDefaultExtent: true
1085
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  1209
                  )
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1210
                 )
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1211
               
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1212
              )
1085
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  1213
            )
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1214
           )
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1215
         
1085
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  1216
        )
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1217
      )
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  1218
!
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  1219
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1220
rightCanvasSpecForEditableText
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1221
    "This resource specification was automatically generated
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1222
     by the UIPainter of ST/X."
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1223
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1224
    "Do not manually edit this!! If it is corrupted,
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1225
     the UIPainter may not be able to read the specification."
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1226
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1227
    "
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1228
     UIPainter new openOnClass:ProjectBrowser andSelector:#rightCanvasSpecForEditableText
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1229
     ProjectBrowser new openInterface:#rightCanvasSpecForEditableText
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1230
    "
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1231
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1232
    <resource: #canvas>
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1233
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1234
    ^ 
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1235
     #(#FullSpec
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1236
        #name: #rightCanvasSpecForEditableText
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1237
        #window: 
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1238
       #(#WindowSpec
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1239
          #label: 'NewApplication'
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1240
          #name: 'NewApplication'
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1241
          #min: #(#Point 10 10)
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1242
          #max: #(#Point 1280 1024)
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1243
          #bounds: #(#Rectangle 216 173 516 473)
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1244
        )
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1245
        #component: 
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1246
       #(#SpecCollection
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1247
          #collection: #(
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1248
           #(#TextEditorSpec
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1249
              #name: 'TextEditor1'
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1250
              #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
  1251
              #model: #rightCanvasTextHolder
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1252
              #hasHorizontalScrollBar: true
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1253
              #hasVerticalScrollBar: true
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1254
              #miniScrollerHorizontal: true
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1255
            )
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1256
           #(#LabelSpec
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1257
              #label: 'Label'
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1258
              #name: 'Label1'
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1259
              #layout: #(#LayoutFrame 0 0 0 0 0 1 30 0)
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1260
              #translateLabel: true
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1261
              #labelChannel: #textCanvasLabelHolder
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1262
              #adjust: #left
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1263
            )
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1264
           )
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1265
         
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1266
        )
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1267
      )
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1268
!
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1269
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1270
rightCanvasSpecForFiles
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1271
    "This resource specification was automatically generated
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1272
     by the UIPainter of ST/X."
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1273
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1274
    "Do not manually edit this!! If it is corrupted,
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1275
     the UIPainter may not be able to read the specification."
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1276
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1277
    "
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1278
     UIPainter new openOnClass:ProjectBrowser andSelector:#rightCanvasSpecForFiles
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1279
     ProjectBrowser new openInterface:#rightCanvasSpecForFiles
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1280
    "
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1281
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1282
    <resource: #canvas>
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1283
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1284
    ^ 
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1285
     #(#FullSpec
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1286
        #name: #rightCanvasSpecForFiles
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1287
        #window: 
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1288
       #(#WindowSpec
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1289
          #label: 'NewApplication'
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1290
          #name: 'NewApplication'
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1291
          #min: #(#Point 10 10)
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1292
          #max: #(#Point 1280 1024)
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1293
          #bounds: #(#Rectangle 216 173 577 536)
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1294
        )
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1295
        #component: 
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1296
       #(#SpecCollection
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1297
          #collection: #(
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1298
           #(#FramedBoxSpec
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1299
              #label: 'File for extensions & patches'
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1300
              #name: 'FramedBox2'
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1301
              #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
  1302
              #labelPosition: #topLeft
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1303
              #translateLabel: true
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1304
              #component: 
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1305
             #(#SpecCollection
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1306
                #collection: #(
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1307
                 #(#InputFieldSpec
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1308
                    #name: 'methodsFileEntryField'
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1309
                    #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
  1310
                    #activeHelpKey: #methodsFile
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1311
                    #model: #methodsFile
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1312
                    #acceptChannel: #acceptChannel
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1313
                    #modifiedChannel: #modifiedChannel
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1314
                    #acceptOnPointerLeave: false
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1315
                  )
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1316
                 )
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1317
               
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1318
              )
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1319
            )
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1320
           #(#HorizontalPanelViewSpec
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1321
              #name: 'HorizontalPanel1'
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1322
              #layout: #(#LayoutFrame 0 0 -30 1 0 1 0 1)
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1323
              #horizontalLayout: #fitSpace
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1324
              #verticalLayout: #center
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1325
              #horizontalSpace: 3
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1326
              #verticalSpace: 3
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1327
              #component: 
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1328
             #(#SpecCollection
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1329
                #collection: #(
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1330
                 #(#ActionButtonSpec
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1331
                    #label: 'Cancel'
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1332
                    #name: 'Button1'
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1333
                    #activeHelpKey: #cancel
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1334
                    #translateLabel: true
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1335
                    #model: #cancel
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1336
                    #enableChannel: #modifiedChannel
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1337
                    #actionValue: ''
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1338
                    #useDefaultExtent: true
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1339
                  )
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1340
                 #(#ActionButtonSpec
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1341
                    #label: 'OK'
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1342
                    #name: 'Button2'
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1343
                    #activeHelpKey: #accept
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1344
                    #translateLabel: true
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1345
                    #model: #accept
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1346
                    #enableChannel: #modifiedChannel
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1347
                    #useDefaultExtent: true
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1348
                  )
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1349
                 )
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1350
               
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1351
              )
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1352
            )
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1353
           )
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1354
         
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1355
        )
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1356
      )
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1357
!
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1358
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1359
rightCanvasSpecForHTMLText
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1360
    "This resource specification was automatically generated
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1361
     by the UIPainter of ST/X."
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1362
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1363
    "Do not manually edit this!! If it is corrupted,
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1364
     the UIPainter may not be able to read the specification."
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1365
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1366
    "
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1367
     UIPainter new openOnClass:ProjectBrowser andSelector:#rightCanvasSpecForHTMLText
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1368
     ProjectBrowser new openInterface:#rightCanvasSpecForHTMLText
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1369
    "
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1370
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1371
    <resource: #canvas>
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1372
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1373
    ^
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1374
     
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1375
       #(#FullSpec
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1376
          #window: 
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1377
           #(#WindowSpec
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1378
              #name: 'NewApplication'
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1379
              #layout: #(#LayoutFrame 216 0 173 0 515 0 472 0)
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1380
              #level: 0
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1381
              #label: 'NewApplication'
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1382
              #min: #(#Point 10 10)
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1383
              #max: #(#Point 1280 1024)
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1384
              #bounds: #(#Rectangle 216 173 516 473)
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1385
              #usePreferredExtent: false
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1386
          )
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1387
          #component: 
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1388
           #(#SpecCollection
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1389
              #collection: 
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1390
               #(
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1391
                 #(#HTMLViewSpec
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1392
                    #name: 'HTMLBrowser1'
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1393
                    #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
  1394
                    #model: #htmlDocumentURLHolder
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1395
                    #hasHorizontalScrollBar: true
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1396
                    #hasVerticalScrollBar: true
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1397
                )
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1398
              )
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1399
          )
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1400
      )
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1401
!
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1402
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1403
rightCanvasSpecForPatchesList
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1404
    "This resource specification was automatically generated
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1405
     by the UIPainter of ST/X."
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1406
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1407
    "Do not manually edit this!! If it is corrupted,
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1408
     the UIPainter may not be able to read the specification."
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1409
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1410
    "
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1411
     UIPainter new openOnClass:ProjectBrowser andSelector:#rightCanvasSpecForPatchesList
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1412
     ProjectBrowser new openInterface:#rightCanvasSpecForPatchesList
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1413
    "
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1414
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1415
    <resource: #canvas>
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1416
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1417
    ^ 
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1418
     #(#FullSpec
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1419
        #name: #rightCanvasSpecForPatchesList
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1420
        #window: 
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1421
       #(#WindowSpec
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1422
          #label: 'NewApplication'
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1423
          #name: 'NewApplication'
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1424
          #min: #(#Point 10 10)
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1425
          #max: #(#Point 1280 1024)
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1426
          #bounds: #(#Rectangle 162 22 462 322)
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1427
        )
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1428
        #component: 
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1429
       #(#SpecCollection
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1430
          #collection: #(
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1431
           #(#DataSetSpec
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1432
              #name: 'patchesTable'
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1433
              #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
  1434
              #menu: #methodMenu
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1435
              #hasHorizontalScrollBar: true
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1436
              #hasVerticalScrollBar: true
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  1437
              #miniScrollerHorizontal: true
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1438
              #dataList: #patchesList
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1439
              #has3Dsepartors: false
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1440
              #columnHolder: #patchesTableColumns
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1441
              #columnAdaptor: #classTableAdaptor
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1442
            )
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1443
           )
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1444
         
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  1445
        )
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1446
      )
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1447
!
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1448
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1449
rightCanvasSpecForPrerequisiteClasses
1089
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1450
    "This resource specification was automatically generated
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1451
     by the UIPainter of ST/X."
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1452
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1453
    "Do not manually edit this!! If it is corrupted,
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1454
     the UIPainter may not be able to read the specification."
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1455
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1456
    "
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1457
     UIPainter new openOnClass:ProjectBrowser andSelector:#rightCanvasSpecForPrerequisiteClasses
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1458
     ProjectBrowser new openInterface:#rightCanvasSpecForPrerequisiteClasses
1089
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1459
    "
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1460
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1461
    <resource: #canvas>
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1462
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1463
    ^ 
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1464
     #(#FullSpec
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1465
        #name: #rightCanvasSpecForPrerequisiteClasses
1089
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1466
        #window: 
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1467
       #(#WindowSpec
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1468
          #label: 'NewApplication'
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1469
          #name: 'NewApplication'
1149
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  1470
          #layout: #(#LayoutFrame 220 0 200 0 519 0 499 0)
1089
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1471
          #level: 0
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1472
          #min: #(#Point 10 10)
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1473
          #max: #(#Point 1280 1024)
1149
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  1474
          #bounds: #(#Rectangle 220 200 520 500)
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1475
          #usePreferredExtent: false
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1476
          #returnIsOKInDialog: true
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1477
          #escapeIsCancelInDialog: true
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1478
        )
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1479
        #component: 
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1480
       #(#SpecCollection
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1481
          #collection: #(
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1482
           #(#LabelSpec
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1483
              #label: 'Known Classes'
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1484
              #name: 'Label1'
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1485
              #layout: #(#LayoutFrame 0 0 0 0 0 0.5 30 0)
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1486
              #translateLabel: true
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1487
            )
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1488
           #(#SequenceViewSpec
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1489
              #name: 'List1'
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1490
              #layout: #(#LayoutFrame 0 0 30 0 0 0.5 -62 1)
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1491
              #tabable: true
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1492
              #model: #selectedClassInPrerequisites
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1493
              #hasHorizontalScrollBar: true
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1494
              #hasVerticalScrollBar: true
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1495
              #miniScrollerHorizontal: true
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1496
              #miniScrollerVertical: true
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1497
              #doubleClickSelector: #addClassToPrerequisites
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1498
              #valueChangeSelector: #showInfoForRequiredClass:
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1499
              #useIndex: false
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1500
              #sequenceList: #listOfAllClassesInPrerequisites
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1501
            )
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1502
           #(#LabelSpec
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1503
              #label: 'Required Classes'
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1504
              #name: 'Label2'
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1505
              #layout: #(#LayoutFrame 0 0.5 0 0 0 1 30 0)
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1506
              #translateLabel: true
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1507
            )
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1508
           #(#SequenceViewSpec
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1509
              #name: 'List2'
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1510
              #layout: #(#LayoutFrame 0 0.5 30 0 0 1 -62 1)
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1511
              #tabable: true
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1512
              #model: #selectedRequiredClassInPrerequisites
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1513
              #hasHorizontalScrollBar: true
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1514
              #hasVerticalScrollBar: true
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1515
              #miniScrollerHorizontal: true
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1516
              #miniScrollerVertical: true
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1517
              #doubleClickSelector: #removeClassFromPrerequisites
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1518
              #valueChangeSelector: #showInfoForRequiredClass:
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1519
              #useIndex: false
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1520
              #sequenceList: #listOfRequiredClassesInPrerequisites
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1521
            )
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1522
           #(#HorizontalPanelViewSpec
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1523
              #name: 'HorizontalPanel2'
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1524
              #layout: #(#LayoutFrame 0 0 -62 1 0 1 -32 1)
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1525
              #horizontalLayout: #fitSpace
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1526
              #verticalLayout: #center
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1527
              #horizontalSpace: 3
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1528
              #verticalSpace: 3
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1529
              #component: 
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1530
             #(#SpecCollection
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1531
                #collection: #(
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1532
                 #(#ActionButtonSpec
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1533
                    #label: 'Add'
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1534
                    #name: 'addButton'
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1535
                    #translateLabel: true
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1536
                    #resizeForLabel: false
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1537
                    #tabable: true
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1538
                    #model: #addClassToPrerequisites
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1539
                    #enableChannel: #canAddSelectedClassToPrerequisites
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1540
                    #actionValue: ''
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1541
                    #useDefaultExtent: true
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1542
                  )
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1543
                 #(#ActionButtonSpec
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1544
                    #label: 'Remove'
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1545
                    #name: 'removeButton'
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1546
                    #translateLabel: true
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1547
                    #resizeForLabel: false
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1548
                    #tabable: true
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1549
                    #model: #removeClassFromPrerequisites
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1550
                    #enableChannel: #canRemoveSelectedClassFromPrerequisites
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1551
                    #actionValue: ''
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1552
                    #useDefaultExtent: true
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1553
                  )
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1554
                 )
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1555
               
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1556
              )
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1557
            )
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1558
           #(#HorizontalPanelViewSpec
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1559
              #name: 'HorizontalPanel1'
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1560
              #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
  1561
              #horizontalLayout: #fitSpace
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1562
              #verticalLayout: #center
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1563
              #horizontalSpace: 3
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1564
              #verticalSpace: 3
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1565
              #component: 
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1566
             #(#SpecCollection
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1567
                #collection: #(
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1568
                 #(#ActionButtonSpec
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1569
                    #label: 'Cancel'
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1570
                    #name: 'Button1'
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1571
                    #translateLabel: true
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1572
                    #tabable: true
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1573
                    #model: #cancel
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1574
                    #useDefaultExtent: true
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1575
                  )
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1576
                 #(#ActionButtonSpec
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1577
                    #label: 'OK'
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1578
                    #name: 'Button2'
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1579
                    #translateLabel: true
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1580
                    #tabable: true
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1581
                    #model: #accept
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1582
                    #useDefaultExtent: true
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1583
                  )
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1584
                 )
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1585
               
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1586
              )
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1587
            )
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1588
           )
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1589
         
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1590
        )
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1591
      )
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1592
!
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1593
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1594
rightCanvasSpecForPrerequisiteProjects
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1595
    "This resource specification was automatically generated
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1596
     by the UIPainter of ST/X."
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1597
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1598
    "Do not manually edit this!! If it is corrupted,
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1599
     the UIPainter may not be able to read the specification."
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1600
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1601
    "
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1602
     UIPainter new openOnClass:ProjectBrowser andSelector:#rightCanvasSpecForPrerequisiteProjects
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1603
     ProjectBrowser new openInterface:#rightCanvasSpecForPrerequisiteProjects
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1604
    "
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1605
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1606
    <resource: #canvas>
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1607
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1608
    ^ 
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1609
     #(#FullSpec
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1610
        #name: #rightCanvasSpecForPrerequisiteProjects
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1611
        #window: 
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1612
       #(#WindowSpec
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1613
          #label: 'NewApplication'
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1614
          #name: 'NewApplication'
1149
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  1615
          #layout: #(#LayoutFrame 220 0 200 0 519 0 499 0)
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1616
          #level: 0
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1617
          #min: #(#Point 10 10)
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1618
          #max: #(#Point 1280 1024)
1149
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  1619
          #bounds: #(#Rectangle 220 200 520 500)
1089
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1620
          #usePreferredExtent: false
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1621
          #returnIsOKInDialog: true
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1622
          #escapeIsCancelInDialog: true
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1623
        )
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1624
        #component: 
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1625
       #(#SpecCollection
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1626
          #collection: #(
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1627
           #(#LabelSpec
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1628
              #label: 'Known Packages'
1089
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1629
              #name: 'Label1'
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1630
              #layout: #(#LayoutFrame 0 0 0 0 0 0.5 30 0)
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1631
              #translateLabel: true
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1632
            )
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1633
           #(#SequenceViewSpec
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1634
              #name: 'List1'
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1635
              #layout: #(#LayoutFrame 0 0 30 0 0 0.5 -62 1)
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1636
              #tabable: true
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1637
              #model: #selectedProjectInPrerequisites
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1638
              #hasHorizontalScrollBar: true
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1639
              #hasVerticalScrollBar: true
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1640
              #miniScrollerHorizontal: true
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1641
              #miniScrollerVertical: true
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1642
              #doubleClickSelector: #addProjectToPrerequisites
1089
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1643
              #useIndex: false
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1644
              #sequenceList: #listOfAllProjectsInPrerequisites
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1645
            )
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1646
           #(#LabelSpec
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1647
              #label: 'Prerequisites'
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1648
              #name: 'Label2'
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1649
              #layout: #(#LayoutFrame 0 0.5 0 0 0 1 30 0)
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1650
              #translateLabel: true
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1651
            )
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1652
           #(#SequenceViewSpec
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1653
              #name: 'List2'
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1654
              #layout: #(#LayoutFrame 0 0.5 30 0 0 1 -62 1)
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1655
              #tabable: true
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1656
              #model: #selectedRequiredProjectInPrerequisites
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1657
              #hasHorizontalScrollBar: true
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1658
              #hasVerticalScrollBar: true
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1659
              #miniScrollerHorizontal: true
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1660
              #miniScrollerVertical: true
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1661
              #doubleClickSelector: #removeProjectFromPrerequisites
1089
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1662
              #useIndex: false
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1663
              #sequenceList: #listOfRequiredProjectsInPrerequisites
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1664
            )
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1665
           #(#HorizontalPanelViewSpec
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1666
              #name: 'HorizontalPanel2'
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1667
              #layout: #(#LayoutFrame 0 0 -62 1 0 1 -32 1)
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1668
              #horizontalLayout: #fitSpace
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1669
              #verticalLayout: #center
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1670
              #horizontalSpace: 3
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1671
              #verticalSpace: 3
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1672
              #component: 
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1673
             #(#SpecCollection
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1674
                #collection: #(
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1675
                 #(#ActionButtonSpec
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1676
                    #label: 'Add'
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1677
                    #name: 'addButton'
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1678
                    #translateLabel: true
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1679
                    #resizeForLabel: false
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1680
                    #tabable: true
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1681
                    #model: #addProjectToPrerequisites
1089
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1682
                    #enableChannel: #canAddSelectedProjectToPrerequisites
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1683
                    #actionValue: ''
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1684
                    #useDefaultExtent: true
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1685
                  )
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1686
                 #(#ActionButtonSpec
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1687
                    #label: 'Remove'
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1688
                    #name: 'removeButton'
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1689
                    #translateLabel: true
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1690
                    #resizeForLabel: false
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1691
                    #tabable: true
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  1692
                    #model: #removeProjectFromPrerequisites
1089
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1693
                    #enableChannel: #canRemoveSelectedProjectFromPrerequisites
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1694
                    #actionValue: ''
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1695
                    #useDefaultExtent: true
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1696
                  )
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1697
                 )
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1698
               
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1699
              )
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1700
            )
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1701
           #(#HorizontalPanelViewSpec
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1702
              #name: 'HorizontalPanel1'
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1703
              #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
  1704
              #horizontalLayout: #fitSpace
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1705
              #verticalLayout: #center
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1706
              #horizontalSpace: 3
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1707
              #verticalSpace: 3
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1708
              #component: 
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1709
             #(#SpecCollection
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1710
                #collection: #(
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1711
                 #(#ActionButtonSpec
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1712
                    #label: 'Cancel'
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1713
                    #name: 'Button1'
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1714
                    #translateLabel: true
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1715
                    #tabable: true
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1716
                    #model: #cancel
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1717
                    #useDefaultExtent: true
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1718
                  )
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1719
                 #(#ActionButtonSpec
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1720
                    #label: 'OK'
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1721
                    #name: 'Button2'
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1722
                    #translateLabel: true
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1723
                    #tabable: true
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1724
                    #model: #accept
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1725
                    #useDefaultExtent: true
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1726
                  )
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1727
                 )
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1728
               
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1729
              )
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1730
            )
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1731
           )
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1732
         
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1733
        )
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1734
      )
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1735
!
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  1736
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  1737
rightCanvasSpecForProperties
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  1738
    "This resource specification was automatically generated
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  1739
     by the UIPainter of ST/X."
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  1740
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  1741
    "Do not manually edit this!! If it is corrupted,
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  1742
     the UIPainter may not be able to read the specification."
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  1743
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  1744
    "
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  1745
     UIPainter new openOnClass:ProjectBrowser andSelector:#rightCanvasSpecForProperties
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  1746
     ProjectBrowser new openInterface:#rightCanvasSpecForProperties
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  1747
    "
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  1748
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  1749
    <resource: #canvas>
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  1750
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1751
    ^ 
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1752
     #(#FullSpec
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1753
        #name: #rightCanvasSpecForProperties
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1754
        #window: 
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1755
       #(#WindowSpec
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1756
          #label: 'NewApplication'
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1757
          #name: 'NewApplication'
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1758
          #min: #(#Point 10 10)
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1759
          #max: #(#Point 1280 1024)
1289
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  1760
          #bounds: #(#Rectangle 12 22 373 385)
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1761
        )
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1762
        #component: 
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1763
       #(#SpecCollection
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1764
          #collection: #(
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1765
           #(#FramedBoxSpec
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1766
              #label: 'Project Type'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1767
              #name: 'FramedBox1'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1768
              #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
  1769
              #labelPosition: #topLeft
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1770
              #translateLabel: true
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1771
              #component: 
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1772
             #(#SpecCollection
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1773
                #collection: #(
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1774
                 #(#RadioButtonSpec
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1775
                    #label: 'Application'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1776
                    #name: 'RadioButton1'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1777
                    #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
  1778
                    #activeHelpKey: #appType
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1779
                    #translateLabel: true
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1780
                    #model: #projectType
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1781
                    #isTriggerOnDown: true
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1782
                    #select: #application
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1783
                  )
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1784
                 #(#RadioButtonSpec
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1785
                    #label: 'Class Library'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1786
                    #name: 'RadioButton2'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1787
                    #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
  1788
                    #activeHelpKey: #libType
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1789
                    #translateLabel: true
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1790
                    #model: #projectType
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1791
                    #isTriggerOnDown: true
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1792
                    #select: #library
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1793
                  )
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1794
                 )
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1795
               
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1796
              )
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1797
            )
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1798
           #(#FramedBoxSpec
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1799
              #label: 'Project Working Directory'
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1800
              #name: 'FramedBox2'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1801
              #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
  1802
              #labelPosition: #topLeft
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1803
              #translateLabel: true
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1804
              #component: 
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1805
             #(#SpecCollection
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1806
                #collection: #(
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1807
                 #(#InputFieldSpec
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1808
                    #name: 'EntryField1'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1809
                    #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
  1810
                    #activeHelpKey: #projectDir
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1811
                    #enableChannel: #currentProjectWasNotLoadedFromFile
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1812
                    #model: #projectDirectory
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1813
                    #acceptChannel: #acceptChannel
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1814
                    #modifiedChannel: #modifiedChannel
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1815
                    #acceptOnPointerLeave: false
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1816
                  )
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1817
                 )
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1818
               
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1819
              )
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1820
            )
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1821
           #(#FramedBoxSpec
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1822
              #label: 'Projects Package ID'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1823
              #name: 'FramedBox5'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1824
              #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
  1825
              #labelPosition: #topLeft
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1826
              #translateLabel: true
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1827
              #component: 
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1828
             #(#SpecCollection
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1829
                #collection: #(
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1830
                 #(#InputFieldSpec
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1831
                    #name: 'EntryField5'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1832
                    #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
  1833
                    #activeHelpKey: #packageID
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1834
                    #model: #projectPackage
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1835
                    #acceptChannel: #acceptChannel
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1836
                    #modifiedChannel: #modifiedChannel
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1837
                    #acceptOnPointerLeave: false
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1838
                  )
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1839
                 )
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1840
               
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1841
              )
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1842
            )
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1843
           #(#FramedBoxSpec
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1844
              #label: 'Repository'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1845
              #name: 'FramedBox3'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1846
              #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
  1847
              #labelPosition: #topLeft
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1848
              #translateLabel: true
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1849
              #component: 
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1850
             #(#SpecCollection
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1851
                #collection: #(
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1852
                 #(#LabelSpec
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1853
                    #label: 'Module:'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1854
                    #name: 'Label1'
1289
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  1855
                    #layout: #(#AlignmentOrigin 106 0 11 0 1 0.5)
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1856
                    #translateLabel: true
1289
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  1857
                    #resizeForLabel: true
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1858
                    #adjust: #right
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1859
                  )
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1860
                 #(#InputFieldSpec
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1861
                    #name: 'EntryField2'
1289
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  1862
                    #layout: #(#LayoutFrame 110 0.0 0 0 0 1.0 22 0)
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1863
                    #activeHelpKey: #repositoryModule
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1864
                    #model: #repositoryModule
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1865
                    #acceptChannel: #acceptChannel
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1866
                    #modifiedChannel: #modifiedChannel
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1867
                    #acceptOnPointerLeave: false
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1868
                  )
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1869
                 #(#LabelSpec
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1870
                    #label: 'Directory:'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1871
                    #name: 'Label2'
1289
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  1872
                    #layout: #(#AlignmentOrigin 106 0 36 0 1 0.5)
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1873
                    #translateLabel: true
1289
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  1874
                    #resizeForLabel: true
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1875
                    #adjust: #right
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1876
                  )
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1877
                 #(#InputFieldSpec
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1878
                    #name: 'EntryField3'
1289
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  1879
                    #layout: #(#LayoutFrame 110 0.0 25 0 0 1.0 47 0)
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1880
                    #activeHelpKey: #repositoryDirectory
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1881
                    #model: #repositoryDirectory
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1882
                    #acceptChannel: #acceptChannel
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1883
                    #modifiedChannel: #modifiedChannel
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1884
                    #acceptOnPointerLeave: false
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1885
                  )
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1886
                 )
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1887
               
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1888
              )
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1889
            )
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1890
           #(#FramedBoxSpec
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1891
              #label: 'Default Namespace'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1892
              #name: 'FramedBox4'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1893
              #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
  1894
              #activeHelpKey: #defaultNamespace
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1895
              #labelPosition: #topLeft
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1896
              #translateLabel: true
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1897
              #component: 
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1898
             #(#SpecCollection
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1899
                #collection: #(
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1900
                 #(#InputFieldSpec
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1901
                    #name: 'EntryField4'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1902
                    #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
  1903
                    #model: #projectNamespace
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1904
                    #acceptChannel: #acceptChannel
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1905
                    #modifiedChannel: #modifiedChannel
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  1906
                    #acceptOnPointerLeave: false
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1907
                  )
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1908
                 )
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1909
               
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1910
              )
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1911
            )
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1912
           #(#HorizontalPanelViewSpec
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1913
              #name: 'HorizontalPanel1'
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1914
              #layout: #(#LayoutFrame 0 0 -30 1 0 1 0 1)
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1915
              #horizontalLayout: #fitSpace
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1916
              #verticalLayout: #center
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1917
              #horizontalSpace: 3
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1918
              #verticalSpace: 3
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1919
              #component: 
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1920
             #(#SpecCollection
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1921
                #collection: #(
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1922
                 #(#ActionButtonSpec
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1923
                    #label: 'Cancel'
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1924
                    #name: 'Button1'
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1925
                    #activeHelpKey: #cancel
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1926
                    #translateLabel: true
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1927
                    #model: #cancel
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1928
                    #enableChannel: #modifiedChannel
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  1929
                    #actionValue: ''
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  1930
                    #useDefaultExtent: true
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1931
                  )
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1932
                 #(#ActionButtonSpec
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1933
                    #label: 'OK'
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1934
                    #name: 'Button2'
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  1935
                    #activeHelpKey: #accept
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1936
                    #translateLabel: true
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1937
                    #model: #accept
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1938
                    #enableChannel: #modifiedChannel
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  1939
                    #useDefaultExtent: true
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1940
                  )
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1941
                 )
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1942
               
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1943
              )
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1944
            )
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1945
           )
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1946
         
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  1947
        )
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  1948
      )
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  1949
!
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  1950
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1951
rightCanvasSpecForReadOnlyText
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1952
    "This resource specification was automatically generated
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1953
     by the UIPainter of ST/X."
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1954
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1955
    "Do not manually edit this!! If it is corrupted,
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1956
     the UIPainter may not be able to read the specification."
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1957
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1958
    "
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1959
     UIPainter new openOnClass:ProjectBrowser andSelector:#rightCanvasSpecForReadOnlyText
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1960
     ProjectBrowser new openInterface:#rightCanvasSpecForReadOnlyText
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1961
    "
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1962
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1963
    <resource: #canvas>
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1964
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1965
    ^ 
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1966
     #(#FullSpec
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1967
        #name: #rightCanvasSpecForReadOnlyText
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1968
        #window: 
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1969
       #(#WindowSpec
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1970
          #label: 'NewApplication'
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1971
          #name: 'NewApplication'
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1972
          #min: #(#Point 10 10)
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1973
          #max: #(#Point 1280 1024)
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1974
          #bounds: #(#Rectangle 216 173 516 473)
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1975
        )
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1976
        #component: 
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1977
       #(#SpecCollection
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1978
          #collection: #(
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1979
           #(#TextEditorSpec
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1980
              #name: 'TextEditor1'
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1981
              #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
  1982
              #model: #rightCanvasTextHolder
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1983
              #hasHorizontalScrollBar: true
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1984
              #hasVerticalScrollBar: true
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1985
              #miniScrollerHorizontal: true
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1986
              #isReadOnly: true
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1987
            )
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1988
           #(#LabelSpec
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1989
              #label: 'Label'
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1990
              #name: 'Label1'
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1991
              #layout: #(#LayoutFrame 0 0 0 0 0 1 30 0)
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1992
              #translateLabel: true
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1993
              #labelChannel: #textCanvasLabelHolder
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1994
              #adjust: #left
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1995
            )
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1996
           )
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1997
         
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  1998
        )
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1999
      )
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2000
!
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2001
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2002
windowSpec
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2003
    "This resource specification was automatically generated
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2004
     by the UIPainter of ST/X."
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2005
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2006
    "Do not manually edit this!! If it is corrupted,
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2007
     the UIPainter may not be able to read the specification."
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2008
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2009
    "
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2010
     UIPainter new openOnClass:ProjectBrowser andSelector:#windowSpec
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2011
     ProjectBrowser new openInterface:#windowSpec
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2012
     ProjectBrowser open
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2013
    "
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2014
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2015
    <resource: #canvas>
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2016
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  2017
    ^ 
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  2018
     #(#FullSpec
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  2019
        #name: #windowSpec
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  2020
        #window: 
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  2021
       #(#WindowSpec
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  2022
          #label: 'ProjectBrowser'
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  2023
          #name: 'ProjectBrowser'
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  2024
          #min: #(#Point 10 10)
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  2025
          #max: #(#Point 1024 768)
1251
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  2026
          #bounds: #(#Rectangle 20 94 623 645)
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  2027
          #menu: #mainMenu
1239
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
  2028
          #icon: #bigProjectBrowserIcon
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  2029
        )
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  2030
        #component: 
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  2031
       #(#SpecCollection
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  2032
          #collection: #(
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  2033
           #(#MenuPanelSpec
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  2034
              #name: 'ToolBar1'
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  2035
              #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
  2036
              #menu: #menu
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  2037
              #textDefault: true
1085
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2038
            )
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2039
           #(#VariableVerticalPanelSpec
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2040
              #name: 'VariableVerticalPanel1'
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2041
              #layout: #(#LayoutFrame 0 0.0 32 0.0 0 1.0 -24 1.0)
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2042
              #level: 1
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  2043
              #component: 
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  2044
             #(#SpecCollection
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  2045
                #collection: #(
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2046
                 #(#VariableHorizontalPanelSpec
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2047
                    #name: 'VariableHorizontalPanel1'
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2048
                    #component: 
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2049
                   #(#SpecCollection
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2050
                      #collection: #(
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2051
                       #(#SelectionInTreeViewSpec
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2052
                          #name: 'TreeList1'
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2053
                          #model: #selectedTreeNodeHolder
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2054
                          #menu: #itemMenuHolder
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2055
                          #performer: #itemMenuPerformer
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2056
                          #hasHorizontalScrollBar: true
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2057
                          #hasVerticalScrollBar: true
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2058
                          #miniScrollerHorizontal: true
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2059
                          #showRoot: false
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2060
                          #showDirectoryIndicatorForRoot: false
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2061
                          #showDirectoryIndicator: true
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2062
                          #valueChangeSelector: #itemSelected:
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2063
                          #doubleClickSelector: #itemDoubleClicked:
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2064
                          #hierarchicalList: #projectTreeHolder
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2065
                          #selectConditionSelector: #selectionChangeAllowed:
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2066
                          #highlightMode: #label
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2067
                        )
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2068
                       #(#SubCanvasSpec
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2069
                          #name: 'SubCanvas1'
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2070
                          #hasHorizontalScrollBar: false
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2071
                          #hasVerticalScrollBar: false
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2072
                          #specHolder: #currentCanvasHolder
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2073
                        )
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2074
                       )
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2075
                     
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2076
                    )
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2077
                    #handles: #(#Any 0.389718 1.0)
1085
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2078
                  )
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2079
                 #(#ArbitraryComponentSpec
1251
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  2080
                    #name: 'commandOutputView'
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  2081
                    #hasHorizontalScrollBar: true
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  2082
                    #hasVerticalScrollBar: true
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  2083
                    #miniScrollerHorizontal: true
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2084
                    #hasBorder: false
1251
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  2085
                    #component: #TextCollector
1085
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2086
                  )
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  2087
                 )
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  2088
               
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  2089
              )
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2090
              #handles: #(#Any 0.987879 1.0)
1085
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2091
            )
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  2092
           #(#UISubSpecification
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  2093
              #name: 'infoBarSubSpec'
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  2094
              #layout: #(#LayoutFrame 0 0.0 -24 1 0 1.0 0 1.0)
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2095
              #level: 1
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  2096
              #majorKey: #ToolApplicationModel
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  2097
              #minorKey: #windowSpecForInfoBar
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  2098
            )
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  2099
           )
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  2100
         
1085
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2101
        )
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  2102
      )
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2103
! !
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2104
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2105
!ProjectBrowser class methodsFor:'menu specs'!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2106
1094
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2107
classItemMenu
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2108
    "This resource specification was automatically generated
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2109
     by the MenuEditor of ST/X."
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2110
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2111
    "Do not manually edit this!! If it is corrupted,
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2112
     the MenuEditor may not be able to read the specification."
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2113
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2114
    "
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2115
     MenuEditor new openOnClass:ProjectBrowser andSelector:#classItemMenu
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2116
     (Menu new fromLiteralArrayEncoding:(ProjectBrowser classItemMenu)) startUp
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2117
    "
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2118
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2119
    <resource: #menu>
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2120
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2121
    ^ 
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2122
     #(#Menu
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2123
        #(
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2124
         #(#MenuItem
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2125
            #label: 'Remove from Project...'
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2126
            #translateLabel: true
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2127
            #value: #removeClassFromProject
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2128
            #enabled: #hasClassesSelectedHolder
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2129
          )
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2130
         #(#MenuItem
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2131
            #label: '-'
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2132
          )
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2133
         #(#MenuItem
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2134
            #label: 'Browse...'
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2135
            #translateLabel: true
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2136
            #value: #browseClass
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2137
            #enabled: #hasClassesSelectedHolder
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2138
          )
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2139
         )
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2140
        nil
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2141
        nil
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2142
      )
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2143
!
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2144
1052
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  2145
classesItemMenu
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  2146
    "This resource specification was automatically generated
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  2147
     by the MenuEditor of ST/X."
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  2148
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  2149
    "Do not manually edit this!! If it is corrupted,
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  2150
     the MenuEditor may not be able to read the specification."
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  2151
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  2152
    "
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  2153
     MenuEditor new openOnClass:ProjectBrowser andSelector:#classesItemMenu
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  2154
     (Menu new fromLiteralArrayEncoding:(ProjectBrowser classesItemMenu)) startUp
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  2155
    "
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  2156
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  2157
    <resource: #menu>
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  2158
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  2159
    ^
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  2160
     
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  2161
       #(#Menu
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  2162
          
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  2163
           #(
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  2164
             #(#MenuItem
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  2165
                #label: 'Add Class...'
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  2166
                #translateLabel: true
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  2167
                #value: #addClass
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  2168
                #enabled: #hasClassesSelectedHolder
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  2169
            )
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  2170
             #(#MenuItem
1226
21133accee5b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1224
diff changeset
  2171
                #label: 'Add Classes found in image'
21133accee5b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1224
diff changeset
  2172
                #translateLabel: true
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  2173
                #value: #addClassesFromImage
1226
21133accee5b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1224
diff changeset
  2174
                #enabled: #hasClassesSelectedHolder
21133accee5b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1224
diff changeset
  2175
            )
21133accee5b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1224
diff changeset
  2176
             #(#MenuItem
1107
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  2177
                #label: 'Add Classes from files found in directory'
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  2178
                #translateLabel: true
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  2179
                #value: #addClassesFromFilesInDirectory
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  2180
                #enabled: #hasClassesSelectedHolder
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  2181
            )
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  2182
             #(#MenuItem
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  2183
                #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
  2184
                #translateLabel: true
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  2185
                #value: #addClassesFromFilesInDirectoryIfPresentInImage
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  2186
                #enabled: #hasClassesSelectedHolder
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  2187
            )
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  2188
             #(#MenuItem
1052
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  2189
                #label: '-'
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  2190
            )
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  2191
             #(#MenuItem
1107
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  2192
                #label: 'Load Classes from Directory'
1094
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2193
                #translateLabel: true
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2194
                #value: #loadClassesFromDirectory
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2195
                #enabled: #canLoadClassesFromDirectory
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2196
            )
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2197
             #(#MenuItem
1107
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  2198
                #label: 'Load Classes from Repository'
1094
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2199
                #translateLabel: true
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2200
                #value: #loadClassesFromRepository
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2201
                #enabled: #canLoadClassesFromRepository
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2202
            )
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2203
             #(#MenuItem
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2204
                #label: '-'
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2205
            )
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2206
             #(#MenuItem
1240
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
  2207
                #label: 'Validate...'
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
  2208
                #translateLabel: true
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
  2209
                #value: #validateAgainstClassesInImage
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
  2210
                #enabled: #hasClassesSelectedHolder
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
  2211
            )
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
  2212
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
  2213
             #(#MenuItem
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
  2214
                #label: '-'
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
  2215
            )
18fa01008a4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1239
diff changeset
  2216
             #(#MenuItem
1052
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  2217
                #label: 'Browse...'
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  2218
                #translateLabel: true
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  2219
                #value: #browseClasses
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  2220
                #enabled: #hasClassesSelectedHolder
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  2221
            )
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  2222
          ) nil
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  2223
          nil
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  2224
      )
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  2225
!
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  2226
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2227
mainMenu
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2228
    "This resource specification was automatically generated
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2229
     by the MenuEditor of ST/X."
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2230
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2231
    "Do not manually edit this!! If it is corrupted,
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2232
     the MenuEditor may not be able to read the specification."
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2233
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2234
    "
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2235
     MenuEditor new openOnClass:ProjectBrowser andSelector:#mainMenu
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2236
     (Menu new fromLiteralArrayEncoding:(ProjectBrowser mainMenu)) startUp
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2237
    "
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2238
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2239
    <resource: #menu>
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2240
1085
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2241
    ^ 
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2242
     #(#Menu
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2243
        #(
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2244
         #(#MenuItem
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2245
            #label: 'File'
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2246
            #translateLabel: true
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2247
            #submenu: 
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2248
           #(#Menu
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2249
              #(
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2250
               #(#MenuItem
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2251
                  #label: 'New'
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2252
                  #translateLabel: true
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2253
                  #value: #newProject
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2254
                )
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2255
               #(#MenuItem
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2256
                  #label: '-'
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2257
                )
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2258
               #(#MenuItem
1085
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2259
                  #label: 'Load From...'
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2260
                  #translateLabel: true
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2261
                  #value: #openProject
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2262
                )
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2263
               #(#MenuItem
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2264
                  #label: 'Load Project Code'
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2265
                  #translateLabel: true
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2266
                  #value: #loadProjectCode
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2267
                  #enabled: #hasProjectSelectedAndProjectFilenameHolder
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2268
                )
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2269
               #(#MenuItem
1085
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2270
                  #label: '-'
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2271
                )
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2272
               #(#MenuItem
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2273
                  #label: 'Save Project File'
1085
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2274
                  #translateLabel: true
1228
90dee52628ec more building
Claus Gittinger <cg@exept.de>
parents: 1227
diff changeset
  2275
                  #value: #saveProjectFile
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2276
                  #enabled: #hasProjectSelectedAndProjectFilenameHolder
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2277
                )
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2278
               #(#MenuItem
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2279
                  #label: 'Save Project Code'
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2280
                  #translateLabel: true
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2281
                  #value: #saveProjectCode
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2282
                  #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2283
                )
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2284
               #(#MenuItem
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2285
                  #label: 'Save All'
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2286
                  #translateLabel: true
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2287
                  #value: #saveAll
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2288
                  #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2289
                )
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2290
               #(#MenuItem
1085
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2291
                  #label: '-'
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2292
                )
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2293
               #(#MenuItem
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2294
                  #label: 'Exit'
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2295
                  #translateLabel: true
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2296
                  #value: #closeRequest
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2297
                )
1085
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2298
               )
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2299
              nil
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2300
              nil
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2301
            )
1085
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2302
          )
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2303
         #(#MenuItem
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2304
            #label: 'Repository'
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2305
            #translateLabel: true
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2306
            #submenu: 
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2307
           #(#Menu
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2308
              #(
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2309
               #(#MenuItem
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2310
                  #label: 'CheckIn All'
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2311
                  #translateLabel: true
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2312
                  #value: #checkInProject
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2313
                  #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2314
                )
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2315
               #(#MenuItem
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2316
                  #label: '-'
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2317
                )
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2318
               #(#MenuItem
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2319
                  #label: 'CheckIn Classes'
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2320
                  #translateLabel: true
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2321
                  #value: #checkInAllClasses
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2322
                  #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2323
                )
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2324
               #(#MenuItem
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2325
                  #label: 'CheckIn Extensions'
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2326
                  #translateLabel: true
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2327
                  #value: #checkInMethods
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2328
                  #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2329
                )
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2330
               #(#MenuItem
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2331
                  #label: 'CheckIn Project File'
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2332
                  #translateLabel: true
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2333
                  #value: #checkInProjectFile
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2334
                  #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2335
                )
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2336
               #(#MenuItem
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2337
                  #label: 'CheckIn Makefiles'
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2338
                  #translateLabel: true
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2339
                  #value: #checkInMakefiles
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2340
                  #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2341
                )
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2342
               )
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2343
              nil
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2344
              nil
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2345
            )
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2346
          )
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2347
         #(#MenuItem
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2348
            #label: 'View'
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2349
            #translateLabel: true
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2350
            #submenu: 
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2351
           #(#Menu
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2352
              #(
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2353
               #(#MenuItem
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2354
                  #label: 'Current Project'
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2355
                  #translateLabel: true
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2356
                  #choice: #showWhat
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2357
                  #choiceValue: #current
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
               #(#MenuItem
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2360
                  #label: 'Non BaseSystem Projects'
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2361
                  #translateLabel: true
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2362
                  #choice: #showWhat
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2363
                  #choiceValue: #userProjects
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2364
                )
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2365
               #(#MenuItem
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2366
                  #label: 'All Projects'
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2367
                  #translateLabel: true
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2368
                  #choice: #showWhat
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2369
                  #choiceValue: #all
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2370
                )
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2371
               #(#MenuItem
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2372
                  #label: '-'
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2373
                )
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2374
               #(#MenuItem
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2375
                  #label: 'Update'
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2376
                  #translateLabel: true
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2377
                  #value: #updateListOfProjects
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2378
                )
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2379
               )
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2380
              nil
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2381
              nil
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2382
            )
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2383
          )
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2384
         #(#MenuItem
1085
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2385
            #label: 'Project'
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2386
            #translateLabel: true
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2387
            #submenuChannel: #projectItemMenu
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2388
          )
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2389
         #(#MenuItem
1093
311115f31a4d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  2390
            #label: 'Build'
311115f31a4d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  2391
            #translateLabel: true
311115f31a4d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  2392
            #submenu: 
311115f31a4d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  2393
           #(#Menu
311115f31a4d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  2394
              #(
311115f31a4d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  2395
               #(#MenuItem
311115f31a4d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  2396
                  #label: 'All'
311115f31a4d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  2397
                  #translateLabel: true
311115f31a4d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  2398
                  #value: #buildAll
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2399
                  #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
1093
311115f31a4d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  2400
                )
311115f31a4d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  2401
               #(#MenuItem
311115f31a4d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  2402
                  #label: '-'
311115f31a4d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  2403
                )
311115f31a4d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  2404
               #(#MenuItem
311115f31a4d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  2405
                  #label: 'Make.proto && Makefile'
311115f31a4d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  2406
                  #translateLabel: true
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2407
                  #value: #buildMakefiles
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2408
                  #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2409
                )
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2410
               #(#MenuItem
1278
b9769689b45c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1267
diff changeset
  2411
                  #label: 'Makefile'
b9769689b45c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1267
diff changeset
  2412
                  #translateLabel: true
b9769689b45c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1267
diff changeset
  2413
                  #value: #buildMakefile
b9769689b45c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1267
diff changeset
  2414
                  #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
b9769689b45c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1267
diff changeset
  2415
                )
b9769689b45c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1267
diff changeset
  2416
               #(#MenuItem
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2417
                  #label: 'LoadAll file'
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2418
                  #translateLabel: true
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2419
                  #value: #buildLoadAllFile
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2420
                  #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2421
                )
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2422
               #(#MenuItem
1229
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  2423
                  #label: 'Binary class library (non portable)'
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2424
                  #translateLabel: true
1229
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  2425
                  #value: #buildCompiledClassLibrary
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  2426
                  #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  2427
                )
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  2428
               #(#MenuItem
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  2429
                  #label: 'Bytecode class library (portable)'
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  2430
                  #translateLabel: true
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  2431
                  #value: #buildByteCodeClassLibrary
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2432
                  #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2433
                )
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2434
               #(#MenuItem
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2435
                  #label: 'Zip archive'
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2436
                  #translateLabel: true
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2437
                  #value: #buildZipArchive
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2438
                  #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
1093
311115f31a4d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  2439
                )
311115f31a4d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  2440
               )
311115f31a4d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  2441
              nil
311115f31a4d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  2442
              nil
311115f31a4d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  2443
            )
311115f31a4d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  2444
          )
311115f31a4d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  2445
         #(#MenuItem
1085
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2446
            #label: 'Help'
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2447
            #translateLabel: true
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2448
            #startGroup: #right
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2449
            #submenu: 
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2450
           #(#Menu
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2451
              #(
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2452
               #(#MenuItem
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2453
                  #label: 'Documentation'
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2454
                  #translateLabel: true
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2455
                  #value: #openDocumentation
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2456
                )
1085
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2457
               #(#MenuItem
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2458
                  #label: '-'
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2459
                )
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2460
               #(#MenuItem
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2461
                  #label: 'About this Application'
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2462
                  #translateLabel: true
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2463
                  #value: #openAboutThisApplication
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2464
                )
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2465
               )
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2466
              nil
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2467
              nil
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2468
            )
1085
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2469
          )
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2470
         )
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2471
        nil
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  2472
        nil
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2473
      )
1278
b9769689b45c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1267
diff changeset
  2474
b9769689b45c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1267
diff changeset
  2475
    "Modified: / 16.12.1999 / 01:28:48 / cg"
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2476
!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2477
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2478
methodItemMenu
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2479
    "This resource specification was automatically generated
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2480
     by the MenuEditor of ST/X."
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2481
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2482
    "Do not manually edit this!! If it is corrupted,
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2483
     the MenuEditor may not be able to read the specification."
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2484
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2485
    "
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2486
     MenuEditor new openOnClass:ProjectBrowser andSelector:#menu
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2487
     (Menu new fromLiteralArrayEncoding:(ProjectBrowser menu)) startUp
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2488
    "
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2489
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2490
    <resource: #menu>
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2491
1116
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  2492
    ^ 
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  2493
     #(#Menu
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  2494
        #(
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  2495
         #(#MenuItem
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2496
            #label: 'Browse'
1116
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  2497
            #translateLabel: true
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2498
            #value: #browseMethod
1116
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  2499
          )
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  2500
         #(#MenuItem
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2501
            #label: 'Browse Full'
1116
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  2502
            #translateLabel: true
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2503
            #value: #browseMethodFull
1116
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  2504
          )
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2505
         #(#MenuItem
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2506
            #label: '-'
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2507
          )
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2508
         #(#MenuItem
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2509
            #label: 'Remove...'
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2510
            #translateLabel: true
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2511
            #value: #removeMethod
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2512
          )
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2513
         #(#MenuItem
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2514
            #label: 'Remove from Project...'
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2515
            #translateLabel: true
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2516
            #value: #removeMethodFromProject
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2517
          )
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2518
         #(#MenuItem
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2519
            #label: 'Move to Project...'
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2520
            #translateLabel: true
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2521
            #value: #moveMethodToProject
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  2522
          )
1116
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  2523
         )
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  2524
        nil
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  2525
        nil
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2526
      )
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2527
!
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2528
1255
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  2529
methodsItemMenu
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  2530
    "This resource specification was automatically generated
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  2531
     by the MenuEditor of ST/X."
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  2532
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  2533
    "Do not manually edit this!! If it is corrupted,
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  2534
     the MenuEditor may not be able to read the specification."
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  2535
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  2536
    "
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  2537
     MenuEditor new openOnClass:ProjectBrowser andSelector:#menu
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  2538
     (Menu new fromLiteralArrayEncoding:(ProjectBrowser menu)) startUp
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  2539
    "
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  2540
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  2541
    <resource: #menu>
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  2542
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  2543
    ^ 
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  2544
     #(#Menu
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  2545
        #(
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  2546
             #(#MenuItem
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  2547
                #label: '-'
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  2548
            )
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  2549
             #(#MenuItem
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  2550
                #label: 'Validate...'
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  2551
                #translateLabel: true
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  2552
                #value: #validateAgainstMethodsInImage
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  2553
                #enabled: #hasMethodsSelectedHolder
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  2554
            )
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  2555
         )
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  2556
        nil
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  2557
        nil
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  2558
      )
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  2559
!
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  2560
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2561
noItemMenu
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2562
    "This resource specification was automatically generated
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2563
     by the MenuEditor of ST/X."
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2564
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2565
    "Do not manually edit this!! If it is corrupted,
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2566
     the MenuEditor may not be able to read the specification."
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2567
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2568
    "
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2569
     MenuEditor new openOnClass:ProjectBrowser andSelector:#projectItemMenu
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2570
     (Menu new fromLiteralArrayEncoding:(ProjectBrowser projectItemMenu)) startUp
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2571
    "
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2572
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2573
    <resource: #menu>
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2574
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2575
    ^
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2576
     
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2577
       #(#Menu
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2578
          
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2579
           #(
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2580
             #(#MenuItem
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2581
                #label: 'New Project'
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2582
                #translateLabel: true
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2583
                #value: #newProject
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2584
            )
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2585
          ) nil
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2586
          nil
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2587
      )
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2588
!
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2589
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2590
prerequisiteClassesItemMenu
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2591
    "This resource specification was automatically generated
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2592
     by the MenuEditor of ST/X."
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2593
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2594
    "Do not manually edit this!! If it is corrupted,
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2595
     the MenuEditor may not be able to read the specification."
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2596
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2597
    "
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2598
     MenuEditor new openOnClass:ProjectBrowser andSelector:#prerequisiteClassesItemMenu
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2599
     (Menu new fromLiteralArrayEncoding:(ProjectBrowser prerequisiteClassesItemMenu)) startUp
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2600
    "
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2601
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2602
    <resource: #menu>
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2603
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2604
    ^ 
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2605
     #(#Menu
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2606
        #(
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2607
         #(#MenuItem
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2608
            #label: 'Update'
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2609
            #translateLabel: true
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2610
            #value: #updateListOfRequiredPrerequisiteClasses
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2611
            #enabled: #hasClassesSelectedHolder
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2612
          )
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2613
         )
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2614
        nil
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2615
        nil
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2616
      )
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2617
!
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2618
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2619
projectItemMenu
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2620
    "This resource specification was automatically generated
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2621
     by the MenuEditor of ST/X."
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2622
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2623
    "Do not manually edit this!! If it is corrupted,
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2624
     the MenuEditor may not be able to read the specification."
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2625
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2626
    "
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2627
     MenuEditor new openOnClass:ProjectBrowser andSelector:#projectItemMenu
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2628
     (Menu new fromLiteralArrayEncoding:(ProjectBrowser projectItemMenu)) startUp
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2629
    "
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2630
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2631
    <resource: #menu>
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2632
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2633
    ^
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2634
     
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2635
       #(#Menu
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2636
          
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2637
           #(
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2638
             #(#MenuItem
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2639
                #label: 'Make Current'
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2640
                #translateLabel: true
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2641
                #value: #makeCurrentProject
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2642
                #enabled: #hasProjectSelectedHolder
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2643
            )
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2644
             #(#MenuItem
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2645
                #label: 'Inspect'
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2646
                #translateLabel: true
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2647
                #value: #inspectCurrentProject
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2648
                #enabled: #hasProjectSelectedHolder
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2649
            )
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2650
             #(#MenuItem
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2651
                #label: '-'
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2652
            )
1267
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  2653
"/             #(#MenuItem
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  2654
"/                #label: 'New SubProject'
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  2655
"/                #translateLabel: true
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  2656
"/                #value: #newSubProject
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  2657
"/                #enabled: #hasProjectSelectedHolder
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  2658
"/            )
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  2659
"/             #(#MenuItem
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  2660
"/                #label: '-'
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  2661
"/            )
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2662
             #(#MenuItem
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2663
                #label: 'Rename...'
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2664
                #translateLabel: true
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2665
                #value: #renameProject
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2666
                #enabled: #hasProjectSelectedHolder
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2667
            )
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2668
             #(#MenuItem
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2669
                #label: '-'
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2670
            )
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  2671
             #(#MenuItem
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2672
                #label: 'Remove...'
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2673
                #translateLabel: true
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2674
                #value: #removeProject
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2675
                #enabled: #hasProjectSelectedHolder
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2676
            )
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2677
          ) nil
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2678
          nil
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  2679
      )
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2680
!
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2681
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2682
subProjectsItemMenu
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2683
    "This resource specification was automatically generated
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2684
     by the MenuEditor of ST/X."
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2685
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2686
    "Do not manually edit this!! If it is corrupted,
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2687
     the MenuEditor may not be able to read the specification."
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2688
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2689
    "
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2690
     MenuEditor new openOnClass:ProjectBrowser andSelector:#subProjectsItemMenu
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2691
     (Menu new fromLiteralArrayEncoding:(ProjectBrowser subProjectsItemMenu)) startUp
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2692
    "
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2693
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2694
    <resource: #menu>
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2695
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2696
    ^
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2697
     
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2698
       #(#Menu
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2699
          
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2700
           #(
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2701
             #(#MenuItem
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2702
                #label: 'New SubProject'
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2703
                #translateLabel: true
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2704
                #value: #newSubProject
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2705
                #enabled: #hasSubProjectsSelectedHolder
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2706
            )
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2707
          ) nil
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2708
          nil
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2709
      )
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2710
! !
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2711
1095
660185e02224 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1094
diff changeset
  2712
!ProjectBrowser class methodsFor:'startup'!
660185e02224 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1094
diff changeset
  2713
660185e02224 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1094
diff changeset
  2714
openOnFile:aFilename
1224
825e6e9fc37f expand the path to the load project
Claus Gittinger <cg@exept.de>
parents: 1223
diff changeset
  2715
    |project browser nodes theNode|
1095
660185e02224 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1094
diff changeset
  2716
660185e02224 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1094
diff changeset
  2717
    browser := self new.
660185e02224 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1094
diff changeset
  2718
    browser allButOpen.
1224
825e6e9fc37f expand the path to the load project
Claus Gittinger <cg@exept.de>
parents: 1223
diff changeset
  2719
    project := browser loadFromProjectFile:aFilename.
1239
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
  2720
    browser expandPathToNodeFor:project.
1095
660185e02224 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1094
diff changeset
  2721
    browser openWindow
660185e02224 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1094
diff changeset
  2722
! !
660185e02224 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1094
diff changeset
  2723
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2724
!ProjectBrowser class methodsFor:'tableColumns specs'!
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2725
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2726
classTableColumns
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2727
    "This resource specification was automatically generated
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2728
     by the DataSetBuilder of ST/X."
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2729
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2730
    "Do not manually edit this!! If it is corrupted,
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2731
     the DataSetBuilder may not be able to read the specification."
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2732
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2733
    "
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2734
     DataSetBuilder new openOnClass:ProjectBrowser andSelector:#classTableColumns
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2735
    "
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2736
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2737
    <resource: #tableColumns>
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2738
1235
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  2739
    ^#(
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  2740
      #(#DataSetColumnSpec
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  2741
         #label: 'Class'
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  2742
         #id: 'classColumn'
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  2743
         #labelAlignment: #left
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  2744
         #model: #classNameFromClassInfo:
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2745
       )
1235
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  2746
      #(#DataSetColumnSpec
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  2747
         #label: 'Included'
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  2748
         #id: 'inclusion'
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  2749
         #width: 150
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  2750
         #editorType: #ComboList
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  2751
         #choices: #listOfPossibleConditions:
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  2752
         #model: #classIncludeConditionFromClassInfo:
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  2753
         #writeSelector: #classIncludeConditionFromClassInfo:put:
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2754
       )
1235
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  2755
      #(#DataSetColumnSpec
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  2756
         #label: 'Filename'
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  2757
         #labelAlignment: #left
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  2758
         #minWidth: 200
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  2759
         #model: #classFilenameFromClassInfo:
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2760
       )
1235
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  2761
      )
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  2762
    
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  2763
!
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  2764
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  2765
patchesTableColumns
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  2766
    "This resource specification was automatically generated
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  2767
     by the DataSetBuilder of ST/X."
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  2768
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  2769
    "Do not manually edit this!! If it is corrupted,
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  2770
     the DataSetBuilder may not be able to read the specification."
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  2771
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  2772
    "
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  2773
     DataSetBuilder new openOnClass:ProjectBrowser andSelector:#patchesTableColumns
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  2774
    "
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  2775
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  2776
    <resource: #tableColumns>
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  2777
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2778
    ^#(
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2779
      #(#DataSetColumnSpec
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2780
         #label: 'Class'
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2781
         #id: 'classColumn'
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2782
         #labelAlignment: #left
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2783
         #menu: #patchesMethodMenu
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2784
         #model: #classNameFromMethodInfo:
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2785
         #doubleClickedSelector: #methodPatchDoubleClick:
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2786
         #canSelect: false
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  2787
       )
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2788
      #(#DataSetColumnSpec
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2789
         #label: 'Selector'
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2790
         #id: 'selectorColumn'
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2791
         #labelAlignment: #left
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  2792
         #model: #selectorFromMethodInfo:
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2793
         #canSelect: false
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  2794
       )
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2795
      )
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2796
    
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2797
! !
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2798
1099
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  2799
!ProjectBrowser methodsFor:'accessing'!
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  2800
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  2801
selectedTreeNode
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  2802
    "automatically generated by UIPainter ..."
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  2803
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  2804
    ^ self selectedTreeNodeHolder value
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  2805
! !
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  2806
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2807
!ProjectBrowser methodsFor:'aspects'!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2808
1108
e88edf4a8cbe editFields - accept
Claus Gittinger <cg@exept.de>
parents: 1107
diff changeset
  2809
acceptChannel
e88edf4a8cbe editFields - accept
Claus Gittinger <cg@exept.de>
parents: 1107
diff changeset
  2810
    |holder|
e88edf4a8cbe editFields - accept
Claus Gittinger <cg@exept.de>
parents: 1107
diff changeset
  2811
e88edf4a8cbe editFields - accept
Claus Gittinger <cg@exept.de>
parents: 1107
diff changeset
  2812
    (holder := builder bindingAt:#acceptChannel) isNil ifTrue:[
e88edf4a8cbe editFields - accept
Claus Gittinger <cg@exept.de>
parents: 1107
diff changeset
  2813
        holder := false asValue.
e88edf4a8cbe editFields - accept
Claus Gittinger <cg@exept.de>
parents: 1107
diff changeset
  2814
        builder aspectAt:#acceptChannel put:holder.
e88edf4a8cbe editFields - accept
Claus Gittinger <cg@exept.de>
parents: 1107
diff changeset
  2815
    ].
e88edf4a8cbe editFields - accept
Claus Gittinger <cg@exept.de>
parents: 1107
diff changeset
  2816
    ^ holder.
e88edf4a8cbe editFields - accept
Claus Gittinger <cg@exept.de>
parents: 1107
diff changeset
  2817
e88edf4a8cbe editFields - accept
Claus Gittinger <cg@exept.de>
parents: 1107
diff changeset
  2818
    "Created: / 23.3.1999 / 14:18:05 / cg"
e88edf4a8cbe editFields - accept
Claus Gittinger <cg@exept.de>
parents: 1107
diff changeset
  2819
!
e88edf4a8cbe editFields - accept
Claus Gittinger <cg@exept.de>
parents: 1107
diff changeset
  2820
1094
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2821
browseClass
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2822
    |node classOrClassName cls|
1094
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2823
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2824
    self hasClassNodeSelected ifFalse:[^ self].
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2825
1099
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  2826
    node := self selectedTreeNode.
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2827
    classOrClassName := node contents value.
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2828
    classOrClassName isBehavior ifTrue:[
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2829
        cls := classOrClassName.
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2830
    ] ifFalse:[
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2831
        cls := Smalltalk at:classOrClassName.
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2832
    ].
1094
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2833
    cls isNil ifTrue:[
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2834
        self information:'The class is not (yet) loaded'.
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2835
        ^ self.
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2836
    ].
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2837
    cls isLoaded ifFalse:[
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2838
        self information:'The class is an autoloaded class.'.
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2839
    ].
1094
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2840
    SystemBrowser openInClass:cls selector:nil.
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2841
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2842
!
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  2843
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2844
canAddSelectedClassToPrerequisites
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2845
    |holder|
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2846
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2847
    (holder := builder bindingAt:#canAddSelectedClassToPrerequisites) isNil ifTrue:[
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2848
        holder := BlockValue 
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2849
                        with:[:m | self canAddClassToPrerequisites:m] 
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2850
                        argument:(self selectedClassInPrerequisites).
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2851
        builder aspectAt:#canAddSelectedClassToPrerequisites put:holder.
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
    ^ holder.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2854
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2855
    "Created: / 23.3.1999 / 14:18:05 / cg"
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2856
!
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2857
1089
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2858
canAddSelectedProjectToPrerequisites
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2859
    |holder|
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2860
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2861
    (holder := builder bindingAt:#canAddSelectedProjectToPrerequisites) isNil ifTrue:[
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  2862
        holder := BlockValue 
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2863
                        with:[:m | self canAddProjectToPrerequisites:m] 
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  2864
                        argument:(self selectedProjectInPrerequisites).
1089
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2865
        builder aspectAt:#canAddSelectedProjectToPrerequisites put:holder.
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2866
    ].
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2867
    ^ holder.
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2868
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2869
    "Created: / 23.3.1999 / 14:18:05 / cg"
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2870
!
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2871
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2872
canDeliverBinaryForMacOS
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2873
    ^ OperatingSystem platformName == #macOS
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2874
!
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2875
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2876
canDeliverBinaryForUnix
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2877
    ^ OperatingSystem platformName == #unix 
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2878
!
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2879
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2880
canDeliverBinaryForVMS
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2881
    ^ OperatingSystem platformName == #vms 
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2882
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2883
!
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2884
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2885
canDeliverBinaryForWin32
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2886
    ^ OperatingSystem platformName == #win32 
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2887
!
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2888
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2889
canDeliverForMacOS
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2890
    |holder|
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2891
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2892
    (holder := builder bindingAt:#canDeliverForMacOS) isNil ifTrue:[
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2893
        holder := BlockValue 
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2894
                        with:[:a1 :a2 | a1 or:[a2 not]] 
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2895
                        arguments:(Array 
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2896
                                        with:self canDeliverBinaryForMacOS
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2897
                                        with:self deliverCompiledBinary).
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2898
        builder aspectAt:#canDeliverForMacOS put:holder.
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2899
    ].
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2900
    ^ holder.
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2901
!
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2902
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2903
canDeliverForUnix
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2904
    |holder|
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2905
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2906
    (holder := builder bindingAt:#canDeliverForUnix) isNil ifTrue:[
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2907
        holder := BlockValue 
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2908
                        with:[:a1 :a2 | a1 or:[a2 not]] 
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2909
                        arguments:(Array 
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2910
                                        with:self canDeliverBinaryForUnix
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2911
                                        with:self deliverCompiledBinary).
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2912
        builder aspectAt:#canDeliverForUnix put:holder.
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2913
    ].
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2914
    ^ holder.
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2915
!
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2916
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2917
canDeliverForVMS
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2918
    |holder|
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2919
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2920
    (holder := builder bindingAt:#canDeliverForVMS) isNil ifTrue:[
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2921
        holder := BlockValue 
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2922
                        with:[:a1 :a2 | a1 or:[a2 not]] 
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2923
                        arguments:(Array 
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2924
                                        with:self canDeliverBinaryForVMS
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2925
                                        with:self deliverCompiledBinary).
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2926
        builder aspectAt:#canDeliverForVMS put:holder.
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2927
    ].
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2928
    ^ holder.
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2929
!
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2930
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2931
canDeliverForWin32
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2932
    |holder|
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2933
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2934
    (holder := builder bindingAt:#canDeliverForWin32) isNil ifTrue:[
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2935
        holder := BlockValue 
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2936
                        with:[:a1 :a2 | a1 or:[a2 not]] 
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2937
                        arguments:(Array 
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2938
                                        with:self canDeliverBinaryForWin32
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2939
                                        with:self deliverCompiledBinary).
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2940
        builder aspectAt:#canDeliverForWin32 put:holder.
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2941
    ].
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2942
    ^ holder.
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2943
!
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  2944
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2945
canRemoveSelectedClassFromPrerequisites
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2946
    |holder|
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2947
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2948
    (holder := builder bindingAt:#canRemoveSelectedClassFromPrerequisites) isNil ifTrue:[
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2949
        holder := BlockValue with:[:m | m notNil] argument:(self selectedRequiredClassInPrerequisites).
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2950
        builder aspectAt:#canRemoveSelectedClassFromPrerequisites put:holder.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2951
    ].
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2952
    ^ holder.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2953
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2954
    "Created: / 23.3.1999 / 14:18:05 / cg"
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2955
!
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  2956
1089
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2957
canRemoveSelectedProjectFromPrerequisites
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2958
    |holder|
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2959
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2960
    (holder := builder bindingAt:#canRemoveSelectedProjectFromPrerequisites) isNil ifTrue:[
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2961
        holder := BlockValue with:[:m | m notNil] argument:(self selectedRequiredProjectInPrerequisites).
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2962
        builder aspectAt:#canRemoveSelectedProjectFromPrerequisites put:holder.
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2963
    ].
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2964
    ^ holder.
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2965
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2966
    "Created: / 23.3.1999 / 14:18:05 / cg"
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2967
!
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  2968
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2969
classList
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2970
    "automatically generated by UIPainter ..."
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2971
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2972
    |holder|
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2973
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2974
    (holder := builder bindingAt:#classList) isNil ifTrue:[
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2975
        builder aspectAt:#classList put:(holder :=  List new).
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2976
    ].
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2977
    ^ holder.
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2978
!
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2979
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2980
classTableAdaptor
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2981
    ^ self
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2982
!
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2983
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2984
classTableColumns
1038
41da0e38af84 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1037
diff changeset
  2985
    ^ self class classTableColumns
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2986
!
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  2987
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2988
currentCanvasHolder
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2989
    "automatically generated by UIPainter ..."
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2990
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2991
    |holder|
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2992
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2993
    (holder := builder bindingAt:#currentCanvasHolder) isNil ifTrue:[
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2994
        builder aspectAt:#currentCanvasHolder put:(holder :=  ValueHolder new).
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2995
    ].
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2996
    ^ holder.
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2997
!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2998
1080
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  2999
currentProjectWasNotLoadedFromFile
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3000
    "automatically generated by UIPainter ..."
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3001
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3002
    |holder|
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3003
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3004
    (holder := builder bindingAt:#currentProjectWasNotLoadedFromFile) isNil ifTrue:[
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3005
        builder aspectAt:#currentProjectWasNotLoadedFromFile put:(holder :=  ValueHolder new).
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3006
    ].
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3007
    ^ holder.
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3008
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3009
    "Created: / 23.3.1999 / 14:01:09 / cg"
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3010
!
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3011
1229
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  3012
deliverByteCode
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  3013
    "automatically generated by UIPainter ..."
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  3014
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  3015
    |holder|
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  3016
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  3017
    (holder := builder bindingAt:#deliverByteCode) isNil ifTrue:[
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  3018
        builder aspectAt:#deliverByteCode put:(holder :=  ValueHolder new).
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  3019
        holder onChangeSend:#value to:[modifiedChannel value:true].
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  3020
    ].
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  3021
    ^ holder.
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  3022
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  3023
    "Created: / 23.3.1999 / 14:18:05 / cg"
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  3024
!
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  3025
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3026
deliverCompiledBinary
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3027
    "automatically generated by UIPainter ..."
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3028
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3029
    |holder|
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3030
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3031
    (holder := builder bindingAt:#deliverCompiledBinary) isNil ifTrue:[
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3032
        builder aspectAt:#deliverCompiledBinary put:(holder :=  ValueHolder new).
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3033
        holder onChangeSend:#value to:[modifiedChannel value:true].
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3034
    ].
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3035
    ^ holder.
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3036
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3037
    "Created: / 23.3.1999 / 14:18:05 / cg"
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3038
!
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3039
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3040
deliverGZipArchive
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3041
    "automatically generated by UIPainter ..."
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3042
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3043
    |holder|
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3044
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3045
    (holder := builder bindingAt:#deliverGZipArchive) isNil ifTrue:[
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3046
        builder aspectAt:#deliverGZipArchive put:(holder :=  ValueHolder new).
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3047
        holder onChangeSend:#value to:[modifiedChannel value:true].
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3048
    ].
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3049
    ^ holder.
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3050
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3051
    "Created: / 23.3.1999 / 14:18:05 / cg"
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3052
!
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3053
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3054
deliverLoadAllFile
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3055
    "automatically generated by UIPainter ..."
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3056
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3057
    |holder|
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3058
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3059
    (holder := builder bindingAt:#deliverLoadAllFile) isNil ifTrue:[
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3060
        builder aspectAt:#deliverLoadAllFile put:(holder :=  ValueHolder new).
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3061
        holder onChangeSend:#value to:[modifiedChannel value:true].
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3062
    ].
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3063
    ^ holder.
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3064
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3065
    "Created: / 23.3.1999 / 14:18:05 / cg"
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3066
!
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3067
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3068
deliverMakefiles
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3069
    "automatically generated by UIPainter ..."
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3070
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3071
    |holder|
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3072
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3073
    (holder := builder bindingAt:#deliverMakefiles) isNil ifTrue:[
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3074
        builder aspectAt:#deliverMakefiles put:(holder :=  ValueHolder new).
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3075
        holder onChangeSend:#value to:[modifiedChannel value:true].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3076
    ].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3077
    ^ holder.
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3078
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3079
    "Created: / 23.3.1999 / 14:18:05 / cg"
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3080
!
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3081
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3082
deliverSources
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3083
    "automatically generated by UIPainter ..."
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3084
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3085
    |holder|
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3086
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3087
    (holder := builder bindingAt:#deliverSources) isNil ifTrue:[
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3088
        builder aspectAt:#deliverSources put:(holder :=  ValueHolder new).
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3089
        holder onChangeSend:#value to:[modifiedChannel value:true].
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3090
    ].
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3091
    ^ holder.
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3092
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3093
    "Created: / 23.3.1999 / 14:18:05 / cg"
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3094
!
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3095
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3096
deliverTarArchive
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3097
    "automatically generated by UIPainter ..."
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3098
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3099
    |holder|
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3100
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3101
    (holder := builder bindingAt:#deliverTarArchive) isNil ifTrue:[
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3102
        builder aspectAt:#deliverTarArchive put:(holder :=  ValueHolder new).
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3103
        holder onChangeSend:#value to:[modifiedChannel value:true].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3104
    ].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3105
    ^ holder.
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3106
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3107
    "Created: / 23.3.1999 / 14:18:05 / cg"
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3108
!
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3109
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3110
deliverZipArchive
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3111
    "automatically generated by UIPainter ..."
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3112
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3113
    |holder|
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3114
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3115
    (holder := builder bindingAt:#deliverZipArchive) isNil ifTrue:[
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3116
        builder aspectAt:#deliverZipArchive put:(holder :=  ValueHolder new).
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3117
        holder onChangeSend:#value to:[modifiedChannel value:true].
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3118
    ].
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3119
    ^ holder.
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3120
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3121
    "Created: / 23.3.1999 / 14:18:05 / cg"
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3122
!
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3123
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3124
hasProjectSelectedAndProjectFilenameHolder
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3125
    ^ [ |dir|
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3126
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3127
        dir := self projectDirectory value asFilename.
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3128
        (dir exists and:[dir isDirectory]) ifTrue:[
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3129
            self hasProjectSelectedHolder value
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3130
        ] ifFalse:[
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3131
            false
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3132
        ]
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3133
    ].
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3134
!
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3135
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3136
hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3137
    ^ [ |dir|
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3138
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3139
        dir := self projectDirectory value asFilename.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3140
        (dir exists and:[dir isDirectory]) ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3141
            (self hasProjectSelectedHolder value) ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3142
                self projectCodeIsLoaded value
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3143
            ] ifFalse:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3144
                false.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3145
            ]
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3146
        ] ifFalse:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3147
            false
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3148
        ]
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3149
    ].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3150
!
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3151
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3152
hasProjectSelectedHolder
1116
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  3153
    |holder|
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  3154
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  3155
    (holder := builder bindingAt:#hasProjectSelectedHolder) isNil ifTrue:[
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  3156
        holder := false asValue.
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  3157
        builder aspectAt:#hasProjectSelectedHolder put:holder.
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  3158
    ].
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  3159
    ^ holder.
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  3160
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  3161
    "Modified: / 26.4.1999 / 22:47:33 / cg"
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3162
!
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3163
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3164
hasSubProjectsSelectedHolder
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3165
    ^ [
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3166
        self hasSubProjectsNodeSelected
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3167
      ]
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3168
!
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3169
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3170
htmlDocumentURLHolder
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3171
    "automatically generated by UIPainter ..."
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3172
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3173
    |holder|
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3174
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3175
    (holder := builder bindingAt:#htmlDocumentURLHolder) isNil ifTrue:[
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3176
        builder aspectAt:#htmlDocumentURLHolder put:(holder :=  ValueHolder new).
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3177
    ].
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3178
    ^ holder.
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3179
!
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3180
1149
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  3181
installDirectoryMacOS
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  3182
    "automatically generated by UIPainter ..."
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  3183
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  3184
    |holder|
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  3185
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  3186
    (holder := builder bindingAt:#installDirectoryMacOS) isNil ifTrue:[
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  3187
        builder aspectAt:#installDirectoryMacOS put:(holder := '' asValue).
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  3188
        holder onChangeSend:#value to:[modifiedChannel value:true].
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  3189
    ].
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  3190
    ^ holder.
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  3191
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  3192
    "Created: / 23.3.1999 / 14:18:05 / cg"
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  3193
!
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  3194
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3195
installDirectoryUnix
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3196
    "automatically generated by UIPainter ..."
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3197
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3198
    |holder|
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3199
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3200
    (holder := builder bindingAt:#installDirectoryUnix) isNil ifTrue:[
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3201
        builder aspectAt:#installDirectoryUnix put:(holder := '/opt/smalltalk' asValue).
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3202
        holder onChangeSend:#value to:[modifiedChannel value:true].
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3203
    ].
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3204
    ^ holder.
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3205
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3206
    "Created: / 23.3.1999 / 14:18:05 / cg"
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3207
!
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3208
1149
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  3209
installDirectoryVMS
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  3210
    "automatically generated by UIPainter ..."
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  3211
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  3212
    |holder|
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  3213
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  3214
    (holder := builder bindingAt:#installDirectoryVMS) isNil ifTrue:[
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  3215
        builder aspectAt:#installDirectoryVMS put:(holder := '' asValue).
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  3216
        holder onChangeSend:#value to:[modifiedChannel value:true].
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  3217
    ].
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  3218
    ^ holder.
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  3219
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  3220
    "Created: / 23.3.1999 / 14:18:05 / cg"
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  3221
!
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  3222
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3223
installDirectoryWin32
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3224
    "automatically generated by UIPainter ..."
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3225
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3226
    |holder|
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3227
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3228
    (holder := builder bindingAt:#installDirectoryWin32) isNil ifTrue:[
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3229
        builder aspectAt:#installDirectoryWin32 put:(holder := '\Programme\SmalltalkX' asValue).
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3230
        holder onChangeSend:#value to:[modifiedChannel value:true].
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3231
    ].
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3232
    ^ holder.
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3233
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3234
    "Created: / 23.3.1999 / 14:18:05 / cg"
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3235
!
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3236
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3237
listOfAllClassesInPrerequisites
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3238
    |holder classes|
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3239
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3240
    (holder := builder bindingAt:#listOfAllClassesInPrerequisites) isNil ifTrue:[
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3241
        builder aspectAt:#listOfAllClassesInPrerequisites put:(holder := SortedCollection new asValue).
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3242
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3243
        "/ all unloaded classes and classes which where
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3244
        "/ loaded are candidates.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3245
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3246
        classes := Smalltalk allClasses 
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3247
                        select:[:cls |
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3248
                                cls isMeta not
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3249
                                and:[
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3250
                                    cls isLoaded not
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3251
                                    or:[cls wasAutoloaded]]
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3252
                               ].
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3253
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3254
        "/ mark currently loaded classes as bold;
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3255
        "/ 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
  3256
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3257
        classes := classes collect:[:cls | |nm|
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3258
                                        nm := cls name.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3259
                                        cls isLoaded ifTrue:[
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3260
                                            nm := nm asText allBold.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3261
                                        ].
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3262
                                        nm
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3263
                                   ].
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3264
        holder value addAll:classes.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3265
        self currentProject wasLoadedFromFile ifFalse:[
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3266
            self updateListOfRequiredPrerequisiteClasses.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3267
        ]
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3268
    ].
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3269
    ^ holder.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3270
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3271
    "Created: / 23.3.1999 / 14:18:05 / cg"
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3272
!
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3273
1089
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3274
listOfAllProjectsInPrerequisites
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3275
    "automatically generated by UIPainter ..."
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3276
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3277
    |holder projects currentProject|
1089
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3278
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3279
    (holder := builder bindingAt:#listOfAllProjectsInPrerequisites) isNil ifTrue:[
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3280
        builder aspectAt:#listOfAllProjectsInPrerequisites put:(holder := SortedCollection new asValue).
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3281
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3282
        currentProject := self currentProject.
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3283
1089
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3284
        projects := Set new.
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3285
        Project allInstancesDo:[:p |
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3286
            (p ~~ currentProject 
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3287
            and:[p ~~ Project defaultProject]) ifTrue:[
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3288
                projects add:p name.
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3289
            ]
1089
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3290
        ].
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3291
        holder value addAll:projects.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3292
    ].
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3293
    ^ holder.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3294
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3295
    "Created: / 23.3.1999 / 14:18:05 / cg"
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3296
!
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3297
1235
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  3298
listOfPossibleConditions:aRow
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  3299
    ^ #( always never autoload '-' unix win32 vms macos)
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  3300
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  3301
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  3302
!
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  3303
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3304
listOfRequiredClassesInPrerequisites
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3305
    "automatically generated by UIPainter ..."
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3306
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3307
    |holder|
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3308
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3309
    (holder := builder bindingAt:#listOfRequiredClassesInPrerequisites) isNil ifTrue:[
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3310
        builder aspectAt:#listOfRequiredClassesInPrerequisites put:(holder := SortedCollection new asValue).
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3311
        self currentProject wasLoadedFromFile ifFalse:[
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3312
            self updateListOfRequiredPrerequisiteClasses.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3313
        ]
1089
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3314
    ].
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3315
    ^ holder.
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3316
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3317
    "Created: / 23.3.1999 / 14:18:05 / cg"
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3318
!
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3319
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3320
listOfRequiredProjectsInPrerequisites
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3321
    "automatically generated by UIPainter ..."
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3322
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3323
    |holder|
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3324
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3325
    (holder := builder bindingAt:#listOfRequiredProjectsInPrerequisites) isNil ifTrue:[
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3326
        builder aspectAt:#listOfRequiredProjectsInPrerequisites put:(holder := SortedCollection new asValue).
1089
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3327
    ].
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3328
    ^ holder.
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3329
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3330
    "Created: / 23.3.1999 / 14:18:05 / cg"
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3331
!
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3332
1234
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3333
makeDefines
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3334
    "automatically generated by UIPainter ..."
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3335
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3336
    |holder|
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3337
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3338
    (holder := builder bindingAt:#makeDefines) isNil ifTrue:[
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3339
        builder aspectAt:#makeDefines put:(holder := '' asValue).
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3340
        holder onChangeSend:#value to:[modifiedChannel value:true].
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3341
    ].
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3342
    ^ holder.
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3343
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3344
    "Created: / 23.3.1999 / 14:18:05 / cg"
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3345
!
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3346
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3347
makeIncludes
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3348
    "automatically generated by UIPainter ..."
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3349
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3350
    |holder|
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3351
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3352
    (holder := builder bindingAt:#makeIncludes) isNil ifTrue:[
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3353
        builder aspectAt:#makeIncludes put:(holder := '' asValue).
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3354
        holder onChangeSend:#value to:[modifiedChannel value:true].
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3355
    ].
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3356
    ^ holder.
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3357
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3358
    "Created: / 23.3.1999 / 14:18:05 / cg"
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3359
!
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3360
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3361
makeOtherWarningOptions
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3362
    "automatically generated by UIPainter ..."
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3363
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3364
    |holder|
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3365
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3366
    (holder := builder bindingAt:#makeOtherWarningOptions) isNil ifTrue:[
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3367
        builder aspectAt:#makeOtherWarningOptions put:(holder := '' asValue).
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3368
        holder onChangeSend:#value to:[modifiedChannel value:true].
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3369
    ].
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3370
    ^ holder.
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3371
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3372
    "Created: / 23.3.1999 / 14:18:05 / cg"
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3373
!
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3374
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3375
makeWarnEOLComments
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3376
    "automatically generated by UIPainter ..."
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3377
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3378
    |holder|
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3379
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3380
    (holder := builder bindingAt:#makeWarnEOLComments) isNil ifTrue:[
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3381
        builder aspectAt:#makeWarnEOLComments put:(holder := false asValue).
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3382
        holder onChangeSend:#value to:[modifiedChannel value:true].
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3383
    ].
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3384
    ^ holder.
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3385
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3386
    "Created: / 23.3.1999 / 14:18:05 / cg"
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3387
!
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3388
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3389
makeWarnNonStandard
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3390
    "automatically generated by UIPainter ..."
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3391
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3392
    |holder|
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3393
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3394
    (holder := builder bindingAt:#makeWarnNonStandard) isNil ifTrue:[
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3395
        builder aspectAt:#makeWarnNonStandard put:(holder := true asValue).
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3396
        holder onChangeSend:#value to:[modifiedChannel value:true].
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3397
    ].
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3398
    ^ holder.
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3399
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3400
    "Created: / 23.3.1999 / 14:18:05 / cg"
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3401
!
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  3402
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3403
methodsFile
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3404
    "automatically generated by UIPainter ..."
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3405
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3406
    |holder|
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3407
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3408
    (holder := builder bindingAt:#methodsFile) isNil ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3409
        builder aspectAt:#methodsFile put:(holder := '' asValue).
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3410
        holder onChangeSend:#value to:[modifiedChannel value:true].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3411
    ].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3412
    ^ holder.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3413
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3414
    "Created: / 23.3.1999 / 14:18:05 / cg"
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3415
!
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3416
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3417
modifiedChannel
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3418
    "automatically generated by UIPainter ..."
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
    modifiedChannel isNil ifTrue:[
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3421
        modifiedChannel := false asValue.
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3422
    ].
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3423
    ^ modifiedChannel.
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3424
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3425
!
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3426
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  3427
patchesList
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  3428
    "automatically generated by UIPainter ..."
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  3429
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  3430
    |holder|
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  3431
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  3432
    (holder := builder bindingAt:#patchesList) isNil ifTrue:[
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  3433
        builder aspectAt:#patchesList put:(holder :=  List new).
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  3434
    ].
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  3435
    ^ holder.
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  3436
!
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  3437
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3438
projectCodeIsLoaded
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3439
    "automatically generated by UIPainter ..."
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3440
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3441
    |holder|
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3442
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3443
    (holder := builder bindingAt:#projectCodeIsLoaded) isNil ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3444
        builder aspectAt:#projectCodeIsLoaded put:(holder :=  ValueHolder new).
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3445
    ].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3446
    ^ holder.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3447
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3448
    "Created: / 23.3.1999 / 14:18:05 / cg"
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3449
!
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3450
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3451
projectDirectory
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3452
    "automatically generated by UIPainter ..."
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3453
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3454
    |holder|
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3455
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3456
    (holder := builder bindingAt:#projectDirectory) isNil ifTrue:[
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3457
        builder aspectAt:#projectDirectory put:(holder := '.' asValue).
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3458
        holder onChangeSend:#value to:[modifiedChannel value:true].
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3459
    ].
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3460
    ^ holder.
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3461
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3462
    "Created: / 23.3.1999 / 14:18:05 / cg"
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3463
!
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3464
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3465
projectNamespace
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3466
    "automatically generated by UIPainter ..."
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3467
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3468
    |holder|
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3469
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3470
    (holder := builder bindingAt:#projectNamespace) isNil ifTrue:[
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3471
        builder aspectAt:#projectNamespace put:(holder :=  ValueHolder new).
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3472
        holder onChangeSend:#value to:[modifiedChannel value:true].
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3473
    ].
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3474
    ^ holder.
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3475
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3476
    "Created: / 23.3.1999 / 14:18:05 / cg"
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3477
!
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3478
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3479
projectPackage
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3480
    |holder dir module|
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3481
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3482
    (holder := builder bindingAt:#projectPackage) isNil ifTrue:[
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3483
        builder aspectAt:#projectPackage put:(holder := '' asValue).
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3484
    ].
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3485
    holder value size == 0 ifTrue:[
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3486
        (module := self repositoryModule value) notNil ifTrue:[
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3487
            (dir := self repositoryDirectory value) notNil ifTrue:[
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3488
                holder value:(module , ':' , dir)
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3489
            ]
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3490
        ]
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3491
    ].
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3492
    ^ holder.
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3493
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3494
    "Created: / 23.3.1999 / 14:18:05 / cg"
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3495
!
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3496
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3497
projectTreeHolder
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3498
    "automatically generated by UIPainter ..."
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3499
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3500
    |holder|
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3501
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3502
    (holder := builder bindingAt:#projectTree) isNil ifTrue:[
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3503
        builder aspectAt:#projectTree put:(holder :=  SelectionInTree new).
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3504
        holder root:self projectTree.
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3505
    ].
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3506
    ^ holder.
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3507
!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3508
1080
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3509
projectType
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3510
    "automatically generated by UIPainter ..."
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3511
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3512
    |holder|
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3513
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3514
    (holder := builder bindingAt:#projectType) isNil ifTrue:[
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3515
        builder aspectAt:#projectType put:(holder :=  ValueHolder new).
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3516
        holder onChangeSend:#value to:[modifiedChannel value:true].
1080
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3517
    ].
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3518
    ^ holder.
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3519
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3520
    "Created: / 23.3.1999 / 14:18:05 / cg"
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3521
!
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  3522
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3523
repositoryDirectory
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3524
    "automatically generated by UIPainter ..."
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3525
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3526
    |holder|
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3527
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3528
    (holder := builder bindingAt:#repositoryDirectory) isNil ifTrue:[
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3529
        builder aspectAt:#repositoryDirectory put:(holder :=  ValueHolder new).
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3530
        holder onChangeSend:#value to:[modifiedChannel value:true].
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3531
    ].
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3532
    ^ holder.
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3533
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3534
    "Created: / 23.3.1999 / 14:18:05 / cg"
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3535
!
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3536
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3537
repositoryModule
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3538
    "automatically generated by UIPainter ..."
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3539
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3540
    |holder|
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3541
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3542
    (holder := builder bindingAt:#repositoryModule) isNil ifTrue:[
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3543
        builder aspectAt:#repositoryModule put:(holder :=  ValueHolder new).
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3544
        holder onChangeSend:#value to:[modifiedChannel value:true].
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3545
    ].
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3546
    ^ holder.
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3547
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3548
    "Created: / 23.3.1999 / 14:18:05 / cg"
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3549
!
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3550
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3551
rightCanvasTextHolder
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3552
    "automatically generated by UIPainter ..."
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3553
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3554
    |holder|
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3555
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3556
    (holder := builder bindingAt:#rightCanvasTextHolder) isNil ifTrue:[
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3557
        builder aspectAt:#rightCanvasTextHolder put:(holder :=  ValueHolder new).
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3558
    ].
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3559
    ^ holder.
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3560
!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3561
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3562
selectedClassInPrerequisites
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3563
    "automatically generated by UIPainter ..."
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3564
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3565
    |holder|
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3566
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3567
    (holder := builder bindingAt:#selectedClassInPrerequisites) isNil ifTrue:[
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3568
        builder aspectAt:#selectedClassInPrerequisites put:(holder := ValueHolder new).
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3569
    ].
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3570
    ^ holder.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3571
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3572
    "Created: / 23.3.1999 / 14:18:05 / cg"
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3573
!
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3574
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3575
selectedPatchInRightCanvas
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3576
    "automatically generated by UIPainter ..."
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3577
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3578
    |holder|
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3579
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3580
    (holder := builder bindingAt:#selectedPatchInRightCanvas) isNil ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3581
        builder aspectAt:#selectedPatchInRightCanvas put:(holder :=  ValueHolder new).
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3582
    ].
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3583
    ^ holder.
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3584
!
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3585
1089
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3586
selectedProjectInPrerequisites
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3587
    "automatically generated by UIPainter ..."
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3588
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3589
    |holder|
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3590
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3591
    (holder := builder bindingAt:#selectedProjectInPrerequisites) isNil ifTrue:[
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3592
        builder aspectAt:#selectedProjectInPrerequisites put:(holder := ValueHolder new).
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3593
    ].
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3594
    ^ holder.
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3595
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3596
    "Created: / 23.3.1999 / 14:18:05 / cg"
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3597
!
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3598
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3599
selectedRequiredClassInPrerequisites
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3600
    "automatically generated by UIPainter ..."
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3601
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3602
    |holder|
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3603
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3604
    (holder := builder bindingAt:#selectedRequiredClassInPrerequisites) isNil ifTrue:[
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3605
        builder aspectAt:#selectedRequiredClassInPrerequisites put:(holder := ValueHolder new).
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3606
    ].
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3607
    ^ holder.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3608
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3609
    "Created: / 23.3.1999 / 14:18:05 / cg"
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3610
!
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3611
1089
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3612
selectedRequiredProjectInPrerequisites
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3613
    "automatically generated by UIPainter ..."
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3614
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3615
    |holder|
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3616
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3617
    (holder := builder bindingAt:#selectedRequiredProjectInPrerequisites) isNil ifTrue:[
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3618
        builder aspectAt:#selectedRequiredProjectInPrerequisites put:(holder := ValueHolder new).
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3619
    ].
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3620
    ^ holder.
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3621
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3622
    "Created: / 23.3.1999 / 14:18:05 / cg"
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3623
!
9a44f4c861a2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1088
diff changeset
  3624
1099
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  3625
selectedTreeNodeHolder
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3626
    "automatically generated by UIPainter ..."
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3627
1210
30bd57bbe9ce better tree
Claus Gittinger <cg@exept.de>
parents: 1207
diff changeset
  3628
    selectedTreeNodeHolder isNil ifTrue:[
30bd57bbe9ce better tree
Claus Gittinger <cg@exept.de>
parents: 1207
diff changeset
  3629
        selectedTreeNodeHolder :=  ValueHolder new.
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3630
    ].
1210
30bd57bbe9ce better tree
Claus Gittinger <cg@exept.de>
parents: 1207
diff changeset
  3631
    ^ selectedTreeNodeHolder.
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3632
!
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3633
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3634
showWhat
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3635
    |holder|
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3636
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3637
    (holder := builder bindingAt:#showWhat) isNil ifTrue:[
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3638
        holder := ValueHolder new.
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3639
        builder aspectAt:#showWhat put:holder.
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  3640
        holder onChangeSend:#projectFilterChanged to:self.
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3641
    ].
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3642
    ^ holder.
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3643
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3644
    "Created: / 23.3.1999 / 14:18:05 / cg"
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  3645
!
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  3646
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  3647
textCanvasLabelHolder
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  3648
    "automatically generated by UIPainter ..."
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  3649
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  3650
    |holder|
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  3651
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  3652
    (holder := builder bindingAt:#textCanvasLabelHolder) isNil ifTrue:[
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  3653
        builder aspectAt:#textCanvasLabelHolder put:(holder :='' asValue).
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  3654
    ].
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  3655
    ^ holder.
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
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3658
!ProjectBrowser methodsFor:'change & update'!
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3659
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3660
update:something with:aParameter from:changedObject
1254
ca6590dae738 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1253
diff changeset
  3661
    |cls sel oldMthd newMthd prj package|
ca6590dae738 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1253
diff changeset
  3662
1085
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  3663
    something == #name ifTrue:[
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  3664
        "/ a project was renamed - update my tree
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  3665
        self projectTree children do:[:pNode |
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  3666
            pNode contents == changedObject ifTrue:[
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  3667
                pNode name:changedObject name.
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  3668
                pNode changed.
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  3669
            ]
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  3670
        ].
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  3671
        ^ self.
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  3672
    ].
a35169ceb247 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1081
diff changeset
  3673
1254
ca6590dae738 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1253
diff changeset
  3674
    prj := self currentProject.
ca6590dae738 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1253
diff changeset
  3675
    prj isNil ifTrue:[^ self].
ca6590dae738 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1253
diff changeset
  3676
ca6590dae738 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1253
diff changeset
  3677
    package := prj package.
ca6590dae738 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1253
diff changeset
  3678
ca6590dae738 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1253
diff changeset
  3679
    changedObject == prj ifTrue:[
1094
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3680
        self readAspectsFromProject.
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3681
    ].
1116
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  3682
1254
ca6590dae738 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1253
diff changeset
  3683
    changedObject == Smalltalk ifTrue:[
ca6590dae738 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1253
diff changeset
  3684
        something == #newClass ifTrue:[
ca6590dae738 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1253
diff changeset
  3685
            aParameter isBehavior ifTrue:[
ca6590dae738 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1253
diff changeset
  3686
                aParameter wasAutoloaded ifTrue:[
ca6590dae738 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1253
diff changeset
  3687
                    self listOfAllClassesInPrerequisites add:something name.
ca6590dae738 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1253
diff changeset
  3688
                    ^ self.
ca6590dae738 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1253
diff changeset
  3689
                ].
ca6590dae738 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1253
diff changeset
  3690
                aParameter package = package ifTrue:[
ca6590dae738 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1253
diff changeset
  3691
                    self halt.
ca6590dae738 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1253
diff changeset
  3692
                ]
ca6590dae738 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1253
diff changeset
  3693
            ]
ca6590dae738 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1253
diff changeset
  3694
        ].
ca6590dae738 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1253
diff changeset
  3695
ca6590dae738 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1253
diff changeset
  3696
        something == #methodInClass ifTrue:[
ca6590dae738 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1253
diff changeset
  3697
            cls := aParameter first.
ca6590dae738 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1253
diff changeset
  3698
            sel := aParameter second.
ca6590dae738 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1253
diff changeset
  3699
            oldMthd := aParameter third.
ca6590dae738 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1253
diff changeset
  3700
            newMthd := cls compiledMethodAt:sel.
ca6590dae738 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1253
diff changeset
  3701
ca6590dae738 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1253
diff changeset
  3702
            cls package ~= package ifTrue:[
ca6590dae738 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1253
diff changeset
  3703
                "/ method removed from project ?
ca6590dae738 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1253
diff changeset
  3704
                (oldMthd notNil and:[oldMthd package = package]) ifTrue:[
ca6590dae738 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1253
diff changeset
  3705
                    (newMthd notNil and:[newMthd package ~= package]) ifTrue:[
ca6590dae738 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1253
diff changeset
  3706
                        "/ remove from methodList
ca6590dae738 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1253
diff changeset
  3707
                    ]
ca6590dae738 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1253
diff changeset
  3708
                ].
ca6590dae738 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1253
diff changeset
  3709
ca6590dae738 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1253
diff changeset
  3710
                "/ method added to project ?
ca6590dae738 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1253
diff changeset
  3711
                (oldMthd isNil or:[oldMthd package ~= package]) ifTrue:[
ca6590dae738 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1253
diff changeset
  3712
                    (newMthd notNil and:[newMthd package = package]) ifTrue:[
ca6590dae738 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1253
diff changeset
  3713
                        "/ add to methodList
ca6590dae738 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1253
diff changeset
  3714
                    ]
ca6590dae738 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1253
diff changeset
  3715
                ]
ca6590dae738 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1253
diff changeset
  3716
            ]
ca6590dae738 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1253
diff changeset
  3717
        ].
ca6590dae738 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1253
diff changeset
  3718
    ].
ca6590dae738 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1253
diff changeset
  3719
1116
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  3720
    "Modified: / 26.4.1999 / 23:39:04 / cg"
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3721
! !
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3722
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3723
!ProjectBrowser methodsFor:'initialization'!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3724
1254
ca6590dae738 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1253
diff changeset
  3725
closeDownViews
ca6590dae738 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1253
diff changeset
  3726
    Smalltalk removeDependent:self.
ca6590dae738 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1253
diff changeset
  3727
    super closeDownViews.
ca6590dae738 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1253
diff changeset
  3728
!
ca6590dae738 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1253
diff changeset
  3729
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3730
postBuildWith:aBuiler
1254
ca6590dae738 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1253
diff changeset
  3731
    Smalltalk addDependent:self.
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3732
    self modifiedChannel value:false.
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3733
1095
660185e02224 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1094
diff changeset
  3734
    self updateRightCanvas.
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3735
    ^ super postBuildWith:aBuiler
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3736
!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3737
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3738
setupCanvasForNoSelection
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  3739
    self 
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  3740
        showReadOnlyText:'Please select an existing project,
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  3741
load one from a (''.prj'')-file,
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3742
or create a new project.'.
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3743
! !
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3744
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3745
!ProjectBrowser methodsFor:'menus'!
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3746
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3747
itemMenu
1052
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  3748
    |m|
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  3749
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3750
    self hasNodeSelected ifFalse:[
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3751
        ^ self class noItemMenu
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3752
    ].
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3753
    self hasProjectNodeSelected ifTrue:[
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3754
        ^ self class projectItemMenu
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3755
    ].      
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3756
    self hasSubProjectsNodeSelected ifTrue:[
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3757
        ^ self class subProjectsItemMenu
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3758
    ].      
1052
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  3759
    self hasClassesNodeSelected ifTrue:[
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  3760
        ^ self class classesItemMenu
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  3761
    ].      
1094
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3762
    self hasClassNodeSelected ifTrue:[
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3763
        ^ self class classItemMenu
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3764
    ].      
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3765
    self hasMethodNodeSelected ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3766
        ^ self class methodItemMenu
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3767
    ].      
1255
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  3768
    self hasPatchesNodeSelected ifTrue:[
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  3769
        ^ self class methodsItemMenu
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  3770
    ].      
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3771
    self hasPrerequisiteClassesNodeSelected ifTrue:[
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3772
        ^ self class prerequisiteClassesItemMenu
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3773
    ].      
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3774
    ^ nil
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3775
!
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3776
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3777
itemMenuHolder
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3778
    ^ [ self itemMenu]
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3779
!
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3780
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3781
itemMenuPerformer
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  3782
    ^ self
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3783
! !
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3784
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3785
!ProjectBrowser methodsFor:'private'!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3786
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3787
addProjectNodeToTree:newNode
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3788
    |aProject nodeToAdd path childNode|
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3789
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3790
"/    projectTree add:newNode.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3791
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3792
    "/ insert into tree ...
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3793
    nodeToAdd := projectTree.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3794
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3795
    path := newNode contents package asCollectionOfSubstringsSeparatedByAny:'/\:'.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3796
    path from:1 to:path size-1 do:[:part |
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3797
        childNode := nodeToAdd children detect:[:child | child name = part] ifNone:nil.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3798
        childNode isNil ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3799
            nodeToAdd add:(childNode := ProjectTreeItem new name:part).
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3800
        ].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3801
        nodeToAdd := childNode.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3802
    ].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3803
    newNode name:(path last).
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3804
    nodeToAdd add:newNode.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3805
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3806
!
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3807
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3808
canAddClassToPrerequisites:aClassName
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3809
    ^ aClassName notNil
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3810
!
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3811
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3812
canAddProjectToPrerequisites:aProjectName
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3813
    ^ aProjectName notNil
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3814
      and:[aProjectName ~= self currentProject name]
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3815
!
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  3816
1094
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3817
canLoadClassesFromDirectory
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3818
    |p projectDir|
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3819
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3820
    self hasClassesNodeSelected ifFalse:[^ false].
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3821
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3822
    (p := self currentProject) isNil ifTrue:[^ false].
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3823
    (projectDir := p directory) size == 0 ifTrue:[^ false].
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3824
    projectDir asFilename exists ifFalse:[^ false].
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3825
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3826
    ^ true
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3827
!
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3828
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3829
canLoadClassesFromRepository
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3830
    |manager p moduleDir packageDir|
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3831
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3832
    self hasClassesNodeSelected ifFalse:[^ false].
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3833
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3834
    (p := self currentProject) isNil ifTrue:[^ false].
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3835
    (moduleDir := p repositoryModule) size == 0 ifTrue:[^ false].
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3836
    (packageDir := p repositoryDirectory) size == 0 ifTrue:[^ false].
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3837
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3838
    "/ SourceCodeManager available ?
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3839
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3840
    (AbstractSourceCodeManager notNil 
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3841
    and:[AbstractSourceCodeManager isLoaded not]) ifTrue:[
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3842
        AbstractSourceCodeManager autoload.    
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3843
    ].
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3844
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3845
    AbstractSourceCodeManager isNil ifTrue:[^ false].
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3846
    AbstractSourceCodeManager isLoaded ifFalse:[^ false].
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3847
    (manager := Smalltalk at:#SourceCodeManager) isNil ifTrue:[^ false].
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3848
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3849
    "/ does the repository contain the module/package ?
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3850
    "/ since this is a slow operation (involving the CVS manager,
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3851
    "/ remember checked modules here in a classVar
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3852
    AlreadCheckedExistingModulesAndPackages isNil ifTrue:[
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3853
        AlreadCheckedExistingModulesAndPackages := OrderedCollection new
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3854
    ].
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3855
    AlreadCheckedExistingModulesAndPackages do:[:entry |
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3856
        (entry at:1) = moduleDir ifTrue:[
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3857
            (entry at:2) = packageDir ifTrue:[
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3858
                ^ true
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3859
            ]
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3860
        ]
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3861
    ].
1094
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3862
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3863
    (manager checkForExistingModule:moduleDir package:packageDir) ifFalse:[^ false].
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3864
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  3865
    AlreadCheckedExistingModulesAndPackages add:(Array with:moduleDir with:packageDir).
1094
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3866
    ^ true
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3867
!
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3868
1289
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  3869
checkInClasses:aCollectionOfClasses
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  3870
    |logMessage|
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  3871
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  3872
    logMessage := SourceCodeManagerUtilities getLogMessageFor:'classes in project'.
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  3873
    SourceCodeManagerUtilities checkinClasses:aCollectionOfClasses withLog:logMessage.
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  3874
    self halt.
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  3875
!
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  3876
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3877
currentProject
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3878
    |node|
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3879
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3880
    node := self currentProjectNode.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3881
    node isNil ifTrue:[^ nil].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3882
    ^ node contents
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3883
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3884
!
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3885
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3886
currentProjectNode
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3887
    |node|
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3888
1099
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  3889
    node := self selectedTreeNode.
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3890
    node isNil ifTrue:[^ nil].
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3891
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3892
    [node notNil and:[node isProjectNode not]] whileTrue:[
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3893
        node := node parent.
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3894
    ].
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3895
    node notNil ifTrue:[
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3896
        ^ node
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3897
    ].
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3898
    ^ nil
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3899
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3900
!
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  3901
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3902
currentProjectsClassNames
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3903
    |p|
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3904
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3905
    p := self currentProject.
1253
9b66c237df0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1251
diff changeset
  3906
    ^ p classes 
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3907
        collect:[:classOrSymbol |
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3908
                    classOrSymbol isBehavior ifTrue:[
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3909
                        classOrSymbol name
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3910
                    ] ifFalse:[
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3911
                        classOrSymbol
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  3912
                    ]
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3913
                ]
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3914
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3915
!
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3916
1239
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
  3917
expandPathToNodeFor:someContents
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
  3918
    |theNode|
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
  3919
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
  3920
    theNode := self projectTreeHolder 
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
  3921
                    detectFirstItem:[:item | item contents == someContents].
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
  3922
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
  3923
    [theNode notNil] whileTrue:[
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
  3924
        self projectTreeHolder expand:theNode.
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
  3925
        theNode := theNode parent.
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
  3926
    ].
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
  3927
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
  3928
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
  3929
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
  3930
!
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
  3931
1094
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3932
hasClassNodeSelected
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3933
    |selectedNode|
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3934
1099
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  3935
    selectedNode := self selectedTreeNode.
1094
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3936
    selectedNode isNil ifTrue:[^ false].
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3937
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3938
    ^ selectedNode contents isAssociation
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3939
      and:[selectedNode contents key == #class]
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3940
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3941
!
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  3942
1052
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  3943
hasClassesNodeSelected
1255
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  3944
    ^ self hasNodeSelected:#classes.
1052
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  3945
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  3946
!
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  3947
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3948
hasMethodNodeSelected
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3949
    |selectedNode|
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3950
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3951
    selectedNode := self selectedTreeNode.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3952
    selectedNode isNil ifTrue:[^ false].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3953
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3954
    ^ selectedNode contents isAssociation
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3955
      and:[selectedNode contents key == #method]
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3956
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3957
!
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3958
1255
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  3959
hasNodeSelected
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  3960
    ^ self selectedTreeNode notNil
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  3961
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  3962
!
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  3963
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  3964
hasNodeSelected:type
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3965
    |selectedNode|
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3966
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3967
    selectedNode := self selectedTreeNode.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3968
    selectedNode isNil ifTrue:[^ false].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3969
1255
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  3970
    ^ selectedNode contents == type
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  3971
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  3972
!
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  3973
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  3974
hasPatchesNodeSelected
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  3975
    ^ self hasNodeSelected:#patches.
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3976
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3977
!
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  3978
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3979
hasPrerequisiteClassesNodeSelected
1255
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  3980
    ^ self hasNodeSelected:#prerequisiteClasses.
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3981
!
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  3982
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3983
hasProjectNodeSelected
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3984
    |selectedNode|
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3985
1099
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  3986
    selectedNode := self selectedTreeNode.
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3987
    selectedNode isNil ifTrue:[^ false].
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3988
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3989
    ^ selectedNode isProjectNode
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3990
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3991
!
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  3992
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3993
hasProjectSelected
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3994
    |selectedNode node|
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3995
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3996
    selectedNode := self selectedTreeNode.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3997
    selectedNode isNil ifTrue:[^ false].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3998
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  3999
    node := selectedNode.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4000
    [node notNil] whileTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4001
        node isProjectNode ifTrue:[^ true].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4002
        node := node parent.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4003
    ].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4004
    ^ false.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4005
!
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4006
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4007
hasSubProjectsNodeSelected
1255
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  4008
    ^ self hasNodeSelected:#subprojects.
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4009
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4010
!
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4011
1251
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  4012
makeTranscriptVisible
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  4013
    |transcript|
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  4014
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  4015
    transcript := self transcript.
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  4016
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  4017
    (transcript relativeCorner y - transcript relativeOrigin y) < 0.1 ifTrue:[
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  4018
        (self builder componentAt:#VariableVerticalPanel1)      
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  4019
            resizeSubViewsTo:#(0.7 0.3)
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  4020
    ].
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  4021
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  4022
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  4023
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  4024
!
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  4025
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4026
nodeFor:aProject
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4027
    "generate and return a treeNode for some project"
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4028
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4029
    |projectName pNode 
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  4030
     propertiesNode docNode classesNode patchesNode subprojectsNode filesNode
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  4031
     commentNode prerequisitesNode analysisNode designNode codeNode
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4032
     userDocNode userOverViewNode userGuideNode userRefManNode
1234
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  4033
     deploymentNode classIcon methodIcon buildOptionsNode
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  4034
     prerequisiteProjectsNode prerequisiteClassesNode|
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4035
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4036
    projectName := aProject name.
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4037
    pNode := ProjectNode name:projectName.
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4038
    pNode contents:aProject.
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4039
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4040
    pNode add:(commentNode := ProjectTreeItem name:'Comment').
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4041
"/    pNode add:(docNode := ProjectTreeItem name:'Documentation').
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4042
    pNode add:(propertiesNode := ProjectTreeItem name:'Properties').
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4043
    pNode add:(prerequisitesNode := ProjectTreeItem name:'Prerequisites').
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4044
"/    pNode add:(subprojectsNode := ProjectTreeItem name:'SubProjects').
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  4045
    pNode add:(classesNode := ProjectTreeItem name:'Classes').
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  4046
    pNode add:(patchesNode := ProjectTreeItem name:'Patches').
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4047
    pNode add:(filesNode := ProjectTreeItem name:'Files').
1234
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  4048
    pNode add:(buildOptionsNode := ProjectTreeItem name:'Build Options').
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4049
    pNode add:(deploymentNode := ProjectTreeItem name:'Deployment').
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4050
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4051
    subprojectsNode notNil ifTrue:[
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4052
        subprojectsNode contents:#subprojects.
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4053
        aProject subProjects do:[:aSubProject |
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4054
            subprojectsNode add:(self nodeFor:aSubProject)
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4055
        ].
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4056
    ].
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4057
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4058
    commentNode icon:(self class commentIcon).
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4059
    commentNode action:[:item | self showCommentOf:item].
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  4060
    commentNode info:'Some comment describing the project'.
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4061
    commentNode contents:#comment.
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4062
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4063
    docNode notNil ifTrue:[
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4064
        docNode contents:#documentation.
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4065
        docNode action:[:item | self showDocumentationFor:item].
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4066
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4067
        docNode add:(analysisNode := ProjectTreeItem name:'Analysis').
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4068
        docNode add:(designNode := ProjectTreeItem name:'Design').
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4069
        docNode add:(codeNode := ProjectTreeItem name:'Code').
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4070
        docNode add:(userDocNode := ProjectTreeItem name:'User Documentation').
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4071
        userDocNode add:(userOverViewNode := ProjectTreeItem name:'Overview').
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4072
        userDocNode add:(userGuideNode := ProjectTreeItem name:'Guide').
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4073
        userDocNode add:(userRefManNode := ProjectTreeItem name:'Reference').
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4074
        docNode add:(userDocNode := ProjectTreeItem name:'Error Reports').
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4075
        docNode add:(userDocNode := ProjectTreeItem name:'Other').
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4076
    ].
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  4077
1080
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  4078
    prerequisitesNode icon:(self class prerequisitesIcon).
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4079
    prerequisitesNode add:(prerequisiteProjectsNode := ProjectTreeItem name:'Packages').
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  4080
    prerequisitesNode add:(prerequisiteClassesNode := ProjectTreeItem name:'Classes').
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  4081
    prerequisitesNode info:'Other projects and classes required by the project'.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  4082
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  4083
    prerequisiteProjectsNode contents:#prerequisiteProjects.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  4084
    prerequisiteProjectsNode icon:(self class prerequisiteProjectsIcon).
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  4085
    prerequisiteProjectsNode spec:[self class rightCanvasSpecForPrerequisiteProjects].
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  4086
    prerequisiteProjectsNode info:'Other projects required by the project'.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  4087
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  4088
    prerequisiteClassesNode contents:#prerequisiteClasses.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  4089
    prerequisiteClassesNode icon:(self class prerequisiteClassesIcon).
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  4090
    prerequisiteClassesNode spec:[self class rightCanvasSpecForPrerequisiteClasses].
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  4091
    prerequisiteClassesNode info:'Other (autoloaded-) classes required by the project'.
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  4092
1097
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
  4093
    classIcon := self class classIcon.
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
  4094
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4095
    classesNode contents:#classes.
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4096
    classesNode icon:(self class classesIcon).
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  4097
    classesNode info:'Classes contained in the project'.
1253
9b66c237df0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1251
diff changeset
  4098
    (aProject classes copy 
9b66c237df0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1251
diff changeset
  4099
        sort:[:a :b | 
9b66c237df0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1251
diff changeset
  4100
                    |nmA nmB|
9b66c237df0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1251
diff changeset
  4101
9b66c237df0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1251
diff changeset
  4102
                    nmA := a isBehavior ifTrue:[a name] ifFalse:[a].
9b66c237df0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1251
diff changeset
  4103
                    nmB := b isBehavior ifTrue:[b name] ifFalse:[b].
9b66c237df0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1251
diff changeset
  4104
                    nmA < nmB
9b66c237df0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1251
diff changeset
  4105
             ]
9b66c237df0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1251
diff changeset
  4106
    ) do:[:aClass |
1090
4b7c3e6fc5f1 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1089
diff changeset
  4107
        |cNode cName|
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  4108
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  4109
        cName := aClass isBehavior ifTrue:[aClass name] ifFalse:[aClass].
1090
4b7c3e6fc5f1 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1089
diff changeset
  4110
        cNode := ProjectTreeItem name:cName.
1094
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  4111
        cNode contents:(#class -> aClass).
1097
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
  4112
        cNode icon:classIcon.
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  4113
        classesNode add:cNode.
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  4114
    ].
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4115
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  4116
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4117
    propertiesNode contents:#properties.
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  4118
    propertiesNode spec:[self class rightCanvasSpecForProperties].
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  4119
    propertiesNode info:'Project propreties'.
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4120
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4121
    filesNode contents:#files.
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4122
    filesNode icon:(self class filesIcon).
1223
23a55549641a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1220
diff changeset
  4123
    filesNode info:'Files (extensions, bitmaps, data) contained in the project'.
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4124
    filesNode spec:[self class rightCanvasSpecForFiles].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4125
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4126
    methodIcon := self class methodIcon.
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4127
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  4128
    patchesNode contents:#patches.
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4129
    patchesNode icon:(self class methodsIcon).
1223
23a55549641a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1220
diff changeset
  4130
    patchesNode info:'Patches & Extensions (system-changes) contained in the project'.
1255
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  4131
    (aProject methodInfo copy 
1253
9b66c237df0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1251
diff changeset
  4132
        sort:[:a :b | 
9b66c237df0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1251
diff changeset
  4133
                    a displayString < b displayString.
9b66c237df0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1251
diff changeset
  4134
            ]
9b66c237df0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1251
diff changeset
  4135
    ) do:[:aMethodInfo |
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4136
        |cNode cName|
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4137
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4138
        cNode := ProjectTreeItem name:(aMethodInfo className , ' ' , aMethodInfo methodName).
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4139
        cNode contents:(#method -> aMethodInfo).
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4140
        cNode icon:methodIcon.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4141
        patchesNode add:cNode.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4142
    ].
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4143
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4144
    deploymentNode icon:(self class deploymentIcon).
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  4145
    deploymentNode spec:[self class rightCanvasSpecForDeployment].
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  4146
    deploymentNode info:'Deployment & packaging specification.'.
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4147
    deploymentNode contents:#deployment.
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  4148
1234
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  4149
    buildOptionsNode icon:(self class buildOptionsIcon).
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  4150
    buildOptionsNode spec:[self class rightCanvasSpecForBuildOptions].
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  4151
    buildOptionsNode info:'Compilation & include options.'.
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  4152
    buildOptionsNode contents:#buildOptions.
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  4153
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4154
    ^ pNode
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4155
1080
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  4156
    "Modified: / 23.3.1999 / 14:27:30 / cg"
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4157
!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4158
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4159
projectTree
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4160
    projectTree isNil ifTrue:[
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  4161
        self updateProjectTree
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4162
    ].
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4163
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4164
    ^ projectTree
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4165
!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4166
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4167
readAspectsFromProject
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4168
    |p type l ns|
1080
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  4169
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4170
    p := self currentProject.
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4171
    p notNil ifTrue:[
1099
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  4172
        self selectedTreeNode contents == #comment ifTrue:[
1097
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
  4173
            self rightCanvasTextHolder value:p comment.
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
  4174
        ].
1080
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  4175
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4176
        self methodsFile value:(p propertyAt:#methodsFile).
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4177
        self projectCodeIsLoaded value:(p isLoaded == true).
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4178
        p isLoaded == true ifFalse:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4179
            self valueOfInfoLabel value:'Projects code is not loaded.'
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4180
        ].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4181
1080
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  4182
        self currentProjectWasNotLoadedFromFile value:p wasLoadedFromFile not.
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4183
        (type := p type) == #classLibrary ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4184
           type := #library
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4185
        ].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4186
        self projectType value:type.
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4187
        self projectDirectory value:(p directory).
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4188
        self projectPackage value:(p package).
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4189
        ns := p defaultNameSpace ? Smalltalk.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4190
        ns isSymbol ifFalse:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4191
            ns := ns name
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4192
        ].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4193
        self projectNamespace value:ns.
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  4194
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  4195
        self repositoryModule value:(p repositoryModule).
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  4196
        self repositoryDirectory value:(p repositoryDirectory).
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  4197
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  4198
        self deliverCompiledBinary value:(p propertyAt:#deliverCompiledBinary) ? false.
1229
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  4199
        self deliverByteCode value:(p propertyAt:#deliverByteCode) ? false.
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  4200
        self deliverGZipArchive value:(p propertyAt:#deliverGZipArchive) ? false.
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  4201
        self deliverZipArchive value:(p propertyAt:#deliverZipArchive) ? false.
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4202
        self deliverTarArchive value:(p propertyAt:#deliverTarArchive) ? false.
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4203
        self deliverLoadAllFile value:(p propertyAt:#deliverLoadAllFile) ? false.
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  4204
        self deliverSources value:(p propertyAt:#deliverSources) ? false.
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4205
        self deliverMakefiles value:(p propertyAt:#deliverMakefiles) ? false.
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  4206
1234
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  4207
        self makeDefines value:(p propertyAt:#'make.stc.LOCALDEFINES') ? ''.
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  4208
        self makeIncludes value:(p propertyAt:#'make.stc.LOCALINCLUDES') ? ''.
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  4209
        self makeOtherWarningOptions value:(p propertyAt:#'make.stc.WARNINGOPTIONS') ? ''.
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  4210
        self makeWarnEOLComments value:(p propertyAt:#'make.stc.warnEOLComments') ? false.
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  4211
        self makeWarnNonStandard value:(p propertyAt:#'make.stc.warnNonStandard') ? true.
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  4212
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  4213
"/        self makeLocalLibs value:(p propertyAt:#'make.LD_OBJ_LIBS') ? ''.
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  4214
"/        self makeExtraTargets value:(p propertyAt:#'make.LOCAL_EXTRA_TARGETS') ? ''.
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  4215
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  4216
        self installDirectoryUnix 
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  4217
                value:(p propertyAt:#installDirectoryUnix) ? 
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4218
                        ((p propertyAt:#installDirectory) ? '/opt/smalltalk/packages').
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  4219
        self installDirectoryWin32 
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  4220
                value:(p propertyAt:#installDirectoryWin32) ? 
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4221
                        ((p propertyAt:#installDirectory) ? '\Programme\SmalltalkX\packages').
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4222
        self installDirectoryVMS 
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4223
                value:(p propertyAt:#installDirectoryVMS) ? 
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4224
                        ((p propertyAt:#installDirectory) ? 'SYS$SMALLTALKX:[PACKAGES]').
1149
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  4225
"/        self installDirectoryMacOS 
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  4226
"/                value:(p propertyAt:#installDirectoryMacOS) ? 
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  4227
"/                        ((p propertyAt:#installDirectory) ? '\Programme\SmalltalkX').
1094
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  4228
1116
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  4229
        l := p prerequisitePackages collect:[:entry |
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  4230
                    |pName|
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  4231
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  4232
                    entry isString ifTrue:[
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  4233
                        pName := entry
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  4234
                    ] ifFalse:[
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  4235
                        entry isArray ifTrue:[
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  4236
                            pName := entry at:1
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  4237
                        ] ifFalse:[
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  4238
                            pName := entry name
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  4239
                        ]
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  4240
                    ]
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  4241
                ].
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  4242
        self listOfRequiredProjectsInPrerequisites value:(l sort).
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  4243
        self listOfRequiredClassesInPrerequisites value:(p prerequisiteClasses copy sort).
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  4244
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4245
        modifiedChannel value:false.
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4246
        p addDependent:self.
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4247
    ].
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4248
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4249
    "Created: / 23.3.1999 / 14:16:12 / cg"
1116
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  4250
    "Modified: / 26.4.1999 / 23:38:14 / cg"
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4251
!
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4252
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4253
reallyModified
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4254
    |p l selectedNodeType|
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4255
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4256
    p := self currentProject.
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4257
    selectedNodeType := self selectedTreeNode contents.
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4258
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4259
    selectedNodeType == #comment ifTrue:[
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4260
self halt.
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4261
        ^ self rightCanvasTextHolder value ~= p comment
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4262
    ].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4263
    selectedNodeType == #deployment ifTrue:[
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4264
        (self deliverByteCode value ~= (p propertyAt:#deliverByteCode)) ifTrue:[^ true].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4265
        (self deliverCompiledBinary value ~= (p propertyAt:#deliverCompiledBinary)) ifTrue:[^ true].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4266
        (self deliverLoadAllFile value ~= (p propertyAt:#deliverLoadAllFile)) ifTrue:[^ true]. 
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4267
        (self deliverSources value ~= (p propertyAt:#deliverSources)) ifTrue:[^ true].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4268
        (self deliverMakefiles value ~= (p propertyAt:#deliverMakefiles)) ifTrue:[^ true].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4269
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4270
        (self deliverZipArchive value ~= (p propertyAt:#deliverZipArchive)) ifTrue:[^ true].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4271
        (self deliverTarArchive value ~= (p propertyAt:#deliverTarArchive)) ifTrue:[^ true].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4272
        (self deliverGZipArchive value ~= (p propertyAt:#deliverGZipArchive)) ifTrue:[^ true].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4273
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4274
        self installDirectoryUnix value ~=
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4275
                    ((p propertyAt:#installDirectoryUnix) ? 
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4276
                       ((p propertyAt:#installDirectory) ? 
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4277
                            '/opt/smalltalk/packages')) ifTrue:[^ true].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4278
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4279
        self installDirectoryWin32 value ~=
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4280
                    ((p propertyAt:#installDirectoryWin32) ? 
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4281
                        ((p propertyAt:#installDirectory) ? 
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4282
                            '\Programme\SmalltalkX\packages')) ifTrue:[^ true].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4283
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4284
        self installDirectoryVMS value ~=
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4285
                    ((p propertyAt:#installDirectoryVMS) ? 
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4286
                        ((p propertyAt:#installDirectory) ? 
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4287
                            'SYS$SMALLTALKX:[PACKAGES]')) ifTrue:[^ true].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4288
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4289
        ^ false
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4290
    ].
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4291
    selectedNodeType == #files ifTrue:[
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4292
^ true.
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4293
        (self methodsFile value ~= (p propertyAt:#methodsFile)) ifTrue:[^ true].
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4294
        ^ false
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4295
    ].
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4296
self halt.
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4297
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4298
    (self projectType value ~~ p type) ifTrue:[^ true].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4299
    (self projectDirectory value ~= p directory) ifTrue:[^ true].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4300
    (self projectPackage value ~= p package) ifTrue:[^ true].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4301
    (self projectNamespace value ~= (p defaultNameSpace ? Smalltalk) name) ifTrue:[^ true].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4302
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4303
    (self repositoryModule value ~= p repositoryModule) ifTrue:[^ true].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4304
    (self repositoryDirectory value ~= p repositoryDirectory) ifTrue:[^ true].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4305
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4306
"/        self installDirectoryMacOS value ~=
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4307
"/                ((p propertyAt:#installDirectoryMacOS) ? 
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4308
"/                    ((p propertyAt:#installDirectory) ? 
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4309
"/                        '\Programme\SmalltalkX')) ifTrue:[^ true].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4310
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4311
    l := p prerequisitePackages collect:[:entry |
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4312
                |pName|
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4313
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4314
                entry isString ifTrue:[
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4315
                    pName := entry
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4316
                ] ifFalse:[
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4317
                    entry isArray ifTrue:[
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4318
                        pName := entry at:1
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4319
                    ] ifFalse:[
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4320
                        pName := entry name
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4321
                    ]
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4322
                ]
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4323
            ].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4324
    self listOfRequiredProjectsInPrerequisites value ~= (l sort) ifTrue:[^ true].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4325
    self listOfRequiredClassesInPrerequisites value ~= (p prerequisiteClasses copy sort)  ifTrue:[^ true].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4326
    self halt.
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4327
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4328
!
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4329
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4330
saveAspectsIntoProject
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  4331
    |p s ns dir|
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4332
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4333
    p := self currentProject.
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4334
    p notNil ifTrue:[
1094
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  4335
        p removeDependent:self.
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  4336
1108
e88edf4a8cbe editFields - accept
Claus Gittinger <cg@exept.de>
parents: 1107
diff changeset
  4337
        self acceptChannel value:true; value:false.
e88edf4a8cbe editFields - accept
Claus Gittinger <cg@exept.de>
parents: 1107
diff changeset
  4338
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4339
"/        self currentProjectWasNotLoadedFromFile value:p wasLoadedFromFile not.
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  4340
        p type:self projectType value.
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  4341
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  4342
        dir := self projectDirectory value asFilename.
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  4343
        (dir exists and:[dir isDirectory]) ifFalse:[
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  4344
            self warn:'Invalid project directory: ' , dir pathName
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  4345
        ].
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  4346
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  4347
        p directory:self projectDirectory value.
1148
3e42f8601522 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1147
diff changeset
  4348
        p packageName:(self projectPackage value) asSymbol.
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  4349
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  4350
        p repositoryModule:self repositoryModule value.
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  4351
        p repositoryDirectory:self repositoryDirectory value.
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  4352
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  4353
        s := self projectNamespace value.
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  4354
        (s size == 0) ifTrue:[
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  4355
            ns := Smalltalk
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  4356
        ] ifFalse:[
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  4357
            ns := Namespace name:s
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  4358
        ].
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  4359
        p defaultNameSpace:ns.
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  4360
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4361
        p propertyAt:#methodsFile put:self methodsFile value.
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4362
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  4363
        p propertyAt:#deliverCompiledBinary put:self deliverCompiledBinary value.
1229
49777692d309 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1228
diff changeset
  4364
        p propertyAt:#deliverByteCode put:self deliverByteCode value.
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4365
        p propertyAt:#deliverTarArchive put:self deliverTarArchive value.
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  4366
        p propertyAt:#deliverZipArchive put:self deliverZipArchive value.
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  4367
        p propertyAt:#deliverGZipArchive put:self deliverGZipArchive value.
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  4368
        p propertyAt:#deliverLoadAllFile put:self deliverLoadAllFile value.
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4369
        p propertyAt:#deliverSources put:self deliverSources value.
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4370
        p propertyAt:#deliverMakefiles put:self deliverMakefiles value.
1088
60edf3482db2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1085
diff changeset
  4371
1234
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  4372
        p propertyAt:#'make.stc.LOCALDEFINES' put:self makeDefines value.
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  4373
        p propertyAt:#'make.stc.LOCALINCLUDES' put:self makeIncludes value.
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  4374
        p propertyAt:#'make.stc.WARNINGOPTIONS' put:self makeOtherWarningOptions value.
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  4375
        p propertyAt:#'make.stc.warnEOLComments' put:self makeWarnEOLComments value.
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  4376
        p propertyAt:#'make.stc.warnNonStandard' put:self makeWarnNonStandard value.
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  4377
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  4378
"/        p propertyAt:#'make.LD_OBJ_LIBS' put:self makeLocalLibs value.
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  4379
"/        p propertyAt:#'make.LOCAL_EXTRA_TARGETS' put:self makeExtraTargets value.
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  4380
1147
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  4381
        p propertyAt:#installDirectoryUnix put:self installDirectoryUnix value.
422c8afcb0f5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1116
diff changeset
  4382
        p propertyAt:#installDirectoryWin32 put:self installDirectoryWin32 value.
1149
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  4383
        p propertyAt:#installDirectoryVMS put:self installDirectoryVMS value.
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  4384
        p propertyAt:#installDirectoryMacOS put:self installDirectoryMacOS value.
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4385
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  4386
        p prerequisiteClasses:(self listOfRequiredClassesInPrerequisites value
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  4387
                               collect:[:entry | entry string asSymbol]).
1094
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  4388
1234
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  4389
        p prerequisitePackages:(self listOfRequiredProjectsInPrerequisites value
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  4390
                               collect:[:entry | entry string asSymbol]).
97ec3bf7d991 make options
Claus Gittinger <cg@exept.de>
parents: 1232
diff changeset
  4391
1094
b1214f3dc633 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1093
diff changeset
  4392
        p addDependent:self.
1080
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  4393
    ].
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  4394
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  4395
    "Created: / 23.3.1999 / 14:16:12 / cg"
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  4396
    "Modified: / 23.3.1999 / 14:18:38 / cg"
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  4397
!
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  4398
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  4399
selectedMethod
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  4400
    |node methodInfo classOrClassName cls mthd text|
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  4401
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  4402
    self hasMethodNodeSelected ifFalse:[^ nil].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  4403
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  4404
    node := self selectedTreeNode.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  4405
    methodInfo := node contents value.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  4406
    mthd := methodInfo method.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  4407
    mthd isNil ifTrue:[
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  4408
        self valueOfInfoLabel value:'The method is not (yet) loaded.'.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  4409
    ].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  4410
    ^ mthd
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  4411
!
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  4412
1251
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  4413
transcript
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  4414
    ^ self builder componentAt:#commandOutputView
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  4415
!
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  4416
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  4417
updateProjectTree
1210
30bd57bbe9ce better tree
Claus Gittinger <cg@exept.de>
parents: 1207
diff changeset
  4418
    |tree moduleRoots root showWhat|
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  4419
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4420
    self withCursor:Cursor execute do:[
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4421
        showWhat := self showWhat value.
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4422
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4423
        moduleRoots := Dictionary new.
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4424
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4425
        tree := SelectionInTree new.
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4426
        tree root:(root := ProjectTreeItem name:'invisibleRoot').
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4427
        root hide:false.
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4428
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4429
        showWhat notNil ifTrue:[
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4430
            showWhat == #current ifTrue:[
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4431
                root add:(self nodeFor:Project current).
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4432
            ] ifFalse:[
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4433
                (Project knownProjects asOrderedCollection
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4434
                    sort:[:a :b | a package < b package]) 
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4435
                do:[:aProject |
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4436
                    |newNode nodeToAdd doShow childNode path|
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4437
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4438
                    (doShow := showWhat == #all) ifFalse:[
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4439
                        doShow := (aProject package startsWith:'stx:') not
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4440
                    ].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4441
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4442
                    doShow ifTrue:[
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4443
                        newNode := self nodeFor:aProject.
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4444
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4445
                        "/ insert into tree ...
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4446
                        nodeToAdd := root.
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4447
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4448
                        path := aProject package asCollectionOfSubstringsSeparatedByAny:'/\:'.
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4449
                        path from:1 to:path size-1 do:[:part |
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4450
                            childNode := nodeToAdd children detect:[:child | child name = part] ifNone:nil.
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4451
                            childNode isNil ifTrue:[
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4452
                                nodeToAdd add:(childNode := ProjectTreeItem new name:part).
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4453
                            ].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4454
                            nodeToAdd := childNode.
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4455
                        ].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4456
                        newNode name:(path last).
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4457
                        nodeToAdd add:newNode.
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4458
                    ]
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4459
                ].
1207
9a14f97ee279 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1206
diff changeset
  4460
            ].
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  4461
        ].
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4462
        projectTree := root.
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4463
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4464
        self projectTreeHolder root:projectTree.
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  4465
    ].
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  4466
    ^ projectTree
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  4467
!
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  4468
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4469
updateRightCanvas
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4470
    |selectedNode nodeContents spec|
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4471
1149
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  4472
    self builder bindings removeKey:#listOfAllClassesInPrerequisites ifAbsent:nil.  "/ force recompute
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  4473
    self builder bindings removeKey:#listOfAllProjectsInPrerequisites ifAbsent:nil.  "/ force recompute
00b17864e6ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1148
diff changeset
  4474
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  4475
    self selectedProjectInPrerequisites value:nil.
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  4476
    self selectedRequiredProjectInPrerequisites value:nil.
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  4477
1099
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  4478
    selectedNode := self selectedTreeNode.
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4479
    selectedNode isNil ifTrue:[
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4480
        self setupCanvasForNoSelection.
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4481
        ^ self
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4482
    ].
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4483
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4484
    (spec := selectedNode spec) notNil ifTrue:[
1091
515166c6a8c8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1090
diff changeset
  4485
        self currentCanvasHolder value:spec value.
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4486
        ^ self
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4487
    ].
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4488
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4489
    selectedNode isProjectNode ifTrue:[
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4490
        self showCommentOf:selectedNode.
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4491
        ^ self.
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4492
    ].
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4493
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4494
    selectedNode contents == #classes ifTrue:[
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4495
        self showClassListOf:selectedNode.
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4496
        ^ self.
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4497
    ].
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  4498
    selectedNode contents == #patches ifTrue:[
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  4499
        self showPatchesListOf:selectedNode.
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  4500
        ^ self.
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  4501
    ].
1097
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
  4502
    self hasClassNodeSelected ifTrue:[
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
  4503
        self showClassDefinitionOf:selectedNode.
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
  4504
        ^ self.
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
  4505
    ].      
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4506
    self hasMethodNodeSelected ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4507
        self showMethodSourceOf:selectedNode.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4508
        ^ self.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4509
    ].      
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4510
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  4511
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4512
    self currentCanvasHolder value:(self class emptyRightCanvasSpec).
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4513
    self rightCanvasTextHolder value:''.
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4514
1080
98b04ef482dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1079
diff changeset
  4515
    "Modified: / 23.3.1999 / 14:16:02 / cg"
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4516
! !
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4517
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4518
!ProjectBrowser methodsFor:'private - building'!
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4519
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4520
checkForMakeProtoFor:aProject
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4521
    |f|
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4522
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4523
    "/ check for project directory ...
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4524
    (self checkForProjectDirectoryFor:aProject) ifFalse:[
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4525
        ^ false
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4526
    ].
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4527
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4528
    "/ check for Make.proto ...
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4529
    f := aProject directory asFilename construct:'Make.proto'.
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4530
    f exists ifFalse:[
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4531
        (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
  4532
            ^ false
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4533
        ].
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4534
        self buildMakefiles.
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4535
    ].
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4536
    ^ true
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4537
!
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4538
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4539
checkForMakefileFor:aProject
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4540
    |f|
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4541
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4542
    "/ check for project directory ...
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4543
    (self checkForProjectDirectoryFor:aProject) ifFalse:[
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4544
        ^ false
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4545
    ].
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4546
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4547
    "/ check for Makefile ...
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4548
    f := aProject directory asFilename construct:'Makefile'.
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4549
    f exists ifFalse:[
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4550
        (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
  4551
            ^ false
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4552
        ].
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4553
        (self checkForMakeProtoFor:aProject) ifFalse:[
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4554
            ^ false
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4555
        ].
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4556
        self buildMakefiles.
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4557
    ].
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4558
    ^ true
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4559
!
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4560
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4561
checkForProjectDirectoryFor:aProject
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4562
    |dir|
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4563
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4564
    "/ check for project directory ...
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4565
    dir := aProject directory asFilename.
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4566
    dir exists ifFalse:[
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4567
        (self confirm:'Project directory does not exist\\Create ?' withCRs) ifFalse:[
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4568
            ^ false
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4569
        ].
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4570
        dir recursiveMakeDirectory.
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4571
    ].
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4572
    ^ true
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4573
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4574
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4575
! !
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4576
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4577
!ProjectBrowser methodsFor:'private - table col access'!
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4578
1038
41da0e38af84 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1037
diff changeset
  4579
classFilenameFromClassInfo:cInfo
41da0e38af84 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1037
diff changeset
  4580
    ^ cInfo classFileName
41da0e38af84 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1037
diff changeset
  4581
!
41da0e38af84 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1037
diff changeset
  4582
41da0e38af84 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1037
diff changeset
  4583
classIncludeConditionFromClassInfo:cInfo
41da0e38af84 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1037
diff changeset
  4584
    ^ cInfo conditionForInclusion
41da0e38af84 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1037
diff changeset
  4585
!
41da0e38af84 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1037
diff changeset
  4586
1235
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  4587
classIncludeConditionFromClassInfo:cInfo put:aSymbol
1238
af3b724392f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1237
diff changeset
  4588
    cInfo conditionForInclusion:aSymbol.
af3b724392f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1237
diff changeset
  4589
    ^ cInfo
1235
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  4590
!
2eb4b86bd0a6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
  4591
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4592
classNameFromClassInfo:cInfo
1241
3bbc7d113387 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1240
diff changeset
  4593
    |cls nm|
3bbc7d113387 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1240
diff changeset
  4594
3bbc7d113387 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1240
diff changeset
  4595
    nm := cInfo className.
3bbc7d113387 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1240
diff changeset
  4596
3bbc7d113387 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1240
diff changeset
  4597
    cls := cInfo theClass.
3bbc7d113387 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1240
diff changeset
  4598
    (cls isNil or:[cls isLoaded not]) ifTrue:[
3bbc7d113387 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1240
diff changeset
  4599
        ^ nm asText allItalic
3bbc7d113387 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1240
diff changeset
  4600
    ].
3bbc7d113387 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1240
diff changeset
  4601
    ^ nm
3bbc7d113387 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1240
diff changeset
  4602
3bbc7d113387 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1240
diff changeset
  4603
    "Modified: / 26.9.1999 / 13:49:51 / cg"
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  4604
!
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  4605
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4606
classNameFromMethodInfo:pInfo
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4607
    ^ pInfo className
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4608
!
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4609
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  4610
classNameFromPatchesInfo:pInfo
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  4611
    ^ pInfo methodClass name
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  4612
!
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  4613
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4614
selectorFromMethodInfo:pInfo
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4615
    ^ pInfo methodName
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
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  4618
selectorFromPatchesInfo:pInfo
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  4619
    ^ pInfo methodSelector
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4620
! !
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4621
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4622
!ProjectBrowser methodsFor:'user actions'!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4623
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4624
addClasses
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  4625
    "ask for, and add a single class"
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4626
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4627
    |p className cls oldPackage|
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4628
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4629
    p := self currentProject.
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4630
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4631
    className := Dialog request:'Class to add:'.
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4632
    className size == 0 ifTrue:[^ self].
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4633
    cls := Smalltalk classNamed:className.
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4634
    cls isNil ifTrue:[
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4635
        "/ a new one
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4636
        (self confirm:'This is a new class. Add ?') ifFalse:[
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4637
            ^ self      
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4638
        ].
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4639
        p
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4640
            addClass:className
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4641
            classFileName:((Smalltalk fileNameForClass:className) , '.st').
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4642
    ] ifFalse:[
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4643
        (oldPackage := cls package) ~= p package ifTrue:[
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4644
            "/ a new one
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4645
            (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
  4646
                ^ self      
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4647
            ].
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4648
            cls package:p package.
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4649
        ].
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4650
        "/ find the other package ..
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4651
        oldPackage := Project projectWithId:oldPackage.
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4652
        oldPackage notNil ifTrue:[
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4653
            oldPackage removeClass:cls
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4654
        ].
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4655
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4656
        p
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4657
            addClass:cls name
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4658
            classFileName:(cls classFilename 
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4659
                            ? ((Smalltalk fileNameForClass:cls) , '.st')).
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4660
    ].
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4661
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4662
    self updateClassListForProject:p
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4663
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4664
!
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4665
1099
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  4666
itemDoubleClicked:index
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  4667
    |node classOrClassName cls|
1099
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  4668
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  4669
    self hasClassNodeSelected ifTrue:[
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  4670
        node := self selectedTreeNode.
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  4671
        classOrClassName := node contents value.
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  4672
        classOrClassName isBehavior ifTrue:[
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  4673
            cls := classOrClassName.
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  4674
        ] ifFalse:[
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  4675
            cls := Smalltalk at:classOrClassName.
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  4676
        ].
1099
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  4677
        cls isNil ifTrue:[
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  4678
            self information:'The class is not (yet) loaded'.
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  4679
            ^ self
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  4680
        ].
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  4681
        SystemBrowser browseClass:cls.
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  4682
    ].
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  4683
!
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  4684
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4685
itemSelected:index
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4686
    |item action info p|
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4687
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  4688
    self withWaitCursorDo:[
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  4689
        self updateRightCanvas.
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  4690
    ].
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4691
    index isNil ifTrue:[
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4692
        modifiedChannel value:false.
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4693
        ^ self
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4694
    ].
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4695
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4696
    self readAspectsFromProject.
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4697
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4698
    item := self projectTreeHolder value at:index.
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4699
    action := item action.
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4700
    action notNil ifTrue:[
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4701
        action value:item.
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4702
    ].
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  4703
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4704
    info := item info.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4705
    info size == 0 ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4706
        ((p := self currentProject) notNil
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4707
        and:[p isLoaded ~~ true]) ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4708
            info := 'Projects code is not loaded.'
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4709
        ].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4710
    ].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4711
    self valueOfInfoLabel value:info.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4712
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4713
    self hasProjectSelectedHolder value:self hasProjectSelected.
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4714
    modifiedChannel value:false.
1116
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  4715
710c9297a9fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1114
diff changeset
  4716
    "Modified: / 26.4.1999 / 22:49:20 / cg"
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4717
!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4718
1095
660185e02224 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1094
diff changeset
  4719
loadFromProjectFile:aFilenameString
1239
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
  4720
    |oldNode newProject|
1095
660185e02224 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1094
diff changeset
  4721
1096
7efff9ca044f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1095
diff changeset
  4722
    self withReadCursorDo:[
7efff9ca044f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1095
diff changeset
  4723
        newProject := Project new loadFromProjectFile:aFilenameString.
1239
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
  4724
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
  4725
        oldNode := self projectTreeHolder 
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
  4726
                        detectFirstItem:[:item | item contents class == Project
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
  4727
                                                 and:[item contents package = newProject package]].
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
  4728
        oldNode notNil ifTrue:[
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
  4729
            (self confirm:'Overload packages definitions from file ?') ifFalse:[
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
  4730
                ^ self
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
  4731
            ].
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
  4732
            self projectTreeHolder remove:oldNode.
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
  4733
        ].
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
  4734
1096
7efff9ca044f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1095
diff changeset
  4735
        newProject notNil ifTrue:[
7efff9ca044f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1095
diff changeset
  4736
            self newProject:newProject
1239
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
  4737
        ].
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
  4738
        self expandPathToNodeFor:newProject.
a95243b3ab4a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1238
diff changeset
  4739
1224
825e6e9fc37f expand the path to the load project
Claus Gittinger <cg@exept.de>
parents: 1223
diff changeset
  4740
    ].
825e6e9fc37f expand the path to the load project
Claus Gittinger <cg@exept.de>
parents: 1223
diff changeset
  4741
    ^ newProject
1095
660185e02224 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1094
diff changeset
  4742
!
660185e02224 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1094
diff changeset
  4743
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4744
loadProjectCode
1219
0bcf1df24277 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1218
diff changeset
  4745
    |project filesToLoad methodsFile ns anyPatchClassMissing anyPatches
0bcf1df24277 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1218
diff changeset
  4746
     nMissingSuper prevNMissingSuper|
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4747
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4748
    project := self currentProject.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4749
    ns := project defaultNameSpace.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4750
    ns isSymbol ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4751
        ns := Namespace name:ns
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4752
    ].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4753
    self withReadCursorDo:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4754
        filesToLoad := OrderedCollection new.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4755
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4756
        "/ load all classes ...
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4757
        project classInfo do:[:aClassInfo |
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4758
            |className fileToLoad cls|
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4759
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4760
            className := aClassInfo className.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4761
            fileToLoad := aClassInfo classFileName.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4762
            cls := ns at:className asSymbol.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4763
            cls notNil ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4764
                cls isBehavior ifFalse:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4765
                    (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
  4766
                    ifFalse:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4767
                        fileToLoad := nil
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4768
                    ]
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4769
                ] ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4770
                    cls isLoaded ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4771
                        fileToLoad := nil
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4772
                    ]
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4773
                ]
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4774
            ].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4775
            fileToLoad notNil ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4776
                filesToLoad add:fileToLoad
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4777
            ].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4778
        ].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4779
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4780
        anyPatchClassMissing := false.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4781
        anyPatches := false.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4782
        project methodInfo do:[:aMethodInfo |
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4783
            |className methodName mthd cls|
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4784
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4785
            className := aMethodInfo className.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4786
            methodName := aMethodInfo methodName.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4787
            cls := Smalltalk at:className asSymbol.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4788
            (cls isNil or:[cls isBehavior not or:[cls isLoaded not]]) ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4789
                self warn:('Missing class: ' , className , ' (required for patches)').
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4790
                anyPatchClassMissing := anyPatches := true.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4791
            ] ifFalse:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4792
                "/ already present ?
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4793
                (cls compiledMethodAt:methodName asSymbol) isNil ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4794
                    anyPatches := true.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4795
                ]
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
        ].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4798
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4799
        (methodsFile := project propertyAt:#methodsFile) notNil ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4800
            anyPatches ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4801
                anyPatchClassMissing ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4802
                    self warn:('Cannot load patches & extensions, due to missing class(es)')
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4803
                ] ifFalse:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4804
                    filesToLoad add:methodsFile
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4805
                ]
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4806
            ]
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4807
        ] ifFalse:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4808
            anyPatches ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4809
                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
  4810
            ].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4811
        ].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4812
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4813
        filesToLoad size == 0 ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4814
            self information:'Projects code is already loaded.'
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4815
        ] ifFalse:[
1219
0bcf1df24277 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1218
diff changeset
  4816
            "/ load as long as superclasses are missing
0bcf1df24277 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1218
diff changeset
  4817
            "/ (since the load order could be incorrect)
0bcf1df24277 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1218
diff changeset
  4818
            prevNMissingSuper := nil.
0bcf1df24277 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1218
diff changeset
  4819
            nMissingSuper := 1.
0bcf1df24277 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1218
diff changeset
  4820
            [nMissingSuper > 0 and:[nMissingSuper ~~ prevNMissingSuper]]
0bcf1df24277 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1218
diff changeset
  4821
            whileTrue:[
0bcf1df24277 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1218
diff changeset
  4822
                nMissingSuper := 0.
0bcf1df24277 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1218
diff changeset
  4823
                Parser::UndefinedSuperclassError handle:[:ex |
0bcf1df24277 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1218
diff changeset
  4824
                    nMissingSuper := nMissingSuper + 1.
0bcf1df24277 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1218
diff changeset
  4825
                    ex proceed
0bcf1df24277 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1218
diff changeset
  4826
                ] do:[
0bcf1df24277 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1218
diff changeset
  4827
                    Class packageQuerySignal answer:project package asSymbol
0bcf1df24277 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1218
diff changeset
  4828
                    do:[
0bcf1df24277 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1218
diff changeset
  4829
                        filesToLoad do:[:fileToLoad |
0bcf1df24277 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1218
diff changeset
  4830
                            Smalltalk fileIn:(project directory asFilename construct:fileToLoad) pathName
0bcf1df24277 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1218
diff changeset
  4831
                        ]
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4832
                    ]
1219
0bcf1df24277 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1218
diff changeset
  4833
                ].
0bcf1df24277 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1218
diff changeset
  4834
                prevNMissingSuper := nMissingSuper.
0bcf1df24277 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1218
diff changeset
  4835
            ].
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4836
        ].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4837
        project isLoaded:true.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4838
        self readAspectsFromProject
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4839
    ]
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4840
!
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4841
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  4842
methodPatchDoubleClick:arg
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  4843
self halt.
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  4844
!
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  4845
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4846
projectFilterChanged
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4847
    |theNode|
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4848
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4849
    self updateProjectTree.
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4850
    self updateRightCanvas.
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4851
    self showWhat value == #current ifTrue:[
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4852
        theNode := self projectTreeHolder 
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4853
                        detectFirstItem:[:item | item contents == Project current].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4854
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4855
        [theNode notNil] whileTrue:[
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4856
            self projectTreeHolder expand:theNode.
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4857
            theNode := theNode parent.
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4858
        ].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4859
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4860
    ].
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4861
!
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4862
1107
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4863
selectionChangeAllowed:newNode
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4864
    |answer|
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4865
1107
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4866
    newNode == self selectedTreeNode ifTrue:[
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4867
        ^ true 
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4868
    ].
1231
7d025840ea10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1229
diff changeset
  4869
    (modifiedChannel value 
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4870
    and:[true "self reallyModified"]) ifTrue:[
1081
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4871
        answer := Dialog confirmWithCancel:'Accept changes ?'.
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4872
        answer isNil ifTrue:[
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4873
            ^ false
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4874
        ].
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4875
        answer == true ifTrue:[
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4876
            self accept.
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4877
        ].
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4878
    ].
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4879
    ^ true
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4880
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4881
!
b8f1b9924f40 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1080
diff changeset
  4882
1097
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
  4883
showClassDefinitionOf:anItem
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  4884
    |node classOrClassName cls text|
1097
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
  4885
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
  4886
    self hasClassNodeSelected ifFalse:[^ self].
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
  4887
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
  4888
    self currentCanvasHolder value:(self class rightCanvasSpecForEditableText).
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
  4889
1099
965cfbbf4bf2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1098
diff changeset
  4890
    node := self selectedTreeNode.
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  4891
    classOrClassName := node contents value.
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  4892
    classOrClassName isBehavior ifTrue:[
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  4893
        cls := classOrClassName.
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  4894
    ] ifFalse:[
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  4895
        cls := Smalltalk at:classOrClassName.
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  4896
    ].
1097
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
  4897
    cls isNil ifTrue:[
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
  4898
        text := 'The class is not (yet) loaded'.
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
  4899
    ] ifFalse:[
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
  4900
        text := cls definition
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
  4901
    ].
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
  4902
    self rightCanvasTextHolder value:text.
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
  4903
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
  4904
!
c89241e215a4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1096
diff changeset
  4905
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4906
showClassListOf:anItem
1107
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4907
    |projectItem project|
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4908
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4909
    projectItem := anItem parent.
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4910
    project := projectItem contents.
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4911
1107
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  4912
    self updateClassListForProject:project.
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4913
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4914
    self currentCanvasHolder value:(self class rightCanvasSpecForClassList).
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4915
!
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4916
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4917
showCommentOf:anItem
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4918
    |projectItem project|
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4919
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4920
    anItem contents == #comment ifTrue:[
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4921
        projectItem := anItem parent
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4922
    ] ifFalse:[
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4923
        projectItem := anItem
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4924
    ].
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4925
    project := projectItem contents.
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4926
1232
6c68d44a9151 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  4927
    self textCanvasLabelHolder value:'Projects comment'.
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  4928
    self currentCanvasHolder value:(self class rightCanvasSpecForEditableText).
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4929
    self rightCanvasTextHolder value:project comment.
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4930
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4931
!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4932
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4933
showDocumentationFor:anItem
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4934
    |projectItem project|
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4935
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4936
    anItem contents == #documentation ifTrue:[
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4937
        projectItem := anItem parent
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4938
    ] ifFalse:[
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4939
        projectItem := anItem
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4940
    ].
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4941
    project := projectItem contents.
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4942
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4943
    self currentCanvasHolder value:(self class rightCanvasSpecForHTMLText).
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4944
    self htmlDocumentURLHolder value:project documentationURL.
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4945
!
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  4946
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4947
showMethodSourceOf:anItem
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4948
    |node methodInfo classOrClassName cls mthd text|
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4949
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4950
    self hasMethodNodeSelected ifFalse:[^ self].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4951
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4952
    self currentCanvasHolder value:(self class rightCanvasSpecForEditableText).
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4953
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4954
    node := self selectedTreeNode.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4955
    methodInfo := node contents value.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4956
    cls := Smalltalk at:methodInfo className asSymbol.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4957
    cls isNil ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4958
        text := 'The class is not (yet) loaded'.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4959
    ] ifFalse:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4960
        mthd := cls compiledMethodAt:(methodInfo methodName asSymbol).
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4961
        mthd isNil ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4962
            text := 'The method is not (yet) loaded'.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4963
        ] ifFalse:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4964
            text := mthd source
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4965
        ]
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4966
    ].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4967
    self rightCanvasTextHolder value:text.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4968
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4969
!
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4970
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  4971
showPatchesListOf:anItem
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  4972
    |projectItem project patches l|
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  4973
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  4974
    projectItem := anItem parent.
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  4975
    project := projectItem contents.
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  4976
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4977
    self updatePatchesListForProject:project.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4978
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4979
"/    patches := project methods.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4980
"/    patches := patches collect:[:m | m who].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4981
"/    patches := patches sort:[:w1 :w2 |
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4982
"/                        |w1Nm w2Nm|
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4983
"/
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4984
"/                        w1Nm := w1 methodClass name.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4985
"/                        w2Nm := w2 methodClass name.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4986
"/                        w1Nm < w2Nm ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4987
"/                            true
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4988
"/                        ] ifFalse:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4989
"/                            w1Nm = w2Nm ifFalse:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4990
"/                                false
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4991
"/                            ] ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4992
"/                                w1 methodSelector < w2 methodSelector
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4993
"/                            ]
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4994
"/                        ]
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4995
"/                       ].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4996
"/
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4997
"/    l := self patchesList.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4998
"/    l removeAll.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  4999
"/    l addAll:patches.
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  5000
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  5001
    self currentCanvasHolder value:(self class rightCanvasSpecForPatchesList).
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  5002
!
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  5003
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  5004
showReadOnlyText:someText
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  5005
    self currentCanvasHolder value:(self class rightCanvasSpecForReadOnlyText).
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  5006
    self rightCanvasTextHolder value:someText.
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  5007
1107
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  5008
!
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  5009
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  5010
updateClassListForProject:aProject
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  5011
    |classInfo l|
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  5012
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  5013
    classInfo := aProject classInfo copy asOrderedCollection.
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  5014
    classInfo sort:[:a :b | a className < b className].
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  5015
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  5016
    l := self classList.
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  5017
    l removeAll.
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  5018
    l addAll:classInfo.
0d190d1f4875 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1106
diff changeset
  5019
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5020
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
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5023
updateListOfProjects
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5024
    "scan all classes/methods for new projects"
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5025
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5026
    self withWaitCursorDo:[
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5027
        Project initKnownProjects.
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5028
        self updateProjectTree
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5029
    ].
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5030
!
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5031
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5032
updateListOfRequiredPrerequisiteClasses
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5033
    "all autoloaded superclasses of my classes are definitely required"
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5034
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5035
    |p anyChange allInPre requiredInPre nTotal nMissing msg|
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5036
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5037
    p := self currentProject.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5038
    p isNil ifTrue:[^ self].
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5039
    anyChange := false.
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5040
    nTotal := 0.
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5041
    nMissing := 0.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5042
    allInPre := self listOfAllClassesInPrerequisites value.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5043
    requiredInPre := self listOfRequiredClassesInPrerequisites value.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5044
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5045
    self currentProjectsClassNames do:[:aClassName |
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5046
        |cls|
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5047
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5048
        cls := Smalltalk at:aClassName asSymbol.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5049
        (cls notNil and:[cls isLoaded]) ifTrue:[
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5050
            cls allSuperclasses do:[:superClass |
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5051
                |sName idx|
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5052
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5053
                (superClass notNil 
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5054
                and:[superClass isLoaded
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5055
                and:[superClass wasAutoloaded]]) ifTrue:[
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5056
                    |sName entry|
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5057
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5058
                    sName := superClass name.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5059
                    idx := allInPre findFirst:[:item | item string = sName].
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5060
                    idx ~~ 0 ifTrue:[
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5061
                        allInPre removeIndex:idx.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5062
                        requiredInPre add:sName asText allBold.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5063
                        anyChange := true.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5064
                    ]
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5065
                ]
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5066
            ]
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5067
        ] ifFalse:[
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5068
            nMissing := nMissing + 1.
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5069
        ].
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5070
        nTotal := nTotal + 1.
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5071
    ].
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5072
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5073
    anyChange ifTrue:[
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5074
        self listOfRequiredClassesInPrerequisites changed.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5075
        self listOfAllClassesInPrerequisites changed.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5076
    ].
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5077
    nMissing ~~ 0 ifTrue:[
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5078
        nMissing == nTotal ifTrue:[
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5079
            msg := 'Project is not loaded (' , nMissing printString
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5080
                            , ' unloaded classes)'.
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5081
        ] ifFalse:[
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5082
            msg := 'Project is not loaded completely - ' , nMissing printString
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5083
                            , ' of the projects ' , nTotal printString , ' classes are not loaded'.
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5084
        ].
1207
9a14f97ee279 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1206
diff changeset
  5085
"/        self notify:msg.
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5086
    ].
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5087
    modifiedChannel value:false.
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5088
!
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5089
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5090
updatePatchesListForProject:aProject
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5091
    |methodInfo l|
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5092
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5093
    methodInfo := aProject methodInfo copy asOrderedCollection.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5094
    methodInfo sort:[:a :b | a displayString < b displayString].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5095
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5096
    l := self patchesList.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5097
    l removeAll.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5098
    l addAll:methodInfo.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5099
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5100
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5101
! !
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5102
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5103
!ProjectBrowser methodsFor:'user actions - canvas'!
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
accept
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5106
    "save values from aspects into the project"
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5107
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5108
    self saveAspectsIntoProject.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5109
    modifiedChannel value:false.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5110
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5111
!
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5112
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5113
addClassToPrerequisites
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5114
    |sel cls|
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
    sel := self selectedClassInPrerequisites value.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5117
    self listOfRequiredClassesInPrerequisites value add:sel.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5118
    self listOfAllClassesInPrerequisites value remove:sel.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5119
    self selectedClassInPrerequisites value:nil.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5120
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5121
    "/ also add any autoloaded superclass(es)
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
    cls := Smalltalk at:sel asSymbol.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5124
    (cls notNil and:[cls isLoaded]) ifTrue:[
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5125
        cls allSuperclasses do:[:superClass |
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5126
            |sName|
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5127
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5128
            (superClass notNil 
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5129
            and:[superClass isLoaded
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5130
            and:[superClass wasAutoloaded]]) ifTrue:[
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5131
                |sName idx|
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5132
                sName := superClass name.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5133
                idx := self listOfAllClassesInPrerequisites value findFirst:[:s | s string = sName].
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5134
                idx ~~ 0 ifTrue:[
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5135
                    self listOfAllClassesInPrerequisites value removeIndex:idx.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5136
                    self listOfRequiredClassesInPrerequisites value add:sName asString allBold.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5137
                ].
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5138
            ]
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5139
        ]
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5140
    ].
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5141
    self listOfRequiredClassesInPrerequisites changed.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5142
    self listOfAllClassesInPrerequisites changed.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5143
    self accept
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5144
!
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5145
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5146
addProjectToPrerequisites
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5147
    |sel|
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5148
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5149
    sel := self selectedProjectInPrerequisites value.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5150
    self listOfRequiredProjectsInPrerequisites value add:sel.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5151
    self listOfAllProjectsInPrerequisites value remove:sel.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5152
    self selectedProjectInPrerequisites value:nil.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5153
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5154
    self listOfRequiredProjectsInPrerequisites changed.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5155
    self listOfAllProjectsInPrerequisites changed.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5156
    self accept
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5157
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5158
!
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5159
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5160
browseMethod
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5161
    "browse the selected method (from tree)"
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5162
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5163
    |patchWho mthdInfo cls mthd|
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5164
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5165
    mthdInfo := self selectedTreeNode value value.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5166
    cls := Smalltalk at: mthdInfo className asSymbol.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5167
    cls notNil ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5168
        mthd := cls compiledMethodAt:(mthdInfo methodName asSymbol).    
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5169
        mthd notNil ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5170
            SystemBrowser browseClass:cls selector:mthdInfo methodName.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5171
            ^ self
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5172
        ]
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5173
    ].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5174
    self information:'Method not (yet) loaded.'
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5175
!
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5176
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5177
browseMethodFromCanvas
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5178
    "browse the selected table-rows method (from patches canvas)"
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5179
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5180
    |patchWho patchIndex|
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5181
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5182
    patchIndex := self selectedPatchInRightCanvas value.
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5183
    patchWho := self patchesList at:patchIndex.
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5184
    SystemBrowser browseClass:patchWho methodClass selector:patchWho methodSelector.
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
!
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5187
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5188
browseMethodFull
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5189
    "browse the selected method (from tree)"
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5190
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5191
    |patchWho mthdInfo cls mthd|
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5192
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5193
    mthdInfo := self selectedTreeNode value value.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5194
    cls := Smalltalk at: mthdInfo className asSymbol.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5195
    cls notNil ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5196
        mthd := cls compiledMethodAt:(mthdInfo methodName asSymbol).    
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5197
        mthd notNil ifTrue:[
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5198
            SystemBrowser openInClass:cls selector:mthdInfo methodName.
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5199
            ^ self
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5200
        ]
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5201
    ].
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5202
    self information:'Method not (yet) loaded.'
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5203
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5204
!
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5205
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5206
browseMethodFullFromCanvas
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5207
    "browse the selected table-rows method (from patches canvas)"
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5208
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5209
    |patchWho patchIndex|
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5210
1218
8e2fa160357f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1210
diff changeset
  5211
    patchIndex := self selectedPatchInRightCanvas value.
1206
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5212
    patchWho := self patchesList at:patchIndex.
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5213
    SystemBrowser openInClass:patchWho methodClass selector:patchWho methodSelector.
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5214
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5215
!
25053439af63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  5216
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5217
cancel
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5218
    "reload aspects from the project"
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5219
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5220
    self readAspectsFromProject
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5221
!
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
removeClassFromPrerequisites
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5224
    |sel cls myClasses|
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5225
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5226
    sel := self selectedRequiredClassInPrerequisites value.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5227
    cls := Smalltalk at:sel asSymbol.
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
    "/ check if this affects my classes
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5230
    (cls notNil and:[cls isLoaded and:[cls wasAutoloaded]]) ifTrue:[
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5231
        myClasses := self currentProjectsClassNames.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5232
        cls allSubclassesDo:[:cls |
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5233
            (myClasses includes:cls name) ifTrue:[
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5234
                self valueOfInfoLabel value:'Attention - this class is required by ' , cls name.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5235
                (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
  5236
                    ^ self
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5237
                ].
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5238
            ].
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
    self listOfAllClassesInPrerequisites value add:sel.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5243
    self listOfRequiredClassesInPrerequisites value remove:sel.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5244
    self selectedRequiredClassInPrerequisites value:nil.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5245
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5246
    "/ also remove any autoloaded subclass(es)
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5247
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5248
    (cls notNil and:[cls isLoaded and:[cls wasAutoloaded]]) ifTrue:[
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5249
        cls allSubclassesDo:[:cls |
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5250
            |entry|
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5251
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5252
            entry := self listOfRequiredClassesInPrerequisites value remove:cls name ifAbsent:nil.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5253
            entry notNil ifTrue:[
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5254
               self listOfAllClassesInPrerequisites value add:cls name.
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
        ]
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5257
    ].
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
    self listOfRequiredClassesInPrerequisites changed.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5260
    self listOfAllClassesInPrerequisites changed.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5261
    self accept
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5262
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
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5265
removeProjectFromPrerequisites
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5266
    |sel|
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5267
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5268
    sel := self selectedRequiredProjectInPrerequisites value.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5269
    self listOfAllProjectsInPrerequisites value add:sel.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5270
    self listOfRequiredProjectsInPrerequisites value remove:sel.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5271
    self selectedRequiredProjectInPrerequisites value:nil.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5272
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5273
    self listOfRequiredProjectsInPrerequisites changed.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5274
    self listOfAllProjectsInPrerequisites changed.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5275
    self accept
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5276
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5277
!
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5278
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5279
showInfoForRequiredClass:entry
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5280
    "show why a class is required"
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5281
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5282
    |cls myClasses|
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5283
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5284
    entry notNil ifTrue:[
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5285
        myClasses := self currentProjectsClassNames asSet.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5286
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5287
        cls := Smalltalk at:entry string asSymbol.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5288
        cls allSubclasses do:[:subClass |
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5289
            (myClasses includes:subClass name) ifTrue:[
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5290
                self valueOfInfoLabel value:('Required by ' , subClass name).
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5291
                ^ self.
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5292
            ]
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  5293
        ].
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
    self valueOfInfoLabel value:nil
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5296
! !
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5297
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5298
!ProjectBrowser methodsFor:'user actions - menu'!
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5299
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5300
addClass
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5301
    "ask for, and add a single class"
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5302
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5303
    |p className cls|
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5304
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5305
    p := self currentProject.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5306
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5307
    className := Dialog request:'Class to add:'.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5308
    className size == 0 ifTrue:[^ self].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5309
    cls := Smalltalk classNamed:className.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5310
    cls isNil ifTrue:[
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5311
        "/ a new one
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5312
        (self confirm:'This is a new class. Add ?') ifFalse:[
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5313
            ^ self      
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5314
        ].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5315
        p
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5316
            addClass:className
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5317
            classFileName:((Smalltalk fileNameForClass:className) , '.st').
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5318
    ] ifFalse:[
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5319
        cls package ~= p package ifTrue:[
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5320
            "/ a new one
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5321
            (self confirm:'Change the classes package from ' , cls package , ' to ' , p package , ' ?') ifFalse:[
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5322
                ^ self      
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5323
            ].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5324
            cls package:p package.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5325
        ].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5326
        p
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5327
            addClass:cls name
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5328
            classFileName:(cls classFilename 
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5329
                            ? ((Smalltalk fileNameForClass:cls) , '.st')).
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5330
    ].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5331
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5332
    self updateClassListForProject:p
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5333
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5334
!
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5335
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5336
addClassesFromFilesInDirectory
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5337
    "add all classes found from files in the project directory"
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5338
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5339
    self addClassesFromFilesInDirectoryWithFilter:nil
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5340
!
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5341
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5342
addClassesFromFilesInDirectoryIfPresentInImage
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5343
    "add all classes found from files in the project directory,
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5344
     but only if class is currently present in the image."
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5345
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5346
    self addClassesFromFilesInDirectoryWithFilter:[:classOrName | classOrName isBehavior]
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5347
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5348
!
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5349
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5350
addClassesFromFilesInDirectoryWithFilter:aFilterBlockOrNil
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5351
    "helper to add all classes found from files in the project directory"
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5352
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5353
    |project existingClasses prjDirectory anyChange numSTFilesFound|
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5354
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5355
    project := self currentProject.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5356
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5357
    existingClasses := project classInfo.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5358
    anyChange := false.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5359
    numSTFilesFound := 0.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5360
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5361
    prjDirectory := project directory asFilename.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5362
    (prjDirectory exists and:[prjDirectory isDirectory]) ifFalse:[
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5363
        self warn:'Invalid project directory: ' , prjDirectory pathName.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5364
        ^ self
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5365
    ].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5366
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5367
    prjDirectory directoryContents do:[:fn |
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5368
        |f oldInfo cls|
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5369
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5370
        f := prjDirectory construct:fn.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5371
        (f hasSuffix:'st') ifTrue:[
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5372
            numSTFilesFound := numSTFilesFound + 1.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5373
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5374
            oldInfo := existingClasses 
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5375
                            detect:[:clsInfo |
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5376
                                        clsInfo classFileName = fn
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5377
                                   ] 
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5378
                            ifNone:nil.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5379
            oldInfo isNil ifTrue:[
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5380
                "/ extract className from fileName ...
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5381
                cls := Smalltalk filenameAbbreviations keyAtValue:(f withoutSuffix baseName ).
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5382
                cls isNil ifTrue:[
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5383
                    cls := f withoutSuffix baseName asSymbol.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5384
                    project defaultNameSpace notNil ifTrue:[
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5385
                        cls := (project defaultNameSpace name , '::' , cls) asSymbol
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5386
                    ]
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5387
                ].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5388
                (aFilterBlockOrNil isNil 
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5389
                or:[aFilterBlockOrNil value:cls]) ifTrue:[
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5390
                    project addClass:cls classFileName:fn.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5391
                    anyChange := true.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5392
Transcript showCR:'added ' , fn , ' as class: ' , cls printString.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5393
                ] ifFalse:[
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5394
Transcript showCR:'skipped ' , fn , ' as class: ' , cls printString.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5395
                ]
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5396
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5397
            ]
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5398
        ]
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5399
    ].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5400
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5401
    anyChange ifTrue:[
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5402
        self updateClassListForProject:project
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5403
    ] ifFalse:[
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5404
        numSTFilesFound == 0 ifTrue:[
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5405
            self information:'No st-sourcefiles found in ' , prjDirectory pathName.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5406
        ]
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5407
    ]
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5408
!
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5409
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5410
addClassesFromImage
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5411
    "add classes with this packageId found in the image"
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5412
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5413
    |project|
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5414
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5415
    project := self currentProject.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5416
    Smalltalk allClassesDo:[:aClass |
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5417
        aClass isMeta ifFalse:[
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5418
            (aClass isNamespace not or:[aClass == Smalltalk]) ifTrue:[
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5419
                aClass package = project package ifTrue:[
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5420
                    (project classInfoFor:aClass) isNil ifTrue:[
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5421
                        project 
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5422
                            addClass:aClass name
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5423
                            classFileName:(aClass classFilename 
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5424
                                            ? ((Smalltalk fileNameForClass:aClass) , '.st')).
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5425
                    ]
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5426
                 ]
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5427
             ]
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5428
        ]
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5429
    ].                 
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5430
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5431
    self updateClassListForProject:project
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5432
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5433
!
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5434
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5435
browseClasses
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5436
    "browse the projects classes"
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5437
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5438
    |ns p classes nBad uniqueClasses|
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5439
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5440
    p := self currentProject.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5441
    classes := p classes
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5442
                collect:[:clsOrName |
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5443
                            |cls realName|
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5444
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5445
                            clsOrName isSymbol ifTrue:[
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5446
                                realName := clsOrName.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5447
                                (realName includes:$:) ifTrue:[
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5448
                                    (realName startsWith:'Smalltalk::') ifTrue:[
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5449
                                        realName := (realName copyFrom:'Smalltalk::' size + 1) asSymbol
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5450
                                    ]
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5451
                                ].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5452
                                cls := Smalltalk at:realName
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5453
                            ] ifFalse:[
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5454
                                cls := clsOrName
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5455
                            ].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5456
                            cls
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5457
                        ].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5458
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5459
    "/ remove duplicates - but want to preserve order
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5460
    "/ thats why we do not use asIdentitySet asOrderedCollection
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5461
    uniqueClasses := OrderedCollection new.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5462
    classes do:[:cls | (uniqueClasses includesIdentical:cls) ifFalse:[uniqueClasses add:cls]].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5463
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5464
    nBad := classes inject:0 into:[:sum :el | el isNil ifTrue:[sum+1] ifFalse:[sum]].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5465
    nBad ~~ 0 ifTrue:[
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5466
        classes := classes select:[:cls | cls notNil].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5467
        self warn:('Oops - %1 classes could not be found.\\You should probably load them first.' bindWith:nBad) withCRs.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5468
    ].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5469
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5470
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5471
    SystemBrowser
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5472
        browseClasses:classes title:('Classes in ' , p name) sort:true.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5473
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5474
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5475
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5476
!
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5477
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5478
buildAll
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5479
    "build all as specified in the deployment section"
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5480
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5481
    |p|
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5482
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5483
    p := self currentProject.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5484
    p isNil ifTrue:[
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5485
        self information:'No project selected'.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5486
        ^ self
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5487
    ].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5488
1251
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5489
    self makeTranscriptVisible.
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5490
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5491
    self withCursor:Cursor wait do:[
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5492
        "/ prepare the building ...
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5493
1251
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5494
        TextCollector transcriptQuerySignal answer:self transcript
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5495
        do:[
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5496
            (p propertyAt:#deliverLoadAllFile) == true ifTrue:[
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5497
                p createLoadAllFile
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5498
            ].
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5499
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5500
            (p propertyAt:#deliverSources) == true ifTrue:[
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5501
                p createSourceFiles
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5502
            ].
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5503
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5504
            (p propertyAt:#deliverMakefiles) == true ifTrue:[
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5505
                self buildMakefiles
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5506
            ].
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5507
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5508
            (p propertyAt:#deliverCompiledBinary) == true ifTrue:[
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5509
                self buildCompiledClassLibrary
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5510
            ].
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5511
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5512
            (p propertyAt:#deliverByteCode) == true ifTrue:[
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5513
                self buildByteCodeClassLibrary
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5514
            ].
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5515
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5516
            "/ now, deploy ...
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5517
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5518
            (p propertyAt:#deliverZipArchive) == true ifTrue:[
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5519
                p buildZipArchive
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5520
            ].
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5521
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5522
            (p propertyAt:#deliverTarArchive) == true ifTrue:[
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5523
                p buildTarArchive
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5524
            ].
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5525
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5526
            (p propertyAt:#deliverGZipArchive) == true ifTrue:[
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5527
                p buildGZipArchive
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5528
            ].
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5529
        ].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5530
    ].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5531
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5532
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5533
!
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5534
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5535
buildCompiledClassLibrary
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5536
    "compile a binary class library in the projects directory"
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5537
1251
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5538
    |p diagnostic error textBox|
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5539
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5540
    p := self currentProject.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5541
    p isNil ifTrue:[
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5542
        self information:'No project selected'.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5543
        ^ self
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5544
    ].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5545
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5546
    "/ check for directory ...
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5547
    (self checkForProjectDirectoryFor:p) ifFalse:[
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5548
        ^ self
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5549
    ].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5550
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5551
    "/ check for Make.proto ...
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5552
    (self checkForMakeProtoFor:p) ifFalse:[
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5553
        ^ self
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5554
    ].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5555
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5556
    "/ check for Makefile ...
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5557
    (self checkForMakefileFor:p) ifFalse:[
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5558
        ^ self
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5559
    ].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5560
1251
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5561
    self makeTranscriptVisible.
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5562
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5563
    "/ now, execute the makefile found there ...
1251
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5564
    diagnostic := self transcript.
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5565
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5566
    error := false.
1251
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5567
    diagnostic nextPutLine:('Building compiled class library...' asText emphasizeAllWith:#color->Color blue).
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5568
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5569
    self withCursor:Cursor wait do:[
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5570
        OperatingSystem
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5571
            executeCommand:'make' 
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5572
            inputFrom:nil 
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5573
            outputTo:diagnostic 
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5574
            errorTo:diagnostic 
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5575
            inDirectory:(p directory asFilename pathName) 
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5576
            onError:[error := true].
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5577
    ].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5578
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5579
1251
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5580
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5581
!
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5582
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5583
buildLoadAllFile
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5584
    "generate a loadAll file in the projects directory"
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5585
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5586
    |p |
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5587
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5588
    p := self currentProject.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5589
    p isNil ifTrue:[
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5590
        self information:'No project selected'.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5591
        ^ self
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5592
    ].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5593
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5594
    self withCursor:Cursor wait do:[
1251
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5595
        self makeTranscriptVisible.
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5596
        TextCollector transcriptQuerySignal answer:self transcript
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5597
        do:[
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5598
            p createLoadAllFile.
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5599
        ]
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5600
    ]
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5601
!
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5602
1278
b9769689b45c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1267
diff changeset
  5603
buildMakefile
b9769689b45c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1267
diff changeset
  5604
    "generate a Makefile/nt.mak/vms.mak in the projects directory"
b9769689b45c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1267
diff changeset
  5605
b9769689b45c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1267
diff changeset
  5606
    |p |
b9769689b45c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1267
diff changeset
  5607
b9769689b45c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1267
diff changeset
  5608
    p := self currentProject.
b9769689b45c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1267
diff changeset
  5609
    p isNil ifTrue:[
b9769689b45c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1267
diff changeset
  5610
        self information:'No project selected'.
b9769689b45c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1267
diff changeset
  5611
        ^ self
b9769689b45c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1267
diff changeset
  5612
    ].
b9769689b45c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1267
diff changeset
  5613
b9769689b45c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1267
diff changeset
  5614
    self withCursor:Cursor wait do:[
b9769689b45c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1267
diff changeset
  5615
        self makeTranscriptVisible.
b9769689b45c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1267
diff changeset
  5616
        TextCollector transcriptQuerySignal answer:self transcript
b9769689b45c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1267
diff changeset
  5617
        do:[
b9769689b45c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1267
diff changeset
  5618
            p createMakefile
b9769689b45c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1267
diff changeset
  5619
        ]
b9769689b45c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1267
diff changeset
  5620
    ].
b9769689b45c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1267
diff changeset
  5621
b9769689b45c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1267
diff changeset
  5622
    "Created: / 16.12.1999 / 01:29:30 / cg"
b9769689b45c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1267
diff changeset
  5623
!
b9769689b45c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1267
diff changeset
  5624
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5625
buildMakefiles
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5626
    "generate a Make.proto and Makefile in the projects directory"
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5627
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5628
    |p |
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5629
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5630
    p := self currentProject.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5631
    p isNil ifTrue:[
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5632
        self information:'No project selected'.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5633
        ^ self
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5634
    ].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5635
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5636
    self withCursor:Cursor wait do:[
1251
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5637
        self makeTranscriptVisible.
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5638
        TextCollector transcriptQuerySignal answer:self transcript
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5639
        do:[
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5640
            p createProtoMakefile.
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5641
            p createMakefile
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5642
        ]
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5643
    ].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5644
!
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5645
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5646
checkInAllClasses
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5647
    "check in all classes"
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5648
1289
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  5649
    |p classes classesToCheckIn anyBad|
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5650
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5651
    p := self currentProject.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5652
    p isNil ifTrue:[
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5653
        self information:'No project selected'.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5654
        ^ self
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5655
    ].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5656
1289
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  5657
    classesToCheckIn := OrderedCollection new.
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  5658
    anyBad := false.
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  5659
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  5660
    "/ collect in classes ...
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5661
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5662
    classes := p classes.
1289
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  5663
    classes do:[:aClassOrClassName |
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  5664
        |cls clsName|
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  5665
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  5666
        cls := aClassOrClassName.
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  5667
        cls isString ifTrue:[
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  5668
            cls := Smalltalk at:cls asSymbol.
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  5669
            clsName := aClassOrClassName
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  5670
        ] ifFalse:[
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  5671
            clsName := aClassOrClassName name
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  5672
        ].
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  5673
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  5674
        cls isBehavior ifFalse:[
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5675
            Transcript showCR:('ProjectBrowser: cannot checkIn unloaded class: ' , clsName).
1289
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  5676
            anyBad := true.
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5677
        ] ifTrue:[
1289
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  5678
            cls isLoaded ifFalse:[
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  5679
                Transcript showCR:('ProjectBrowser: cannot checkIn unloaded class: ' , clsName).
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  5680
                anyBad := true.
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5681
            ] ifTrue:[
1289
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  5682
                cls owningClass isNil ifTrue:[ "/ skip private classes
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  5683
                    Transcript showCR:('ProjectBrowser: checking in class: ' , clsName).
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  5684
                    classesToCheckIn add:cls.
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5685
                ]
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5686
            ]
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5687
        ]
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5688
    ].
1289
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  5689
    anyBad ifTrue:[^ self].
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  5690
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  5691
    self checkInClasses:classesToCheckIn.
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5692
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5693
!
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5694
1267
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  5695
checkInMakefiles
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  5696
    "check in the Make.proto, Makefile, nt.mak and vms.mak files"
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  5697
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  5698
    |p|
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  5699
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  5700
    p := self currentProject.
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  5701
    p isNil ifTrue:[
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  5702
        self information:'No project selected'.
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  5703
        ^ self
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  5704
    ].
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  5705
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  5706
    self warn:'CheckIn function not yet implemented.'.
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  5707
    ^ self.
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  5708
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  5709
    "/ check it in ...
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  5710
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  5711
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  5712
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  5713
!
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  5714
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5715
checkInMethods
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5716
    "check in all extensions (patches)"
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5717
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5718
    |p  methods anyMethodMissing|
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5719
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5720
    p := self currentProject.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5721
    p isNil ifTrue:[
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5722
        self information:'No project selected'.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5723
        ^ self
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5724
    ].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5725
1267
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  5726
    self warn:'CheckIn function not yet implemented.'.
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  5727
    ^ self.
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  5728
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5729
    "/ check methods ...
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5730
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5731
    anyMethodMissing := false.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5732
    methods := p methods.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5733
    methods size > 0 ifTrue:[
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5734
        methods do:[:aMethod |
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5735
            aMethod isMethod ifFalse:[
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5736
                Transcript showCR:('ProjectBrowser: cannot checkIn unloaded method: ' , aMethod className , ' ' , aMethod methodName).
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5737
                anyMethodMissing := true.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5738
            ]
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5739
        ].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5740
        anyMethodMissing ifTrue:[
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5741
            Transcript showCR:'ProjectBrowser: cannot save method patches & extensions due to missing method(s)'.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5742
        ] ifFalse:[
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5743
            Transcript showCR:('ProjectBrowser: checking in patches & extensions').
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5744
            self checkInMethods:methods
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5745
        ].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5746
    ].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5747
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5748
!
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5749
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5750
checkInProject
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5751
    "check in all classes and extensions"
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5752
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5753
    |p|
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5754
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5755
    p := self currentProject.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5756
    p isNil ifTrue:[
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5757
        self information:'No project selected'.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5758
        ^ self
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5759
    ].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5760
1267
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  5761
    self warn:'CheckIn function not yet implemented.'.
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  5762
    ^ self.
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  5763
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5764
    "/ check in classes ...
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5765
    self checkInAllClasses.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5766
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5767
    "/ check methods ...
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5768
    self checkInMethods.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5769
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5770
    "/ check in the project file itself
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5771
    self checkInProjectFile.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5772
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5773
!
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5774
1267
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  5775
checkInProjectFile
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  5776
    "check in the prj-file"
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  5777
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  5778
    |p|
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  5779
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  5780
    p := self currentProject.
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  5781
    p isNil ifTrue:[
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  5782
        self information:'No project selected'.
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  5783
        ^ self
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  5784
    ].
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  5785
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  5786
    self warn:'CheckIn function not yet implemented.'.
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  5787
    ^ self.
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  5788
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  5789
    "/ check it in ...
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  5790
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  5791
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  5792
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  5793
!
db910ada83f7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1255
diff changeset
  5794
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5795
inspectCurrentProject
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5796
    "inspect the current project"
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5797
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5798
    self hasProjectSelected ifTrue:[
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5799
        self currentProject inspect.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5800
    ]
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5801
!
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5802
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5803
loadClassesFromDirectory
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5804
    "load all classes as contained in the project into the system"
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5805
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5806
    self withReadCursorDo:[
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5807
        self currentProject loadClassesFromProjectDirectory.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5808
    ].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5809
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5810
!
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5811
1289
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  5812
loadClassesFromRepository
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  5813
    "load all classes as contained in the project from the source code
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  5814
     repository into the system"
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  5815
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  5816
    self warn:'not yet implemented - please load from directory'
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  5817
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  5818
!
76e5acce57a6 use new SCMUtilities class
Claus Gittinger <cg@exept.de>
parents: 1287
diff changeset
  5819
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5820
makeCurrentProject
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5821
    "make the selected Project the current project"
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5822
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5823
    |project|
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5824
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5825
    self hasProjectSelected ifTrue:[
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5826
        project := self currentProject.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5827
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5828
        Project current:project.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5829
        self showWhat value == #current ifTrue:[
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5830
            self updateProjectTree
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5831
        ]
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5832
    ]
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5833
!
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5834
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5835
moveMethodToProject
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5836
    |p mthd newPackage|
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5837
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5838
    p := self currentProject.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5839
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5840
    mthd := self selectedMethod.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5841
    mthd notNil ifTrue:[
1251
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5842
        newPackage := Dialog request:'Move to project:' initialAnswer:lastMoveToProject.
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5843
        newPackage size > 0 ifTrue:[
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5844
            lastMoveToProject := newPackage.
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5845
            newPackage ~= p package ifTrue:[
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5846
                mthd package:newPackage asSymbol.
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5847
                p removeMethod:mthd.
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5848
                self updatePatchesListForProject:p.
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5849
                self projectTree remove:self selectedTreeNode.
379bd54db35b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1248
diff changeset
  5850
            ]
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5851
        ]
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5852
    ].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5853
!
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5854
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5855
newProject
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5856
    self newProject:Project new.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5857
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5858
!
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5859
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5860
newProject:newProject
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5861
    |newNode|
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5862
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5863
    newNode := self nodeFor:newProject.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5864
    self addProjectNodeToTree:newNode.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5865
    self projectTreeHolder root:projectTree.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5866
"/    self projectTreeHolder selectNode:newNode.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5867
"/    self projectTreeHolder expand:newNode.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5868
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5869
    self readAspectsFromProject.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5870
    newProject wasLoadedFromFile ifFalse:[
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5871
         self updateListOfRequiredPrerequisiteClasses.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5872
    ]
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5873
!
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5874
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5875
newSubProject
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5876
    |projectNode subProjectsNode newNode parentProject newProject|
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5877
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5878
    projectNode := self currentProjectNode.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5879
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5880
    projectNode notNil ifTrue:[
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5881
        parentProject := projectNode contents.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5882
        subProjectsNode := projectNode children detect:[:child | child contents == #subprojects].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5883
self halt.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5884
        parentProject notNil ifTrue:[
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5885
            newProject := Project new.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5886
            newNode := self nodeFor:newProject.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5887
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5888
            parentProject addSubProject:newProject.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5889
            subProjectsNode add:newNode.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5890
            self projectTreeHolder root:projectTree.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5891
            self projectTreeHolder selectNode:newNode.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5892
        ]    
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5893
    ]    
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5894
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5895
!
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5896
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5897
openDocumentation
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5898
    self openHTMLDocument: 'tools/pbrowser/TOP.html'
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5899
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5900
!
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5901
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5902
openProject
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5903
    |fn|
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5904
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5905
    fn := Dialog 
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5906
        requestFileName:'filename:' 
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5907
        default:nil
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5908
        ifFail:nil
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5909
        pattern:'*.prj'
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5910
        fromDirectory:(FileSelectionBox lastFileSelectionDirectory).
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5911
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5912
    fn notNil ifTrue:[
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5913
        self loadFromProjectFile:fn.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5914
    ]
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5915
!
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5916
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5917
removeMethod
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5918
    |p mthd|
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5919
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5920
    p := self currentProject.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5921
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5922
    mthd := self selectedMethod.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5923
    mthd notNil ifTrue:[
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5924
        (self confirm:'Really remove the method (from both project and image) ?') ifTrue:[
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5925
            p removeMethod:mthd.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5926
            mthd who methodClass removeSelector:mthd who methodSelector.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5927
            self updatePatchesListForProject:p.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5928
            self projectTree remove:self selectedTreeNode.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5929
        ]
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5930
    ].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5931
!
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5932
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5933
removeMethodFromProject
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5934
    |p mthd|
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5935
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5936
    p := self currentProject.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5937
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5938
    mthd := self selectedMethod.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5939
    mthd notNil ifTrue:[
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5940
        (self confirm:'Really remove the method (from the project) ?') ifTrue:[
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5941
            mthd package:#unknown.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5942
            p removeMethod:mthd.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5943
            self updatePatchesListForProject:p.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5944
            self projectTree remove:self selectedTreeNode.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5945
        ]
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5946
    ].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5947
!
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5948
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5949
removeProject
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5950
    |projectToRemove selectedNode subNode newNode parentNode parentProject newProject|
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5951
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5952
    self hasProjectNodeSelected ifTrue:[
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5953
        selectedNode := self selectedTreeNode.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5954
        projectToRemove := selectedNode contents.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5955
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5956
        (self confirm:'Really remove the project ?') ifTrue:[
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5957
            self withExecuteCursorDo:[
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5958
                self projectTreeHolder removeSelection.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5959
                projectToRemove removeFromSystem.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5960
            ]
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5961
        ]
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5962
    ]
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5963
!
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5964
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5965
renameProject
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5966
    |nm projectNode selectedProject|
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5967
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5968
    projectNode := self currentProjectNode.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5969
    projectNode notNil ifTrue:[
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5970
        selectedProject := projectNode contents.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5971
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5972
        nm := Dialog 
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5973
                request:'Rename to:'
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5974
                initialAnswer:selectedProject name.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5975
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5976
        nm size > 0 ifTrue:[
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5977
            selectedProject name:nm.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5978
"/            selectedNode name:nm.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5979
"/            selectedNode changed.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5980
        ]
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5981
    ]
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5982
!
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5983
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5984
saveProjectFile
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5985
    "save the project file in the project directory"
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5986
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5987
    |d p|
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5988
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5989
    self modifiedChannel value ifTrue:[
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5990
        (self confirm:'Changes not confirmed; save anyway ?') ifFalse:[^ self]
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5991
    ].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5992
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5993
    p := self currentProject.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5994
    p isNil ifTrue:[
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5995
        self information:'Select a project first.'.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5996
        ^self
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5997
    ].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5998
    p directory isNil ifTrue:[
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  5999
        d := (Dialog request:'Project Directory:').
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6000
        d size == 0 ifTrue:[
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6001
            ^ self
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6002
        ].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6003
        p directory:d
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6004
    ].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6005
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6006
    self withCursor:Cursor write do:[
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6007
        p saveAsProjectFile.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6008
    ]
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6009
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6010
    "Modified: / 26.4.1999 / 22:43:57 / cg"
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6011
!
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6012
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6013
validateAgainstClassesInImage
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6014
    "validate classes in project against classes found in the image"
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6015
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6016
    |project classesInProjectOnly classesInImageOnly bindings|
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6017
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6018
    project := self currentProject.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6019
    classesInImageOnly := IdentitySet new.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6020
    classesInProjectOnly := IdentitySet new.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6021
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6022
    Smalltalk allClassesDo:[:aClass |
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6023
        aClass isMeta ifFalse:[
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6024
            (aClass isNamespace not or:[aClass == Smalltalk]) ifTrue:[
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6025
                aClass package = project package ifTrue:[
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6026
                    (project classInfoFor:aClass) isNil ifTrue:[
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6027
                        classesInImageOnly add:aClass name.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6028
                    ]
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6029
                 ]
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6030
             ]
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6031
        ]
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6032
    ].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6033
    project classInfo do:[:clsInfo |
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6034
        |clsName cls|
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6035
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6036
        clsName := clsInfo className.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6037
        cls := Smalltalk at:clsName asSymbol.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6038
        (cls isBehavior not) ifTrue:[
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6039
            classesInProjectOnly add:clsName
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6040
        ].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6041
    ].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6042
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6043
    (classesInImageOnly isEmpty and:[classesInProjectOnly isEmpty]) ifTrue:[
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6044
        self information:'Set of classes in project and image are equal.'.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6045
        ^ self.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6046
    ].
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6047
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6048
    classesInImageOnly := classesInImageOnly asOrderedCollection sort.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6049
    classesInProjectOnly := classesInProjectOnly asOrderedCollection sort.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6050
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6051
    bindings := IdentityDictionary new.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6052
    bindings at:#classesInImageOnly put:classesInImageOnly.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6053
    bindings at:#classesInProjectOnly put:classesInProjectOnly.
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6054
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6055
    SimpleDialog
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6056
        openDialogInterfaceSpec:(self class classValidationDialogSpec)
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6057
        withBindings:bindings
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6058
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6059
    "Modified: / 26.9.1999 / 16:03:50 / cg"
1255
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6060
!
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6061
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6062
validateAgainstMethodsInImage
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6063
    "validate methods in project against methods found in the image"
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6064
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6065
    |project package methodsInProjectOnly methodsInImageOnly bindings who|
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6066
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6067
    project := self currentProject.
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6068
    package := project package.
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6069
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6070
    methodsInImageOnly := IdentitySet new.
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6071
    methodsInProjectOnly := IdentitySet new.
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6072
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6073
    Method allSubInstancesDo:[:aMethod |
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6074
        aMethod package = package ifTrue:[
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6075
            who := aMethod who.
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6076
            who notNil ifTrue:[
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6077
                (project classInfoFor:who methodClass) isNil ifTrue:[
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6078
                    "/ is it in the projects methodList ?
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6079
                    (project includesMethod:aMethod) ifFalse:[
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6080
                        methodsInImageOnly add:(who methodClass name , ' ' , who methodSelector).
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6081
                    ]
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6082
                ]
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6083
            ]
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6084
         ]
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6085
    ].
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6086
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6087
    project methodInfo do:[:mthdInfo |
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6088
        |clsName sel cls m|
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6089
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6090
        clsName := mthdInfo className.
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6091
        sel := mthdInfo methodName.
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6092
        cls := Smalltalk at:clsName asSymbol.
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6093
        (project includesClass:clsName) ifFalse:[
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6094
            (cls isBehavior not 
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6095
            or:[(m := cls compiledMethodAt:sel) isNil
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6096
            or:[m package ~= package]]) ifTrue:[
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6097
                methodsInProjectOnly add:(clsName , ' ' , sel)
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6098
            ].
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6099
        ].
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6100
    ].
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6101
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6102
    (methodsInImageOnly isEmpty and:[methodsInProjectOnly isEmpty]) ifTrue:[
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6103
        self information:'Set of methods in project and image are equal.'.
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6104
        ^ self.
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6105
    ].
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6106
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6107
    methodsInImageOnly := methodsInImageOnly asOrderedCollection sort:[:a :b | a printString < b printString].
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6108
    methodsInProjectOnly := methodsInProjectOnly asOrderedCollection sort:[:a :b | a printString < b printString].
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6109
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6110
    bindings := IdentityDictionary new.
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6111
    bindings at:#methodsInImageOnly put:methodsInImageOnly.
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6112
    bindings at:#methodsInProjectOnly put:methodsInProjectOnly.
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6113
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6114
    SimpleDialog
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6115
        openDialogInterfaceSpec:(self class methodValidationDialogSpec)
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6116
        withBindings:bindings
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6117
d5616023622e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1254
diff changeset
  6118
    "Modified: / 26.9.1999 / 16:03:50 / cg"
1248
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6119
! !
fc64935b7ff9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1242
diff changeset
  6120
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  6121
!ProjectBrowser::ProjectTreeItem methodsFor:'accessing'!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  6122
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  6123
action
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  6124
    "return the value of the instance variable 'action' (automatically generated)"
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  6125
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  6126
    ^ action!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  6127
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  6128
action:something
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  6129
    "set the value of the instance variable 'action' (automatically generated)"
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  6130
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  6131
    action := something.!
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  6132
1109
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  6133
info
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  6134
    "return the value of the instance variable 'info' (automatically generated)"
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  6135
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  6136
    ^ info!
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  6137
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  6138
info:something
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  6139
    "set the value of the instance variable 'info' (automatically generated)"
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  6140
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  6141
    info := something.!
df7d7c6611b6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1108
diff changeset
  6142
1079
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  6143
spec
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  6144
    "return the value of the instance variable 'spec' (automatically generated)"
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  6145
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  6146
    ^ spec!
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  6147
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  6148
spec:something
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  6149
    "set the value of the instance variable 'spec' (automatically generated)"
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  6150
deda6cdfe287 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  6151
    spec := something.! !
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  6152
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  6153
!ProjectBrowser::ProjectTreeItem methodsFor:'queries'!
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  6154
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  6155
isProjectNode
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  6156
    ^ false
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  6157
! !
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  6158
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  6159
!ProjectBrowser::ProjectNode methodsFor:'queries'!
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  6160
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  6161
isProjectNode
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  6162
    ^ true
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  6163
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  6164
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  6165
! !
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  6166
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  6167
!ProjectBrowser class methodsFor:'documentation'!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  6168
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  6169
version
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  6170
    ^ '$Header$'
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  6171
! !
1236
a7dbf8ace3f4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1235
diff changeset
  6172
ProjectBrowser initialize!