| 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 |
I got a program from a customer who is trying to do an XT$APP_CREATE_SHELL in fortran. The program dies with the error: X Toolkit Error: XtCreateApplication Shell requires non-NULL widget class %DWT-F-DWTABORT, xtoolkit fatal error %TRACE-F-TRACEBACK, symbolic stack dump follows... The code follows, and is compiled and linked with: $ fortran/extend DECW_TEST $ link/nodebug - DECW_TEST, - sys$input/opt sys$library:decw$dwtlibshr/share If anyone has any thoughts on this, please lemme know. Thanks, Jeff
| T.R | Title | User | Personal Name | Date | Lines |
|---|---|---|---|---|---|
| 2937.1 | COMICS::FISCHER | UK Workstations Support | Fri Jun 15 1990 12:11 | 5 | |
I had this problem once. Importing the MIT C routine XtAppCreateShell() into the Fortran code should work OK. I think the problem is with the VAX binding. Ian | |||||
| 2937.2 | The Code | PEACHS::GILBERT | ...You say why, I say I dont know | Fri Jun 15 1990 12:38 | 54 |
Oops, forgot to include the code, Here it is.
re .1
Thanks I'll try it.
C Toolkit apparently not initializeing properly
C
program DECW_TEST
implicit none
include 'SYS$LIBRARY:DECW$DWTDEF'
integer*4 MDA_EX_application_context /0/
integer*4 MDA_EX_default_display_id /0/
integer*4 MDA_EX_shell_widget /0/
record /DWT$ARG/ arg_list(0:4)
integer*4 argc /0/
call XT$TOOLKIT_INITIALIZE()
MDA_EX_application_context = XT$CREATE_APPLICATION_CONTEXT()
MDA_EX_default_display_id = XT$OPEN_DISPLAY(
& MDA_EX_application_context,
& 'DECW$DISPLAY',
& 'MDA_EX_MM',
& 'MDA_EX_MM_class',
& %VAL(0),
& 0,
& argc,
& arg_list)
if(MDA_EX_default_display_id .eq. 0) then
type *, 'Can''t open default display'
call EXIT
endif
call DWT$VMS_SET_ARG(
& DWT$C_TRUE,
& arg_list,
& 0,
& DWT$C_NALLOW_SHELL_RESIZE)
argc = 1
MDA_EX_shell_widget = XT$APP_CREATE_SHELL(
& 'MDA_EX_MM',
& applicationShellWidgetClass,
& MDA_EX_default_display_id,
& arg_list,
& argc)
pause
call EXIT
end
| |||||