[Date Prev] [Date Next] [Thread Prev] [Thread Next] Date Index Thread Index Search archive:
Date:Mon Jun 26 14:46:43 1993 
Subject:Making a Poplog propbox vertical in Motif. Help please. 
From:"A.Sloman" 
Volume-ID:930626.01 

I am designing and implementing an extendable user-tailorable menu-
driven interface for VED and Poplog applications.

I use the "propbox" datastructure provided in LIB PROPSHEET to create a
menu, but by default the buttons are arranged horizontally. I have found
out how to make them vertical under OpenLook, thanks to Adrian Howard at
Sussex, and I have made a guess at how to make them vertical under
Motif.

I would be gratefile if someone using Poplog with Motif would
test my guess for me by trying the following, after running Pop-11


uses propsheet; ;;; should be already part of Pop-11, but in case not....

;;; create a propbox with four buttons labelled A, B, C, D.
vars propbox = propsheet_new_box('TEST', false, false, [A B C D]);

;;; show it on screen (buttons should come out horizontal)
 propsheet_show(propbox);

;;; Now try to change its orientation:

;;; First load macro definitions for Motif

uses XmConstants

;;; Now change the orientation (I hope). Mark and load this:

XmVERTICAL ->
         XptValue(
             propbox.XptChildren.hd.XptChildren.hd.XptChildren.tl.hd,
             XtN orientation, TYPESPEC(:int)
         );

;;; Does that change the alignment?

;;; Also see if you can change its location, width and height

(500, 20, 50, 200) -> XptWidgetCoords(propbox);

-----------------------------------------------------------------------
if any Motif+Poplog users can check this out and tell me if it works, or
tell me what is needed, I'll be very grateful.

Thanks.
Aaron