|
|
| Returns No. of selected Line in List Window |
 |
| wn |
Window Number |
|
external procedure StripEndingSpaces(var string);
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,10);//taking left 10 characters of the string (depending how long it is)
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;
««