Liren Large Software Subsidy 14

home *** CD-ROM | disk | FTP | other *** search

/ Liren Large Software Subsidy 14 / 14.iso / s / s005 / 52.ddi / SMM.LIB / FLG.SMM < prev next >

Wrap

INI File | 1993-10-28 | 10.5 KB | 1,039 lines

[ver] 4 [sty] _default.sty [charset] 82 ANSI (Windows, IBM CP 1252) [PanoseFontTable] 4 5 Arial 2818 1030 514 514 1026 Helvetica 2818 1029 514 514 1026 Helv 2818 1029 514 770 1026 Times New Roman 514 774 1029 517 1027 [revisions] 0 [recfile] * 1 1 3 8 0 0 [lang] 1 [desc] Launch Freelance for OS/2 751844703 6 750620291 150 0 0 0 0 0 1 [prn] QMS-PS 810 [port] NW:\\SPEEDY\QMS [fopts] 0 1 0 0 [lnopts] 2 Body Text 1 [docopts] 5 2 [GramStyle] [tag] Function 1 [fnt] Helvetica 240 0 49153 [algn] 1 1 0 0 0 [spc] 33 0 1 0 0 1 100 [brk] 68 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 1 0 1 1 0 0 0 0 [nfmt] 272 1 3 . , $ Body Text 0 0 [tag] Outline2 1 [fnt] Times New Roman 200 0 49152 [algn] 1 1 216 0 0 [spc] 33 0 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 2 0 1 1 0 16 0 0 [nfmt] 272 1 3 . , $ Outline2 0 0 [tag] Outline3 1 [fnt] Times New Roman 200 0 49152 [algn] 1 1 0 720 0 [spc] 33 0 1 72 72 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 3 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Outline3 0 0 [tag] Outline4 1 [fnt] Times New Roman 200 0 49152 [algn] 1 1 0 0 0 [spc] 33 0 1 72 72 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 4 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Outline3 0 0 [tag] Outline1 1 [fnt] Times New Roman 240 0 49153 [algn] 1 1 0 0 0 [spc] 33 0 1 72 0 1 100 [brk] 16 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 1 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Outline1 0 0 [tag] Title 8 [fnt] Helvetica 280 0 49153 [algn] 1 1 0 0 0 [spc] 33 0 1 144 72 1 100 [brk] 16 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 1 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Title 0 0 [tag] Body Text 2 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 0 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Body Text 0 0 [lay] Standard 513 [rght] 15840 12240 1 1440 1440 1 1440 1440 0 1 0 1 0 2 1 1440 10800 12 1 720 1 1440 1 2160 1 2880 1 3600 1 4320 1 5040 1 5760 1 6480 1 7200 1 7920 1 8640 [frght] [lyfrm] 0 13184 0 14400 12240 15840 0 1 1 0 0 0 0 0 0 0 0 16777215 0 [frmlay] 15840 12240 1 1440 792 1 14472 1440 0 1 0 0 0 0 1 1440 10800 2 2 4680 3 9360 [txt] <:s> > [hrght] [lyfrm] 0 11136 0 0 12240 1440 0 1 1 0 0 0 0 0 0 0 0 16777215 0 [frmlay] 1440 12240 1 1440 72 1 792 1440 0 1 0 0 0 0 1 1440 10800 2 2 4680 3 9360 [txt] <:s> > [elay] [lay] 1 513 [rght] 15840 12240 1 1440 1440 1 1440 1440 0 0 0 1 0 2 1 1440 10800 12 1 720 1 1440 1 2160 1 2880 1 3600 1 4320 1 5040 1 5760 1 6480 1 7200 1 7920 1 8640 [hrght] [lyfrm] 0 11136 0 0 12240 1440 0 1 1 0 0 0 0 0 0 0 0 16777215 0 [frmlay] 1440 12240 1 1440 72 1 792 1440 0 0 16777215 0 0 0 1 1440 10800 1 3 9360 [txt] <:s><:#P30670848,P943718> > [frght] [lyfrm] 0 13184 0 14400 12240 15840 0 1 1 0 0 0 0 0 0 0 0 16777215 0 [frmlay] 15840 12240 1 1440 792 1 14472 1440 0 0 16777215 0 0 0 1 1440 10800 2 2 4680 3 9360 [txt] <:s><:#P30670848,P943718> > [elay] [l1] 1 [edoc] @Function@<:s><:#P30670848,P912261><:X3,0;Include "amixlate.sam!flg">' Flg Defines @Outline2@<:s>Define AppName "Freelance for OS/2" @Outline2@<:s>Define NotFound "Ami Pro cannot find Freelance for OS/2. If you have Freelance currently installed, please enter the path below." @Outline2@<:s>Define EnterPath "Enter the path for Freelance for OS/2:" @Outline2@<:s>Define Caption "Launch Freelance" @Outline2@<:s>Define Path "C:\Flg\FLG.EXE"<:X~3,0;Include "amixlate.sam!flg"> @Outline2@<:s><:#P30670848,P786432>define deffile "WORK\PRES.PRS" @Outline2@<:s><:#P30670848,P786432>define PLAT_SLASH "\" @Outline2@<:s><:#P30670848,P786432>declare GetPathFromName(filename) @Outline2@<:s><:#P30670848,P786432> @Outline2@<:s><:#P30670848,P786432> @Function@<:s><:#P30670848,P912261>Function FLG() @Outline2@<:s><:#P30670848,P786432>if AppIsRunning(AppName) @Outline2@<:s><:#P30670848,P786432> ActivateApp(AppName) @Outline2@<:s><:#P30670848,P786432> EXIT FUNCTION @Outline2@<:s><:#P30670848,P786432>ENDIF @Outline2@<:s><:#P30670848,P786432>appPath=GetProfileString$("LotusApplications","FLG") @Outline2@<:s><:#P30670848,P786432>if apppath != "" @Outline2@<:s><:#P30670848,P786432> defpath=GetPathFromName(apppath) @Outline2@<:s><:#P30670848,P786432> defname=strcat$(defpath, deffile) @Outline2@<:s><:#P30670848,P786432> launchResult=Exec(appPath,defname) @Outline2@<:s><:#P30670848,P786432>endif @Outline2@<:s><:#P30670848,P786432>Mac = GetRunningMacroFile$() @Outline2@<:s><:#P30670848,P786432>While launchResult<<33 @Outline2@<:s><:#P30670848,P786432> ' Prefill the box with info for this application @Outline2@<:s><:#P30670848,P786432> FillEdit(1001, NotFound) @Outline2@<:s><:#P30670848,P786432> FillEdit(1004, EnterPath) @Outline2@<:s><:#P30670848,P786432> FillEdit(8000, Path) @Outline2@<:s><:#P30670848,P786432> ' Create an init routine to set the caption on the dialog box @Outline2@<:s><:#P30670848,P786432> SetDlgCallBack(0, "{Mac}!InitDlg") @Outline2@<:s><:#P30670848,P786432> Box=DialogBox("Launch.dlg","Missouri") @Outline2@<:s><:#P30670848,P786432> if Box<<<;>1 @Outline2@<:s><:#P30670848,P786432> EXIT FUNCTION @Outline2@<:s><:#P30670848,P786432> endif @Outline2@<:s><:#P30670848,P786432> appPath=GetDialogField$(8000) @Outline2@<:s><:#P30670848,P786432> WriteProfileString("LotusApplications","FLG",appPath) @Outline2@<:s><:#P30670848,P786432> defpath=GetPathFromName(apppath) @Outline2@<:s><:#P30670848,P786432> defname=strcat$(defpath, deffile) @Outline2@<:s><:#P30670848,P786432> launchResult=Exec(appPath,defname) @Outline2@<:s><:#P30670848,P786432>WEND @Outline2@<:s><:#P30670848,P786432>end function @Outline2@<:s><:#P30670848,P786432> @Outline2@<:s><:#P30670848,P786432> @Function@<:s><:#P30670848,P912261>Function InitDlg(Hdlg) @Outline2@<:s><:#P30670848,P786432>' This routine is executed before the box is actually displayed - it is in memory @Outline2@<:s><:#P30670848,P786432>' Since all of the macros to launch applications share a dialog box, we need to set the caption @Outline2@<:s><:#P30670848,P786432>DlgSetCaption(Hdlg, Caption) @Outline2@<:s><:#P30670848,P786432>End Function <:s><:#P30670848,P943718> <:s><:#P30670848,P943718> @Function@<:s><:#P30670848,P912261>function GetPathFromName(filename) @Outline2@<:s><:#P30670848,P786432>defstr char; @Outline2@<:s><:#P30670848,P786432>Length = len(FileName) @Outline2@<:s><:#P30670848,P786432>WHILE PLAT_SLASH != Assign(&Char, MID$(FileName, Length, 1)) @Outline2@<:s><:#P30670848,P786432> Length = Length - 1 @Outline2@<:s><:#P30670848,P786432>WEND @Outline2@<:s><:#P30670848,P786432>InFileName = Right$(FileName, (len(FileName) - Length)) @Outline2@<:s><:#P30670848,P786432>InDir = Left$(FileName, Length - 1) @Outline2@<:s><:#P30670848,P786432>if right$(indir, 1) <<<;> PLAT_SLASH @Outline2@<:s><:#P30670848,P786432> indir = strcat$(indir, PLAT_SLASH) @Outline2@<:s><:#P30670848,P786432>endif @Outline2@<:s><:#P30670848,P786432>return indir @Outline2@<:s><:#P30670848,P786432>end function @Function@<:s><:#P30670848,P786432> > [Embedded] 00009069 > [macsum4] 3 28 FLG 0 0 7 11 InitDlg 1031 1 1 43 GetPathFromName 1123 1 5 50 [macse] 14 FLG 29 0 FLG 17 1 0 1032 "Freelance for OS/2" 13 11 00000115 17 2 0 38 "Freelance for OS/2" 6 0 15 9 17 5 29 1 appPath 0 286 "LotusApplications" "FLG" 13 8 1 17 6 6 1 7 "" 18 1 11 00000377 17 7 29 2 defpath 16 GetPathFromName "{1}" 13 8 2 17 8 29 3 defname 0 16 "{2}" "WORK\PRES.PRS" 13 8 3 17 9 29 4 launchResult 0 22 "{1}" "{3}" 13 8 4 17 11 29 5 Mac 0 802 13 8 5 17 12 6 4 5 33 18 5 11 00001012 17 14 0 31 1001 "Ami Pro cannot find Freelance for OS/2. If you have Freelance currently installed, please enter the path below." 17 15 0 31 1004 "Enter the path for Freelance for OS/2:" 17 16 0 31 8000 "C:\Flg\FLG.EXE" 17 18 0 41 0 "{5}!InitDlg" 17 19 29 6 Box 0 26 "Launch.dlg" "Missouri" 13 8 6 17 20 6 6 5 1 18 1 11 00000806 6 0 15 9 17 23 0 27 8000 13 8 1 17 24 0 287 "LotusApplications" "FLG" "{1}" 17 25 16 GetPathFromName "{1}" 13 8 2 17 26 0 16 "{2}" "WORK\PRES.PRS" 13 8 3 17 27 0 22 "{1}" "{3}" 13 8 4 10 00000410 6 0 15 17 29 9 14 InitDlg 29 0 Hdlg 29 1 InitDlg 17 3 0 75 "{0}" "Launch Freelance" 6 1 15 17 4 9 14 GetPathFromName 29 0 filename 29 1 GetPathFromName 17 1 29 2 char 17 2 29 3 Length 0 14 "{0}" 13 8 3 17 3 7 "\" 0 15 "{0}" "{3}" 1 13 0 805 &2 [X] 13 18 1 11 00000227 17 4 6 3 5 1 3 1 8 3 10 00000114 17 6 29 4 InFileName 0 14 "{0}" 13 6 3 3 1 0 807 "{0}" [X] 13 8 4 17 7 29 5 InDir 6 3 5 1 3 1 0 806 "{0}" [X] 13 8 5 17 8 0 807 "{5}" 1 13 7 "\" 18 1 11 00000443 17 9 0 16 "{5}" "\" 13 8 5 17 11 6 5 15 9 6 1 15 17 12 9 00009094