/* photoedit.pkg : editeur du plugin photo3 - march 00*/ /* rev September 2001 - by sebastien DENEUX */ typeof plugin=S;; typeof class=S;; proto save=fun [ [Inst r1] ] [[S r1] [S r1] [[S r1]r1] [[S r1]r1]];; fun save(l)= [ nil /* registerF */ nil /* register */ ("plugin"::plugin::nil)::nil /* supplemental Dat */ ("eventC"::(strcat class ".getPhoto")::nil):: ("action"::(strcat class ".update")::nil)::nil ];; fun IniPlug(file)= set plugin=file; set class=getInfo strextr _getpack _checkpack file "name"; PlugRegister class @save nil nil nil;;