home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 3 / Developers_Source_Vol_03_1996.iso / parad / jul95 / kada1f4.gif < prev    next >
Graphics Interchange Format  |  1996-01-31  |  11.3 KB  |  374x436  |  4-bit (5 colors)
   ocr: SMULFSL-xTolbar.proc proc EdltmenuResponse Logical var aChoice String sId Smallint endvar aChoice - IpopEdit.show( 5witch Cdse aChoice - aundoitAlt-BksP" sId - enueditundo case aChoice - "Cuatitshift+Del" sId - MenuEditCut case aChoice - "acopyitctrl-Ins" : sid = MenuEditCopy case aChoice - "&Pasteitshift+Ins" - - sid = MenuEditPaste otherwise : return True endswitch return active.menuaction sid ) endrroc Edit Line: 1 Col: 1