## translate-guiplan-to-guipane.api
#
# Translation from Guiplan to Guipane.
# Compiled by:
# src/lib/x-kit/widget/xkit-widget.sublibstipulate
include package threadkit; # threadkit is from src/lib/src/lib/thread-kit/src/core-thread-kit/threadkit.pkg #
# package ap = client_to_atom; # client_to_atom is from src/lib/x-kit/xclient/src/iccc/client-to-atom.pkg# package au = authentication; # authentication is from src/lib/x-kit/xclient/src/stuff/authentication.pkg# package cpm = cs_pixmap; # cs_pixmap is from src/lib/x-kit/xclient/src/window/cs-pixmap.pkg# package cpt = cs_pixmat; # cs_pixmat is from src/lib/x-kit/xclient/src/window/cs-pixmat.pkg# package dy = display; # display is from src/lib/x-kit/xclient/src/wire/display.pkg# package xet = xevent_types; # xevent_types is from src/lib/x-kit/xclient/src/wire/xevent-types.pkg# package w2x = windowsystem_to_xserver; # windowsystem_to_xserver is from src/lib/x-kit/xclient/src/window/windowsystem-to-xserver.pkg# package fil = file__premicrothread; # file__premicrothread is from src/lib/std/src/posix/file--premicrothread.pkg# package fti = font_index; # font_index is from src/lib/x-kit/xclient/src/window/font-index.pkg# package r2k = xevent_router_to_keymap; # xevent_router_to_keymap is from src/lib/x-kit/xclient/src/window/xevent-router-to-keymap.pkg# package mtx = rw_matrix; # rw_matrix is from src/lib/std/src/rw-matrix.pkg# package r8 = rgb8; # rgb8 is from src/lib/x-kit/xclient/src/color/rgb8.pkg# package rgb = rgb; # rgb is from src/lib/x-kit/xclient/src/color/rgb.pkg# package rop = ro_pixmap; # ro_pixmap is from src/lib/x-kit/xclient/src/window/ro-pixmap.pkg# package rw = root_window; # root_window is from src/lib/x-kit/widget/lib/root-window.pkg# package rwv = rw_vector; # rw_vector is from src/lib/std/src/rw-vector.pkg# package sep = client_to_selection; # client_to_selection is from src/lib/x-kit/xclient/src/window/client-to-selection.pkg# package shp = shade; # shade is from src/lib/x-kit/widget/lib/shade.pkg# package sj = socket_junk; # socket_junk is from src/lib/internet/socket-junk.pkg# package tr = logger; # logger is from src/lib/src/lib/thread-kit/src/lib/logger.pkg# package tsr = thread_scheduler_is_running; # thread_scheduler_is_running is from src/lib/src/lib/thread-kit/src/core-thread-kit/thread-scheduler-is-running.pkg# package u1 = one_byte_unt; # one_byte_unt is from src/lib/std/one-byte-unt.pkg# package v1u = vector_of_one_byte_unts; # vector_of_one_byte_unts is from src/lib/std/src/vector-of-one-byte-unts.pkg# package v2w = value_to_wire; # value_to_wire is from src/lib/x-kit/xclient/src/wire/value-to-wire.pkg# package wg = widget; # widget is from src/lib/x-kit/widget/old/basic/widget.pkg# package wi = window; # window is from src/lib/x-kit/xclient/src/window/window.pkg# package wme = window_map_event_sink; # window_map_event_sink is from src/lib/x-kit/xclient/src/window/window-map-event-sink.pkg# package wpp = client_to_window_watcher; # client_to_window_watcher is from src/lib/x-kit/xclient/src/window/client-to-window-watcher.pkg# package wy = widget_style; # widget_style is from src/lib/x-kit/widget/lib/widget-style.pkg# package e2s = xevent_to_string; # xevent_to_string is from src/lib/x-kit/xclient/src/to-string/xevent-to-string.pkg# package xc = xclient; # xclient is from src/lib/x-kit/xclient/xclient.pkg# package xj = xsession_junk; # xsession_junk is from src/lib/x-kit/xclient/src/window/xsession-junk.pkg# package xt = xtypes; # xtypes is from src/lib/x-kit/xclient/src/wire/xtypes.pkg# package xtr = xlogger; # xlogger is from src/lib/x-kit/xclient/src/stuff/xlogger.pkg #
#
package bt = gui_to_sprite_theme; # gui_to_sprite_theme is from src/lib/x-kit/widget/theme/sprite/gui-to-sprite-theme.pkg package ct = gui_to_object_theme; # gui_to_object_theme is from src/lib/x-kit/widget/theme/object/gui-to-object-theme.pkg package tp = widget_theme; # widget_theme is from src/lib/x-kit/widget/theme/widget/widget-theme.pkg #
package g2d = geometry2d; # geometry2d is from src/lib/std/2d/geometry2d.pkg package gtg = guiboss_to_guishim; # guiboss_to_guishim is from src/lib/x-kit/widget/theme/guiboss-to-guishim.pkg package gtg = guiboss_to_guishim; # guiboss_to_guishim is from src/lib/x-kit/widget/theme/guiboss-to-guishim.pkg package gt = guiboss_types; # guiboss_types is from src/lib/x-kit/widget/gui/guiboss-types.pkg package wt = widget_theme; # widget_theme is from src/lib/x-kit/widget/theme/widget/widget-theme.pkg tracefile = "widget-unit-test.trace.log";
herein
# This api is implemented in:
#
# src/lib/x-kit/widget/gui/translate-guiplan-to-guipane.pkg #
api Translate_Guiplan_To_Guipane {
# # Usually Client_To_Guiwindow/Client_To_Guiboss/Guiboss_Option/Guiboss_Arg would be in a separate package; moved them here to facilitate exporting Guipane as an opaque type.
guiplan_to_guipane # Primary entrypoint for this package. Currently called (only) by make_popup() in src/lib/x-kit/widget/gui/guiboss-imp.pkg :
{ run_gun': Run_Gun,
subwindow_info: gt::Subwindow_Data,
me: gt::Guiboss_State,
widget_to_guiboss: gt::Widget_To_Guiboss,
gadget_to_guiboss: gt::Gadget_To_Guiboss,
guiboss_to_guishim: gtg::Guiboss_To_Guishim,
hostwindow_for_gui: gtg::Guiboss_To_Hostwindow,
space_to_gui: gt::Space_To_Gui,
#
clear_box_in_pixmap # Clear a box to black, mostly to avoid undefined values etc.
:
( gt::Subwindow_Or_View, # pixmap holding the scrollport.
g2d::Box # Box in view coordinates.
)
-> Void,
update_offscreen_parent_pixmaps_and_then_hostwindow
:
( gt::Subwindow_Or_View,
g2d::Box, # From-box in source pixmap coordinates.
gtg::Guiboss_To_Hostwindow
)
-> Void
}
->
gt::Guiplan
->
gt::Guipane
;
gp_widget__to__rg_widget # Exported (only) because it is also needed by build_new_guipanes'()/do_xi_widget/gt::XI_GUIPLAN in src/lib/x-kit/widget/gui/translate-guipane-to-guipith.pkg :
{
gp_widget: gt::Gp_Widget_Type,
widgetspace_arg: gt::Widgetspace_Arg,
run_gun': Run_Gun,
subwindow_info: gt::Subwindow_Data,
me: gt::Guiboss_State,
widget_to_guiboss: gt::Widget_To_Guiboss,
gadget_to_guiboss: gt::Gadget_To_Guiboss,
guiboss_to_guishim: gtg::Guiboss_To_Guishim,
hostwindow_for_gui: gtg::Guiboss_To_Hostwindow,
space_to_gui: gt::Space_To_Gui,
#
clear_box_in_pixmap # Clear a box to black, mostly to avoid undefined values etc.
:
( gt::Subwindow_Or_View, # pixmap holding the scrollport.
g2d::Box # Box in view coordinates.
)
-> Void,
update_offscreen_parent_pixmaps_and_then_hostwindow
:
( gt::Subwindow_Or_View,
g2d::Box, # From-box in source pixmap coordinates.
gtg::Guiboss_To_Hostwindow
)
-> Void
}
->
( gt::Rg_Widget_Type,
{ guiboss_to_widgetspace: gt::Guiboss_To_Widgetspace,
shutdown_oneshot: Oneshot_Maildrop( Void )
}
);
};
end;