Conference bulova::decw_jan-89_to_nov-90

1522.0. "xt_set values from Ada" by BJ6000::DAVE (I want to get home, get big, and get to the mall !) Tue Oct 03 1989 15:34

I can't find a bug note so here goes.

I am trying to reposition a widget using set values.  The widget doesn't move.
I've used the constants defined in DECW$DWT_.ada and my own constants to try and
define new x and y positions for the widget.  Nothing works.  Any guesses will 
be greatly appreciated.

	Dave

this is the calling program

with STORAGE_DEMO_INTERFACE;
procedure STORAGE_DEMO_LOAD_INFO is

begin

  STORAGE_DEMO_INTERFACE.START_WINDOWS("ISM_DEMO_DATABASE.UID");
end STORAGE_DEMO_LOAD_INFO;

this is my package

with DWT, SYSTEM, CONDITION_HANDLING, STARLET;

package body STORAGE_DEMO_INTERFACE is

  TOPLEVEL_WIDGET,
  MAIN_WINDOW_WIDGET : DWT.WIDGET_TYPE;

  DRM_HIERARCHY : DWT.DRM_HIERARCHY_TYPE;

  procedure START_WINDOWS(UIL_FILENAME: in string) is

    OPTIONS : SYSTEM.UNSIGNED_LONGWORD_ARRAY(0..0);

    ARGC : DWT.CARDINAL_TYPE := 0;

    ARGV : DWT.ADDRESS_ARRAY(0..0);

    STATUS : DWT.CARDINAL_TYPE;

    CLASS : DWT.DRM_TYPE_TYPE;

    FILE_RECORD : DWT.DESCRIPTOR_TYPE :=
      (LENGTH => UIL_FILENAME'LENGTH,
       POINTER => UIL_FILENAME'ADDRESS,
       CLASS => STARLET.DSC_K_CLASS_S,
       DTYPE => STARLET.DSC_K_DTYPE_T);

    FILE_LIST : DWT.ADDRESS_ARRAY(0..0) :=
      (0 => FILE_RECORD'ADDRESS);

    ARGLIST : DWT.ARG_ARRAY_TYPE(0..1);

    ARGCOUNT : DWT.CARDINAL_TYPE := 2;

    X_CONSTANT : constant string := "x"&ASCII.NUL;

    Y_CONSTANT : constant string := "y"&ASCII.NUL;

  begin

    DWT.INITIALIZE_DRM;
    DWT.XT_INITIALIZE(TOPLEVEL_WIDGET,"ISM demo","ISM_DEMO",OPTIONS,0,
		      ARGC,ARGV);
    DWT.OPEN_HIERARCHY(STATUS => STATUS,
		       NUM_FILES => FILE_LIST'LENGTH,
		       FILE_NAMES_LIST => FILE_LIST,
		       HIERARCHY_ID_RETURN => DRM_HIERARCHY);
    DWT.FETCH_WIDGET(STATUS => STATUS,
		     HIERARCHY_ID => DRM_HIERARCHY,
		     INDEX => "main_window",
		     PARENT => TOPLEVEL_WIDGET,
		     W_RETURN => MAIN_WINDOW_WIDGET,
		     CLASS_RETURN => CLASS);
    DWT.XT_MANAGE_CHILD(MAIN_WINDOW_WIDGET);
    DWT.XT_REALIZE_WIDGET(TOPLEVEL_WIDGET);
    ARGLIST(0).ARG_NAME := X_CONSTANT'ADDRESS;
    ARGLIST(0).ARG_VALUE := 450;
    ARGLIST(1).ARG_NAME := Y_CONSTANT'ADDRESS;
    ARGLIST(1).ARG_VALUE := 400;
    DWT.XT_SET_VALUES(TOPLEVEL_WIDGET,ARGLIST,ARGCOUNT);
    DWT.XT_MAIN_LOOP;

  exception
    when EXIT_ROUTINE => null;

  end START_WINDOWS;

  procedure EXIT_CALLBACK is

  begin
    raise EXIT_ROUTINE;
  end EXIT_CALLBACK;

  procedure CLAIM_CALLBACK is

  begin

    null;

  end CLAIM_CALLBACK;

  procedure P_S_CALLBACK is

  begin

    null;

  end P_S_CALLBACK;

  procedure CLAIM_DATA_CALLBACK is

  begin

    null;

  end CLAIM_DATA_CALLBACK;

  procedure P_S_DATA_CALLBACK is

  begin

    null;

  end P_S_DATA_CALLBACK;

end STORAGE_DEMO_INTERFACE;  


this is the uil file

module ism_demo_database
	version = 'v1.0'
	names = case_sensitive
	objects = {label = gadget;
		   push_button = gadget;
		   separator = gadget;
		   toggle_button = gadget;
		   }

  include file 'decw$include:DwtAppl.uil';

  value 
	listing_text : compound_string("Create a property listing entry");
	p_s_text : compound_string("Create a purchase & sale entry");
	exit_text : compound_string("exit");

  object 
	main_window : exported attached_dialog_box
		{arguments {width = 125;
			    height = 20;};
		 controls {push_button listing_form;
			   push_button p_s_form;
			   push_button exit_item;};};

	listing_form : push_button
		{arguments {x = 1;
			    y = 0;
			    label_label = listing_text;};};

	p_s_form : push_button
		{arguments {x = 58;
			    y = 0;
			    label_label = p_s_text;};};

	exit_item : push_button
		{arguments {x = 115;
			    y = 0;
			    label_label = exit_text;};};
end module;