Sequencers - Revision history

Robert: /* Hot to do something after view was closed? */

2017-03-28T20:38:23Z

Hot to do something after view was closed?

← Older revision		Revision as of 20:38, 28 March 2017
Line 1:		Line 1:
	== ~~Hot~~ to do something after view was closed? ==		== How to do something after view was closed? ==

	Robert Campbell		Robert Campbell
Line 26:		Line 26:
	v.Domain().GetSequencer()(Sequencers.Sequencer).InstallNotifier(cNotif)		v.Domain().GetSequencer()(Sequencers.Sequencer).InstallNotifier(cNotif)
	END;		END;


	== How to disable the window close? ==		== How to disable the window close? ==

Ivan denisov at 04:15, 18 March 2017

2017-03-18T04:15:42Z

← Older revision		Revision as of 04:15, 18 March 2017
Line 1:		Line 1:
	== Do something if view is closed? ==		== Hot to do something after view was closed? ==

	Robert Campbell		Robert Campbell

Ivan denisov at 04:15, 18 March 2017

2017-03-18T04:15:03Z

← Older revision		Revision as of 04:15, 18 March 2017
Line 1:		Line 1:
	== Do something if view is closed? ==		== Do something if view is closed? ==

			Robert Campbell

	TYPE		TYPE

Ivan denisov at 04:14, 18 March 2017

2017-03-18T04:14:31Z

← Older revision		Revision as of 04:14, 18 March 2017
Line 5:		Line 5:
	plotId: INTEGER		plotId: INTEGER
	END;		END;

	PROCEDURE (c : CloseNotifier) Notify (VAR msg : Sequencers.Message);		PROCEDURE (c : CloseNotifier) Notify (VAR msg : Sequencers.Message);
	BEGIN		BEGIN
Line 13:		Line 13:
	END Notify;		END Notify;
	...		...

	VAR		VAR
	cNotif: CloseNotifier;		cNotif: CloseNotifier;

Ivan denisov at 04:14, 18 March 2017

2017-03-18T04:14:19Z

← Older revision		Revision as of 04:14, 18 March 2017
Line 1:		Line 1:
			== Do something if view is closed? ==

			TYPE
			CloseNotifier = POINTER TO RECORD (Sequencers.Notifier)
			plotId: INTEGER
			END;

			PROCEDURE (c : CloseNotifier) Notify (VAR msg : Sequencers.Message);
			BEGIN
			WITH msg : Sequencers.CloseMsg DO
			###########
			ELSE END
			END Notify;
			...

	== How to disable the window close ==		VAR
			cNotif: CloseNotifier;
			BEGIN
			c := Containers.Focus ();
			IF c # NIL THEN c.GetFirstView (Containers.any, v) END;

			IF (v # NIL) & (v IS Plotters.View) THEN
			NEW (cNotif); cNotif.plotId := 1;
			v.Domain().GetSequencer()(Sequencers.Sequencer).InstallNotifier(cNotif)
			END;


			== How to disable the window close? ==

Ivan denisov at 04:07, 18 March 2017

2017-03-18T04:07:52Z

← Older revision	Revision as of 04:07, 18 March 2017
Line 1:	Line 1:



		== How to disable the window close ==

Ivan denisov at 04:07, 18 March 2017

2017-03-18T04:07:12Z

← Older revision		Revision as of 04:07, 18 March 2017
Line 13:		Line 13:
	\| msg: Sequencers.CloseMsg DO		\| msg: Sequencers.CloseMsg DO
	Dialog.Beep;		Dialog.Beep;
	Dialog.GetOK("#Mondig:ATTENTION: Exit will stop data recording!!! Stop anyway? ", "", "", "", {Dialog.yes, Dialog.no, Dialog.cancel}, res);		Dialog.GetOK("#Mondig:ATTENTION: Exit will stop data recording!!! Stop anyway? ",
			"", "", "", {Dialog.yes, Dialog.no, Dialog.cancel}, res);
	IF ~(res = Dialog.yes) THEN		IF ~(res = Dialog.yes) THEN
	msg.sticky := TRUE;		msg.sticky := TRUE;

Ivan denisov at 04:06, 18 March 2017

2017-03-18T04:06:50Z

← Older revision		Revision as of 04:06, 18 March 2017
Line 5:		Line 5:

	TYPE		TYPE
	CloseNotifier = POINTER TO RECORD (Sequencers.Notifier) END;		CloseNotifier = POINTER TO RECORD (Sequencers.Notifier) END;

	PROCEDURE (n: CloseNotifier) Notify (VAR msg: Sequencers.Message);		PROCEDURE (n: CloseNotifier) Notify (VAR msg: Sequencers.Message);
	VAR res: INTEGER;		VAR res: INTEGER;
	BEGIN		BEGIN
	WITH		WITH
	\| msg: Sequencers.CloseMsg DO		\| msg: Sequencers.CloseMsg DO
	Dialog.Beep;		Dialog.Beep;
	Dialog.GetOK("#Mondig:ATTENTION: Exit will stop data recording!!! Stop anyway? ", "", "", "", {Dialog.yes, Dialog.no, Dialog.cancel}, res);		Dialog.GetOK("#Mondig:ATTENTION: Exit will stop data recording!!! Stop anyway? ", "", "", "", {Dialog.yes, Dialog.no, Dialog.cancel}, res);
	IF ~(res = Dialog.yes) THEN		IF ~(res = Dialog.yes) THEN
	msg.sticky := TRUE;		msg.sticky := TRUE;
	END;		END;
	ELSE		ELSE
	END;		END;
	END Notify;		END Notify;

	PROCEDURE MakeSticky*;		PROCEDURE MakeSticky*;
	VAR n: CloseNotifier;		VAR n: CloseNotifier;
	BEGIN		BEGIN
	IF stickyDialog = NIL THEN		IF stickyDialog = NIL THEN
	HostWindows.dir.minimized := TRUE;		HostWindows.dir.minimized := TRUE;
	HostWindows.dir.minimized := FALSE;		HostWindows.dir.minimized := FALSE;
	HostWindows.dir.l := 1100; HostWindows.dir.t := 600;		HostWindows.dir.l := 1100; HostWindows.dir.t := 600;
	HostWindows.dir.r := 1400; HostWindows.dir.b := 900;		HostWindows.dir.r := 1400; HostWindows.dir.b := 900;
	StdApi.OpenAuxDialog('Mondata/Rsrc/HPM-Tool', '#Mondata:StorageForwarder', stickyDialog);		StdApi.OpenAuxDialog('Mondata/Rsrc/HPM-Tool', '#Mondata:StorageForwarder', stickyDialog);
	NEW(n);		NEW(n);
	stickyDialog.Domain().GetSequencer()(Sequencers.Sequencer).InstallNotifier(n);		stickyDialog.Domain().GetSequencer()(Sequencers.Sequencer).InstallNotifier(n);
	END;		END;
	END MakeSticky;		END MakeSticky;

Ivan denisov at 04:06, 18 March 2017

2017-03-18T04:06:19Z

← Older revision		Revision as of 04:06, 18 March 2017
Line 4:		Line 4:
	Marco Ciot		Marco Ciot

	TYPE		TYPE
	CloseNotifier = POINTER TO RECORD (Sequencers.Notifier) END;		CloseNotifier = POINTER TO RECORD (Sequencers.Notifier) END;

Ivan denisov: Created page with " Marco Ciot TYPE CloseNotifier = POINTER TO RECORD (Sequencers.Notifier) END; PROCEDURE (n: CloseNotifier) Notify (VAR msg: Sequencers.Message); VAR res: INTEGER; BEGI..."

2017-03-18T04:06:11Z

Created page with " Marco Ciot TYPE CloseNotifier = POINTER TO RECORD (Sequencers.Notifier) END; PROCEDURE (n: CloseNotifier) Notify (VAR msg: Sequencers.Message); VAR res: INTEGER; BEGI..."

New page

Marco Ciot

TYPE
CloseNotifier = POINTER TO RECORD (Sequencers.Notifier) END;

PROCEDURE (n: CloseNotifier) Notify (VAR msg: Sequencers.Message);
VAR res: INTEGER;
BEGIN
WITH
| msg: Sequencers.CloseMsg DO
Dialog.Beep;
Dialog.GetOK("#Mondig:ATTENTION: Exit will stop data recording!!! Stop anyway? ", "", "", "", {Dialog.yes, Dialog.no, Dialog.cancel}, res);
IF ~(res = Dialog.yes) THEN
msg.sticky := TRUE;
END;
ELSE
END;
END Notify;

PROCEDURE MakeSticky*;
VAR n: CloseNotifier;
BEGIN
IF stickyDialog = NIL THEN
HostWindows.dir.minimized := TRUE;
HostWindows.dir.minimized := FALSE;
HostWindows.dir.l := 1100; HostWindows.dir.t := 600;
HostWindows.dir.r := 1400; HostWindows.dir.b := 900;
StdApi.OpenAuxDialog('Mondata/Rsrc/HPM-Tool', '#Mondata:StorageForwarder', stickyDialog);
NEW(n);
stickyDialog.Domain().GetSequencer()(Sequencers.Sequencer).InstallNotifier(n);
END;
END MakeSticky;