Category : Windows 3.X Files
Archive   : ACTTIMS.ZIP
Filename : TIMSDIAL.CLS
inherit(Dialog, #TimsDialog, #(database), 2, nil)!!
now(class(TimsDialog))!!
now(TimsDialog)!!
Def getDB(self)
{
^database;
}
!!
/* By returning a 1 from the INITDIALOG message, we
are telling MS-Windows to set the input focus to
first tabstop item. (See MS-Windows Reference). */
Def initDialog(self, wP, lP)
{
errorIfNil(nil, #myError);
^1;
}!!
Def command(self, wp, lp)
{ select
case wp == IDI_CANCEL and high(lp) = 0
is end(self, 0);
endCase
case wp == IDI_OK and high(lp)= 0
is end(self, IDI_OK);
endCase
endSelect;
^0;
}!!
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/