XTkMigration.mesa
Copyright Ó 1991, 1992 by Xerox Corporation. All rights reserved.
Created by Christian Jacobi, August 2, 1991 2:14:33 pm PDT
Christian Jacobi, April 7, 1992 3:03 pm PDT
DIRECTORY
Rope USING [ROPE],
Xl USING [Connection],
XTk USING [Widget];
XTkMigration: CEDAR DEFINITIONS
~ BEGIN
Registers way of window migration.
Many applications migrate with the standard XTk mechanisms.
For other applications it might be better to migrate using different mechanism, e.g. by saving the application state and restarting the application.
MigrationProc:
TYPE =
PROC [shell: XTk.Widget, destination: Xl.Connection]
RETURNS [msg: Rope.
ROPE ←
NIL];
Type for procedure implementing migration.
msg: used to describe failures (but not success)
Migrate:
PROC [shell: XTk.Widget, destination:
REF]
RETURNS [msg: Rope.
ROPE];
Starts a migration.
destination: Xl.Connection, Rope.ROPE
msg: used to describe failures only
RegisterMigrator:
PROC [shell: XTk.Widget, migrator: MigrationProc ¬
NIL];
migrator will be called on unknown tq when migration is requested.
StandardMigrator: MigrationProc;
The standard MigrationProc (implemented with XTk's mechanisms and no application help).
END.