|
|
| Get the mother window number |
global
Function Boolean PasteMDescSClassOnOKWindow(Integer wn)
begin
Integer mwn;
string 60 tstr;
mwn = MotherWindow(wn);//get mother window number
if (SelectedListLine(wn)>=0) then begin//check if something selected
tstr = GetListString(wn,SelectedListLine(wn));//getting selectied line
tstr = left(tstr,5);//taking left 10 characters of the string
StripEndingSpaces(tstr);//taking away ending spaces
end else begin
tstr="";
end;
CloseWindow(wn);//closing paste special window
PasteString(mwn,tstr);//pasting into mother window
PasteMdescSClassOnOKWindow = false;
return;
end;
««
