[Search for users]
[Overall Top Noters]
[List of all Conferences]
[Download this site]
| 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 | 
1454.0. "x$synchronize in pascal" by PIOPIO::DEDIEGO (Fernando de Diego) Mon Sep 18 1989 09:44
  I wish to call the X$SYNCHRONIZE routine in my Dwt-UIL-PASCAL program, since 
I would like to debug it; however, I have gotten only failures. If you Know how 
to do it, could you answer my questions, please????
	1.) How have I to declare the after_function parameter:?
	2.) What should I do to use the default after_function GET INPUT FOCUS.?
	3.) How and where in the program must I call the X$SYNCHRONIZE routine?
	4.) Might I employ the Xtoolkit DISPLAY INITIALIZE routine for it,
	    like is suggested en the description of this routine?
	state = x$synchronize(display,onoff,after_function)
		state.wl.v = previous state
		display.rlu.r = on/off flag
		onoff.rl.r = on/off flag
		after_function.wa.vp = after function
[ASYNCHRONOUS] FUNCTION x$synchronize (display : UNSIGNED;
					onoff : INTEGER;
					%IMMED [UNBOUND, ASYNCHONOUS]
						PROCEDURE after_function)
					INTEGER; EXTERNAL;
THANks you
| T.R | Title | User | Personal Name
 | Date | Lines | 
|---|
| 1454.1 | YABO? | EPIK::BUEHLER | Live today, for tommorrow isn't here yet | Mon Sep 18 1989 17:18 | 20 | 
|  |     Yet another binding oddity.  Forget the VMS binding of this routine. 
    Just call the C binding using the following function declaration.
    
       [HIDDEN] FUNCTION XSynchronize(%IMMED display : UNSIGNED;
                                      %IMMED flags : INTEGER) : UNSIGNED;
    
          EXTERN;
    
    e.g.
    
    	XSynchronize(display, 1)
    
    to turn on synchronous mode and
    
    	XSynchronize(display, 0)
    
    to turn it off.
    
John
 |