MethodFinderWindow.st
changeset 3685 854b28268aa6
parent 3675 caafc519b235
child 3695 bc4ff07233d7
equal deleted inserted replaced
3684:941d2ff78a3e 3685:854b28268aa6
     1 "{ Encoding: utf8 }"
       
     2 
       
     3 "
     1 "
     4  Copyright (C) Original Authors (Kaehler, Scott Wallace and Dan Ingalls)
     2  Copyright (C) Original Authors (Kaehler, Scott Wallace and Dan Ingalls)
     5  Copyright (C) 2001 eXept Software AG
     3  Copyright (C) 2001 eXept Software AG
     6 
     4 
     7  Permission is hereby granted, free of charge, to any 
     5  Permission is hereby granted, free of charge, to any 
   890      by the MenuEditor of ST/X."
   888      by the MenuEditor of ST/X."
   891 
   889 
   892     "Do not manually edit this!! If it is corrupted,
   890     "Do not manually edit this!! If it is corrupted,
   893      the MenuEditor may not be able to read the specification."
   891      the MenuEditor may not be able to read the specification."
   894 
   892 
       
   893 
   895     "
   894     "
   896      MenuEditor new openOnClass:MethodFinderWindow andSelector:#menu
   895      MenuEditor new openOnClass:MethodFinderWindow andSelector:#menu
   897      (Menu new fromLiteralArrayEncoding:(MethodFinderWindow menu)) startUp
   896      (Menu new fromLiteralArrayEncoding:(MethodFinderWindow menu)) startUp
   898     "
   897     "
   899 
   898 
   900     <resource: #menu>
   899     <resource: #menu>
   901 
   900 
   902     ^ 
   901     ^ 
   903      #(#Menu
   902      #(Menu
   904         #(
   903         (
   905          #(#MenuItem
   904          (MenuItem
   906             #label: '&File'
   905             activeHelpKey: file
   907             #activeHelpKey: #file
   906             label: '&File'
   908             #submenu: 
   907             submenu: 
   909            #(#Menu
   908            (Menu
   910               #(
   909               (
   911                #(#MenuItem
   910                (MenuItem
   912                   #label: 'Exit'
   911                   activeHelpKey: fileExit
   913                   #value: #closeRequest
   912                   label: 'Exit'
   914                   #activeHelpKey: #fileExit
   913                   itemValue: closeRequest
   915                 )
   914                 )
   916                )
   915                )
   917               nil
   916               nil
   918               nil
   917               nil
   919             )
   918             )
   920           )
   919           )
   921          #(#MenuItem
   920          (MenuItem
   922             label: 'MENU_Help'
   921             label: 'MENU_Help'
   923             startGroup: conditionalRight
   922             startGroup: conditionalRight
   924             #submenu: 
   923             submenu: 
   925            #(#Menu
   924            (Menu
   926               #(
   925               (
   927                #(#MenuItem
   926                (MenuItem
   928                   #label: 'Documentation'
   927                   activeHelpKey: helpTutorial
   929                   #value: #openHTMLDocumentation
   928                   label: 'Documentation'
   930                   #activeHelpKey: #helpTutorial
   929                   itemValue: openHTMLDocumentation
   931                 )
   930                 )
   932                #(#MenuItem
   931                (MenuItem
   933                   #label: 'About MethodFinder...'
   932                   label: '-'
   934                   #value: #openAboutThisApplication
   933                 )
   935                   #activeHelpKey: #aboutThisAppliaction
   934                (MenuItem
       
   935                   activeHelpKey: aboutThisAppliaction
       
   936                   label: 'About MethodFinder...'
       
   937                   itemValue: openAboutThisApplication
   936                 )
   938                 )
   937                )
   939                )
   938               nil
   940               nil
   939               nil
   941               nil
   940             )
   942             )
   941           )
   943           )
   942          )
   944          )
   943         nil
   945         nil
   944         nil
   946         nil
   945       )
   947       )
   946 
       
   947     "Modified: / 13.11.2001 / 12:36:39 / cg"
       
   948 !
   948 !
   949 
   949 
   950 resultListMenu
   950 resultListMenu
   951     "This resource specification was automatically generated
   951     "This resource specification was automatically generated
   952      by the MenuEditor of ST/X."
   952      by the MenuEditor of ST/X."