DefineGlobalConstant('kTapActionScript,func() begin GetRoot():notify(0,kAppName,"\nThis extension allows docking with 115200bps.\n\n\nŠ1997 Filip R. Zawadiak\nphilz@wasko.gliwice.pl"); nil; end); SetPartFrameSlot('tapAction,kTapActionScript); SetPartFrameSlot('text,kAppName); SetPartFrameSlot('icon,GetBMPasBits("icon.bmp",nil)); InstallScript := func(partFrame, removeFrame) begin RegDesktopConnTransport(kAppSymbol,{ name:"Fast Serial", useEOP:nil, openOptions:func() begin [ {label:"mnps",type:'service,opCode:512}, {label:"siop",type:'option,opCode:256,data:{ arglist:[k1StopBits,kNoParity,k8DataBits,k115200bps], typeList:[10,1,2,1,1]}}, {label:"mnpn",type:'option,opCode:256,data:{ arglist:[230400], typeList:[10,1]}}, {label:"mnpc",type:'option,opCode:512,data:{ arglist:[11], typeList:[10,1]}}, {label:"mnpa",type:'option,opCode:512,data:{ arglist:[true], typeList:[10,5]}}, {label:kCMOMNPDataRate,type:'option,opCode:256,data:{ arglist:[115200], typeList:[10,1]}} ] end }); end; RemoveScript := func(removeFrame) begin UnRegDesktopConnTransport(kAppSymbol); end;