ProjectBrowser.st
changeset 1223 23a55549641a
parent 1220 998ca027d633
child 1224 825e6e9fc37f
equal deleted inserted replaced
1222:bcb8b0ec295c 1223:23a55549641a
    82 #installDirWin32
    82 #installDirWin32
    83 'The final install directory for Win32 deliveries.'
    83 'The final install directory for Win32 deliveries.'
    84 
    84 
    85 #libType
    85 #libType
    86 'A classLibrary addOn (and support files if any)'
    86 'A classLibrary addOn (and support files if any)'
       
    87 
       
    88 #methodsFile
       
    89 'Patches & Extensions are stored in this file.'
    87 
    90 
    88 #packageID
    91 #packageID
    89 'Package ID used to associate classes & methods to this project.'
    92 'Package ID used to associate classes & methods to this project.'
    90 
    93 
    91 #projectDir
    94 #projectDir
   390         #name: #rightCanvasSpecForDeployment
   393         #name: #rightCanvasSpecForDeployment
   391         #window: 
   394         #window: 
   392        #(#WindowSpec
   395        #(#WindowSpec
   393           #label: 'NewApplication'
   396           #label: 'NewApplication'
   394           #name: 'NewApplication'
   397           #name: 'NewApplication'
   395           #layout: #(#LayoutFrame 40 0 71 0 392 0 413 0)
       
   396           #level: 0
       
   397           #min: #(#Point 10 10)
   398           #min: #(#Point 10 10)
   398           #max: #(#Point 1280 1024)
   399           #max: #(#Point 1280 1024)
   399           #bounds: #(#Rectangle 40 71 393 414)
   400           #bounds: #(#Rectangle 216 173 569 569)
   400           #usePreferredExtent: false
       
   401           #returnIsOKInDialog: true
       
   402           #escapeIsCancelInDialog: true
       
   403         )
   401         )
   404         #component: 
   402         #component: 
   405        #(#SpecCollection
   403        #(#SpecCollection
   406           #collection: #(
   404           #collection: #(
   407            #(#FramedBoxSpec
   405            #(#FramedBoxSpec
   408               #label: 'Delivery'
   406               #label: 'Delivery'
   409               #name: 'FramedBox1'
   407               #name: 'FramedBox1'
   410               #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 140 0)
   408               #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 197 0)
   411               #labelPosition: #topLeft
   409               #labelPosition: #topLeft
   412               #translateLabel: true
   410               #translateLabel: true
   413               #component: 
   411               #component: 
   414              #(#SpecCollection
   412              #(#SpecCollection
   415                 #collection: #(
   413                 #collection: #(
   416                  #(#CheckBoxSpec
   414                  #(#CheckBoxSpec
   417                     #label: 'Compiled Binary'
   415                     #label: '''loadAll''-File'
       
   416                     #name: 'CheckBox5'
       
   417                     #layout: #(#LayoutFrame 0 0.0 10 0 0 1.0 32 0)
       
   418                     #activeHelpKey: #deliverLoadAll
       
   419                     #tabable: true
       
   420                     #model: #deliverLoadAllFile
       
   421                     #translateLabel: true
       
   422                   )
       
   423                  #(#CheckBoxSpec
       
   424                     #label: 'Compiled Binary (.dll / .so)'
   418                     #name: 'CheckBox1'
   425                     #name: 'CheckBox1'
   419                     #layout: #(#LayoutFrame 0 0.0 10 0 0 0.5 32 0)
   426                     #layout: #(#LayoutFrame 0 0.0 39 0 0 1.0 61 0)
   420                     #activeHelpKey: #deliverBinary
   427                     #activeHelpKey: #deliverBinary
   421                     #tabable: true
   428                     #tabable: true
   422                     #model: #deliverCompiledBinary
   429                     #model: #deliverCompiledBinary
   423                     #translateLabel: true
   430                     #translateLabel: true
   424                   )
   431                   )
   425                  #(#CheckBoxSpec
   432                  #(#CheckBoxSpec
   426                     #label: 'Zip Archive'
   433                     #label: 'Zip Archive'
   427                     #name: 'CheckBox2'
   434                     #name: 'CheckBox2'
   428                     #layout: #(#LayoutFrame 0 0.5 10 0 0 1.0 32 0)
   435                     #layout: #(#LayoutFrame 0 0.0 68 0 0 1.0 90 0)
   429                     #activeHelpKey: #deliverAsZIP
   436                     #activeHelpKey: #deliverAsZIP
   430                     #tabable: true
   437                     #tabable: true
   431                     #model: #deliverZipArchive
   438                     #model: #deliverZipArchive
   432                     #translateLabel: true
   439                     #translateLabel: true
   433                   )
   440                   )
   434                  #(#CheckBoxSpec
   441                  #(#CheckBoxSpec
   435                     #label: 'GZip Archive (self extracting)'
   442                     #label: 'GZip Archive (self extracting)'
   436                     #name: 'CheckBox3'
   443                     #name: 'CheckBox3'
   437                     #layout: #(#LayoutFrame 0 0.5 38 0 0 1.0 60 0)
   444                     #layout: #(#LayoutFrame 0 0.0 97 0 0 1.0 119 0)
   438                     #activeHelpKey: #deliverAsGZIP
   445                     #activeHelpKey: #deliverAsGZIP
   439                     #tabable: true
   446                     #tabable: true
   440                     #model: #deliverGZipArchive
   447                     #model: #deliverGZipArchive
   441                     #translateLabel: true
   448                     #translateLabel: true
   442                   )
   449                   )
   443                  #(#CheckBoxSpec
   450                  #(#CheckBoxSpec
   444                     #label: 'Include Sources'
   451                     #label: 'Include Sources'
   445                     #name: 'CheckBox4'
   452                     #name: 'CheckBox4'
   446                     #layout: #(#LayoutFrame 0 0.0 39 0 0 0.5 61 0)
   453                     #layout: #(#LayoutFrame 0 0.0 138 0 0 1.0 160 0)
   447                     #activeHelpKey: #deliverSource
   454                     #activeHelpKey: #deliverSource
   448                     #tabable: true
   455                     #tabable: true
   449                     #model: #deliverSources
   456                     #model: #deliverSources
   450                     #translateLabel: true
   457                     #translateLabel: true
   451                   )
   458                   )
   452                  #(#CheckBoxSpec
       
   453                     #label: 'loadAll-File'
       
   454                     #name: 'CheckBox5'
       
   455                     #layout: #(#LayoutFrame 0 0.0 67 0 0 0.5 89 0)
       
   456                     #activeHelpKey: #deliverLoadAll
       
   457                     #tabable: true
       
   458                     #model: #deliverLoadAllFile
       
   459                     #translateLabel: true
       
   460                   )
       
   461                  )
   459                  )
   462                
   460                
   463               )
   461               )
   464             )
   462             )
   465            #(#FramedBoxSpec
   463            #(#FramedBoxSpec
   466               #label: 'Install Directory'
   464               #label: 'Install Directory'
   467               #name: 'FramedBox2'
   465               #name: 'FramedBox2'
   468               #layout: #(#LayoutFrame 0 0.0 140 0 0 1.0 293 0)
   466               #layout: #(#LayoutFrame 0 0.0 209 0 0 1.0 362 0)
   469               #labelPosition: #topLeft
   467               #labelPosition: #topLeft
   470               #translateLabel: true
   468               #translateLabel: true
   471               #component: 
   469               #component: 
   472              #(#SpecCollection
   470              #(#SpecCollection
   473                 #collection: #(
   471                 #collection: #(
   485                     #enableChannel: #canDeliverForUnix
   483                     #enableChannel: #canDeliverForUnix
   486                     #tabable: true
   484                     #tabable: true
   487                     #model: #installDirectoryUnix
   485                     #model: #installDirectoryUnix
   488                     #acceptChannel: #acceptChannel
   486                     #acceptChannel: #acceptChannel
   489                     #modifiedChannel: #modifiedChannel
   487                     #modifiedChannel: #modifiedChannel
       
   488                     #acceptOnPointerLeave: false
   490                   )
   489                   )
   491                  #(#LabelSpec
   490                  #(#LabelSpec
   492                     #label: 'Win32:'
   491                     #label: 'Win32:'
   493                     #name: 'Label2'
   492                     #name: 'Label2'
   494                     #layout: #(#LayoutFrame 0 0.0 36 0 60 0.0 58 0)
   493                     #layout: #(#LayoutFrame 0 0.0 36 0 60 0.0 58 0)
   502                     #enableChannel: #canDeliverForWin32
   501                     #enableChannel: #canDeliverForWin32
   503                     #tabable: true
   502                     #tabable: true
   504                     #model: #installDirectoryWin32
   503                     #model: #installDirectoryWin32
   505                     #acceptChannel: #acceptChannel
   504                     #acceptChannel: #acceptChannel
   506                     #modifiedChannel: #modifiedChannel
   505                     #modifiedChannel: #modifiedChannel
       
   506                     #acceptOnPointerLeave: false
   507                   )
   507                   )
   508                  #(#LabelSpec
   508                  #(#LabelSpec
   509                     #label: 'VMS:'
   509                     #label: 'VMS:'
   510                     #name: 'Label3'
   510                     #name: 'Label3'
   511                     #layout: #(#LayoutFrame 0 0.0 65 0 60 0.0 87 0)
   511                     #layout: #(#LayoutFrame 0 0.0 65 0 60 0.0 87 0)
   520                     #enableChannel: #canDeliverForVMS
   520                     #enableChannel: #canDeliverForVMS
   521                     #tabable: true
   521                     #tabable: true
   522                     #model: #installDirectoryVMS
   522                     #model: #installDirectoryVMS
   523                     #acceptChannel: #acceptChannel
   523                     #acceptChannel: #acceptChannel
   524                     #modifiedChannel: #modifiedChannel
   524                     #modifiedChannel: #modifiedChannel
       
   525                     #acceptOnPointerLeave: false
   525                   )
   526                   )
   526                  #(#LabelSpec
   527                  #(#LabelSpec
   527                     #label: 'MacOS:'
   528                     #label: 'MacOS:'
   528                     #name: 'Label4'
   529                     #name: 'Label4'
   529                     #layout: #(#LayoutFrame 0 0.0 95 0 60 0.0 117 0)
   530                     #layout: #(#LayoutFrame 0 0.0 95 0 60 0.0 117 0)
   538                     #enableChannel: #canDeliverForMacOS
   539                     #enableChannel: #canDeliverForMacOS
   539                     #tabable: true
   540                     #tabable: true
   540                     #model: #installDirectoryMac
   541                     #model: #installDirectoryMac
   541                     #acceptChannel: #acceptChannel
   542                     #acceptChannel: #acceptChannel
   542                     #modifiedChannel: #modifiedChannel
   543                     #modifiedChannel: #modifiedChannel
       
   544                     #acceptOnPointerLeave: false
   543                   )
   545                   )
   544                  )
   546                  )
   545                
   547                
   546               )
   548               )
   547             )
   549             )
   668              #(#SpecCollection
   670              #(#SpecCollection
   669                 #collection: #(
   671                 #collection: #(
   670                  #(#InputFieldSpec
   672                  #(#InputFieldSpec
   671                     #name: 'methodsFileEntryField'
   673                     #name: 'methodsFileEntryField'
   672                     #layout: #(#LayoutFrame 0 0.0 1 0 0 1.0 23 0)
   674                     #layout: #(#LayoutFrame 0 0.0 1 0 0 1.0 23 0)
   673                     #activeHelpKey: #projectDir
   675                     #activeHelpKey: #methodsFile
   674                     #enableChannel: #currentProjectWasNotLoadedFromFile
       
   675                     #model: #methodsFile
   676                     #model: #methodsFile
   676                     #acceptChannel: #acceptChannel
   677                     #acceptChannel: #acceptChannel
   677                     #modifiedChannel: #modifiedChannel
   678                     #modifiedChannel: #modifiedChannel
   678                     #acceptOnPointerLeave: false
   679                     #acceptOnPointerLeave: false
   679                   )
   680                   )
  1375         #name: #windowSpec
  1376         #name: #windowSpec
  1376         #window: 
  1377         #window: 
  1377        #(#WindowSpec
  1378        #(#WindowSpec
  1378           #label: 'ProjectBrowser'
  1379           #label: 'ProjectBrowser'
  1379           #name: 'ProjectBrowser'
  1380           #name: 'ProjectBrowser'
  1380           #layout: #(#LayoutFrame 220 0 116 0 783 0 590 0)
       
  1381           #level: 0
       
  1382           #min: #(#Point 10 10)
  1381           #min: #(#Point 10 10)
  1383           #max: #(#Point 1024 768)
  1382           #max: #(#Point 1024 768)
  1384           #bounds: #(#Rectangle 220 116 784 591)
  1383           #bounds: #(#Rectangle 13 33 616 535)
  1385           #menu: #mainMenu
  1384           #menu: #mainMenu
  1386           #usePreferredExtent: false
       
  1387           #returnIsOKInDialog: true
       
  1388           #escapeIsCancelInDialog: true
       
  1389         )
  1385         )
  1390         #component: 
  1386         #component: 
  1391        #(#SpecCollection
  1387        #(#SpecCollection
  1392           #collection: #(
  1388           #collection: #(
  1393            #(#MenuPanelSpec
  1389            #(#MenuPanelSpec
  3145     propertiesNode spec:[self class rightCanvasSpecForProperties].
  3141     propertiesNode spec:[self class rightCanvasSpecForProperties].
  3146     propertiesNode info:'Project propreties'.
  3142     propertiesNode info:'Project propreties'.
  3147 
  3143 
  3148     filesNode contents:#files.
  3144     filesNode contents:#files.
  3149     filesNode icon:(self class filesIcon).
  3145     filesNode icon:(self class filesIcon).
  3150     filesNode info:'Other files (bitmaps, data) contained in the project'.
  3146     filesNode info:'Files (extensions, bitmaps, data) contained in the project'.
  3151     filesNode spec:[self class rightCanvasSpecForFiles].
  3147     filesNode spec:[self class rightCanvasSpecForFiles].
  3152 
  3148 
  3153     methodIcon := self class methodIcon.
  3149     methodIcon := self class methodIcon.
  3154 
  3150 
  3155     patchesNode contents:#patches.
  3151     patchesNode contents:#patches.
  3156     patchesNode icon:(self class methodsIcon).
  3152     patchesNode icon:(self class methodsIcon).
  3157     patchesNode info:'Patches (system-changes) contained in the project'.
  3153     patchesNode info:'Patches & Extensions (system-changes) contained in the project'.
  3158     ((aProject methodInfo ? #()) copy sort:[:a :b | 
  3154     ((aProject methodInfo ? #()) copy sort:[:a :b | 
  3159                                                 a displayString < b displayString.
  3155                                                 a displayString < b displayString.
  3160                                         ]) 
  3156                                         ]) 
  3161     do:[:aMethodInfo |
  3157     do:[:aMethodInfo |
  3162         |cNode cName|
  3158         |cNode cName|