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;