Program Metropolis - Software Boutique 95/SOFTWARECD.iso/camipro3/macros.cmz/MENULITE.SMM

INI File | 1994-08-14 | 12.7 KB | 704 lines

[ver]
    4
[sty]
    _macro.sty
[files]
[charset]
    82
    CHINESEBIG5 (Windows)
[revisions]
    0
[prn]
    PostScript Printer
[port]
    LPT1:
[lang]
    1
[desc]
    ªb¬°Ñ\»α¬φ⌐M╡uÑ\»α¬φñº╢íñ┴┤½íC
    Lotus WPD Inside Sales
    Intermediate
    Global Variables, AddMenus
    autorun
    773343066
    64
    679254902
    408
    4
    118
    932
    4
    4






    0
[fopts]
    0
    1
    0
    0
[lnopts]
    2
    Body Text
    1
[docopts]
    5
    2
[GramStyle]

[tag]
    New
    5
    [fnt]
        Arial
        240
        255
        16385
    [algn]
        1
        1
        216
        0
        0
    [spc]
        33
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0

        0
        1
        1
        0
        16
        0
        0
    [nfmt]
        272
        1
        3
        .
        ,
        $
    New
    0
    0
[lay]
    Standard
    513
    [rght]
        15840
        12240
        1
        720
        1080
        1
        1252
        720
        2
        1
        0
        1
        1
        2
        1
        720
        11520
        14
        1
        720
        1
        1440
        1
        2160
        1
        2880
        1
        3600
        1
        4320
        1
        5040
        1
        5760
        1
        6480
        1
        7200
        1
        7920
        1
        8640
        1
        9360
        1
        10080
    [hrght]
    [lyfrm]
        1
        11200
        0
        0
        12240
        1252
        0
        1
        3
        1 0 0 0 0 0 0
        0
        0
        1
    [frmlay]
        1252
        12240
        1
        1440
        0
        1
        360
        1440
        0
        1
        0
        1
        1
        0
        1
        1440
        10800
        0
    [txt]
@Header@
@Header@
>
    [frght]
    [lyfrm]
        1
        13248
        0
        14760
        12240
        15840
        0
        1
        3
        1 0 0 0 0 0 0
        0
        0
        2
    [frmlay]
        15840
        12240
        1
        1440
        360
        1
        14940
        1440
        0
        1
        0
        1
        1
        0
        1
        1440
        10800
        0
    [txt]
@Header@
@Header@
>
[elay]
[l1]
    0
[pg]
    4
    47 0 53 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    93 0 26 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    140 0 15 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    149 0 0 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
[edoc]
<:#284,10800>

<:#284,10800>'Hugh Marlor - 7/18/91

<:#284,10800>'This macro adds to the View Menu the option of a toggle between

<:#284,10800>'the menu bar shipped with AmiPro 2.0 and a short version

<:#284,10800>define IsOKToRun(menuname)    GetInfo(217, 24, %1);

<:#284,10800>

<:#284,10800>FUNCTION MENULITE()

<:#284,10800>IF IsNewWave()

<:#284,10800>    Message("Macro not available while running under HP NewWave.")

<:#284,10800>    Exit Function

<:#284,10800>ENDIF

@Subhead@<:#284,10800>result=IsOKToRun(SaveAs)

@Subhead@<:#284,10800>if result !=1 exit function

@Subhead@<:#284,10800>endif

<:#284,10800>declare Back()

<:#284,10800>declare Toggle()

<:#284,10800>declare OpenFile()

<:#284,10800>

<:#284,10800>AllocGlobalVar("set",1)

<:#284,10800>AllocGlobalVar("NewBar",1)

<:#284,10800>

<:#284,10800>MacFile = GetRunningMacroFile$()            'Get the name of this macro file.

<:#284,10800>

<:#284,10800>ShowBar(1)  'make sure default is displayed

<:#284,10800>DeleteMenuItem(1,"└╦╡°(&V)","Short &Menus")

<:#284,10800>AddMenuItem(1,"└╦╡°(&V)","Short &Menus","{MacFile}!ChangeMenu()")

<:#284,10800>

<:#284,10800>END FUNCTION

<:#284,10800>

<:#284,10800>

<:#284,10800>Function ChangeMenu()

<:#284,10800>

<:#284,10800>MacFile = GetRunningMacroFile$()            'Get the name of this macro file.

<:#284,10800>'MacFile = GetRunningMacroFile$()            'Get the name of this macro file.

<:#284,10800>

<:#284,10800>short=GetGlobalVar$("set")

<:#284,10800>

<:#284,10800>if (short=1)        'Then short menu already built

<:#284,10800>    Call Toggle()

<:#284,10800>    exit function

<:#284,10800>endif

<:#284,10800>

<:#284,10800>BarID=AddBar()  'BarID for Short Menu Bar

<:#284,10800>SetGlobalVar("NewBar",BarID)  'Save BarID for Short Menu

<:#284,10800>

<:#284,10800>IF (BarID <;> 0)                    'If it was added,

<:#284,10800>    AddMenu(BarID, "└╔«╫(&F)")            'Add a File menu to it.

<:#284,10800>    AddMenuItem(BarID,"└╔«╫(&F)", "╢}╖s└╔«╫(&N)...", New, "Begin a new document")

<:#568,10800>    AddMenuItem(BarID,"└╔«╫(&F)","╢}▒╥┬┬└╔(&O)    ^O", "{macfile}!OpenFile()","Open a Document")

<:#284,10800>    addmenuitem(BarID,"└╔«╫(&F)","-","")

<:#284,10800>    AddMenuItem(BarID,"└╔«╫(&F)","└xªs└╔«╫(&S)    ^S",Save,"Save Document")

<:#284,10800>    AddMenuItem(BarID,"└╔«╫(&F)","Ñtªs╖s└╔(&A)...",SaveAs,"Save as new name")

<:#284,10800>    AddMenuItem(BarID,"└╔«╫(&F)","┴┘¡∞¼░½eª╕└xªs¬║¬⌐Ñ╗(&R)",Revert)

<:#284,10800>    AddMenuItem(BarID,"└╔«╫(&F)","-","")

<:#284,10800>    AddMenuItem(BarID,"└╔«╫(&F)","ªCªL(&P)...    ^P",FilePrint)

<:#284,10800>    AddMenuItem(BarID,"└╔«╫(&F)","ªL¬φ╛≈│]⌐w(&T)...",PrintSetup)

<:#284,10800>    addmenuitem(BarID,"└╔«╫(&F)","-","")

<:#284,10800>    AddMenuItem(BarID,"└╔«╫(&F)","╡▓º⌠(&X)","{MacFile}!Close_Ami()","Exit AmiPro")

<:#284,10800>

<:#284,10800>    AddMenu(BarID,"╜s┐Φ(&E)")

<:#284,10800>    AddMenuItem(BarID,"╜s┐Φ(&E)","┤_¡∞(&U)    ^Z",Undo)

<:#284,10800>    AddMenuItem(BarID,"╜s┐Φ(&E)","░┼ñU(&T)    ^X",Cut)

<:#284,10800>    AddMenuItem(BarID,"╜s┐Φ(&E)","╜╞╗s(&C)    ^C",Copy)

<:#284,10800>    AddMenuItem(BarID,"╜s┐Φ(&E)","╢KñW(&P)    ^V",Paste)

<:#284,10800>    AddMenuItem(BarID,"╜s┐Φ(&E)","-","")

<:#284,10800>    AddMenuItem(BarID,"╜s┐Φ(&E)","┤MºΣ╗P¿·ÑN(&R)...    ^F",FindReplace)

<:#284,10800>    AddMenuItem(BarID,"╜s┐Φ(&E)","▓╛ª▄(&G)...    ^G",GoToCmd)

<:#284,10800>

<:#284,10800>    AddMenu(BarID,"└╦╡°(&V)")

<:#284,10800>    AddMenuItem(BarID,"└╦╡°(&V)","╛π¡╢(&F)    ^D",FullPageView)

<:#284,10800>    AddMenuItem(BarID,"└╦╡°(&V)","ª█¡q¡╢¡▒(&C) %d    ",CustomView)

<:#284,10800>    AddMenuItem(BarID,"└╦╡°(&V)","-","")

<:#284,10800>    AddMenuItem(BarID,"└╦╡°(&V)","º╣╜Z╝╥ªí(&L)    ",LayoutMode)

<:#284,10800>    AddMenuItem(BarID,"└╦╡°(&V)","»≤╜Z╝╥ªí(&D)    ^M",DraftMode)

<:#284,10800>    AddMenuItem(BarID,"└╦╡°(&V)","-","")

<:#284,10800>    AddMenuItem(BarID,"└╦╡°(&V)","└╦╡°▓╙╢╡│]⌐w(&P)...",ViewPreferences)

<:#284,10800>

<:#284,10800>    AddMenuItem(BarID,"└╦╡°(&V)","Long &Menus","{macfile}!Back")

<:#284,10800>

<:#284,10800>    AddMenu(BarID,"ñσªr(&T)")

<:#284,10800>    AddMenuItem(BarID,"ñσªr(&T)","ªr½¼(&F)...",FontChange)

<:#284,10800>    AddMenuItem(BarID,"ñσªr(&T)","-","")

<:#284,10800>    AddMenuItem(BarID,"ñσªr(&T)","╝╨╖╟(&N)    ^N",NormalText)

<:#284,10800>    AddMenuItem(BarID,"ñσªr(&T)","▓╩┼Θ(&B)    ^B",Bold)

<:#284,10800>    AddMenuItem(BarID,"ñσªr(&T)","▒╫┼Θ(&I)    ^I",Italic)

<:#284,10800>    AddMenuItem(BarID,"ñσªr(&T)","ªr⌐│╜u(&W)    ^W",WordUnderline)

<:#284,10800>

<:#284,10800>    AddMenu(BarID,"╝╦ªí(&S)")

<:#284,10800>     AddMenuItem(BarID,"╝╦ªí(&S)","¡╫º∩╝╦ªí(&M)...    ^A",ModifyStyle)

<:#284,10800>    AddMenuItem(BarID,"╝╦ªí(&S)","-","")

<:#284,10800>     AddMenuItem(BarID,"╝╦ªí(&S)","¿╧Ñ╬¿ΣÑL╝╦ªí¬φ(&U)...",UseAnotherStyle)

<:#284,10800>

<:#284,10800>    AddMenu(BarID,"¬⌐¡▒(&P)")

<:#284,10800>    AddMenuItem(BarID,"¬⌐¡▒(&P)","¡╫º∩¬⌐¡▒░t╕m(&M)...",ModifyLayout)

<:#284,10800>    AddMenuItem(BarID,"¬⌐¡▒(&P)","-","")

<:#284,10800>    AddMenuItem(BarID,"¬⌐¡▒(&P)","¡╢╜X(&P)...",PageNumber)

<:#284,10800>    AddMenuItem(BarID,"¬⌐¡▒(&P)","╜sªµ╕╣(&L)...",LineNumber)

<:#284,10800>

<:#284,10800>    AddMenu(BarID,"╣╧ñσ«╪(&R)")

<:#284,10800>    AddMenuItem(BarID,"╣╧ñσ«╪(&R)","½╪Ñ▀╣╧ñσ«╪(&C)...",AddFrame<:f240,BArial,255,0,0>DLG<:f>)

<:#284,10800>    AddMenuItem(BarID,"╣╧ñσ«╪(&R)","¡╫º∩╣╧ñσ«╪░t╕m(&M)...",FrameLayout)

<:#284,10800>

<:#284,10800>    AddMenu(BarID,"ñu¿π(&L)")

<:#284,10800>    AddMenuItem(BarID,"ñu¿π(&L)","¡^ñσ½≈ªr└╦¼d(&S)...",SpellCheck)

<:#284,10800>    AddMenuItem(BarID,"ñu¿π(&L)","¬φ«µ(&B)...",Tables)

<:#284,10800>    AddMenuItem(BarID,"ñu¿π(&L)","-","")

<:#284,10800>    AddMenuItem(BarID,"ñu¿π(&L)","├╕╣╧(&D)...",DrawingMode)

<:#284,10800>    AddMenuItem(BarID,"ñu¿π(&L)","╣╧¬φ(&C)...",ChartingMode)

<:#284,10800>    AddMenuItem(BarID,"ñu¿π(&L)","-","")

<:#284,10800>    AddMenuItem(BarID,"ñu¿π(&L)","┤╝╝z╣╧Ñ▄(&I)...",<:f240,BArial,255,0,0>IconCustomize<:f>)

<:#284,10800>    AddMenu(BarID,"╡°╡í(&W)")

<:#284,10800>    AddMenuItem(BarID,"╡°╡í(&W)","╢}▒╥╖s╡°╡í(&N)",NewWindow)

<:#284,10800>    AddMenuItem(BarID,"╡°╡í(&W)","½D¡½┼|┼πÑ▄(&T)",TileWindow)

<:#284,10800>    AddMenuItem(BarID,"╡°╡í(&W)","¡½┼|┼πÑ▄(&C)",CascadeWindow)

<:#284,10800>

<:#284,10800>    AddMenu(BarID,"╗▓ºU╗í⌐·(&H)")

<:#284,10800>    AddMenuItem(barID,"╗▓ºU╗í⌐·(&H)","ñ║«e(&C)",Help)

<:#284,10800>    AddMenuItem(BarID,"╗▓ºU╗í⌐·(&H)","-","")

<:#284,10800>    AddMenuItem(BarID,"╗▓ºU╗í⌐·(&H)","├÷⌐≤ Ami Pro(&A)...",About)

<:#284,10800>

<:#284,10800>    ShowBar(BarID)                    'Show the newly created menu bar.

<:#284,10800>    short = 1  'set flag that you already created shortmenu bar

<:#284,10800>    SetGlobalVar("set",short)

<:#284,10800>ENDIF

<:#284,10800>END FUNCTION

<:#284,10800>

<:#284,10800>FUNCTION Close_Ami()

<:#284,10800>

<:#284,10800>AppClose("")

<:#284,10800>

<:#284,10800>END FUNCTION

<:#284,10800>

<:#284,10800>FUNCTION OpenFile()

<:#284,10800>

<:#284,10800>FileOpen

<:#284,10800>

<:#284,10800>END FUNCTION

<:#284,10800>

<:#284,10800>

<:#284,10800>FUNCTION BACK()

<:#284,10800>ShowBar(1)                        'Restore the original Ami Pro menu  bar

<:#284,10800>FreeGlobalVar(1)

<:#284,10800>END FUNCTION

<:#284,10800>

<:#284,10800>FUNCTION TOGGLE()

<:#284,10800>    BarID=GetGlobalVar$("NewBar")  'Grab BarID from Global Variable

<:#284,10800>    ShowBar(2)

<:#284,10800>END FUNCTION

@Y<*">@<:#284,10800>

>

[Embedded]
00009478
>
[macsum] 6
MENULITE 0 0 3 6
ChangeMenu 337 0 4 30
Close_Ami 3220 0 1 126
OpenFile 3257 0 1 132
BACK 3290 0 1 139
TOGGLE 3329 0 2 144
[macse]
14 MENULITE
0 1317
13
11 00000109
0 3 "Macro not available while running under HP NewWave."
6 0
15
9
0 1313 217 24 104
13
8 1
6 1
5 1
18 1
11 00000178
6 0
15
9
0 271 "set" 1
0 271 "NewBar" 1
0 802
13
8 2
0 514 1
0 520 1 "└╦╡°(&V)" "Short &Menus"
0 516 1 "└╦╡°(&V)" "Short &Menus" "{2}!ChangeMenu()"
6 0
15
9
14 ChangeMenu
0 802
13
8 1
0 265 "set"
13
8 2
6 2
5 1
18 0
11 00000105
16 Toggle
6 0
15
9
0 513
13
8 3
0 264 "NewBar" "{3}"
6 3
5 0
18 3
11 00002871
0 515 "{3}" "└╔«╫(&F)"
0 516 "{3}" "└╔«╫(&F)" "╢}╖s└╔«╫(&N)..." 101 "Begin a new document"
0 516 "{3}" "└╔«╫(&F)" "╢}▒╥┬┬└╔(&O)    ^O" "{1}!OpenFile()" "Open a Document"
0 516 "{3}" "└╔«╫(&F)" "-" ""
0 516 "{3}" "└╔«╫(&F)" "└xªs└╔«╫(&S)    ^S" 103 "Save Document"
0 516 "{3}" "└╔«╫(&F)" "Ñtªs╖s└╔(&A)..." 104 "Save as new name"
0 516 "{3}" "└╔«╫(&F)" "┴┘¡∞¼░½eª╕└xªs¬║¬⌐Ñ╗(&R)" 105
0 516 "{3}" "└╔«╫(&F)" "-" ""
0 516 "{3}" "└╔«╫(&F)" "ªCªL(&P)...    ^P" 111
0 516 "{3}" "└╔«╫(&F)" "ªL¬φ╛≈│]⌐w(&T)..." 112
0 516 "{3}" "└╔«╫(&F)" "-" ""
0 516 "{3}" "└╔«╫(&F)" "╡▓º⌠(&X)" "{1}!Close_Ami()" "Exit AmiPro"
0 515 "{3}" "╜s┐Φ(&E)"
0 516 "{3}" "╜s┐Φ(&E)" "┤_¡∞(&U)    ^Z" 151
0 516 "{3}" "╜s┐Φ(&E)" "░┼ñU(&T)    ^X" 153
0 516 "{3}" "╜s┐Φ(&E)" "╜╞╗s(&C)    ^C" 154
0 516 "{3}" "╜s┐Φ(&E)" "╢KñW(&P)    ^V" 155
0 516 "{3}" "╜s┐Φ(&E)" "-" ""
0 516 "{3}" "╜s┐Φ(&E)" "┤MºΣ╗P¿·ÑN(&R)...    ^F" 451
0 516 "{3}" "╜s┐Φ(&E)" "▓╛ª▄(&G)...    ^G" 452
0 515 "{3}" "└╦╡°(&V)"
0 516 "{3}" "└╦╡°(&V)" "╛π¡╢(&F)    ^D" 201
0 516 "{3}" "└╦╡°(&V)" "ª█¡q¡╢¡▒(&C) %d    " 202
0 516 "{3}" "└╦╡°(&V)" "-" ""
0 516 "{3}" "└╦╡°(&V)" "º╣╜Z╝╥ªí(&L)    " 210
0 516 "{3}" "└╦╡°(&V)" "»≤╜Z╝╥ªí(&D)    ^M" 211
0 516 "{3}" "└╦╡°(&V)" "-" ""
0 516 "{3}" "└╦╡°(&V)" "└╦╡°▓╙╢╡│]⌐w(&P)..." 206
0 516 "{3}" "└╦╡°(&V)" "Long &Menus" "{1}!Back"
0 515 "{3}" "ñσªr(&T)"
0 516 "{3}" "ñσªr(&T)" "ªr½¼(&F)..." 251
0 516 "{3}" "ñσªr(&T)" "-" ""
0 516 "{3}" "ñσªr(&T)" "╝╨╖╟(&N)    ^N" 253
0 516 "{3}" "ñσªr(&T)" "▓╩┼Θ(&B)    ^B" 254
0 516 "{3}" "ñσªr(&T)" "▒╫┼Θ(&I)    ^I" 255
0 516 "{3}" "ñσªr(&T)" "ªr⌐│╜u(&W)    ^W" 257
0 515 "{3}" "╝╦ªí(&S)"
0 516 "{3}" "╝╦ªí(&S)" "¡╫º∩╝╦ªí(&M)...    ^A" 302
0 516 "{3}" "╝╦ªí(&S)" "-" ""
0 516 "{3}" "╝╦ªí(&S)" "¿╧Ñ╬¿ΣÑL╝╦ªí¬φ(&U)..." 304
0 515 "{3}" "¬⌐¡▒(&P)"
0 516 "{3}" "¬⌐¡▒(&P)" "¡╫º∩¬⌐¡▒░t╕m(&M)..." 352
0 516 "{3}" "¬⌐¡▒(&P)" "-" ""
0 516 "{3}" "¬⌐¡▒(&P)" "¡╢╜X(&P)..." 356
0 516 "{3}" "¬⌐¡▒(&P)" "╜sªµ╕╣(&L)..." 359
0 515 "{3}" "╣╧ñσ«╪(&R)"
0 516 "{3}" "╣╧ñσ«╪(&R)" "½╪Ñ▀╣╧ñσ«╪(&C)..." 414
0 516 "{3}" "╣╧ñσ«╪(&R)" "¡╫º∩╣╧ñσ«╪░t╕m(&M)..." 402
0 515 "{3}" "ñu¿π(&L)"
0 516 "{3}" "ñu¿π(&L)" "¡^ñσ½≈ªr└╦¼d(&S)..." 459
0 516 "{3}" "ñu¿π(&L)" "¬φ«µ(&B)..." 457
0 516 "{3}" "ñu¿π(&L)" "-" ""
0 516 "{3}" "ñu¿π(&L)" "├╕╣╧(&D)..." 411
0 516 "{3}" "ñu¿π(&L)" "╣╧¬φ(&C)..." 412
0 516 "{3}" "ñu¿π(&L)" "-" ""
0 516 "{3}" "ñu¿π(&L)" "┤╝╝z╣╧Ñ▄(&I)..." 209
0 515 "{3}" "╡°╡í(&W)"
0 516 "{3}" "╡°╡í(&W)" "╢}▒╥╖s╡°╡í(&N)" 525
0 516 "{3}" "╡°╡í(&W)" "½D¡½┼|┼πÑ▄(&T)" 526
0 516 "{3}" "╡°╡í(&W)" "¡½┼|┼πÑ▄(&C)" 527
0 515 "{3}" "╗▓ºU╗í⌐·(&H)"
0 516 "{3}" "╗▓ºU╗í⌐·(&H)" "ñ║«e(&C)" 551
0 516 "{3}" "╗▓ºU╗í⌐·(&H)" "-" ""
0 516 "{3}" "╗▓ºU╗í⌐·(&H)" "├÷⌐≤ Ami Pro(&A)..." 552
0 514 "{3}"
5 1
8 2
0 264 "set" "{2}"
6 0
15
9
14 Close_Ami
0 1027 ""
6 0
15
9
14 OpenFile
24 102
6 0
15
9
14 BACK
0 514 1
0 266 1
6 0
15
9
14 TOGGLE
0 265 "NewBar"
13
8 1
0 514 2
6 0
15
9
00009503