/[emacs]/emacs/src/w32fns.c
ViewVC logotype

Diff of /emacs/src/w32fns.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.139 by jasonr, Sat Nov 24 17:39:31 2001 UTC revision 1.140 by jasonr, Sun Nov 25 11:03:33 2001 UTC
# Line 13243  x_create_tip_frame (dpyinfo, parms, text Line 13243  x_create_tip_frame (dpyinfo, parms, text
13243    f->output_data.w32->parent_desc = FRAME_W32_DISPLAY_INFO (f)->root_window;    f->output_data.w32->parent_desc = FRAME_W32_DISPLAY_INFO (f)->root_window;
13244    window_prompting = x_figure_window_size (f, parms);    window_prompting = x_figure_window_size (f, parms);
13245    
13246      /* No fringes on tip frame.  */
13247      f->output_data.w32->fringes_extra = 0;
13248    
13249    if (window_prompting & XNegative)    if (window_prompting & XNegative)
13250      {      {
13251        if (window_prompting & YNegative)        if (window_prompting & YNegative)
# Line 13378  compute_tip_xy (f, parms, dx, dy, width, Line 13381  compute_tip_xy (f, parms, dx, dy, width,
13381  }  }
13382    
13383    
 #ifdef TEST_TOOLTIPS /* Tooltip support in progress.  */  
13384  DEFUN ("x-show-tip", Fx_show_tip, Sx_show_tip, 1, 6, 0,  DEFUN ("x-show-tip", Fx_show_tip, Sx_show_tip, 1, 6, 0,
13385         doc: /* Show STRING in a \"tooltip\" window on frame FRAME.         doc: /* Show STRING in a \"tooltip\" window on frame FRAME.
13386  A tooltip window is a small window displaying a string.  A tooltip window is a small window displaying a string.
# Line 13489  Text larger than the specified size is c Line 13491  Text larger than the specified size is c
13491      parms = Fcons (Fcons (Qbackground_color, build_string ("lightyellow")),      parms = Fcons (Fcons (Qbackground_color, build_string ("lightyellow")),
13492                     parms);                     parms);
13493    
13494      /* Block input until the tip has been fully drawn, to avoid crashes
13495         when drawing tips in menus.  */
13496      BLOCK_INPUT;
13497    
13498    /* Create a frame for the tooltip, and record it in the global    /* Create a frame for the tooltip, and record it in the global
13499       variable tip_frame.  */       variable tip_frame.  */
13500    frame = x_create_tip_frame (FRAME_W32_DISPLAY_INFO (f), parms, string);    frame = x_create_tip_frame (FRAME_W32_DISPLAY_INFO (f), parms, string);
# Line 13565  Text larger than the specified size is c Line 13571  Text larger than the specified size is c
13571       show it.  */       show it.  */
13572    compute_tip_xy (f, parms, dx, dy, width, height, &root_x, &root_y);    compute_tip_xy (f, parms, dx, dy, width, height, &root_x, &root_y);
13573    
   BLOCK_INPUT;  
13574    {    {
13575      /* Adjust Window size to take border into account.  */      /* Adjust Window size to take border into account.  */
13576      RECT rect;      RECT rect;
# Line 13584  Text larger than the specified size is c Line 13589  Text larger than the specified size is c
13589    
13590      ShowWindow (FRAME_W32_WINDOW (f), SW_SHOWNOACTIVATE);      ShowWindow (FRAME_W32_WINDOW (f), SW_SHOWNOACTIVATE);
13591    }    }
   UNBLOCK_INPUT;  
13592    
13593    /* Draw into the window.  */    /* Draw into the window.  */
13594    w->must_be_updated_p = 1;    w->must_be_updated_p = 1;
13595    update_single_window (w, 1);    update_single_window (w, 1);
13596    
13597      UNBLOCK_INPUT;
13598    
13599    /* Restore original current buffer.  */    /* Restore original current buffer.  */
13600    set_buffer_internal_1 (old_buffer);    set_buffer_internal_1 (old_buffer);
13601    windows_or_buffers_changed = old_windows_or_buffers_changed;    windows_or_buffers_changed = old_windows_or_buffers_changed;
# Line 13638  Value is t if tooltip was open, nil othe Line 13644  Value is t if tooltip was open, nil othe
13644    UNGCPRO;    UNGCPRO;
13645    return unbind_to (count, deleted);    return unbind_to (count, deleted);
13646  }  }
 #endif  
13647    
13648    
13649    
# Line 14191  If the underlying system call fails, val Line 14196  If the underlying system call fails, val
14196    return value;    return value;
14197  }  }
14198    
14199    /***********************************************************************
14200                                Initialization
14201     ***********************************************************************/
14202    
14203    void
14204  syms_of_w32fns ()  syms_of_w32fns ()
14205  {  {
14206    /* This is zero if not using MS-Windows.  */    /* This is zero if not using MS-Windows.  */
# Line 14750  versions of Windows) characters.  */); Line 14760  versions of Windows) characters.  */);
14760    
14761    hourglass_atimer = NULL;    hourglass_atimer = NULL;
14762    hourglass_shown_p = 0;    hourglass_shown_p = 0;
 #if TEST_TOOLTIPS /* Tooltip support in progress.  */  
14763    defsubr (&Sx_show_tip);    defsubr (&Sx_show_tip);
14764    defsubr (&Sx_hide_tip);    defsubr (&Sx_hide_tip);
 #endif  
14765    tip_timer = Qnil;    tip_timer = Qnil;
14766    staticpro (&tip_timer);    staticpro (&tip_timer);
14767    tip_frame = Qnil;    tip_frame = Qnil;

Legend:
Removed from v.1.139  
changed lines
  Added in v.1.140

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26