Category : Windows 3.X Files
Archive   : ACTTIMS.ZIP
Filename : KEYWORDD.CLS

/* class comment */!!

inherit(TimsDialog, #KeyWordDlg, nil, 2, nil)!!

now(class(KeyWordDlg))!!

now(KeyWordDlg)!!

Def view(self | dlg, tmpData)
{
tmpData := getLBText(self, IDI_LIST);
dlg := new(ViewInfoDlg, #keyword, tmpData);
^runModal(dlg, IDD_VIEWINFO, self);
}
!!

/* 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 | key)
{
database := getDB(parent);
key := new(KeyWordObj, getDB(parent));
first(key);
loop
while status(key) = S_OKAY begin
addLBText(self, IDI_LIST, physicalString(keyval(key)));
next(key);
endLoop;
^1;
}!!

Def command(self, wp, lp)
{ select
case wp == IDI_CANCEL and high(lp) = 0
is ^end(self, IDI_CANCEL);
endCase
case wp == IDI_VIEW and high(lp)= 0
is ^view(self);
endCase
case wp == IDI_LIST and high(lp) = LBN_DBLCLK
is ^view(self);
endCase
endSelect;
^0;
}!!