[Search for users] [Overall Top Noters] [List of all Conferences] [Download this site]

Conference bulova::decw_jan-89_to_nov-90

Title:DECWINDOWS 26-JAN-89 to 29-NOV-90
Notice:See 1639.0 for VMS V5.3 kit; 2043.0 for 5.4 IFT kit
Moderator:STAR::VATNE
Created:Mon Oct 30 1989
Last Modified:Mon Dec 31 1990
Last Successful Update:Fri Jun 06 1997
Number of topics:3726
Total number of notes:19516

1165.0. "XT$CREATE_APPLICATION_SHELL/Pascal arg data types please" by KERNEL::WOOD (Richard Wood - UK Workstation Support) Mon Jul 24 1989 12:10

    Can anybody clarify the data-types (mechanism) that I need to use
    to get the XT$CREATE_APPLICATION_SHELL working from Pascal, it's
    driving me up the wall trying to get the argument data types
    right (I'm just getting the old ACCVIO at the moment).
    
    Any Pascal examples welcome, I've already got HELLOWORLD.
    
    Any info appreciated
    
    Rich

T.RTitleUserPersonal
Name
DateLines
1165.1Go around the sideEPIK::BUEHLERThe IRS believes in effort: tax yourselfTue Jul 25 1989 15:3529
    I also use the PASCAL bindings and I just looked at my code and noticed
    that this is one of the routines that I gave up on and went with the C
    binding instead.  I called XtAppCreateShell and used lots of %IMMED
    mechanism specifiers since that's how C takes data that's 4 bytes or
    smaller (vague statement).
    
   [HIDDEN] FUNCTION XtAppCreateShell(shell_name : char_ptr;
                                      class_name : char_ptr;
                                      class : UNSIGNED;
                                      display : UNSIGNED;
                                      argv : UNSIGNED;
                                      argc : INTEGER) : DWT$WIDGET;
    
          EXTERN;
    
    
    
    root := XtAppCreateShell(%IMMED shell_name,
                             %IMMED shell_class_name,
                             %IMMED applicationShellWidgetClass,
                             %IMMED display,
                             %IMMED 0,
                             %IMMED 0);
    
    Where shell_name and shell_class_name are both pointers to zero
    terminated character strings.
    
John

1165.2example availableFEGPX::SWEENEYPatrick Sweeney in Hong KongTue Jan 09 1990 06:042
    Note 321 in DW_EXAMPLES contains a complete PASCAL example using the
    VMS bindings.