ProjectBrowser.st
changeset 1298 64cfa48905dc
parent 1293 b83aae064c4d
child 1303 9ed64bde6ff8
equal deleted inserted replaced
1297:9fe7d970b5da 1298:64cfa48905dc
  2387                 )
  2387                 )
  2388                #(#MenuItem
  2388                #(#MenuItem
  2389                   #label: 'Makefile'
  2389                   #label: 'Makefile'
  2390                   #translateLabel: true
  2390                   #translateLabel: true
  2391                   #value: #buildMakefile
  2391                   #value: #buildMakefile
       
  2392                   #isVisible: #osIsUnix
       
  2393                   #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
       
  2394                 )
       
  2395                #(#MenuItem
       
  2396                   #label: 'Makefile for windows (nt.mak)'
       
  2397                   #translateLabel: true
       
  2398                   #value: #buildNTMakefile
       
  2399                   #isVisible: #osIsWindows
  2392                   #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
  2400                   #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
  2393                 )
  2401                 )
  2394                #(#MenuItem
  2402                #(#MenuItem
  2395                   #label: 'LoadAll file'
  2403                   #label: 'LoadAll file'
  2396                   #translateLabel: true
  2404                   #translateLabel: true
  2448          )
  2456          )
  2449         nil
  2457         nil
  2450         nil
  2458         nil
  2451       )
  2459       )
  2452 
  2460 
  2453     "Modified: / 16.12.1999 / 01:28:48 / cg"
  2461     "Modified: / 19.1.2000 / 16:52:31 / cg"
  2454 !
  2462 !
  2455 
  2463 
  2456 methodItemMenu
  2464 methodItemMenu
  2457     "This resource specification was automatically generated
  2465     "This resource specification was automatically generated
  2458      by the MenuEditor of ST/X."
  2466      by the MenuEditor of ST/X."
  3468     ].
  3476     ].
  3469     ^ modifiedChannel.
  3477     ^ modifiedChannel.
  3470 
  3478 
  3471 !
  3479 !
  3472 
  3480 
       
  3481 osIsUnix
       
  3482     ^ OperatingSystem isUNIXlike
       
  3483 
       
  3484     "Created: / 19.1.2000 / 16:45:16 / cg"
       
  3485 !
       
  3486 
       
  3487 osIsWindows
       
  3488     ^ OperatingSystem isMSWINDOWSlike
       
  3489 
       
  3490     "Created: / 19.1.2000 / 16:37:33 / cg"
       
  3491     "Modified: / 19.1.2000 / 16:43:54 / cg"
       
  3492 !
       
  3493 
  3473 patchesList
  3494 patchesList
  3474     "automatically generated by UIPainter ..."
  3495     "automatically generated by UIPainter ..."
  3475 
  3496 
  3476     |holder|
  3497     |holder|
  3477 
  3498 
  5781             p createMakefile
  5802             p createMakefile
  5782         ]
  5803         ]
  5783     ].
  5804     ].
  5784 !
  5805 !
  5785 
  5806 
       
  5807 buildNTMakefile
       
  5808     "generate an nt.mak in the projects directory"
       
  5809 
       
  5810     |p |
       
  5811 
       
  5812     p := self currentProject.
       
  5813     p isNil ifTrue:[
       
  5814         self information:'No project selected'.
       
  5815         ^ self
       
  5816     ].
       
  5817 
       
  5818     self withCursor:Cursor wait do:[
       
  5819         self makeTranscriptVisible.
       
  5820         TextCollector transcriptQuerySignal answer:self transcript
       
  5821         do:[
       
  5822             p createNTMakefile
       
  5823         ]
       
  5824     ].
       
  5825 
       
  5826     "Created: / 19.1.2000 / 15:55:17 / cg"
       
  5827 !
       
  5828 
  5786 checkInAllClasses
  5829 checkInAllClasses
  5787     "check in all classes"
  5830     "check in all classes"
  5788 
  5831 
  5789     |p classes classesToCheckIn anyBad|
  5832     |p classes classesToCheckIn anyBad|
  5790 
  5833