home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1998 July & August
/
Pcwk78b98.iso
/
Smart30
/
ENGLISH
/
PRODUCTS
/
LOTUS009.DSK
/
LOTUSTIL.SMM
< prev
next >
Wrap
INI File
|
1993-06-25
|
30KB
|
1,986 lines
[ver]
4
[sty]
_macro.sty
[files]
[charset]
82
ANSI (Windows, IBM CP 1252)
[revisions]
0
[prn]
Apple LaserWriter Plus
[port]
LPT1:
[lang]
1
[desc]
Tile Lotus Applications
741035536
147
706294561
2090
9
0
0
0
0
1
[fopts]
0
1
0
0
[lnopts]
2
Body Text
1
[docopts]
5
2
[GramStyle]
[ParaNum]
1
[tag]
Body Text
2
[fnt]
Arial
240
0
16384
[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
0
0
0
[nfmt]
272
1
3
.
,
$
Body Text
0
0
[tag]
Body Single
3
[fnt]
Times New Roman
240
0
49152
[algn]
1
1
0
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
0
0
0
[nfmt]
280
1
2
.
,
$
Body Single
0
0
[tag]
Function
4
[fnt]
Arial
240
0
16385
[algn]
1
1
0
0
0
[spc]
33
244
1
0
0
1
100
[brk]
68
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
1
0
1
1
0
0
0
0
[nfmt]
272
1
3
.
,
$
Body Text
0
0
[tag]
Table Text
5
[fnt]
Arial
240
0
16384
[algn]
1
1
0
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
0
0
0
[nfmt]
272
1
3
.
,
$
Table Text
0
0
[lay]
Standard
516
[rght]
16833
11908
1
1440
1440
1
1440
1440
0
1
0
1
0
2
1
1440
10465
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]
1
11200
0
0
11908
1440
0
1
3
1 0 0 0 0 0 0
0
0
1
[frmlay]
1440
11908
1
1440
72
1
792
1440
0
1
0
1
1
0
1
1440
10465
1
3
9360
[txt]
>
[frght]
[lyfrm]
1
13248
0
15393
11908
16833
0
1
3
1 0 0 0 0 0 0
0
0
2
[frmlay]
16833
11908
1
1440
792
1
15465
1440
0
1
0
1
1
0
1
1440
10465
2
2
4680
3
9360
[txt]
>
[elay]
[l1]
0
[pg]
1
45 0 17 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
[edoc]
<:#284,9025>'macro by Charlie Pappas
<:#284,9025>
<:#284,9025><:X3,-32768;include "amixlate.sam!lotustil">'LOTUSTIL.SMM
<:#284,9025>define str500 "Lotus 1-2-3 Release 4"
<:#284,9025>define str501 "Freelance Graphics"
<:#284,9025>define str502 "Lotus Organizer"
<:#284,9025>define str503 "cc:Mail"
<:#284,9025>define str504 "Lotus Notes"
<:#284,9025>define str505 "Lotus Improv"
<:#284,9025>define str506 "SmarText"
<:#284,9025>define str507 "Lotus SmartPics"
<:#284,9025>define str508 "Lotus Dialog Editor"
<:#284,9025>define str509 "SmarText"
<:#284,9025>'END SECTION<:X~3,-32768;include "amixlate.sam!lotustil">
<:#284,9025>
<:#568,9025>define CreateFont() DllCall("gdi,CreateFont,HHHHHHHHHHHHHHC", %1, %2, %3, %4, %5, %6, %7, %8, %9, %10, %11, %12, %13, %14)
<:#284,9025>define DeleteObject(handle) DllCall("gdi,DeleteObject,HH", %1)
<:#568,9025>define SendMessage(hwnd, msg, wpara, lparm) DllCall("user,SendMessage,HHHHJ", %1, %2, %3, %4)
<:#284,9025>define WM_SETFONT 0x30
<:#284,9025>declare createdlgfont()
<:#284,9025>declare setfont(hdlg, id)
<:#284,9025>declare deletefont()
<:#284,9025>
<:#284,9025>Define IsWindowVisible(hWnd) DllCall("user,IsWindowVisible,HH", %1)
<:#284,9025>Define getsystemmetrics() dllcall("user,getsystemmetrics,HH", %1)
<:#284,9025>
<:#284,9025>Define FindWindow() DllCall("user,FindWindow,HCC", %1, %2)
<:#284,9025>Define Getfocus() DllCall("user,GetFocus,H")
<:#568,9025>Define MoveWindow() DllCall("User,MoveWindow,HHHHHHA",%1,%2,%3,%4,%5,%6)
<:#284,9025>Define SetFocus() DllCall("user,SetFocus,HH",%1)
<:#284,9025>Define ShowWindow(hWnd, stuff) DllCall("user,ShowWindow,HHH", %1, %2)
<:#568,9025>define WinHelpa(hWnd, file, cmd, ptr) DllCall("user,WinHelp,HHCHJ", %1, %2, %3, %4)
<:#284,9025>
<:#284,9025>define IsIconic(hWnd) DllCall("user,IsIconic,HH", %1)
<:#284,9025>
<:#284,9025>define SC_RESTORE 0xF120
<:#284,9025>define WM_SYSCOMMAND 0x0112
<:#284,9025>
<:#284,9025>declare salesmessage(p1)
<:#284,9025>declare smartext()
<:#284,9025>declare launchapp(app, tileway, which)
<:#284,9025>
<:#284,9025>
@Function@<:#293,9025>function tileapps()
<+@><:#284,9025>ignorekeyboard(1)
<:#284,9025>'singlestep(1)
<:#284,9025>opt = getprofilestring$("Tile Apps", "SelectAppHorzOpt", "amipro2.ini")
<:#284,9025>if opt = "h"
<:#284,9025> filledit(23, 1)
<:#284,9025>else
<:#284,9025> filledit(22, 1)
<:#284,9025>endif
<:#284,9025>app1 = getprofilestring$("Lotus Tiler", "App1", "amipro2.ini")
<:#284,9025>app2 = getprofilestring$("Lotus Tiler", "App2", "amipro2.ini")
<:#284,9025>if app1 = ""
<:#284,9025> app1 = 30
<:#284,9025> writeprofilestring("Lotus Tiler", "App1", app1, "amipro2.ini")
<:#284,9025>endif
<:#284,9025>if app2 = ""
<:#284,9025> app2 = 31
<:#284,9025> writeprofilestring("Lotus Tiler", "App2", app2, "amipro2.ini")
<:#284,9025>endif
<:#284,9025>writeprofilestring("Lotus Tiler", "App1Temp", app1, "amipro2.ini")
<:#284,9025>writeprofilestring("Lotus Tiler", "App2Temp", app2, "amipro2.ini")
<:#284,9025>filledit(app1, 1)
<:#284,9025>filledit(app2, 1)
<:#284,9025>app1 = ""
<:#284,9025>app2 = ""
<:#284,9025>rmac = getrunningmacrofile$()
<:#284,9025>for i = 30 to 39
<:#284,9025> SetDlgCallBack(i, "{rmac}!checkque")
<:#284,9025>next
<:#284,9025>SetDlgCallBack(0, "{rmac}!initdlg")
<:#284,9025>amidir = getamidirectory$()
<:#284,9025>filledit(1000, "{amidir}amipro.icn")
<:#284,9025>filledit(1009, "{amidir}123w.icn")
<:#284,9025>filledit(1010, "{amidir}flw.icn")
<:#284,9025>filledit(1011, "{amidir}organize.icn")
<:#284,9025>filledit(1012, "{amidir}ccmail.icn")
<:#284,9025>filledit(1013, "{amidir}notes.icn")
<:#284,9025>filledit(1014, "{amidir}improv.icn")
<:#284,9025>filledit(1015, "{amidir}smartext.icn")
<:#284,9025>filledit(1016, "{amidir}smartpic.icn")
<:#284,9025>filledit(1002, "{amidir}ltsdlged.icn")
<:#284,9025>dlgkeyinterrupt(<[>f1], "{rmac}!helpme")
<:#284,9025>if dialogbox(".", "box1") <<<;> 1
<:#284,9025> goto endit
<:#284,9025>endif
<:#284,9025>onerror endit
<:#284,9025>oncancel endit
<:#284,9025>for i = 30 to 39
<:#284,9025> if getdialogfield$(i)
<:#284,9025> app1 = i
<:#284,9025> writeprofilestring("Lotus Tiler", "App1", i, "amipro2.ini")
<:#284,9025> onlyone = 1
<:#284,9025> i = i + 1
<:#284,9025> for j = i to 39
<:#284,9025> if getdialogfield$(j)
<:#284,9025> app2 = j
<:#284,9025> writeprofilestring("Lotus Tiler", "App2", j, "amipro2.ini")
<:#284,9025> onlyone = 0
<:#284,9025> goto out
<:#284,9025> endif
<:#284,9025> next
<:#284,9025> endif
<:#284,9025>next
<:#284,9025>out:
<:#284,9025>if onlyone = 1
<:#284,9025> for i = 30 to 39
<:#284,9025> if getdialogfield$(i)
<:#284,9025> break
<:#284,9025> endif
<:#284,9025> next
<:#284,9025> launchapp(i, -1, 0)
<:#284,9025> return 1
<:#284,9025>endif
<:#284,9025>tileway = getdialogfield$(22)
<:#284,9025>if app1 <;> 0
<:#284,9025> launchapp(app1, tileway, 1)
<:#284,9025>endif
<:#284,9025>if app2 <;> 0
<:#284,9025> launchapp(app2, tileway, 2)
<:#284,9025>endif
<:#284,9025>endit:
<:#284,9025>deletefont()
<:#284,9025>end function
<:#284,9025>
<:#284,9025>
@Function@<:#293,9025>function helpme()
<:#568,9025>WinHelpa(FindWindow("AmiProWndA", 0), strcat$(GetAmiDirectory$(), "HelpPack.hlp"), 0x0001, 10)
<:#284,9025>end function
<:#284,9025>
<:#284,9025>
@Function@<:#293,9025>function initdlg(hdlg, id, value)
<:#284,9025>setfont(hdlg, 1001)
<:#284,9025>end function
<:#284,9025>
<:#284,9025>
@Function@<:#293,9025>function checkque(hdlg, id, value)
<:#284,9025>ignorekeyboard(1)
<:#284,9025>if value
<:#284,9025> app1 = getprofilestring$("Lotus Tiler", "App1Temp", "amipro2.ini")
<:#284,9025> app2 = getprofilestring$("Lotus Tiler", "App2Temp", "amipro2.ini")
<:#284,9025> if id <<<;> app1 and id <<<;> app2
<:#284,9025> SetDlgItemText(hdlg, app1, 0)
<:#284,9025> writeprofilestring("Lotus Tiler", "App1Temp", app2, "amipro2.ini")
<:#284,9025> writeprofilestring("Lotus Tiler", "App2Temp", id, "amipro2.ini")
<:#284,9025> endif
<:#284,9025>endif
<:#284,9025>end function
<:#284,9025>
<:#284,9025>
@Function@<+@><:#293,9025>function launchapp(app, tileway, which)
<+@><:#284,9025>ignorekeyboard(1)
<+@><:#284,9025>onerror endit
<+@><:#284,9025>oncancel endit
<+@><:#284,9025>switch app
<+@><:#284,9025> case 30
<:#284,9025> AppTitleBarName = ""
<:#284,9025> LotusIniAppName = "AMIPRO"
<:#284,9025> ClassName = "amiprownda"
<+@><:#284,9025> salesapp = 1
<+@><:#284,9025> case 31
<:#284,9025> AppTitleBarName = str500
<:#284,9025> LotusIniAppName = "123W"
<:#284,9025> ClassName = "123WParent"
<+@><:#284,9025> salesapp = 2
<+@><:#284,9025> case 32
<:#284,9025> AppTitleBarName = str501
<:#284,9025> LotusIniAppName = "FLW"
<:#284,9025> ClassName = "FLWApp"
<+@><:#284,9025> salesapp = 3
<+@><:#284,9025> case 33
<:#284,9025> AppTitleBarName = str502
<:#284,9025> LotusIniAppName = "Organize"
<:#284,9025> ClassName = "TZ_PORG"
<+@><:#284,9025> salesapp = 6
<+@><:#284,9025> case 34
<:#284,9025> AppTitleBarName = str503
<:#284,9025> LotusIniAppName = "ccmail"
<:#284,9025> ClassName = "wmFrame"
<+@><:#284,9025> salesapp = 9
<+@><:#284,9025> case 35
<:#284,9025> AppTitleBarName = str504
<:#284,9025> LotusIniAppName = "Notes"
<:#284,9025> ClassName = "Notes"
<+@><:#284,9025> salesapp = 4
<+@><:#284,9025> case 36
<:#284,9025> AppTitleBarName = str505
<:#284,9025> LotusIniAppName = "IMPROV"
<:#284,9025> ClassName = "bbw:0"
<+@><:#284,9025> salesapp = 5
<+@><:#284,9025> case 37
<:#284,9025> AppTitleBarName = str506
<+@><:#284,9025> if smartext() <<<;> 1
<+@><:#284,9025> salesmessage(8)
<+@><:#284,9025> endif
<+@><:#284,9025> return 1
<+@><:#284,9025> case 38
<:#284,9025> AppTitleBarName = str507
<:#284,9025> LotusIniAppName = "SMARTPIC "
<:#284,9025> ClassName = "smartpics"
<+@><:#284,9025> salesapp = 7
<+@><:#284,9025> case 39
<:#284,9025> AppTitleBarName = str508
<:#284,9025> ClassName = "Lotus Dialog Editor"
<:#284,9025> hwnd = findwindow(classname, 0)
<:#284,9025> if activateapp(AppTitleBarName)
<:#284,9025> if isiconic(hwnd)
<:#568,9025> appsendmessage(hwnd, WM_SYSCOMMAND, SC_RESTORE, 0)
<+@><:#284,9025> endif
<+@><:#284,9025> goto readytotile
<+@><:#284,9025> endif
<:#568,9025> execpath = getprofilestring$("Dialog Editor", "Program Path", "lotus.ini")
<:#284,9025> if exec(strcat$(execpath, "\ltsdlged.exe"), "") << 32
<:#284,9025> salesmessage(10)
<:#284,9025> return 0
<:#284,9025> endif
<:#284,9025> goto readytotile
<+@><:#284,9025>endswitch
<:#284,9025>hwnd = findwindow(classname, 0)
<:#284,9025>if hwnd <;> 1
<:#284,9025> activateapp(AppTitleBarName)
<+@><:#284,9025> showwindow(hwnd, 9)
<:#284,9025> goto readytotile
<:#284,9025>endif
<:#284,9025>app = GetProfileString$("Lotus Applications", LotusIniAppName, "lotus.ini")
<:#284,9025>if app = ""
<:#284,9025> salesmessage(salesapp)
<:#284,9025> return 0
<:#284,9025>endif
<:#284,9025>appexecname = strfield$(app, 1, ".")
<:#284,9025>appexecname = strcat$(appexecname, ".exe")
<:#284,9025>if Exec(appexecname, "") << 32
<:#284,9025> salesmessage(salesapp)
<:#284,9025> return 0
<:#284,9025>else
<:#284,9025> hwnd = findwindow(classname, 0)
<:#284,9025> if hwnd <;> 1
<:#284,9025> activateapp(AppTitleBarName)
<+@><:#284,9025> showwindow(hwnd, 9)
<+@><:#284,9025> goto readytotile
<+@><:#284,9025> endif
<:#284,9025>endif
<+@><:#284,9025>
<+@><:#284,9025>readytotile:
<:#284,9025>app = apptitlebarname
<:#284,9025>if tileway = -1
<:#284,9025> activateapp(app)
<:#284,9025> return 1
<:#284,9025>endif
<:#284,9025>if which = 2
<:#284,9025> if tileway
<:#284,9025> writeprofilestring("Tile Apps", "SelectAppHorzOpt", "v", "amipro2.ini")
<:#284,9025> appsize(app, 50, 100)
<:#284,9025> appmove(app, 50, 0)
<:#284,9025> else
<:#284,9025> writeprofilestring("Tile Apps", "SelectAppHorzOpt", "h", "amipro2.ini")
<:#284,9025> appsize(app, 100, 50)
<:#284,9025> appmove(app, 0, 50)
<:#284,9025> endif
<:#284,9025>else
<:#284,9025> if tileway
<:#284,9025> writeprofilestring("Tile Apps", "SelectAppHorzOpt", "v", "amipro2.ini")
<:#284,9025> appsize(app, 50, 100)
<:#284,9025> appmove(app, 0, 0)
<:#284,9025> else
<:#284,9025> writeprofilestring("Tile Apps", "SelectAppHorzOpt", "h", "amipro2.ini")
<:#284,9025> appsize(app, 100, 50)
<:#284,9025> appmove(app, 0, 0)
<:#284,9025> endif
<:#284,9025>endif
<+@><:#284,9025>return 1
<+@><:#284,9025>endit:
<+@><:#284,9025>return 0
<+@><:#284,9025>end function
<+@><:#284,9025>
<+@><:#284,9025>
@Function@<+@><:#293,9025>function salesmessage(appname)
<+@><:#284,9025>ignorekeyboard(1)
<+@><:#284,9025>amidir = getamidirectory$()
<+@><:#284,9025>macro = "{amidir}lotuspal.smm!salesmsg"
<+@><:#284,9025>calli macro(appname)
<+@><:#284,9025>end function
<+@><:#284,9025>
<+@><:#284,9025>
@Function@<:#293,9025>function smartext()
<:#284,9025>ignorekeyboard(1)
<:#284,9025>app = "reader.exe"
<:#284,9025>appname = str509
<:#284,9025>defdir = "c:\smartext" ' DEFAULT INSTALL PATH, DON'T CHANGE
<:#284,9025>ignorekeyboard(2)
<:#284,9025>declare missouri(xapp) ' <:f200,QCourier,0,0,255>declare user defined functions
<:#284,9025>declare getprofile(xappname)
<:#284,9025>declare writeprofile(path, xappname)
<:#284,9025>declare tryit(path, xapp)
<:#284,9025>defstr path;
<:#284,9025>
<:#284,9025>if appisrunning(appname) ' <:f200,QCourier,0,0,255>first see if app is already running
<:#284,9025> activateapp(appname) ' <:f200,QCourier,0,0,255>if the app is running, just activate it
<:#284,9025> apprestore(appname) ' <:f200,QCourier,0,0,255>make sure it is not minimized<:f>
<:#284,9025> return 1
<:#284,9025>endif
<:#284,9025>if 0 = doschdir(defdir) ' <:f200,QCourier,0,0,255>try and change to the default directory for launch
<:#284,9025> if tryit("", app) <;> 31
<:#284,9025> return 1
<:#284,9025> endif
<:#284,9025>endif
<:#284,9025>if tryit(getprofile(appname), app) <;> 31 ' <:f200,QCourier,0,0,255>if we launch, get out<:f>
<:#284,9025> return 1
<:#284,9025>endif
<:#284,9025>again:
<:#284,9025>if assign(&path, missouri(app)) <<<;> 0 ' <:f200,QCourier,0,0,255>show me where the exe is
<:#284,9025> if tryit(path, app) <;> 31
<:#284,9025> writeprofile(path, appname)
<:#284,9025> else
<:#284,9025> goto again
<:#284,9025> endif
<:#284,9025>endif
<:#284,9025>end function
<:#284,9025>
@Function@<:#293,9025>function tryit(path, app) ' <:f200,QCourier,0,0,255>this function attemts to exec the app
<:#284,9025>doschdir(path)
<:#284,9025>return exec(strcat$(path, app), "")
<:#284,9025>end function
<:#284,9025>
@Function@<:#293,9025>function writeprofile(path, appname) ' <:f200,QCourier,0,0,255>save the path if exec works
<:#284,9025>writeprofilestring("LotusApps", appname, path, "amipro2.ini")
<:#284,9025>end function
<:#284,9025>
@Function@<:#293,9025>function getprofile(appname) ' <:f200,QCourier,0,0,255>get the path of successful exec
<:#284,9025>defstr path;
<:#284,9025>if assign(&path, getprofilestring$("LotusApps", appname, "amipro2.ini")) <<<;> ""
<:#284,9025> return path
<:#284,9025>endif
<:#284,9025>return getprofilestring$("LotusApps", appname, "amipro.ini")
<:#284,9025>end function
<:#284,9025>
@Function@<:#293,9025>function missouri(app) ' <:f200,QCourier,0,0,255>ask user for location of exe
<:#284,9025>defstr box;
<:#284,9025>filledit(9001, "*.exe")
<:#284,9025>filledit(8007, app)
<:#284,9025>if assign(&box, dialogbox(".", "findapp")) <<<;> 1
<:#284,9025> return 0
<:#284,9025>endif
<:#284,9025>return getcurrentdir$()
<:#284,9025>end function
<:#284,9025>
<:#284,9025>
@Function@<:#293,9025>DIALOG findapp
<:#284,9025>-2134376448 7 70 35 200 97 "" "" "Find Application"
<:#284,9025>FONT 8 "Helv"
<:#284,9025>7 34 59 8 1000 1342177280 "static" "&Program path:" 0
<:#284,9025>6 45 60 44 9001 1352728579 "listbox" "" 0
<:#284,9025>155 5 40 14 1 1342373889 "button" "OK" 0
<:#284,9025>155 21 40 14 2 1342373888 "button" "Cancel" 0
<:#284,9025>68 34 80 8 7999 1342177280 "static" "" 0
<:#284,9025>7 6 142 9 1006 1342177280 "static" "Change into the directory that contains" 0
<:#284,9025>7 16 107 8 8007 1342177280 "static" "" 0
<:#284,9025>END DIALOG
<:#284,9025>
<:#284,9025>
@Function@<:#293,9025>DIALOG box1
<:#568,9025>-2134376448 26 86 27 181 184 "" "amidialog" "Lotus Application Tiler"
<:#284,9025>FONT 8 "Helv"
<:#568,9025>5 4 97 17 1001 1342308352 "static" "Select the two Lotus applications you would like to tile." 0
<:#284,9025>6 34 18 16 1000 1342177290 "static" "amipro.icn" 0
<:#284,9025>30 37 45 14 30 1342242819 "button" "&Ami Pro" 0
<:#284,9025>6 56 18 16 1009 1342177290 "static" "123w.icn" 0
<:#284,9025>30 59 45 14 31 1342242819 "button" "&1-2-3" 0
<:#284,9025>6 78 18 16 1010 1342177290 "static" "flw.icn" 0
<:#284,9025>30 81 45 14 32 1342242819 "button" "&Freelance" 0
<:#284,9025>6 100 18 16 1011 1342177290 "static" "organize.icn" 0
<:#284,9025>30 103 45 14 33 1342242819 "button" "&Organizer" 0
<:#284,9025>6 122 18 16 1012 1342177290 "static" "ccmail.icn" 0
<:#284,9025>30 125 45 14 34 1342242819 "button" "&cc:Mail" 0
<:#284,9025>90 34 18 16 1013 1342177290 "static" "notes.icn" 0
<:#284,9025>114 37 45 14 35 1342242819 "button" "&Notes" 0
<:#284,9025>90 56 18 16 1014 1342177290 "static" "improv.icn" 0
<:#284,9025>114 59 45 14 36 1342242819 "button" "&Improv" 0
<:#284,9025>90 78 18 16 1015 1342177290 "static" "smartext.icn" 0
<:#284,9025>114 81 45 14 37 1342242819 "button" "&SmarText" 0
<:#284,9025>90 100 18 16 1016 1342177290 "static" "smartpic.icn" 0
<:#284,9025>114 103 45 14 38 1342242819 "button" "Smart&Pics" 0
<:#284,9025>90 122 18 16 1002 1342177290 "static" "ltsdlged.icn" 0
<:#284,9025>114 125 60 14 39 1342242819 "button" "&Dialog Editor" 0
<:#284,9025>5 144 69 35 20 1342308359 "button" "Tile" 0
<:#284,9025>10 153 58 12 22 1342242825 "button" "&Vertically" 0
<:#284,9025>10 166 58 12 23 1342242825 "button" "&Horizontally" 0
<:#284,9025>136 3 40 14 1 1342373889 "button" "OK" 0
<:#284,9025>136 19 40 14 2 1342373888 "button" "Cancel" 0
<:#284,9025>END DIALOG
<:#284,9025>
<:#284,9025>
@Function@<:#293,9025>function createdlgfont()
<:#284,9025>ignorekeyboard(1)
<:#284,9025>rmac = getrunningmacrofile$()
<:#284,9025>hfont = CreateFont(13, 0, 0, 0, 400, 0, 0, 0, 0, 0, 0, 0, 32, "Helv")
<:#284,9025>if hfont <;> 1
<:#284,9025> AllocGlobalVar("{rmac}hfont", 1)
<:#284,9025> SetGlobalVar("{rmac}hfont", hFont)
<:#284,9025> Return hfont
<:#284,9025>endif
<:#284,9025>End Function
<:#284,9025>
<:#284,9025>
@Function@<:#293,9025>function deletefont()
<:#284,9025>ignorekeyboard(1)
<:#284,9025>rmac = getrunningmacrofile$()
<:#284,9025>AllocGlobalVar("{rmac}hfont", 1)
<:#284,9025>hfont = getglobalvar$("{rmac}hfont")
<:#284,9025>if hfont <;> 1
<:#284,9025> deleteobject(hfont)
<:#284,9025> freeglobalvar("{rmac}hfont")
<:#284,9025>endif
<:#284,9025>end function
<:#284,9025>
<:#284,9025>
@Function@<:#293,9025>function setfont(hdlg, id)
<:#284,9025>ignorekeyboard(1)
<:#284,9025>rmac = getrunningmacrofile$()
<:#284,9025>AllocGlobalVar("{rmac}hfont", 1)
<:#284,9025>hfont = getglobalvar$("{rmac}hfont")
<:#284,9025>if hfont << 1
<:#284,9025> if createdlgfont() << 1
<:#284,9025> return 0
<:#284,9025> endif
<:#284,9025>endif
<:#284,9025>hfont = getglobalvar$("{rmac}hfont")
<:#284,9025>SendMessage(GetDlgITem(Hdlg, id), WM_SETFONT, hfont, 0)
<:#284,9025>end function
<:#284,9025>
<:#284,9025>
>
[Embedded]
00021187
>
[macsum] 16
tileapps 0 0 10 43
helpme 1935 0 1 128
initdlg 2087 3 1 133
checkque 2134 3 3 138
launchapp 2469 3 8 152
salesmessage 5106 1 3 278
smartext 5210 0 5 286
tryit 5740 2 1 321
writeprofile 5821 2 1 326
getprofile 5895 1 2 330
missouri 6069 1 2 338
findapp 6226 0 -1 349
box1 6670 0 -1 362
createdlgfont 8175 0 3 394
deletefont 8399 0 3 406
setfont 8579 2 3 418
[macse]
14 tileapps
0 32 1
0 286 "Tile Apps" "SelectAppHorzOpt" "amipro2.ini"
13
8 1
6 1
7 "h"
18 0
11 00000137
0 31 23 1
10 00000148
0 31 22 1
0 286 "Lotus Tiler" "App1" "amipro2.ini"
13
8 2
0 286 "Lotus Tiler" "App2" "amipro2.ini"
13
8 3
6 2
7 ""
18 0
11 00000339
5 30
8 2
0 287 "Lotus Tiler" "App1" "{2}" "amipro2.ini"
6 3
7 ""
18 0
11 00000428
5 31
8 3
0 287 "Lotus Tiler" "App2" "{3}" "amipro2.ini"
0 287 "Lotus Tiler" "App1Temp" "{2}" "amipro2.ini"
0 287 "Lotus Tiler" "App2Temp" "{3}" "amipro2.ini"
0 31 "{2}" 1
0 31 "{3}" 1
7 ""
8 2
7 ""
8 3
0 802
13
8 4
5 30
8 5
5 39
6 5
18 2
12 00000685
10 00000725
5 1
6 5
3 0
8 5
10 00000609
0 41 "{5}" "{4}!checkque"
10 00000652
0 41 0 "{4}!initdlg"
0 798
13
8 6
0 31 1000 "{6}amipro.icn"
0 31 1009 "{6}123w.icn"
0 31 1010 "{6}flw.icn"
0 31 1011 "{6}organize.icn"
0 31 1012 "{6}ccmail.icn"
0 31 1013 "{6}notes.icn"
0 31 1014 "{6}improv.icn"
0 31 1015 "{6}smartext.icn"
0 31 1016 "{6}smartpic.icn"
0 31 1002 "{6}ltsdlged.icn"
0 47 112 "{4}!helpme"
0 26 "." "box1"
13
5 1
18 1
11 00001116
10 00001908
20 00001908
19 00001908
5 30
8 5
5 39
6 5
18 2
12 00001229
10 00001568
5 1
6 5
3 0
8 5
10 00001153
0 27 "{5}"
13
11 00001555
6 5
8 2
0 287 "Lotus Tiler" "App1" "{5}" "amipro2.ini"
5 1
8 7
6 5
5 1
3 0
8 5
6 5
8 8
5 39
6 8
18 2
12 00001432
10 00001555
5 1
6 8
3 0
8 8
10 00001356
0 27 "{8}"
13
11 00001542
6 8
8 3
0 287 "Lotus Tiler" "App2" "{8}" "amipro2.ini"
5 0
8 7
10 00001568
10 00001399
10 00001196
6 7
5 1
18 0
11 00001776
5 30
8 5
5 39
6 5
18 2
12 00001684
10 00001739
5 1
6 5
3 0
8 5
10 00001608
0 27 "{5}"
13
11 00001726
10 00001739
10 00001651
16 launchapp "{5}" -1 0
5 1
15
9
0 27 22
13
8 9
6 2
5 0
18 3
11 00001851
16 launchapp "{2}" "{9}" 1
6 3
5 0
18 3
11 00001908
16 launchapp "{3}" "{9}" 2
16 deletefont
6 0
15
9
14 helpme
0 284 "user,FindWindow,HCC" "AmiProWndA" 0
13
0 798
13
0 16 [X] "HelpPack.hlp"
13
0 284 "user,WinHelp,HHCHJ" [X] [X] 1 10
6 0
15
9
14 initdlg
16 setfont "{0}" 1001
6 3
15
9
14 checkque
0 32 1
6 2
11 00000323
0 286 "Lotus Tiler" "App1Temp" "amipro2.ini"
13
8 4
0 286 "Lotus Tiler" "App2Temp" "amipro2.ini"
13
8 5
6 1
6 4
18 1
6 1
6 5
18 1
1 1
11 00000323
0 43 "{0}" "{4}" 0
0 287 "Lotus Tiler" "App1Temp" "{5}" "amipro2.ini"
0 287 "Lotus Tiler" "App2Temp" "{1}" "amipro2.ini"
6 3
15
9
14 launchapp
0 32 1
20 00002613
19 00002613
5 30
6 0
18 0
11 00000150
7 ""
8 4
7 "AMIPRO"
8 5
7 "amiprownda"
8 6
5 1
8 7
10 00001506
5 31
6 0
18 0
11 00000271
7 "Lotus 1-2-3 Release 4"
8 4
7 "123W"
8 5
7 "123WParent"
8 6
5 2
8 7
10 00001506
5 32
6 0
18 0
11 00000384
7 "Freelance Graphics"
8 4
7 "FLW"
8 5
7 "FLWApp"
8 6
5 3
8 7
10 00001506
5 33
6 0
18 0
11 00000500
7 "Lotus Organizer"
8 4
7 "Organize"
8 5
7 "TZ_PORG"
8 6
5 6
8 7
10 00001506
5 34
6 0
18 0
11 00000606
7 "cc:Mail"
8 4
7 "ccmail"
8 5
7 "wmFrame"
8 6
5 9
8 7
10 00001506
5 35
6 0
18 0
11 00000713
7 "Lotus Notes"
8 4
7 "Notes"
8 5
7 "Notes"
8 6
5 4
8 7
10 00001506
5 36
6 0
18 0
11 00000822
7 "Lotus Improv"
8 4
7 "IMPROV"
8 5
7 "bbw:0"
8 6
5 5
8 7
10 00001506
5 37
6 0
18 0
11 00000956
7 "SmarText"
8 4
16 smartext
13
5 1
18 1
11 00000931
16 salesmessage 8
5 1
15
9
10 00001506
5 38
6 0
18 0
11 00001075
7 "Lotus SmartPics"
8 4
7 "SMARTPIC "
8 5
7 "smartpics"
8 6
5 7
8 7
10 00001506
5 39
6 0
18 0
11 00001506
7 "Lotus Dialog Editor"
8 4
7 "Lotus Dialog Editor"
8 6
0 284 "user,FindWindow,HCC" "{6}" 0
13
8 8
0 38 "{4}"
13
11 00001328
0 284 "user,IsIconic,HH" "{8}"
13
11 00001315
0 1036 "{8}" 274 61728 0
10 00002051
0 286 "Dialog Editor" "Program Path" "lotus.ini"
13
8 9
0 16 "{9}" "\ltsdlged.exe"
13
0 22 [X] ""
13
5 32
18 5
11 00001493
16 salesmessage 10
5 0
15
9
10 00002051
0 284 "user,FindWindow,HCC" "{6}" 0
13
8 8
6 8
5 1
18 3
11 00001643
0 38 "{4}"
0 284 "user,ShowWindow,HHH" "{8}" 9
10 00002051
0 286 "Lotus Applications" "{5}" "lotus.ini"
13
8 0
6 0
7 ""
18 0
11 00001763
16 salesmessage "{7}"
5 0
15
9
0 20 "{0}" 1 "."
13
8 10
0 16 "{10}" ".exe"
13
8 10
0 22 "{10}" ""
13
5 32
18 5
11 00001914
16 salesmessage "{7}"
5 0
15
9
10 00002051
0 284 "user,FindWindow,HCC" "{6}" 0
13
8 8
6 8
5 1
18 3
11 00002051
0 38 "{4}"
0 284 "user,ShowWindow,HHH" "{8}" 9
10 00002051
6 4
8 0
6 1
5 -1
18 0
11 00002115
0 38 "{0}"
5 1
15
9
6 2
5 2
18 0
11 00002380
6 1
11 00002271
0 287 "Tile Apps" "SelectAppHorzOpt" "v" "amipro2.ini"
0 1026 "{0}" 50 100
0 1025 "{0}" 50 0
10 00002367
0 287 "Tile Apps" "SelectAppHorzOpt" "h" "amipro2.ini"
0 1026 "{0}" 100 50
0 1025 "{0}" 0 50
10 00002601
6 1
11 00002506
0 287 "Tile Apps" "SelectAppHorzOpt" "v" "amipro2.ini"
0 1026 "{0}" 50 100
0 1025 "{0}" 0 0
10 00002601
0 287 "Tile Apps" "SelectAppHorzOpt" "h" "amipro2.ini"
0 1026 "{0}" 100 50
0 1025 "{0}" 0 0
5 1
15
9
5 0
15
9
6 3
15
9
14 salesmessage
0 32 1
0 798
13
8 2
7 "{2}lotuspal.smm!salesmsg"
8 3
16 "{3}" "{0}"
6 1
15
9
14 smartext
0 32 1
7 "reader.exe"
8 1
7 "SmarText"
8 2
7 "c:\smartext"
8 3
0 32 2
0 1032 "{2}"
13
11 00000160
0 38 "{2}"
0 1031 "{2}"
5 1
15
9
5 0
0 781 "{3}"
13
18 0
11 00000261
16 tryit "" "{1}"
13
5 31
18 3
11 00000261
5 1
15
9
16 getprofile "{2}"
13
16 tryit [X] "{1}"
13
5 31
18 3
11 00000347
5 1
15
9
16 missouri "{1}"
13
0 805 &4 [X]
13
5 0
18 1
11 00000518
16 tryit "{4}" "{1}"
13
5 31
18 3
11 00000505
16 writeprofile "{4}" "{2}"
10 00000518
10 00000347
6 0
15
9
14 tryit
0 781 "{0}"
0 16 "{0}" "{1}"
13
0 22 [X] ""
13
15
9
6 2
15
9
14 writeprofile
0 287 "LotusApps" "{1}" "{0}" "amipro2.ini"
6 2
15
9
14 getprofile
0 286 "LotusApps" "{0}" "amipro2.ini"
13
0 805 &2 [X]
13
7 ""
18 1
11 00000113
6 2
15
9
0 286 "LotusApps" "{0}" "amipro.ini"
13
15
9
6 1
15
9
14 missouri
0 31 9001 "*.exe"
0 31 8007 "{0}"
0 26 "." "findapp"
13
0 805 &2 [X]
13
5 1
18 1
11 00000127
5 0
15
9
0 290
13
15
9
6 1
15
9
DIALOG findapp
-2134376448 7 70 35 200 97 "" "" "Find Application"
FONT 8 "Helv"
7 34 59 8 1000 1342177280 "static" "&Program path:" 0
6 45 60 44 9001 1352728579 "listbox" "" 0
155 5 40 14 1 1342373889 "button" "OK" 0
155 21 40 14 2 1342373888 "button" "Cancel" 0
68 34 80 8 7999 1342177280 "static" "" 0
7 6 142 9 1006 1342177280 "static" "Change into the directory that contains" 0
7 16 107 8 8007 1342177280 "static" "" 0
DIALOG box1
-2134376448 26 86 27 181 184 "" "amidialog" "Lotus Application Tiler"
FONT 8 "Helv"
5 4 97 17 1001 1342308352 "static" "Select the two Lotus applications you would like to tile." 0
6 34 18 16 1000 1342177290 "static" "amipro.icn" 0
30 37 45 14 30 1342242819 "button" "&Ami Pro" 0
6 56 18 16 1009 1342177290 "static" "123w.icn" 0
30 59 45 14 31 1342242819 "button" "&1-2-3" 0
6 78 18 16 1010 1342177290 "static" "flw.icn" 0
30 81 45 14 32 1342242819 "button" "&Freelance" 0
6 100 18 16 1011 1342177290 "static" "organize.icn" 0
30 103 45 14 33 1342242819 "button" "&Organizer" 0
6 122 18 16 1012 1342177290 "static" "ccmail.icn" 0
30 125 45 14 34 1342242819 "button" "&cc:Mail" 0
90 34 18 16 1013 1342177290 "static" "notes.icn" 0
114 37 45 14 35 1342242819 "button" "&Notes" 0
90 56 18 16 1014 1342177290 "static" "improv.icn" 0
114 59 45 14 36 1342242819 "button" "&Improv" 0
90 78 18 16 1015 1342177290 "static" "smartext.icn" 0
114 81 45 14 37 1342242819 "button" "&SmarText" 0
90 100 18 16 1016 1342177290 "static" "smartpic.icn" 0
114 103 45 14 38 1342242819 "button" "Smart&Pics" 0
90 122 18 16 1002 1342177290 "static" "ltsdlged.icn" 0
114 125 60 14 39 1342242819 "button" "&Dialog Editor" 0
5 144 69 35 20 1342308359 "button" "Tile" 0
10 153 58 12 22 1342242825 "button" "&Vertically" 0
10 166 58 12 23 1342242825 "button" "&Horizontally" 0
136 3 40 14 1 1342373889 "button" "OK" 0
136 19 40 14 2 1342373888 "button" "Cancel" 0
14 createdlgfont
0 32 1
0 802
13
8 1
0 284 "gdi,CreateFont,HHHHHHHHHHHHHHC" 13 0 0 0 400 0 0 0 0 0 0 0 0 "Helv"
13
8 2
6 2
5 1
18 3
11 00000212
0 271 "{1}hfont" 1
0 264 "{1}hfont" "{2}"
6 2
15
9
6 0
15
9
14 deletefont
0 32 1
0 802
13
8 1
0 271 "{1}hfont" 1
0 265 "{1}hfont"
13
8 2
6 2
5 1
18 3
11 00000168
0 284 "gdi,DeleteObject,HH" "{2}"
0 266 "{1}hfont"
6 0
15
9
14 setfont
0 32 1
0 802
13
8 3
0 271 "{3}hfont" 1
0 265 "{3}hfont"
13
8 4
6 4
5 1
18 5
11 00000170
16 createdlgfont
13
5 1
18 5
11 00000170
5 0
15
9
0 265 "{3}hfont"
13
8 4
0 44 "{0}" "{1}"
13
0 284 "user,SendMessage,HHHHJ" [X] 48 "{4}" 0
6 2
15
9
00021212