FileBrowser.st
changeset 5425 fed05f7926d7
parent 5388 3ee28b26a787
child 5486 4113dbb72305
equal deleted inserted replaced
5424:9ebfc38eba72 5425:fed05f7926d7
   700     "
   700     "
   701 
   701 
   702     <resource: #menu>
   702     <resource: #menu>
   703 
   703 
   704     ^ 
   704     ^ 
   705      #(#Menu
   705      #(Menu
   706         #(
   706         (
   707          #(#MenuItem
   707          (MenuItem
   708             #label: 'Spawn'
   708             label: 'Spawn'
   709             #translateLabel: true
   709             itemValue: fileSpawn
   710             #value: #fileSpawn
   710             translateLabel: true
   711           )
   711           )
   712          #(#MenuItem
   712          (MenuItem
   713             #label: '-'
   713             label: '-'
   714           )
   714           )
   715          #(#MenuItem
   715          (MenuItem
   716             #label: 'Edit File'
   716             enabled: hasSelection
   717             #translateLabel: true
   717             label: 'Edit File'
   718             #value: #fileGet
   718             itemValue: fileGet
   719             #enabled: #hasSelection
   719             translateLabel: true
   720           )
   720           )
   721          #(#MenuItem
   721          (MenuItem
   722             #label: 'Insert File'
   722             enabled: hasSelection
   723             #translateLabel: true
   723             label: 'Insert File'
   724             #value: #fileInsert
   724             itemValue: fileInsert
   725             #enabled: #hasSelection
   725             translateLabel: true
   726           )
   726           )
   727          #(#MenuItem
   727          (MenuItem
   728             #label: 'FileIn'
   728             enabled: hasSelection
   729             #translateLabel: true
   729             label: 'FileIn'
   730             #value: #fileFileIn
   730             itemValue: fileFileIn
   731             #enabled: #hasSelection
   731             translateLabel: true
   732             #shortcutKeyCharacter: #Accept
   732             shortcutKey: Accept
   733           )
   733           )
   734          #(#MenuItem
   734          (MenuItem
   735             #label: '-'
   735             label: '-'
   736           )
   736           )
   737          #(#MenuItem
   737          (MenuItem
   738             #label: 'New'
   738             label: 'New'
   739             #translateLabel: true
   739             translateLabel: true
   740             #submenu: 
   740             submenu: 
   741            #(#Menu
   741            (Menu
   742               #(
   742               (
   743                #(#MenuItem
   743                (MenuItem
   744                   #label: 'Directory...'
   744                   label: 'Directory...'
   745                   #translateLabel: true
   745                   itemValue: newDirectory
   746                   #value: #newDirectory
   746                   translateLabel: true
   747                 )
   747                 )
   748                #(#MenuItem
   748                (MenuItem
   749                   #label: 'File...'
   749                   label: 'File...'
   750                   #translateLabel: true
   750                   itemValue: newFile
   751                   #value: #newFile
   751                   translateLabel: true
   752                 )
   752                 )
   753                #(#MenuItem
   753                (MenuItem
   754                   #label: 'Hard Link...'
   754                   label: 'Hard Link...'
   755                   #translateLabel: true
   755                   itemValue: newHardLink
   756                   #isVisible: #systemIsUnix
   756                   translateLabel: true
   757                   #value: #newHardLink
   757                   isVisible: systemIsUnix
   758                 )
   758                 )
   759                #(#MenuItem
   759                (MenuItem
   760                   #label: 'Symbolic Link...'
   760                   label: 'Symbolic Link...'
   761                   #translateLabel: true
   761                   itemValue: newSoftLink
   762                   #isVisible: #systemIsUnix
   762                   translateLabel: true
   763                   #value: #newSoftLink
   763                   isVisible: systemIsUnix
   764                 )
   764                 )
   765                )
   765                )
   766               nil
   766               nil
   767               nil
   767               nil
   768             )
   768             )
   769           )
   769           )
   770          #(#MenuItem
   770          (MenuItem
   771             #label: 'Remove...'
   771             enabled: hasSelection
   772             #translateLabel: true
   772             label: 'Remove...'
   773             #value: #fileRemove
   773             itemValue: fileRemove
   774             #enabled: #hasSelection
   774             translateLabel: true
   775             #shortcutKeyCharacter: #Cut
   775             shortcutKey: Cut
   776           )
   776           )
   777          #(#MenuItem
   777          (MenuItem
   778             #label: 'Rename...'
   778             enabled: hasSelection
   779             #translateLabel: true
   779             label: 'Rename...'
   780             #value: #fileRename
   780             itemValue: fileRename
   781             #enabled: #hasSelection
   781             translateLabel: true
   782             #shortcutKeyCharacter: #Replace
   782             shortcutKey: Replace
   783           )
   783           )
   784          #(#MenuItem
   784          (MenuItem
   785             #label: '-'
   785             label: '-'
   786           )
   786           )
   787          #(#MenuItem
   787          (MenuItem
   788             #label: 'Properties...'
   788             enabled: hasSelection
   789             #translateLabel: true
   789             label: 'Properties...'
   790             #value: #fileGetLongInfo
   790             itemValue: fileGetLongInfo
   791             #enabled: #hasSelection
   791             translateLabel: true
   792           )
   792           )
   793          #(#MenuItem
   793          (MenuItem
   794             #label: '-'
   794             label: '-'
   795           )
   795           )
   796          #(#MenuItem
   796          (MenuItem
   797             #label: 'Tools'
   797             label: 'Tools'
   798             #translateLabel: true
   798             translateLabel: true
   799             #submenuChannel: #toolsMenuSpec
   799             submenuChannel: toolsMenuSpec
   800             #shortcutKeyCharacter: #Ctrl
   800             shortcutKey: Ctrl
       
   801             keepLinkedMenu: true
   801           )
   802           )
   802          #(#MenuItem
   803          (MenuItem
   803             #label: '-'
   804             label: '-'
   804           )
   805           )
   805          #(#MenuItem
   806          (MenuItem
   806             #label: 'Update'
   807             label: 'Update'
   807             #translateLabel: true
   808             itemValue: updateCurrentDirectory
   808             #value: #updateCurrentDirectory
   809             translateLabel: true
   809           )
   810           )
   810          )
   811          )
   811         nil
   812         nil
   812         nil
   813         nil
   813       )
   814       )
   826     "
   827     "
   827 
   828 
   828     <resource: #menu>
   829     <resource: #menu>
   829 
   830 
   830     ^ 
   831     ^ 
   831      #(#Menu
   832      #(Menu
   832         #(
   833         (
   833          #(#MenuItem
   834          (MenuItem
   834             #label: 'File'
   835             label: 'File'
   835             #translateLabel: true
   836             translateLabel: true
   836             #submenu: 
   837             submenu: 
   837            #(#Menu
   838            (Menu
   838               #(
   839               (
   839                #(#MenuItem
   840                (MenuItem
   840                   #label: 'Spawn'
   841                   label: 'Spawn'
   841                   #translateLabel: true
   842                   itemValue: fileSpawn
   842                   #value: #fileSpawn
   843                   translateLabel: true
   843                 )
   844                 )
   844                #(#MenuItem
   845                (MenuItem
   845                   #label: '-'
   846                   label: '-'
   846                 )
   847                 )
   847                #(#MenuItem
   848                (MenuItem
   848                   #label: 'Open'
   849                   enabled: hasSelection
   849                   #translateLabel: true
   850                   label: 'Open'
   850                   #isVisible: false
   851                   itemValue: menuOpen
   851                   #value: #menuOpen
   852                   translateLabel: true
   852                   #enabled: #hasSelection
   853                   isVisible: false
   853                 )
   854                 )
   854                #(#MenuItem
   855                (MenuItem
   855                   #label: 'Open selected Filename'
   856                   enabled: hasFilenameSelectionInCodeView
   856                   #translateLabel: true
   857                   label: 'Open selected Filename'
   857                   #isVisible: #hasFilenameSelectionInCodeView
   858                   itemValue: openSelectedFilename
   858                   #value: #openSelectedFilename
   859                   translateLabel: true
   859                   #enabled: #hasFilenameSelectionInCodeView
   860                   isVisible: hasFilenameSelectionInCodeView
   860                 )
   861                 )
   861                #(#MenuItem
   862                (MenuItem
   862                   #label: 'FileIn'
   863                   enabled: hasSelection
   863                   #translateLabel: true
   864                   label: 'FileIn'
   864                   #value: #fileFileIn
   865                   itemValue: fileFileIn
   865                   #enabled: #hasSelection
   866                   translateLabel: true
   866                 )
   867                 )
   867                #(#MenuItem
   868                (MenuItem
   868                   #label: 'FileInTo NameSpace...'
   869                   enabled: hasSelection
   869                   #translateLabel: true
   870                   label: 'FileInTo NameSpace...'
   870                   #value: #fileFileInToNameSpace
   871                   itemValue: fileFileInToNameSpace
   871                   #enabled: #hasSelection
   872                   translateLabel: true
   872                 )
   873                 )
   873                #(#MenuItem
   874                (MenuItem
   874                   #label: '-'
   875                   label: '-'
   875                 )
   876                 )
   876                #(#MenuItem
   877                (MenuItem
   877                   #label: 'New'
   878                   label: 'New'
   878                   #translateLabel: true
   879                   translateLabel: true
   879                   #submenu: 
   880                   submenu: 
   880                  #(#Menu
   881                  (Menu
   881                     #(
   882                     (
   882                      #(#MenuItem
   883                      (MenuItem
   883                         #label: 'Directory...'
   884                         label: 'Directory...'
   884                         #translateLabel: true
   885                         itemValue: newDirectory
   885                         #value: #newDirectory
   886                         translateLabel: true
   886                       )
   887                       )
   887                      #(#MenuItem
   888                      (MenuItem
   888                         #label: 'File...'
   889                         label: 'File...'
   889                         #translateLabel: true
   890                         itemValue: newFile
   890                         #value: #newFile
   891                         translateLabel: true
   891                       )
   892                       )
   892                      #(#MenuItem
   893                      (MenuItem
   893                         #label: 'Hard Link...'
   894                         label: 'Hard Link...'
   894                         #translateLabel: true
   895                         itemValue: newHardLink
   895                         #isVisible: #systemIsUnix
   896                         translateLabel: true
   896                         #value: #newHardLink
   897                         isVisible: systemIsUnix
   897                       )
   898                       )
   898                      #(#MenuItem
   899                      (MenuItem
   899                         #label: 'Symbolic Link...'
   900                         label: 'Symbolic Link...'
   900                         #translateLabel: true
   901                         itemValue: newSoftLink
   901                         #isVisible: #systemIsUnix
   902                         translateLabel: true
   902                         #value: #newSoftLink
   903                         isVisible: systemIsUnix
   903                       )
   904                       )
   904                      )
   905                      )
   905                     nil
   906                     nil
   906                     nil
   907                     nil
   907                   )
   908                   )
   908                 )
   909                 )
   909                #(#MenuItem
   910                (MenuItem
   910                   #label: 'Remove'
   911                   enabled: hasSelection
   911                   #translateLabel: true
   912                   label: 'Remove'
   912                   #value: #fileRemove
   913                   itemValue: fileRemove
   913                   #enabled: #hasSelection
   914                   translateLabel: true
   914                 )
   915                 )
   915                #(#MenuItem
   916                (MenuItem
   916                   #label: 'Rename'
   917                   enabled: hasSelection
   917                   #translateLabel: true
   918                   label: 'Rename'
   918                   #value: #fileRename
   919                   itemValue: fileRename
   919                   #enabled: #hasSelection
   920                   translateLabel: true
   920                 )
   921                 )
   921                #(#MenuItem
   922                (MenuItem
   922                   #label: '-'
   923                   label: '-'
   923                 )
   924                 )
   924                #(#MenuItem
   925                (MenuItem
   925                   #label: 'Properties...'
   926                   enabled: hasSelection
   926                   #translateLabel: true
   927                   label: 'Properties...'
   927                   #value: #fileGetLongInfo
   928                   itemValue: fileGetLongInfo
   928                   #enabled: #hasSelection
   929                   translateLabel: true
   929                 )
   930                 )
   930                #(#MenuItem
   931                (MenuItem
   931                   #label: '-'
   932                   label: '-'
   932                   #isVisible: #javaSupportLoaded
   933                   isVisible: javaSupportLoaded
   933                 )
   934                 )
   934                #(#MenuItem
   935                (MenuItem
   935                   #label: 'Add to Java ClassPath'
   936                   enabled: canAddToClassPath
   936                   #translateLabel: true
   937                   label: 'Add to Java ClassPath'
   937                   #isVisible: #javaSupportLoaded
   938                   itemValue: fileAddToJavaClassPath
   938                   #value: #fileAddToJavaClassPath
   939                   translateLabel: true
   939                   #enabled: #canAddToClassPath
   940                   isVisible: javaSupportLoaded
   940                 )
   941                 )
   941                #(#MenuItem
   942                (MenuItem
   942                   #label: 'Remove from Java ClassPath'
   943                   enabled: canRemoveFromClassPath
   943                   #translateLabel: true
   944                   label: 'Remove from Java ClassPath'
   944                   #isVisible: #javaSupportLoaded
   945                   itemValue: fileRemoveFromJavaClassPath
   945                   #value: #fileRemoveFromJavaClassPath
   946                   translateLabel: true
   946                   #enabled: #canRemoveFromClassPath
   947                   isVisible: javaSupportLoaded
   947                 )
   948                 )
   948                #(#MenuItem
   949                (MenuItem
   949                   #label: 'Add to Java SourcePath'
   950                   enabled: canAddToSourcePath
   950                   #translateLabel: true
   951                   label: 'Add to Java SourcePath'
   951                   #isVisible: #javaSupportLoaded
   952                   itemValue: fileAddToJavaSourcePath
   952                   #value: #fileAddToJavaSourcePath
   953                   translateLabel: true
   953                   #enabled: #canAddToSourcePath
   954                   isVisible: javaSupportLoaded
   954                 )
   955                 )
   955                #(#MenuItem
   956                (MenuItem
   956                   #label: 'Remove from Java SourcePath'
   957                   enabled: canRemoveFromSourcePath
   957                   #translateLabel: true
   958                   label: 'Remove from Java SourcePath'
   958                   #isVisible: #javaSupportLoaded
   959                   itemValue: fileRemoveFromJavaSourcePath
   959                   #value: #fileRemoveFromJavaSourcePath
   960                   translateLabel: true
   960                   #enabled: #canRemoveFromSourcePath
   961                   isVisible: javaSupportLoaded
   961                 )
   962                 )
   962                #(#MenuItem
   963                (MenuItem
   963                   #label: '-'
   964                   label: '-'
   964                 )
   965                 )
   965                #(#MenuItem
   966                (MenuItem
   966                   #label: 'Exit'
   967                   label: 'Exit'
   967                   #translateLabel: true
   968                   itemValue: menuExit
   968                   #value: #menuExit
   969                   translateLabel: true
   969                 )
   970                 )
   970                )
   971                )
   971               nil
   972               nil
   972               nil
   973               nil
   973             )
   974             )
   974           )
   975           )
   975          #(#MenuItem
   976          (MenuItem
   976             #label: 'Directory'
   977             label: 'Directory'
   977             #translateLabel: true
   978             translateLabel: true
   978             #submenuChannel: #directoryMenuSpec
   979             submenuChannel: directoryMenuSpec
       
   980             keepLinkedMenu: true
   979           )
   981           )
   980          #(#MenuItem
   982          (MenuItem
   981             #label: 'Edit'
   983             label: 'Edit'
   982             #translateLabel: true
   984             translateLabel: true
   983             #submenu: 
   985             submenu: 
   984            #(#Menu
   986            (Menu
   985               #(
   987               (
   986                #(#MenuItem
   988                (MenuItem
   987                   #label: 'Edit File'
   989                   enabled: hasSelection
   988                   #translateLabel: true
   990                   label: 'Edit File'
   989                   #value: #fileGet
   991                   itemValue: fileGet
   990                   #enabled: #hasSelection
   992                   translateLabel: true
   991                 )
   993                 )
   992                #(#MenuItem
   994                (MenuItem
   993                   #label: 'Insert File'
   995                   enabled: hasSelection
   994                   #translateLabel: true
   996                   label: 'Insert File'
   995                   #value: #fileInsert
   997                   itemValue: fileInsert
   996                   #enabled: #hasSelection
   998                   translateLabel: true
   997                 )
   999                 )
   998                #(#MenuItem
  1000                (MenuItem
   999                   #label: '-'
  1001                   label: '-'
  1000                 )
  1002                 )
  1001                #(#MenuItem
  1003                (MenuItem
  1002                   #label: 'Copy File List'
  1004                   label: 'Copy File List'
  1003                   #translateLabel: true
  1005                   itemValue: copyFileList
  1004                   #value: #copyFileList
  1006                   translateLabel: true
  1005                 )
  1007                 )
  1006                #(#MenuItem
  1008                (MenuItem
  1007                   #label: 'Copy Selected Filename'
  1009                   enabled: hasSelection
  1008                   #translateLabel: true
  1010                   label: 'Copy Selected Filename'
  1009                   #value: #copySelectedFileName
  1011                   itemValue: copySelectedFileName
  1010                   #enabled: #hasSelection
  1012                   translateLabel: true
  1011                 )
  1013                 )
  1012                #(#MenuItem
  1014                (MenuItem
  1013                   #label: 'Copy Selected Pathname'
  1015                   enabled: hasSelection
  1014                   #translateLabel: true
  1016                   label: 'Copy Selected Pathname'
  1015                   #value: #copySelectedPathName
  1017                   itemValue: copySelectedPathName
  1016                   #enabled: #hasSelection
  1018                   translateLabel: true
  1017                 )
  1019                 )
  1018                #(#MenuItem
  1020                (MenuItem
  1019                   #label: 'Copy Command History'
  1021                   label: 'Copy Command History'
  1020                   #translateLabel: true
  1022                   itemValue: copyCommandHistory
  1021                   #value: #copyCommandHistory
  1023                   translateLabel: true
  1022                 )
  1024                 )
  1023                #(#MenuItem
  1025                (MenuItem
  1024                   #label: '-'
  1026                   label: '-'
  1025                 )
  1027                 )
  1026                #(#MenuItem
  1028                (MenuItem
  1027                   #label: 'Visited Files'
  1029                   label: 'Visited Files'
  1028                   #translateLabel: true
  1030                   translateLabel: true
  1029                   #submenuChannel: #visitedFileMenuSpec
  1031                   submenuChannel: visitedFileMenuSpec
  1030                 )
  1032                 )
  1031                )
  1033                )
  1032               nil
  1034               nil
  1033               nil
  1035               nil
  1034             )
  1036             )
  1035           )
  1037           )
  1036          #(#MenuItem
  1038          (MenuItem
  1037             #label: 'View'
  1039             label: 'View'
  1038             #translateLabel: true
  1040             translateLabel: true
  1039             #submenu: 
  1041             submenu: 
  1040            #(#Menu
  1042            (Menu
  1041               #(
  1043               (
  1042                #(#MenuItem
  1044                (MenuItem
  1043                   #label: 'Show Details'
  1045                   label: 'Show Details'
  1044                   #translateLabel: true
  1046                   translateLabel: true
  1045                   #indication: #showingDetails
  1047                   indication: showingDetails
  1046                 )
  1048                 )
  1047                #(#MenuItem
  1049                (MenuItem
  1048                   #label: 'Show Time && Date'
  1050                   enabled: showingDetails
  1049                   #translateLabel: true
  1051                   label: 'Show Time && Date'
  1050                   #enabled: #showingDetails
  1052                   translateLabel: true
  1051                   #indication: #showingTimeAndDate
  1053                   indication: showingTimeAndDate
  1052                 )
  1054                 )
  1053                #(#MenuItem
  1055                (MenuItem
  1054                   #label: 'Show Hidden Files'
  1056                   label: 'Show Hidden Files'
  1055                   #translateLabel: true
  1057                   translateLabel: true
  1056                   #indication: #showingHiddenFiles
  1058                   indication: showingHiddenFiles
  1057                 )
  1059                 )
  1058                #(#MenuItem
  1060                (MenuItem
  1059                   #label: 'Show Big Image Preview'
  1061                   label: 'Show Big Image Preview'
  1060                   #translateLabel: true
  1062                   translateLabel: true
  1061                   #indication: #showingBigImagePreview
  1063                   indication: showingBigImagePreview
  1062                 )
  1064                 )
  1063                #(#MenuItem
  1065                (MenuItem
  1064                   #label: '-'
  1066                   label: '-'
  1065                 )
  1067                 )
  1066                #(#MenuItem
  1068                (MenuItem
  1067                   #label: 'Sort by Name'
  1069                   label: 'Sort by Name'
  1068                   #translateLabel: true
  1070                   translateLabel: true
  1069                   #choice: #sortByWhat
  1071                   choice: sortByWhat
  1070                   #choiceValue: #name
  1072                   choiceValue: name
  1071                 )
  1073                 )
  1072                #(#MenuItem
  1074                (MenuItem
  1073                   #label: 'Sort by Type'
  1075                   label: 'Sort by Type'
  1074                   #translateLabel: true
  1076                   translateLabel: true
  1075                   #choice: #sortByWhat
  1077                   choice: sortByWhat
  1076                   #choiceValue: #type
  1078                   choiceValue: type
  1077                 )
  1079                 )
  1078                #(#MenuItem
  1080                (MenuItem
  1079                   #label: 'Sort by Time'
  1081                   label: 'Sort by Time'
  1080                   #translateLabel: true
  1082                   translateLabel: true
  1081                   #choice: #sortByWhat
  1083                   choice: sortByWhat
  1082                   #choiceValue: #time
  1084                   choiceValue: time
  1083                 )
  1085                 )
  1084                #(#MenuItem
  1086                (MenuItem
  1085                   #label: 'Ignore Case in Sort'
  1087                   label: 'Ignore Case in Sort'
  1086                   #translateLabel: true
  1088                   translateLabel: true
  1087                   #indication: #sortCaseless
  1089                   indication: sortCaseless
  1088                 )
  1090                 )
  1089                #(#MenuItem
  1091                (MenuItem
  1090                   #label: '-'
  1092                   label: '-'
  1091                 )
  1093                 )
  1092                #(#MenuItem
  1094                (MenuItem
  1093                   #label: 'Encoding...'
  1095                   label: 'Encoding...'
  1094                   #translateLabel: true
  1096                   itemValue: fileEncoding
  1095                   #value: #fileEncoding
  1097                   translateLabel: true
  1096                 )
  1098                 )
  1097                #(#MenuItem
  1099                (MenuItem
  1098                   #label: 'DOS EndOfLine Mode'
  1100                   label: 'DOS EndOfLine Mode'
  1099                   #translateLabel: true
  1101                   translateLabel: true
  1100                   #indication: #dosEOLMode
  1102                   indication: dosEOLMode
  1101                 )
  1103                 )
  1102                #(#MenuItem
  1104                (MenuItem
  1103                   #label: '-'
  1105                   label: '-'
  1104                 )
  1106                 )
  1105                #(#MenuItem
  1107                (MenuItem
  1106                   #label: 'Update'
  1108                   label: 'Update'
  1107                   #translateLabel: true
  1109                   itemValue: updateCurrentDirectory
  1108                   #value: #updateCurrentDirectory
  1110                   translateLabel: true
  1109                 )
  1111                 )
  1110                #(#MenuItem
  1112                (MenuItem
  1111                   #label: 'AutoUpdate'
  1113                   label: 'AutoUpdate'
  1112                   #translateLabel: true
  1114                   translateLabel: true
  1113                   #indication: #autoUpdate
  1115                   indication: autoUpdate
  1114                 )
  1116                 )
  1115                )
  1117                )
  1116               nil
  1118               nil
  1117               nil
  1119               nil
  1118             )
  1120             )
  1119           )
  1121           )
  1120          #(#MenuItem
  1122          (MenuItem
  1121             #label: 'Tools'
  1123             label: 'Tools'
  1122             #translateLabel: true
  1124             translateLabel: true
  1123             #submenuChannel: #toolsMenuSpec
  1125             submenuChannel: toolsMenuSpec
       
  1126             keepLinkedMenu: true
  1124           )
  1127           )
  1125          #(#MenuItem
  1128          (MenuItem
  1126             #label: 'CVS'
  1129             label: 'CVS'
  1127             #translateLabel: true
  1130             translateLabel: true
  1128             #submenu: 
  1131             submenu: 
  1129            #(#Menu
  1132            (Menu
  1130               #(
  1133               (
  1131                #(#MenuItem
  1134                (MenuItem
  1132                   #label: 'Update Selected Files/Directories'
  1135                   enabled: hasSelection
  1133                   #translateLabel: true
  1136                   label: 'Update Selected Files/Directories'
  1134                   #value: #cvsUpdateSelection
  1137                   itemValue: cvsUpdateSelection
  1135                   #enabled: #hasSelection
  1138                   translateLabel: true
  1136                 )
  1139                 )
  1137                #(#MenuItem
  1140                (MenuItem
  1138                   #label: 'Update Directory Local'
  1141                   label: 'Update Directory Local'
  1139                   #translateLabel: true
  1142                   itemValue: cvsUpdateDirectoryLocal
  1140                   #value: #cvsUpdateDirectoryLocal
  1143                   translateLabel: true
  1141                 )
  1144                 )
  1142                #(#MenuItem
  1145                (MenuItem
  1143                   #label: 'Update Directory Recursive'
  1146                   label: 'Update Directory Recursive'
  1144                   #translateLabel: true
  1147                   itemValue: cvsUpdateDirectoryRecursive
  1145                   #value: #cvsUpdateDirectoryRecursive
  1148                   translateLabel: true
  1146                 )
  1149                 )
  1147                #(#MenuItem
  1150                (MenuItem
  1148                   #label: '-'
  1151                   label: '-'
  1149                 )
  1152                 )
  1150                #(#MenuItem
  1153                (MenuItem
  1151                   #label: 'Commit...'
  1154                   label: 'Commit...'
  1152                   #translateLabel: true
  1155                   itemValue: cvsCommitSelection
  1153                   #value: #cvsCommitSelection
  1156                   translateLabel: true
  1154                 )
  1157                 )
  1155                #(#MenuItem
  1158                (MenuItem
  1156                   #label: 'Add && Commit...'
  1159                   label: 'Add && Commit...'
  1157                   #translateLabel: true
  1160                   itemValue: cvsAddAndCommitSelection
  1158                   #value: #cvsAddAndCommitSelection
  1161                   translateLabel: true
  1159                 )
  1162                 )
  1160                #(#MenuItem
  1163                (MenuItem
  1161                   #label: '-'
  1164                   label: '-'
  1162                 )
  1165                 )
  1163                #(#MenuItem
  1166                (MenuItem
  1164                   #label: 'Remove File && CVS Container...'
  1167                   enabled: canRemoveCVSContainer
  1165                   #translateLabel: true
  1168                   label: 'Remove File && CVS Container...'
  1166                   #value: #cvsRemoveFileAndContainer
  1169                   itemValue: cvsRemoveFileAndContainer
  1167                   #enabled: #canRemoveCVSContainer
  1170                   translateLabel: true
  1168                 )
  1171                 )
  1169                )
  1172                )
  1170               nil
  1173               nil
  1171               nil
  1174               nil
  1172             )
  1175             )
  1173           )
  1176           )
  1174          #(#MenuItem
  1177          (MenuItem
  1175             #label: 'Help'
  1178             label: 'Help'
  1176             #translateLabel: true
  1179             translateLabel: true
  1177             #startGroup: #right
  1180             startGroup: right
  1178             #submenu: 
  1181             submenu: 
  1179            #(#Menu
  1182            (Menu
  1180               #(
  1183               (
  1181                #(#MenuItem
  1184                (MenuItem
  1182                   #label: 'FileBrowser Documentation'
  1185                   label: 'FileBrowser Documentation'
  1183                   #translateLabel: true
  1186                   itemValue: openHTMLDocument:
  1184                   #value: #openHTMLDocument:
  1187                   translateLabel: true
  1185                   #argument: 'tools/fbrowser/TOP.html'
  1188                   argument: 'tools/fbrowser/TOP.html'
  1186                 )
  1189                 )
  1187                #(#MenuItem
  1190                (MenuItem
  1188                   #label: '-'
  1191                   label: '-'
  1189                 )
  1192                 )
  1190                #(#MenuItem
  1193                (MenuItem
  1191                   #label: 'About FileBrowser...'
  1194                   label: 'About FileBrowser...'
  1192                   #translateLabel: true
  1195                   itemValue: openAboutThisApplication
  1193                   #value: #openAboutThisApplication
  1196                   translateLabel: true
  1194                 )
  1197                 )
  1195                )
  1198                )
  1196               nil
  1199               nil
  1197               nil
  1200               nil
  1198             )
  1201             )
  7610 ! !
  7613 ! !
  7611 
  7614 
  7612 !FileBrowser class methodsFor:'documentation'!
  7615 !FileBrowser class methodsFor:'documentation'!
  7613 
  7616 
  7614 version
  7617 version
  7615     ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.553 2003-12-02 10:09:45 cg Exp $'
  7618     ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.554 2004-01-14 09:48:48 penk Exp $'
  7616 ! !
  7619 ! !