ProjectBrowser.st
author Claus Gittinger <cg@exept.de>
Tue, 23 Mar 1999 11:33:40 +0100
changeset 1077 46793bf50415
parent 1052 2b65eda2938e
child 1079 deda6cdfe287
permissions -rw-r--r--
two more common layouts added.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
     1
ToolApplicationModel subclass:#ProjectBrowser
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
     2
	instanceVariableNames:'projectTree'
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     3
	classVariableNames:''
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
	poolDictionaries:''
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     5
	category:'Interface-Smalltalk'
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     6
!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     7
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
TreeItem subclass:#ProjectTreeItem
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     9
	instanceVariableNames:'action'
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    10
	classVariableNames:''
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    11
	poolDictionaries:''
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
	privateIn:ProjectBrowser
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
    15
ProjectBrowser::ProjectTreeItem subclass:#ProjectNode
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
    16
	instanceVariableNames:''
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
    17
	classVariableNames:''
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
    18
	poolDictionaries:''
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
    19
	privateIn:ProjectBrowser
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
    20
!
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
    21
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    23
!ProjectBrowser class methodsFor:'interface specs'!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    24
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
emptyRightCanvasSpec
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    26
    "This resource specification was automatically generated
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    27
     by the UIPainter of ST/X."
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
    "Do not manually edit this!! If it is corrupted,
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    30
     the UIPainter may not be able to read the specification."
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    31
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    32
    "
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    33
     UIPainter new openOnClass:ProjectBrowser andSelector:#emptyRightCanvasSpec
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    34
     ProjectBrowser new openInterface:#emptyRightCanvasSpec
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    35
    "
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    36
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    37
    <resource: #canvas>
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    38
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    39
    ^
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    40
     
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    41
       #(#FullSpec
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    42
          #window: 
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    43
           #(#WindowSpec
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    44
              #name: 'NewApplication'
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    45
              #layout: #(#LayoutFrame 216 0 173 0 515 0 472 0)
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    46
              #label: 'NewApplication'
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    47
              #min: #(#Point 10 10)
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    48
              #max: #(#Point 1280 1024)
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    49
              #bounds: #(#Rectangle 216 173 516 473)
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    50
              #usePreferredExtent: false
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    51
          )
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    52
          #component: 
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    53
           #(#SpecCollection
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    54
              #collection: 
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    55
               #(
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    56
                 #(#TextEditorSpec
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    57
                    #name: 'TextEditor1'
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    58
                    #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    59
                    #model: #rightCanvasTextHolder
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    60
                    #hasHorizontalScrollBar: true
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    61
                    #hasVerticalScrollBar: true
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    62
                    #miniScrollerHorizontal: true
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    63
                    #isReadOnly: true
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    64
                )
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    65
              )
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    66
          )
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    67
      )
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    68
!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    69
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
    70
rightCanvasSpecForClassList
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
    71
    "This resource specification was automatically generated
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
    72
     by the UIPainter of ST/X."
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
    73
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
    74
    "Do not manually edit this!! If it is corrupted,
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
    75
     the UIPainter may not be able to read the specification."
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
    76
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
    77
    "
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
    78
     UIPainter new openOnClass:ProjectBrowser andSelector:#rightCanvasSpecForClassList
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
    79
     ProjectBrowser new openInterface:#rightCanvasSpecForClassList
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
    80
    "
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
    81
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
    82
    <resource: #canvas>
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
    83
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
    84
    ^
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
    85
     
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
    86
       #(#FullSpec
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
    87
          #window: 
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
    88
           #(#WindowSpec
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
    89
              #name: 'NewApplication'
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
    90
              #layout: #(#LayoutFrame 216 0 173 0 515 0 472 0)
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
    91
              #level: 0
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
    92
              #label: 'NewApplication'
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
    93
              #min: #(#Point 10 10)
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
    94
              #max: #(#Point 1280 1024)
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
    95
              #bounds: #(#Rectangle 216 173 516 473)
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
    96
              #usePreferredExtent: false
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
    97
          )
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
    98
          #component: 
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
    99
           #(#SpecCollection
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   100
              #collection: 
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   101
               #(
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   102
                 #(#DataSetSpec
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   103
                    #name: 'classTable'
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   104
                    #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
   105
                    #hasHorizontalScrollBar: true
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   106
                    #hasVerticalScrollBar: true
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   107
                    #dataList: #classList
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   108
                    #has3Dsepartors: false
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   109
                    #columnHolder: #classTableColumns
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   110
                    #columnAdaptor: #classTableAdaptor
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   111
                )
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   112
              )
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   113
          )
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   114
      )
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   115
!
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   116
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   117
rightCanvasSpecForEditableText
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   118
    "This resource specification was automatically generated
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   119
     by the UIPainter of ST/X."
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   120
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   121
    "Do not manually edit this!! If it is corrupted,
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   122
     the UIPainter may not be able to read the specification."
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   123
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   124
    "
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   125
     UIPainter new openOnClass:ProjectBrowser andSelector:#emptyRightCanvasSpec
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   126
     ProjectBrowser new openInterface:#emptyRightCanvasSpec
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   127
    "
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   128
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   129
    <resource: #canvas>
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   130
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   131
    ^
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   132
     
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   133
       #(#FullSpec
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   134
          #window: 
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   135
           #(#WindowSpec
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   136
              #name: 'NewApplication'
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   137
              #layout: #(#LayoutFrame 216 0 173 0 515 0 472 0)
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   138
              #label: 'NewApplication'
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   139
              #min: #(#Point 10 10)
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   140
              #max: #(#Point 1280 1024)
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   141
              #bounds: #(#Rectangle 216 173 516 473)
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   142
              #usePreferredExtent: false
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   143
          )
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   144
          #component: 
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   145
           #(#SpecCollection
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   146
              #collection: 
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   147
               #(
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   148
                 #(#TextEditorSpec
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   149
                    #name: 'TextEditor1'
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   150
                    #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   151
                    #model: #rightCanvasTextHolder
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   152
                    #hasHorizontalScrollBar: true
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   153
                    #hasVerticalScrollBar: true
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   154
                    #miniScrollerHorizontal: true
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   155
                    #isReadOnly: false
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   156
                )
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   157
              )
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   158
          )
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   159
      )
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   160
!
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   161
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   162
rightCanvasSpecForHTMLText
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   163
    "This resource specification was automatically generated
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   164
     by the UIPainter of ST/X."
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   165
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   166
    "Do not manually edit this!! If it is corrupted,
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   167
     the UIPainter may not be able to read the specification."
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   168
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   169
    "
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   170
     UIPainter new openOnClass:ProjectBrowser andSelector:#rightCanvasSpecForHTMLText
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   171
     ProjectBrowser new openInterface:#rightCanvasSpecForHTMLText
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   172
    "
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   173
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   174
    <resource: #canvas>
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   175
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   176
    ^
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   177
     
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   178
       #(#FullSpec
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   179
          #window: 
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   180
           #(#WindowSpec
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   181
              #name: 'NewApplication'
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   182
              #layout: #(#LayoutFrame 216 0 173 0 515 0 472 0)
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   183
              #level: 0
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   184
              #label: 'NewApplication'
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   185
              #min: #(#Point 10 10)
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   186
              #max: #(#Point 1280 1024)
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   187
              #bounds: #(#Rectangle 216 173 516 473)
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   188
              #usePreferredExtent: false
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   189
          )
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   190
          #component: 
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   191
           #(#SpecCollection
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   192
              #collection: 
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   193
               #(
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   194
                 #(#HTMLViewSpec
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   195
                    #name: 'HTMLBrowser1'
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   196
                    #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
   197
                    #model: #htmlDocumentURLHolder
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   198
                    #hasHorizontalScrollBar: true
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   199
                    #hasVerticalScrollBar: true
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   200
                )
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   201
              )
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   202
          )
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   203
      )
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   204
!
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   205
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   206
rightCanvasSpecForPatchesList
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   207
    "This resource specification was automatically generated
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   208
     by the UIPainter of ST/X."
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   209
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   210
    "Do not manually edit this!! If it is corrupted,
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   211
     the UIPainter may not be able to read the specification."
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   212
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   213
    "
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   214
     UIPainter new openOnClass:ProjectBrowser andSelector:#rightCanvasSpecForPatchesList
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   215
     ProjectBrowser new openInterface:#rightCanvasSpecForPatchesList
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   216
    "
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   217
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   218
    <resource: #canvas>
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   219
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   220
    ^
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   221
     
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   222
       #(#FullSpec
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   223
          #window: 
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   224
           #(#WindowSpec
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   225
              #name: 'NewApplication'
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   226
              #layout: #(#LayoutFrame 216 0 173 0 515 0 472 0)
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   227
              #level: 0
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   228
              #label: 'NewApplication'
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   229
              #min: #(#Point 10 10)
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   230
              #max: #(#Point 1280 1024)
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   231
              #bounds: #(#Rectangle 216 173 516 473)
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   232
              #usePreferredExtent: false
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   233
          )
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   234
          #component: 
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   235
           #(#SpecCollection
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   236
              #collection: 
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   237
               #(
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   238
                 #(#DataSetSpec
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   239
                    #name: 'patchesTable'
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   240
                    #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   241
                    #hasHorizontalScrollBar: true
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   242
                    #hasVerticalScrollBar: true
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   243
                    #dataList: #patchesList
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   244
                    #has3Dsepartors: false
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   245
                    #columnHolder: #patchesTableColumns
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   246
                    #columnAdaptor: #classTableAdaptor
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   247
                )
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   248
              )
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   249
          )
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   250
      )
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   251
!
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   252
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   253
rightCanvasSpecForReadOnlyText
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   254
    "This resource specification was automatically generated
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   255
     by the UIPainter of ST/X."
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   256
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   257
    "Do not manually edit this!! If it is corrupted,
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   258
     the UIPainter may not be able to read the specification."
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   259
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   260
    "
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   261
     UIPainter new openOnClass:ProjectBrowser andSelector:#emptyRightCanvasSpec
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   262
     ProjectBrowser new openInterface:#emptyRightCanvasSpec
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   263
    "
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   264
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   265
    <resource: #canvas>
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   266
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   267
    ^
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   268
     
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   269
       #(#FullSpec
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   270
          #window: 
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   271
           #(#WindowSpec
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   272
              #name: 'NewApplication'
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   273
              #layout: #(#LayoutFrame 216 0 173 0 515 0 472 0)
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   274
              #label: 'NewApplication'
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   275
              #min: #(#Point 10 10)
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   276
              #max: #(#Point 1280 1024)
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   277
              #bounds: #(#Rectangle 216 173 516 473)
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   278
              #usePreferredExtent: false
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   279
          )
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   280
          #component: 
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   281
           #(#SpecCollection
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   282
              #collection: 
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   283
               #(
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   284
                 #(#TextEditorSpec
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   285
                    #name: 'TextEditor1'
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   286
                    #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   287
                    #model: #rightCanvasTextHolder
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   288
                    #hasHorizontalScrollBar: true
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   289
                    #hasVerticalScrollBar: true
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   290
                    #miniScrollerHorizontal: true
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   291
                    #isReadOnly: true
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   292
                )
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   293
              )
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   294
          )
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   295
      )
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   296
!
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   297
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   298
windowSpec
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   299
    "This resource specification was automatically generated
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   300
     by the UIPainter of ST/X."
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   301
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   302
    "Do not manually edit this!! If it is corrupted,
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   303
     the UIPainter may not be able to read the specification."
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   304
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   305
    "
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   306
     UIPainter new openOnClass:ProjectBrowser andSelector:#windowSpec
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   307
     ProjectBrowser new openInterface:#windowSpec
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   308
     ProjectBrowser open
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   309
    "
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   310
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   311
    <resource: #canvas>
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   312
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   313
    ^
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   314
     
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   315
       #(#FullSpec
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   316
          #window: 
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   317
           #(#WindowSpec
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   318
              #name: 'ProjectBrowser'
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   319
              #layout: #(#LayoutFrame 216 0 173 0 779 0 495 0)
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   320
              #level: 0
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   321
              #label: 'ProjectBrowser'
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   322
              #min: #(#Point 10 10)
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   323
              #max: #(#Point 1024 768)
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   324
              #bounds: #(#Rectangle 216 173 780 496)
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   325
              #menu: #mainMenu
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   326
              #usePreferredExtent: false
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   327
          )
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   328
          #component: 
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   329
           #(#SpecCollection
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   330
              #collection: 
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   331
               #(
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   332
                 #(#MenuPanelSpec
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   333
                    #name: 'ToolBar1'
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   334
                    #layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 32 0)
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   335
                    #menu: #menu
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   336
                    #textDefault: true
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   337
                )
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   338
                 #(#VariableHorizontalPanelSpec
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   339
                    #name: 'VariableHorizontalPanel1'
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   340
                    #layout: #(#LayoutFrame 0 0.0 40 0.0 0 1.0 -24 1.0)
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   341
                    #component: 
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   342
                     #(#SpecCollection
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   343
                        #collection: 
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   344
                         #(
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   345
                           #(#SelectionInTreeViewSpec
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   346
                              #name: 'TreeList1'
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   347
                              #model: #selectedTreeNode
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   348
                              #menu: #itemMenuHolder
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   349
                              #performer: #itemMenuPerformer
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   350
                              #hasHorizontalScrollBar: true
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   351
                              #hasVerticalScrollBar: true
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   352
                              #miniScrollerHorizontal: true
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   353
                              #showRoot: false
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   354
                              #showDirectoryIndicatorForRoot: false
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   355
                              #showDirectoryIndicator: true
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   356
                              #valueChangeSelector: #itemSelected:
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   357
                              #hierarchicalList: #projectTreeHolder
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   358
                              #highlightMode: #label
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   359
                          )
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   360
                           #(#SubCanvasSpec
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   361
                              #name: 'SubCanvas1'
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   362
                              #hasHorizontalScrollBar: false
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   363
                              #hasVerticalScrollBar: false
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   364
                              #specHolder: #currentCanvasHolder
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   365
                          )
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   366
                        )
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   367
                    )
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   368
                    #handles: #(#Any 0.379433 1.0)
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   369
                )
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   370
                 #(#UISubSpecification
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   371
                    #name: 'infoBarSubSpec'
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   372
                    #layout: #(#LayoutFrame 0 0.0 -24 1 0 1.0 0 1.0)
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   373
                    #majorKey: #ToolApplicationModel
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   374
                    #minorKey: #windowSpecForInfoBar
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   375
                )
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   376
              )
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   377
          )
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   378
      )
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   379
! !
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   380
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   381
!ProjectBrowser class methodsFor:'menu specs'!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   382
1052
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
   383
classesItemMenu
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
   384
    "This resource specification was automatically generated
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
   385
     by the MenuEditor of ST/X."
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
   386
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
   387
    "Do not manually edit this!! If it is corrupted,
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
   388
     the MenuEditor may not be able to read the specification."
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
   389
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
   390
    "
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
   391
     MenuEditor new openOnClass:ProjectBrowser andSelector:#classesItemMenu
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
   392
     (Menu new fromLiteralArrayEncoding:(ProjectBrowser classesItemMenu)) startUp
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
   393
    "
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
   394
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
   395
    <resource: #menu>
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
   396
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
   397
    ^
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
   398
     
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
   399
       #(#Menu
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
   400
          
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
   401
           #(
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
   402
             #(#MenuItem
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
   403
                #label: 'Add Class...'
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
   404
                #translateLabel: true
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
   405
                #value: #addClass
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
   406
                #enabled: #hasClassesSelectedHolder
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
   407
            )
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
   408
             #(#MenuItem
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
   409
                #label: '-'
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
   410
            )
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
   411
             #(#MenuItem
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
   412
                #label: 'Browse...'
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
   413
                #translateLabel: true
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
   414
                #value: #browseClasses
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
   415
                #enabled: #hasClassesSelectedHolder
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
   416
            )
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
   417
          ) nil
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
   418
          nil
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
   419
      )
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
   420
!
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
   421
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   422
mainMenu
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   423
    "This resource specification was automatically generated
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   424
     by the MenuEditor of ST/X."
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   425
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   426
    "Do not manually edit this!! If it is corrupted,
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   427
     the MenuEditor may not be able to read the specification."
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   428
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   429
    "
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   430
     MenuEditor new openOnClass:ProjectBrowser andSelector:#mainMenu
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   431
     (Menu new fromLiteralArrayEncoding:(ProjectBrowser mainMenu)) startUp
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   432
    "
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   433
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   434
    <resource: #menu>
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   435
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   436
    ^
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   437
     
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   438
       #(#Menu
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   439
          
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   440
           #(
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   441
             #(#MenuItem
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   442
                #label: 'File'
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   443
                #translateLabel: true
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   444
                #submenu: 
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   445
                 #(#Menu
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   446
                    
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   447
                     #(
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   448
                       #(#MenuItem
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   449
                          #label: 'New'
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   450
                          #translateLabel: true
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   451
                          #value: #newProject
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   452
                      )
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   453
                       #(#MenuItem
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   454
                          #label: '-'
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   455
                      )
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   456
                       #(#MenuItem
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   457
                          #label: 'Open...'
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   458
                          #translateLabel: true
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   459
                          #value: #openProject
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   460
                      )
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   461
                       #(#MenuItem
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   462
                          #label: '-'
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   463
                      )
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   464
                       #(#MenuItem
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   465
                          #label: 'Save'
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   466
                          #translateLabel: true
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   467
                          #value: #saveProject
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   468
                          #enabled: #hasProjectSelectedHolder
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   469
                      )
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   470
                       #(#MenuItem
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   471
                          #label: 'Save As...'
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   472
                          #translateLabel: true
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   473
                          #value: #saveProjectAs
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   474
                          #enabled: #hasProjectSelectedHolder
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   475
                      )
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   476
                       #(#MenuItem
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   477
                          #label: '-'
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   478
                      )
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   479
                       #(#MenuItem
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   480
                          #label: 'Exit'
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   481
                          #translateLabel: true
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   482
                          #value: #closeRequest
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   483
                      )
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   484
                    ) nil
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   485
                    nil
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   486
                )
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   487
            )
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   488
             #(#MenuItem
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   489
                #label: 'Project'
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   490
                #translateLabel: true
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   491
                #submenuChannel: #projectItemMenu
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   492
            )
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   493
             #(#MenuItem
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   494
                #label: 'Help'
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   495
                #translateLabel: true
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   496
                #startGroup: #right
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   497
                #submenu: 
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   498
                 #(#Menu
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   499
                    
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   500
                     #(
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   501
                       #(#MenuItem
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   502
                          #label: 'Documentation'
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   503
                          #translateLabel: true
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   504
                          #value: #openDocumentation
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   505
                      )
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   506
                       #(#MenuItem
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   507
                          #label: '-'
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   508
                      )
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   509
                       #(#MenuItem
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   510
                          #label: 'About this Application'
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   511
                          #translateLabel: true
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   512
                          #value: #openAboutThisApplication
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   513
                      )
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   514
                    ) nil
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   515
                    nil
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   516
                )
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   517
            )
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   518
          ) nil
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   519
          nil
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   520
      )
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   521
!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   522
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   523
menu
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   524
    "This resource specification was automatically generated
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   525
     by the MenuEditor of ST/X."
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   526
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   527
    "Do not manually edit this!! If it is corrupted,
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   528
     the MenuEditor may not be able to read the specification."
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   529
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   530
    "
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   531
     MenuEditor new openOnClass:ProjectBrowser andSelector:#menu
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   532
     (Menu new fromLiteralArrayEncoding:(ProjectBrowser menu)) startUp
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   533
    "
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   534
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   535
    <resource: #menu>
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   536
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   537
    ^
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   538
     
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   539
       #(#Menu
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   540
          
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   541
           #(
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   542
             #(#MenuItem
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   543
                #label: 'New...'
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   544
                #translateLabel: true
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   545
                #isButton: true
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   546
                #value: #newProject
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   547
                #labelImage: #(#ResourceRetriever #Icon #newIcon)
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   548
            )
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   549
             #(#MenuItem
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   550
                #label: 'Open...'
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   551
                #translateLabel: true
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   552
                #isButton: true
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   553
                #value: #openProject
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   554
                #labelImage: #(#ResourceRetriever #Icon #loadIcon)
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   555
            )
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   556
             #(#MenuItem
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   557
                #label: 'SaveAs...'
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   558
                #translateLabel: true
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   559
                #isButton: true
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   560
                #value: #saveProject
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   561
                #labelImage: #(#ResourceRetriever #Icon #saveIcon)
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   562
            )
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   563
          ) nil
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   564
          nil
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   565
      )
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   566
!
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   567
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   568
projectItemMenu
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   569
    "This resource specification was automatically generated
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   570
     by the MenuEditor of ST/X."
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   571
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   572
    "Do not manually edit this!! If it is corrupted,
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   573
     the MenuEditor may not be able to read the specification."
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   574
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   575
    "
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   576
     MenuEditor new openOnClass:ProjectBrowser andSelector:#projectItemMenu
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   577
     (Menu new fromLiteralArrayEncoding:(ProjectBrowser projectItemMenu)) startUp
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   578
    "
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   579
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   580
    <resource: #menu>
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   581
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   582
    ^
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   583
     
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   584
       #(#Menu
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   585
          
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   586
           #(
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   587
             #(#MenuItem
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   588
                #label: 'Rename...'
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   589
                #translateLabel: true
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   590
                #value: #renameProject
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   591
                #enabled: #hasProjectSelectedHolder
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   592
            )
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   593
             #(#MenuItem
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   594
                #label: '-'
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   595
            )
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   596
             #(#MenuItem
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   597
                #label: 'New SubProject'
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   598
                #translateLabel: true
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   599
                #value: #newSubProject
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   600
                #enabled: #hasProjectSelectedHolder
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   601
            )
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   602
             #(#MenuItem
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   603
                #label: '-'
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   604
            )
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   605
             #(#MenuItem
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   606
                #label: 'Remove...'
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   607
                #translateLabel: true
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   608
                #value: #removeProject
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   609
                #enabled: #hasProjectSelectedHolder
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   610
            )
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   611
          ) nil
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   612
          nil
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   613
      )
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   614
!
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   615
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   616
subProjectsItemMenu
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   617
    "This resource specification was automatically generated
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   618
     by the MenuEditor of ST/X."
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   619
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   620
    "Do not manually edit this!! If it is corrupted,
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   621
     the MenuEditor may not be able to read the specification."
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   622
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   623
    "
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   624
     MenuEditor new openOnClass:ProjectBrowser andSelector:#subProjectsItemMenu
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   625
     (Menu new fromLiteralArrayEncoding:(ProjectBrowser subProjectsItemMenu)) startUp
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   626
    "
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   627
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   628
    <resource: #menu>
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   629
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   630
    ^
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   631
     
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   632
       #(#Menu
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   633
          
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   634
           #(
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   635
             #(#MenuItem
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   636
                #label: 'New SubProject'
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   637
                #translateLabel: true
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   638
                #value: #newSubProject
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   639
                #enabled: #hasSubProjectsSelectedHolder
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   640
            )
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   641
          ) nil
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   642
          nil
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   643
      )
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   644
! !
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   645
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   646
!ProjectBrowser class methodsFor:'tableColumns specs'!
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   647
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   648
classTableColumns
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   649
    "This resource specification was automatically generated
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   650
     by the DataSetBuilder of ST/X."
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   651
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   652
    "Do not manually edit this!! If it is corrupted,
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   653
     the DataSetBuilder may not be able to read the specification."
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   654
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   655
    "
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   656
     DataSetBuilder new openOnClass:ProjectBrowser andSelector:#classTableColumns
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   657
    "
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   658
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   659
    <resource: #tableColumns>
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   660
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   661
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   662
    ^ #(
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   663
        #(#DataSetColumnSpec
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   664
           #label: 'Class'
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   665
           #id: 'classColumn'
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   666
           #labelAlignment: #left
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   667
           #model: #classNameFromClassInfo:
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   668
       )
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   669
        #(#DataSetColumnSpec
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   670
           #label: 'Included'
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   671
           #id: 'inclusion'
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   672
           #columnAlignment: #center
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   673
           #width: 100
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   674
           #editorType: #ComboList
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   675
           #model: #classIncludeConditionFromClassInfo:
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   676
       )
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   677
        #(#DataSetColumnSpec
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   678
           #label: 'Filename'
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   679
           #labelAlignment: #left
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   680
           #minWidth: 200
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   681
           #model: #classFilenameFromClassInfo:
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   682
       )
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   683
     )
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   684
!
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   685
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   686
patchesTableColumns
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   687
    "This resource specification was automatically generated
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   688
     by the DataSetBuilder of ST/X."
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   689
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   690
    "Do not manually edit this!! If it is corrupted,
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   691
     the DataSetBuilder may not be able to read the specification."
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   692
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   693
    "
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   694
     DataSetBuilder new openOnClass:ProjectBrowser andSelector:#patchesTableColumns
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   695
    "
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   696
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   697
    <resource: #tableColumns>
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   698
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   699
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   700
    ^ #(
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   701
        #(#DataSetColumnSpec
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   702
           #label: 'Class'
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   703
           #id: 'classColumn'
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   704
           #labelAlignment: #left
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   705
           #model: #classNameFromPatchesInfo:
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   706
       )
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   707
        #(#DataSetColumnSpec
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   708
           #label: 'Selector'
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   709
           #id: 'selectorColumn'
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   710
           #labelAlignment: #left
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   711
           #model: #selectorFromPatchesInfo:
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   712
       )
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   713
     )
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   714
! !
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   715
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   716
!ProjectBrowser methodsFor:'aspects'!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   717
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   718
classList
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   719
    "automatically generated by UIPainter ..."
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   720
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   721
    "*** the code below creates a default model when invoked."
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   722
    "*** (which may not be the one you wanted)"
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   723
    "*** Please change as required and accept in the browser."
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   724
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   725
    |holder|
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   726
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   727
    (holder := builder bindingAt:#classList) isNil ifTrue:[
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   728
        builder aspectAt:#classList put:(holder :=  List new).
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   729
    ].
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   730
    ^ holder.
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   731
!
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   732
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   733
classTableAdaptor
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   734
    ^ self
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   735
!
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   736
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   737
classTableColumns
1038
41da0e38af84 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1037
diff changeset
   738
    ^ self class classTableColumns
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   739
!
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   740
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   741
currentCanvasHolder
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   742
    "automatically generated by UIPainter ..."
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   743
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   744
    "*** the code below creates a default model when invoked."
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   745
    "*** (which may not be the one you wanted)"
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   746
    "*** Please change as required and accept in the browser."
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   747
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   748
    |holder|
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   749
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   750
    (holder := builder bindingAt:#currentCanvasHolder) isNil ifTrue:[
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   751
        builder aspectAt:#currentCanvasHolder put:(holder :=  ValueHolder new).
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   752
    ].
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   753
    ^ holder.
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   754
!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   755
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   756
hasProjectSelectedHolder
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   757
    ^ [
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   758
        self hasProjectNodeSelected
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   759
      ]
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   760
!
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   761
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   762
hasSubProjectsSelectedHolder
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   763
    ^ [
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   764
        self hasSubProjectsNodeSelected
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   765
      ]
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   766
!
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   767
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   768
htmlDocumentURLHolder
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   769
    "automatically generated by UIPainter ..."
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   770
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   771
    "*** the code below creates a default model when invoked."
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   772
    "*** (which may not be the one you wanted)"
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   773
    "*** Please change as required and accept in the browser."
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   774
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   775
    |holder|
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   776
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   777
    (holder := builder bindingAt:#htmlDocumentURLHolder) isNil ifTrue:[
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   778
        builder aspectAt:#htmlDocumentURLHolder put:(holder :=  ValueHolder new).
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   779
    ].
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   780
    ^ holder.
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   781
!
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   782
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   783
patchesList
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   784
    "automatically generated by UIPainter ..."
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   785
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   786
    "*** the code below creates a default model when invoked."
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   787
    "*** (which may not be the one you wanted)"
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   788
    "*** Please change as required and accept in the browser."
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   789
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   790
    |holder|
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   791
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   792
    (holder := builder bindingAt:#patchesList) isNil ifTrue:[
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   793
        builder aspectAt:#patchesList put:(holder :=  List new).
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   794
    ].
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   795
    ^ holder.
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   796
!
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   797
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   798
projectTreeHolder
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   799
    "automatically generated by UIPainter ..."
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   800
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   801
    "*** the code below creates a default model when invoked."
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   802
    "*** (which may not be the one you wanted)"
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   803
    "*** Please change as required and accept in the browser."
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   804
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   805
    |holder|
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   806
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   807
    (holder := builder bindingAt:#projectTree) isNil ifTrue:[
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   808
        builder aspectAt:#projectTree put:(holder :=  SelectionInTree new).
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   809
        holder root:self projectTree.
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   810
    ].
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   811
    ^ holder.
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   812
!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   813
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   814
rightCanvasTextHolder
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   815
    "automatically generated by UIPainter ..."
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   816
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   817
    "*** the code below creates a default model when invoked."
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   818
    "*** (which may not be the one you wanted)"
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   819
    "*** Please change as required and accept in the browser."
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   820
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   821
    |holder|
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   822
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   823
    (holder := builder bindingAt:#rightCanvasTextHolder) isNil ifTrue:[
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   824
        builder aspectAt:#rightCanvasTextHolder put:(holder :=  ValueHolder new).
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   825
    ].
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   826
    ^ holder.
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   827
!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   828
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   829
selectedTreeNode
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   830
    "automatically generated by UIPainter ..."
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   831
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   832
    "*** the code below creates a default model when invoked."
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   833
    "*** (which may not be the one you wanted)"
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   834
    "*** Please change as required and accept in the browser."
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   835
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   836
    |holder|
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   837
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   838
    (holder := builder bindingAt:#selectedTreeNode) isNil ifTrue:[
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   839
        builder aspectAt:#selectedTreeNode put:(holder :=  ValueHolder new).
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   840
    ].
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   841
    ^ holder.
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   842
! !
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   843
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   844
!ProjectBrowser methodsFor:'initialization'!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   845
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   846
postBuildWith:aBuiler
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   847
    self setupCanvasForNoSelection.
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   848
    ^ super postBuildWith:aBuiler
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   849
!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   850
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   851
setupCanvasForNoSelection
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   852
    self showReadOnlyText:'Please select an existing,
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   853
or create a new project.'.
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   854
! !
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   855
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   856
!ProjectBrowser methodsFor:'menus'!
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   857
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   858
itemMenu
1052
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
   859
    |m|
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
   860
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   861
    self hasProjectNodeSelected ifTrue:[
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   862
        ^ self class projectItemMenu
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   863
    ].      
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   864
    self hasSubProjectsNodeSelected ifTrue:[
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   865
        ^ self class subProjectsItemMenu
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   866
    ].      
1052
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
   867
    self hasClassesNodeSelected ifTrue:[
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
   868
        ^ self class classesItemMenu
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
   869
    ].      
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   870
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   871
    ^ nil
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   872
!
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   873
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   874
itemMenuHolder
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   875
    ^ [ self itemMenu]
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   876
!
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   877
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   878
itemMenuPerformer
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   879
    ^ self
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   880
! !
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   881
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   882
!ProjectBrowser methodsFor:'private'!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   883
1052
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
   884
hasClassesNodeSelected
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
   885
    |selectedNode|
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
   886
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
   887
    selectedNode := self selectedTreeNode value.
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
   888
    selectedNode isNil ifTrue:[^ false].
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
   889
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
   890
    ^ selectedNode contents == #classes
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
   891
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
   892
!
2b65eda2938e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
   893
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   894
hasProjectNodeSelected
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   895
    |selectedNode|
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   896
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   897
    selectedNode := self selectedTreeNode value.
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   898
    selectedNode isNil ifTrue:[^ false].
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   899
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   900
    ^ selectedNode isProjectNode
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   901
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   902
!
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   903
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   904
hasSubProjectsNodeSelected
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   905
    |selectedNode|
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   906
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   907
    selectedNode := self selectedTreeNode value.
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   908
    selectedNode isNil ifTrue:[^ false].
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   909
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   910
    ^ selectedNode contents == #subprojects
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   911
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   912
!
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   913
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   914
nodeFor:aProject
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   915
    "generate and return a treeNode for some project"
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   916
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   917
    |projectName pNode 
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   918
     propertiesNode docNode classesNode patchesNode subprojectsNode filesNode
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   919
     commentNode prerequisitesNode analysisNode designNode codeNode
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   920
     userDocNode userOverViewNode userGuideNode userRefManNode|
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   921
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   922
    projectName := aProject name.
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   923
    pNode := ProjectNode name:projectName.
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   924
    pNode contents:aProject.
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   925
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   926
    pNode add:(commentNode := ProjectTreeItem name:'Comment').
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   927
    pNode add:(docNode := ProjectTreeItem name:'Documentation').
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   928
    pNode add:(propertiesNode := ProjectTreeItem name:'Properties').
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   929
    pNode add:(prerequisitesNode := ProjectTreeItem name:'Prerequisites').
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   930
    pNode add:(subprojectsNode := ProjectTreeItem name:'SubProjects').
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   931
    pNode add:(classesNode := ProjectTreeItem name:'Classes').
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   932
    pNode add:(patchesNode := ProjectTreeItem name:'Patches').
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   933
    pNode add:(filesNode := ProjectTreeItem name:'Files').
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   934
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   935
    aProject subProjects do:[:aSubProject |
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   936
        subprojectsNode add:(self nodeFor:aSubProject)
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   937
    ].
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   938
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   939
    commentNode action:[:item | self showCommentOf:item].
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   940
    commentNode contents:#comment.
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   941
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   942
    docNode contents:#documentation.
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   943
    docNode action:[:item | self showDocumentationFor:item].
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   944
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   945
    docNode add:(analysisNode := ProjectTreeItem name:'Analysis').
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   946
    docNode add:(designNode := ProjectTreeItem name:'Design').
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   947
    docNode add:(codeNode := ProjectTreeItem name:'Code').
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   948
    docNode add:(userDocNode := ProjectTreeItem name:'User Documentation').
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   949
    userDocNode add:(userOverViewNode := ProjectTreeItem name:'Overview').
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   950
    userDocNode add:(userGuideNode := ProjectTreeItem name:'Guide').
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   951
    userDocNode add:(userRefManNode := ProjectTreeItem name:'Reference').
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   952
    docNode add:(userDocNode := ProjectTreeItem name:'Error Reports').
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   953
    docNode add:(userDocNode := ProjectTreeItem name:'Other').
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   954
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   955
    prerequisitesNode contents:#prerequisites.
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   956
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
   957
    classesNode contents:#classes.
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   958
    ((aProject classes ? #()) copy sort:[:a :b | a name < b name]) 
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   959
    do:[:aClass |
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   960
        |cNode|
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   961
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   962
        cNode := ProjectTreeItem name:aClass name.
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   963
        classesNode add:cNode.
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   964
    ].
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   965
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   966
    propertiesNode contents:#properties.
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   967
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   968
    subprojectsNode contents:#subprojects.
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   969
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   970
    filesNode contents:#files.
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   971
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   972
    patchesNode contents:#patches.
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
   973
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   974
    ^ pNode
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   975
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   976
!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   977
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   978
projectTree
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   979
    |tree root|
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   980
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   981
    projectTree isNil ifTrue:[
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   982
        tree := SelectionInTree new.
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   983
        tree root:(root := TreeItem name:'invisibleRoot').
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   984
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   985
        Project knownProjects do:[:aProject |
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   986
            root add:(self nodeFor:aProject).
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   987
        ].
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   988
        projectTree := root.
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   989
    ].
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   990
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
   991
    ^ projectTree
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   992
!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   993
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   994
updateRightCanvas
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   995
    |selectedNode nodeContents|
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   996
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   997
    selectedNode := self selectedTreeNode value.
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   998
    selectedNode isNil ifTrue:[
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   999
        self setupCanvasForNoSelection.
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1000
        ^ self
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1001
    ].
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1002
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1003
    selectedNode isProjectNode ifTrue:[
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1004
        self showCommentOf:selectedNode.
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1005
        ^ self.
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1006
    ].
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1007
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1008
    selectedNode contents == #classes ifTrue:[
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1009
        self showClassListOf:selectedNode.
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1010
        ^ self.
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1011
    ].
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1012
    selectedNode contents == #patches ifTrue:[
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1013
        self showPatchesListOf:selectedNode.
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1014
        ^ self.
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1015
    ].
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1016
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1017
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1018
    self currentCanvasHolder value:(self class emptyRightCanvasSpec).
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1019
    self rightCanvasTextHolder value:''.
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1020
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1021
! !
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1022
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1023
!ProjectBrowser methodsFor:'private - table col access'!
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1024
1038
41da0e38af84 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1037
diff changeset
  1025
classFilenameFromClassInfo:cInfo
41da0e38af84 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1037
diff changeset
  1026
    ^ cInfo classFileName
41da0e38af84 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1037
diff changeset
  1027
!
41da0e38af84 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1037
diff changeset
  1028
41da0e38af84 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1037
diff changeset
  1029
classIncludeConditionFromClassInfo:cInfo
41da0e38af84 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1037
diff changeset
  1030
    ^ cInfo conditionForInclusion
41da0e38af84 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1037
diff changeset
  1031
!
41da0e38af84 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1037
diff changeset
  1032
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1033
classNameFromClassInfo:cInfo
1038
41da0e38af84 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1037
diff changeset
  1034
    ^ cInfo className
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1035
!
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1036
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1037
classNameFromPatchesInfo:pInfo
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1038
    ^ pInfo methodClass name
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1039
!
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1040
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1041
selectorFromPatchesInfo:pInfo
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1042
    ^ pInfo methodSelector
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1043
! !
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1044
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1045
!ProjectBrowser methodsFor:'user actions'!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1046
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1047
itemSelected:index
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1048
    |item action|
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1049
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1050
    self updateRightCanvas.
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1051
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1052
    item := self projectTreeHolder value at:index.
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1053
    action := item action.
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1054
    action notNil ifTrue:[
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1055
        action value:item.
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1056
    ].
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1057
!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1058
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1059
newProject
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1060
    self newProject:Project new.
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1061
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1062
!
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1063
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1064
newProject:newProject
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1065
    |newNode|
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1066
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1067
    newNode := self nodeFor:newProject.
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1068
    projectTree add:newNode.
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1069
    self projectTreeHolder root:projectTree.
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1070
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1071
!
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1072
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1073
newSubProject
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1074
    |selectedNode subProjectsNode newNode parentProject newProject|
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1075
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1076
    selectedNode := self selectedTreeNode value.
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1077
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1078
    self hasProjectNodeSelected ifTrue:[
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1079
        parentProject := selectedNode contents.
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1080
        subProjectsNode := selectedNode children detect:[:child | child contents == #subprojects].
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1081
    ] ifFalse:[
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1082
        self hasSubProjectsNodeSelected ifTrue:[
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1083
            subProjectsNode := selectedNode.
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1084
            parentProject := selectedNode parent contents.
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1085
        ].
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1086
    ].
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1087
self halt.
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1088
    parentProject notNil ifTrue:[
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1089
        newProject := Project new.
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1090
        newNode := self nodeFor:newProject.
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1091
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1092
        parentProject addSubProject:newProject.
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1093
        subProjectsNode add:newNode.
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1094
        self projectTreeHolder root:projectTree.
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1095
        self projectTreeHolder selectNode:newNode.
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1096
    ]    
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1097
!
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1098
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1099
openProject
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1100
    |fn newProject|
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1101
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1102
    fn := Dialog 
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1103
        requestFileName:'filename:' 
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1104
        default:nil
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1105
        ifFail:nil
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1106
        pattern:'*.prj'
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1107
        fromDirectory:(FileSelectionBox lastFileSelectionDirectory).
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1108
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1109
    fn notNil ifTrue:[
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1110
        newProject := Project new loadFromProjectFile:fn.
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1111
        newProject notNil ifTrue:[
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1112
            self newProject:newProject
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1113
        ]
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1114
    ]
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1115
!
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1116
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1117
removeProject
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1118
    |projectToRemove selectedNode subNode newNode parentNode parentProject newProject|
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1119
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1120
    self hasProjectNodeSelected ifTrue:[
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1121
        selectedNode := self selectedTreeNode value.
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1122
        projectToRemove := selectedNode contents.
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1123
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1124
"/        parentNode := selectedNode parent.
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1125
"/        parentNode contents == #subprojects ifTrue:[
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1126
"/            parentNode removeChild:selectedNode.
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1127
"/        ] ifFalse:[
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1128
"/            parentNode removeChild:selectedNode.
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1129
"/        ].
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1130
        self projectTreeHolder removeSelection
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1131
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1132
"/        self projectTreeHolder root:projectTree.
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1133
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1134
"/        parentProject addSubProject:newProject.
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1135
"/        subNode := selectedNode children detect:[:child | child contents == #subprojects].
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1136
"/        subNode add:newNode.
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1137
"/        self projectTreeHolder root:projectTree.
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1138
    ]
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1139
!
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1140
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1141
renameProject
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1142
    |nm selectedNode selectedProject|
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1143
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1144
    self hasProjectNodeSelected ifTrue:[
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1145
        selectedNode := self selectedTreeNode value.
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1146
        selectedProject := selectedNode contents.
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1147
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1148
        nm := Dialog 
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1149
                request:'Rename to:'
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1150
                initialAnswer:selectedProject name.
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1151
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1152
        nm size > 0 ifTrue:[
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1153
            selectedProject name:nm.
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1154
            selectedNode name:nm.
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1155
            selectedNode changed.
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1156
        ]
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1157
    ]
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1158
!
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1159
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1160
showClassListOf:anItem
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1161
    |projectItem project classInfo l|
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1162
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1163
    projectItem := anItem parent.
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1164
    project := projectItem contents.
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1165
1038
41da0e38af84 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1037
diff changeset
  1166
    classInfo := project classInfo asOrderedCollection.
41da0e38af84 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1037
diff changeset
  1167
    classInfo sort:[:a :b | a className < b className].
41da0e38af84 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1037
diff changeset
  1168
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1169
    l := self classList.
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1170
    l removeAll.
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1171
    l addAll:classInfo.
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1172
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1173
    self currentCanvasHolder value:(self class rightCanvasSpecForClassList).
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1174
!
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1175
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1176
showCommentOf:anItem
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1177
    |projectItem project|
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1178
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1179
    anItem contents == #comment ifTrue:[
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1180
        projectItem := anItem parent
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1181
    ] ifFalse:[
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1182
        projectItem := anItem
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1183
    ].
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1184
    project := projectItem contents.
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1185
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1186
    self currentCanvasHolder value:(self class rightCanvasSpecForEditableText).
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1187
    self rightCanvasTextHolder value:project comment.
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1188
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1189
!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1190
1037
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1191
showDocumentationFor:anItem
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1192
    |projectItem project|
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1193
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1194
    anItem contents == #documentation ifTrue:[
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1195
        projectItem := anItem parent
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1196
    ] ifFalse:[
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1197
        projectItem := anItem
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1198
    ].
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1199
    project := projectItem contents.
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1200
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1201
    self currentCanvasHolder value:(self class rightCanvasSpecForHTMLText).
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1202
    self htmlDocumentURLHolder value:project documentationURL.
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1203
!
3a75844e668a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1026
diff changeset
  1204
1043
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1205
showPatchesListOf:anItem
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1206
    |projectItem project patches l|
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1207
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1208
    projectItem := anItem parent.
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1209
    project := projectItem contents.
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1210
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1211
    patches := project individualMethods.
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1212
    patches := patches collect:[:m | m who].
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1213
    patches := patches sort:[:w1 :w2 |
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1214
                        w1 methodClass name < w2 methodClass name ifTrue:[
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1215
                            true
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1216
                        ] ifFalse:[
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1217
                            w1 methodClass name = w2 methodClass name ifFalse:[
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1218
                                false
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1219
                            ] ifTrue:[
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1220
                                w1 methodSelector < w2 methodSelector
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1221
                            ]
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1222
                        ]
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1223
                       ].
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1224
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1225
    l := self patchesList.
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1226
    l removeAll.
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1227
    l addAll:patches.
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1228
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1229
    self currentCanvasHolder value:(self class rightCanvasSpecForPatchesList).
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1230
!
8414736f8846 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1038
diff changeset
  1231
1026
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1232
showReadOnlyText:someText
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1233
    self currentCanvasHolder value:(self class rightCanvasSpecForReadOnlyText).
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1234
    self rightCanvasTextHolder value:someText.
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1235
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1236
!
ee8a738cd35d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  1237
1025
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1238
showTreeItem:anItem
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1239
    anItem contents == #comment ifTrue:[
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1240
        self showCommentOf:anItem.
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1241
        ^ self
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1242
    ].
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1243
! !
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1244
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1245
!ProjectBrowser::ProjectTreeItem methodsFor:'accessing'!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1246
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1247
action
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1248
    "return the value of the instance variable 'action' (automatically generated)"
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1249
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1250
    ^ action!
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1251
33c3db52cdc8 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1252
action:something