[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

912.0. "COMMAND widget prob in Ada package" by GSRC::WEST (I'm just visiting this planet.) Fri Jun 09 1989 00:17

  I have QAR'd the following.  The Ada package is incorrect.


  The following are from DECW$DWT_.ADA.

  Each formal parameter that is of COMP_STRING_TYPE should be of
  STRING type.  Have modified the package to
  use STRING type with mechanism of DESCRIPTOR(S).


Was...
    procedure COMMAND_SET (
	WIDGET		: in  WIDGET_TYPE;
	COMMAND		: in  COMP_STRING_TYPE);
 
    pragma INTERFACE (EXTERNAL, COMMAND_SET);
 
    pragma IMPORT_PROCEDURE (COMMAND_SET, "dwt$command_set",
	(WIDGET_TYPE, COMP_STRING_TYPE),
	(REFERENCE, VALUE));

Should be...
    procedure COMMAND_SET (
	WIDGET		: in  WIDGET_TYPE;
>>>	COMMAND		: in  STRING);
 
    pragma INTERFACE (EXTERNAL, COMMAND_SET);
 
    pragma IMPORT_PROCEDURE (COMMAND_SET, "dwt$command_set",
	(WIDGET_TYPE, STRING),
>>>	(REFERENCE, DESCRIPTOR(S)));


Same for these...
    procedure COMMAND_APPEND (
	WIDGET		: in  WIDGET_TYPE;
	COMMAND		: in  COMP_STRING_TYPE);
 
    pragma INTERFACE (EXTERNAL, COMMAND_APPEND);
 
    pragma IMPORT_PROCEDURE (COMMAND_APPEND, "dwt$command_append",
	(WIDGET_TYPE, COMP_STRING_TYPE),
	(REFERENCE, VALUE));
 

    procedure COMMAND_ERROR_MESSAGE (
	WIDGET		: in  WIDGET_TYPE;
	ERROR		: in  COMP_STRING_TYPE);
 
    pragma INTERFACE (EXTERNAL, COMMAND_ERROR_MESSAGE);
 
    pragma IMPORT_PROCEDURE (COMMAND_ERROR_MESSAGE, "dwt$command_error_message",
	(WIDGET_TYPE, COMP_STRING_TYPE),
	(REFERENCE, VALUE));
T.RTitleUserPersonal
Name		DateLines
912.1greeting from the mosquito infested northVMSSPT::TCARRThu Jun 15 1989 09:576
    
     Use a different language!(yuck,yuck,yuck) To bad you could not have
    asked about this in the programming class. I knew it would not be long
    before I would find you asking ADA questions in here. Hope you get an
    answer.
912.2QUARK::LIONELB - L - Oh, I don't know!Thu Jun 15 1989 11:2210
I see no reasonable basis for reply .1.  It's quite simple to use Ada.
Yes, out of the hundred-thousand lines of declarations we provide, some
are going to be wrong.  These can be fixed, and also can be trivially
overriden by the user.

As was answered in the Ada conference, the errors notes in 912.0 will be
fixed in a future version of VMS.

				Steve