| 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 |
Does anyone have an example of setting up a translation table in FORTRAN?
I tried permutations of the following to no avail:
STRUCTURE /ACTION_ITEM/
INTEGER*4 ACTION_STRING
INTEGER*4 ACTION_CB
END STRUCTURE
RECORD /ACTION_ITEM/ ACTION_LIST(4)
ACTION_LIST(1).ACTION_STRING = %loc('Button2Up')
ACTION_LIST(1).ACTION_CB = %loc(event_cb)
ACTION_LIST(2).ACTION_STRING = %loc('Button2Motion')
ACTION_LIST(3).ACTION_CB = %loc(event_cb)
ACTION_LIST(3).ACTION_STRING = %loc('Button2Down')
ACTION_LIST(3).ACTION_CB = %loc(event_cb)
ACTION_LIST(4).ACTION_STRING = 0
ACTION_LIST(4).ACTION_CB = 0
c
c Setup translations for button 2
c
VOID = XT$ADD_ACTIONS(ACTION_LIST, 3)
TRANSLATIONS = XT$PARSE_TRANSLATION_TABLE(IMAGE,%loc(
1 '<Btn2Down>: Button2Up()' //CHAR(13)//CHAR(10)//
2 'Button2<Motion>: Button2Motion()'//CHAR(13)//CHAR(10)//
3 '<Btn2Up>: Button2Down()' //CHAR(13)//CHAR(10)))
c
c
VOID = XT$AUGMENT_TRANSLATIONS(IMAGE, TRANSLATIONS)
c
Thanks,
-Dave
| T.R | Title | User | Personal Name | Date | Lines |
|---|---|---|---|---|---|
| 2865.1 | Check DW_EXAMPLES... | PEACHS::BELDIN | Tue Jun 05 1990 10:34 | 5 | |
Check the DW_EXAMPLES notesfile - there is an example both in Fortran and in C... Rick | |||||
| 2865.2 | VISUAL::WEAVER | Dave, Image Systems Group | Wed Jun 06 1990 17:02 | 7 | |
Re: .1 Can you be more specific? I searched all the FORTRAN keyword notes before entering a note here and didn't find any references. Thanks, -Dave | |||||
| 2865.3 | I did a 'dir/tit=transla' | GSRC::WEST | Help stamp out and abolish redundancy ! | Thu Jun 07 1990 09:49 | 11 |
--------------------------------------------------------------------------------
"DECwindows examples"
Created: 2-AUG-1988 11:43 453 topics Updated: 7-JUN-1990 04:47
-< Please set a keyword, like Fortran, Color, etc >-
Topic Author Date Repl Title
--------------------------------------------------------------------------------
244 HPSCAD::MBOUCHER 11-SEP-1989 6 Looking for FORTRAN (Translation/Action table) example
326 TOWNS::RUFFIEUX 14-JAN-1990 1 ADA example of translation table
370 47233::FERRARA 27-FEB-1990 1 widget id to name translator
435 CURIE::SENGUPTA 6-MAY-1990 1 Augmenting translations in a list box widget
442 FREZEN::PROJECTS 17-MAY-1990 4 Adding translations example
| |||||