Merged from the latest developing branch.
[MacVim.git] / src / gui_photon.c
bloba8ee1c4098cc7fe10ad926d3ff6c04175f83f360
1 /* vi:set ts=8 sw=4 sts=4:
3 * VIM - Vi IMproved by Bram Moolenaar
4 * Photon GUI support by Julian Kinraid
6 * Do ":help uganda" in Vim to read copying and usage conditions.
7 * Do ":help credits" in Vim to see a list of people who contributed.
10 * Clipboard support is in os_qnx.c
11 * PhAttach() is called in os_qnx.c:qnx_init()
14 #include "vim.h"
16 #ifdef FEAT_TOOLBAR
17 # include <photon/PxImage.h>
18 #endif
20 #if !defined(__QNX__)
21 /* Used when generating prototypes. */
22 # define PgColor_t int
23 # define PhEvent_t int
24 # define PhPoint_t int
25 # define PtWidget_t int
26 # define Pg_BLACK 0
27 # define PtCallbackF_t int
28 # define PtCallbackInfo_t int
29 # define PhTile_t int
30 # define PtWidget_t int
31 # define PhImage_t int
32 #endif
34 #define ARRAY_LENGTH(a) (sizeof(a) / sizeof(a[0]))
35 #define RGB(r,g,b) PgRGB(r,g,b)
37 #define EVENT_BUFFER_SIZE sizeof( PhEvent_t ) + 1000
39 /* Some defines for gui_mch_mousehide() */
40 #define MOUSE_HIDE TRUE
41 #define MOUSE_SHOW FALSE
43 /* Optional support for using a PtPanelGroup widget, needs work */
44 #undef USE_PANEL_GROUP
46 #ifdef USE_PANEL_GROUP
47 static char *empty_title = " ";
48 static char **panel_titles = NULL;
49 static ushort_t num_panels = 0;
50 static short pg_margin_left, pg_margin_right, pg_margin_top, pg_margin_bottom;
51 #endif
53 #define GUI_PH_MARGIN 4 /* Size of the bevel */
55 #define GUI_PH_MOUSE_TYPE Ph_CURSOR_INSERT
56 static PgColor_t gui_ph_mouse_color = Pg_BLACK;
58 static PhPoint_t gui_ph_raw_offset;
59 static PtWidget_t *gui_ph_timer_cursor; /* handle cursor blinking */
60 static PtWidget_t *gui_ph_timer_timeout; /* used in gui_mch_wait_for_chars */
61 static short is_timeout; /* Has the timeout occured? */
64 * This is set inside the mouse callback for a right mouse
65 * button click, and used for the popup menus
67 static PhPoint_t abs_mouse;
69 /* Try and avoid redraws while a resize is in progress */
70 static int is_ignore_draw = FALSE;
72 /* Used for converting to/from utf-8 and other charsets */
73 static struct PxTransCtrl *charset_translate;
76 * Cursor blink functions.
78 * This is a simple state machine:
79 * BLINK_NONE not blinking at all
80 * BLINK_OFF blinking, cursor is not shown
81 * BLINK_ON blinking, cursor is shown
83 static enum {
84 BLINK_NONE,
85 BLINK_OFF,
86 BLINK_ON
87 } blink_state = BLINK_NONE;
89 static long_u blink_waittime = 700;
90 static long_u blink_ontime = 400;
91 static long_u blink_offtime = 250;
93 static struct
95 int key_sym;
96 char_u vim_code0;
97 char_u vim_code1;
98 } special_keys[] =
100 {Pk_Up, 'k', 'u'},
101 {Pk_Down, 'k', 'd'},
102 {Pk_Left, 'k', 'l'},
103 {Pk_Right, 'k', 'r'},
105 {Pk_F1, 'k', '1'},
106 {Pk_F2, 'k', '2'},
107 {Pk_F3, 'k', '3'},
108 {Pk_F4, 'k', '4'},
109 {Pk_F5, 'k', '5'},
110 {Pk_F6, 'k', '6'},
111 {Pk_F7, 'k', '7'},
112 {Pk_F8, 'k', '8'},
113 {Pk_F9, 'k', '9'},
114 {Pk_F10, 'k', ';'},
116 {Pk_F11, 'F', '1'},
117 {Pk_F12, 'F', '2'},
118 {Pk_F13, 'F', '3'},
119 {Pk_F14, 'F', '4'},
120 {Pk_F15, 'F', '5'},
121 {Pk_F16, 'F', '6'},
122 {Pk_F17, 'F', '7'},
123 {Pk_F18, 'F', '8'},
124 {Pk_F19, 'F', '9'},
125 {Pk_F20, 'F', 'A'},
127 {Pk_F21, 'F', 'B'},
128 {Pk_F22, 'F', 'C'},
129 {Pk_F23, 'F', 'D'},
130 {Pk_F24, 'F', 'E'},
131 {Pk_F25, 'F', 'F'},
132 {Pk_F26, 'F', 'G'},
133 {Pk_F27, 'F', 'H'},
134 {Pk_F28, 'F', 'I'},
135 {Pk_F29, 'F', 'J'},
137 {Pk_F30, 'F', 'K'},
138 {Pk_F31, 'F', 'L'},
139 {Pk_F32, 'F', 'M'},
140 {Pk_F33, 'F', 'N'},
141 {Pk_F34, 'F', 'O'},
142 {Pk_F35, 'F', 'P'},
144 {Pk_Help, '%', '1'},
145 {Pk_BackSpace, 'k', 'b'},
146 {Pk_Insert, 'k', 'I'},
147 {Pk_Delete, 'k', 'D'},
148 {Pk_Home, 'k', 'h'},
149 {Pk_End, '@', '7'},
150 {Pk_Prior, 'k', 'P'},
151 {Pk_Next, 'k', 'N'},
152 {Pk_Print, '%', '9'},
154 {Pk_KP_Add, 'K', '6'},
155 {Pk_KP_Subtract,'K', '7'},
156 {Pk_KP_Divide, 'K', '8'},
157 {Pk_KP_Multiply,'K', '9'},
158 {Pk_KP_Enter, 'K', 'A'},
160 {Pk_KP_0, KS_EXTRA, KE_KINS}, /* Insert */
161 {Pk_KP_Decimal, KS_EXTRA, KE_KDEL}, /* Delete */
163 {Pk_KP_4, 'k', 'l'}, /* Left */
164 {Pk_KP_6, 'k', 'r'}, /* Right */
165 {Pk_KP_8, 'k', 'u'}, /* Up */
166 {Pk_KP_2, 'k', 'd'}, /* Down */
168 {Pk_KP_7, 'K', '1'}, /* Home */
169 {Pk_KP_1, 'K', '4'}, /* End */
171 {Pk_KP_9, 'K', '3'}, /* Page Up */
172 {Pk_KP_3, 'K', '5'}, /* Page Down */
174 {Pk_KP_5, '&', '8'}, /* Undo */
176 /* Keys that we want to be able to use any modifier with: */
177 {Pk_Return, CAR, NUL},
178 {Pk_space, ' ', NUL},
179 {Pk_Tab, TAB, NUL},
180 {Pk_Escape, ESC, NUL},
181 {NL, NL, NUL},
182 {CAR, CAR, NUL},
184 /* End of list marker: */
185 {0, 0, 0}
189 /****************************************************************************/
191 static PtCallbackF_t gui_ph_handle_timer_cursor;
192 static PtCallbackF_t gui_ph_handle_timer_timeout;
194 static PtCallbackF_t gui_ph_handle_window_cb;
196 static PtCallbackF_t gui_ph_handle_scrollbar;
197 static PtCallbackF_t gui_ph_handle_keyboard;
198 static PtCallbackF_t gui_ph_handle_mouse;
199 static PtCallbackF_t gui_ph_handle_pulldown_menu;
200 static PtCallbackF_t gui_ph_handle_menu;
201 static PtCallbackF_t gui_ph_handle_focus; /* focus change of text area */
203 static PtCallbackF_t gui_ph_handle_menu_resize;
205 /* When a menu is unrealized, give focus back to vimTextArea */
206 static PtCallbackF_t gui_ph_handle_menu_unrealized;
208 #ifdef USE_PANEL_GROUP
209 static void gui_ph_get_panelgroup_margins( short*, short*, short*, short* );
210 #endif
212 #ifdef FEAT_TOOLBAR
213 static PhImage_t *gui_ph_toolbar_find_icon( vimmenu_T *menu );
214 #endif
216 static void gui_ph_draw_start( void );
217 static void gui_ph_draw_end( void );
219 /* Set the text for the balloon */
220 static PtWidget_t * gui_ph_show_tooltip( PtWidget_t *window,
221 PtWidget_t *widget,
222 int position,
223 char *text,
224 char *font,
225 PgColor_t fill_color,
226 PgColor_t text_color );
228 /****************************************************************************/
230 static PtWidget_t * gui_ph_show_tooltip( PtWidget_t *window,
231 PtWidget_t *widget,
232 int position,
233 char *text,
234 char *font,
235 PgColor_t fill_color,
236 PgColor_t text_color )
238 PtArg_t arg;
239 vimmenu_T *menu;
240 char_u *tooltip;
242 PtSetArg( &arg, Pt_ARG_POINTER, &menu, 0 );
243 PtGetResources( widget, 1, &arg );
245 /* Override the text and position */
247 tooltip = text;
248 if( menu != NULL )
250 int index = MENU_INDEX_TIP;
251 if( menu->strings[ index ] != NULL )
252 tooltip = menu->strings[ index ];
255 return( PtInflateBalloon(
256 window,
257 widget,
258 /* Don't put the balloon at the bottom,
259 * it gets drawn over by gfx done in the PtRaw */
260 Pt_BALLOON_TOP,
261 tooltip,
262 font,
263 fill_color,
264 text_color ) );
267 static void
268 gui_ph_resize_container( void )
270 PhArea_t area;
272 PtWidgetArea( gui.vimWindow, &area );
273 PtWidgetPos ( gui.vimContainer, &area.pos );
275 PtSetResource( gui.vimContainer, Pt_ARG_AREA, &area, 0 );
278 static int
279 gui_ph_handle_menu_resize(
280 PtWidget_t *widget,
281 void *other,
282 PtCallbackInfo_t *info )
284 PtContainerCallback_t *sizes = info->cbdata;
285 PtWidget_t *container;
286 PhPoint_t below_menu;
287 int_u height;
289 height = sizes->new_dim.h;
291 /* Because vim treats the toolbar and menubar separately,
292 * and here they're lumped together into a PtToolbarGroup,
293 * we only need either menu_height or toolbar_height set at once */
294 if( gui.menu_is_active )
296 gui.menu_height = height;
297 gui.toolbar_height = 0;
299 #ifdef FEAT_TOOLBAR
300 else
301 gui.toolbar_height = height;
302 #endif
304 below_menu.x = 0;
305 below_menu.y = height;
307 #ifdef USE_PANEL_GROUP
308 container = gui.vimPanelGroup;
309 #else
310 container = gui.vimContainer;
311 #endif
313 PtSetResource( container, Pt_ARG_POS, &below_menu, 0 );
315 gui_ph_resize_container();
317 #ifdef USE_PANEL_GROUP
318 gui_ph_get_panelgroup_margins(
319 &pg_margin_top, &pg_margin_bottom,
320 &pg_margin_left, &pg_margin_right );
321 #endif
322 return( Pt_CONTINUE );
326 * Pt_ARG_TIMER_REPEAT isn't used because the on & off times
327 * are different
329 static int
330 gui_ph_handle_timer_cursor(
331 PtWidget_t *widget,
332 void *data,
333 PtCallbackInfo_t *info )
335 if( blink_state == BLINK_ON )
337 gui_undraw_cursor();
338 blink_state = BLINK_OFF;
339 PtSetResource( gui_ph_timer_cursor, Pt_ARG_TIMER_INITIAL,
340 blink_offtime, 0 );
342 else
344 gui_update_cursor(TRUE, FALSE);
345 blink_state = BLINK_ON;
346 PtSetResource( gui_ph_timer_cursor, Pt_ARG_TIMER_INITIAL,
347 blink_ontime, 0 );
349 return( Pt_CONTINUE );
352 static int
353 gui_ph_handle_timer_timeout(PtWidget_t *widget, void *data, PtCallbackInfo_t *info)
355 is_timeout = TRUE;
357 return( Pt_CONTINUE );
360 static int
361 gui_ph_handle_window_cb( PtWidget_t *widget, void *data, PtCallbackInfo_t *info )
363 PhWindowEvent_t *we = info->cbdata;
364 ushort_t *width, *height;
366 switch( we->event_f ) {
367 case Ph_WM_CLOSE:
368 gui_shell_closed();
369 break;
371 case Ph_WM_FOCUS:
372 /* Just in case it's hidden and needs to be shown */
373 gui_mch_mousehide( MOUSE_SHOW );
375 if( we->event_state == Ph_WM_EVSTATE_FOCUS )
377 gui_focus_change(TRUE);
378 gui_mch_start_blink();
380 else
382 gui_focus_change(FALSE);
383 gui_mch_stop_blink();
385 break;
387 case Ph_WM_RESIZE:
388 PtGetResource( gui.vimWindow, Pt_ARG_WIDTH, &width, 0 );
389 PtGetResource( gui.vimWindow, Pt_ARG_HEIGHT, &height, 0 );
390 #ifdef USE_PANEL_GROUP
391 width -= (pg_margin_left + pg_margin_right);
392 height -= (pg_margin_top + pg_margin_bottom);
393 #endif
394 gui_resize_shell( *width, *height );
395 gui_set_shellsize( FALSE, FALSE, RESIZE_BOTH );
396 is_ignore_draw = FALSE;
397 PtEndFlux( gui.vimContainer );
398 PtContainerRelease( gui.vimContainer );
399 break;
401 default:
402 break;
405 return( Pt_CONTINUE );
408 static int
409 gui_ph_handle_scrollbar( PtWidget_t *widget, void *data, PtCallbackInfo_t *info )
411 PtScrollbarCallback_t *scroll;
412 scrollbar_T *sb;
413 int value, dragging = FALSE;
415 scroll = info->cbdata;
417 sb = (scrollbar_T *) data;
418 if( sb != NULL )
420 value = scroll->position;
421 switch( scroll->action )
423 case Pt_SCROLL_DRAGGED:
424 dragging = TRUE;
425 break;
427 case Pt_SCROLL_SET:
428 /* FIXME: return straight away here? */
429 return( Pt_CONTINUE );
430 break;
433 gui_drag_scrollbar(sb, value, dragging);
435 return( Pt_CONTINUE );
438 static int
439 gui_ph_handle_keyboard( PtWidget_t *widget, void *data, PtCallbackInfo_t *info )
441 PhKeyEvent_t *key;
442 unsigned char string[6];
443 int len, i;
444 int ch, modifiers;
446 key = PhGetData( info->event );
448 ch = modifiers = len = 0;
450 if( p_mh )
451 gui_mch_mousehide( MOUSE_HIDE );
453 /* We're a good lil photon program, aren't we? yes we are, yeess wee arrr */
454 if( key->key_flags & Pk_KF_Compose )
456 return( Pt_CONTINUE );
459 if( (key->key_flags & Pk_KF_Cap_Valid) &&
460 PkIsKeyDown( key->key_flags ) )
462 #ifdef FEAT_MENU
464 * Only show the menu if the Alt key is down, and the Shift & Ctrl
465 * keys aren't down, as well as the other conditions
467 if( ( ( key->key_mods & Pk_KM_Alt ) &&
468 !( key->key_mods & Pk_KM_Shift ) &&
469 !( key->key_mods & Pk_KM_Ctrl ) ) &&
470 gui.menu_is_active &&
471 ( *p_wak == 'y' ||
472 ( *p_wak == 'm' &&
473 gui_is_menu_shortcut( key->key_cap ) ) ) )
475 /* Fallthrough and let photon look for the hotkey */
476 return( Pt_CONTINUE );
478 #endif
480 for( i = 0; special_keys[i].key_sym != 0; i++ )
482 if( special_keys[i].key_sym == key->key_cap )
484 len = 0;
485 if( special_keys[i].vim_code1 == NUL )
486 ch = special_keys[i].vim_code0;
487 else
489 /* Detect if a keypad number key has been pressed
490 * and change the key if Num Lock is on */
491 if( key->key_cap >= Pk_KP_Enter && key->key_cap <= Pk_KP_9
492 && ( key->key_mods & Pk_KM_Num_Lock ) )
494 /* FIXME: For now, just map the key to a ascii value
495 * (see <photon/PkKeyDef.h>) */
496 ch = key->key_cap - 0xf080;
498 else
499 ch = TO_SPECIAL( special_keys[i].vim_code0,
500 special_keys[i].vim_code1 );
502 break;
506 if( key->key_mods & Pk_KM_Ctrl )
507 modifiers |= MOD_MASK_CTRL;
508 if( key->key_mods & Pk_KM_Alt )
509 modifiers |= MOD_MASK_ALT;
510 if( key->key_mods & Pk_KM_Shift )
511 modifiers |= MOD_MASK_SHIFT;
513 /* Is this not a special key? */
514 if( special_keys[i].key_sym == 0 )
516 ch = PhTo8859_1( key );
517 if( ch == -1
518 #ifdef FEAT_MBYTE
519 || ( enc_utf8 && ch > 127 )
520 #endif
523 #ifdef FEAT_MBYTE
524 len = PhKeyToMb( string, key );
525 if( len > 0 )
527 static char buf[6];
528 int src_taken, dst_made;
529 if( enc_utf8 != TRUE )
531 PxTranslateFromUTF(
532 charset_translate,
533 string,
534 len,
535 &src_taken,
536 buf,
538 &dst_made );
540 add_to_input_buf( buf, dst_made );
542 else
544 add_to_input_buf( string, len );
547 return( Pt_CONSUME );
549 len = 0;
550 #endif
551 ch = key->key_cap;
552 if( ch < 0xff )
554 /* FIXME: is this the right thing to do? */
555 if( modifiers & MOD_MASK_CTRL )
557 modifiers &= ~MOD_MASK_CTRL;
559 if( ( ch >= 'a' && ch <= 'z' ) ||
560 ch == '[' ||
561 ch == ']' ||
562 ch == '\\' )
563 ch = Ctrl_chr( ch );
564 else if( ch == '2' )
565 ch = NUL;
566 else if( ch == '6' )
567 ch = 0x1e;
568 else if( ch == '-' )
569 ch = 0x1f;
570 else
571 modifiers |= MOD_MASK_CTRL;
574 if( modifiers & MOD_MASK_ALT )
576 ch = Meta( ch );
577 modifiers &= ~MOD_MASK_ALT;
580 else
582 return( Pt_CONTINUE );
585 else
586 modifiers &= ~MOD_MASK_SHIFT;
589 ch = simplify_key( ch, &modifiers );
590 if( modifiers )
592 string[ len++ ] = CSI;
593 string[ len++ ] = KS_MODIFIER;
594 string[ len++ ] = modifiers;
597 if( IS_SPECIAL( ch ) )
599 string[ len++ ] = CSI;
600 string[ len++ ] = K_SECOND( ch );
601 string[ len++ ] = K_THIRD( ch );
603 else
605 string[ len++ ] = ch;
608 if (len == 1 && ((ch == Ctrl_C && ctrl_c_interrupts)
609 || ch == intr_char))
611 trash_input_buf();
612 got_int = TRUE;
615 if (len == 1 && string[0] == CSI)
617 /* Turn CSI into K_CSI. */
618 string[ len++ ] = KS_EXTRA;
619 string[ len++ ] = KE_CSI;
622 if( len > 0 )
624 add_to_input_buf( string, len );
625 return( Pt_CONSUME );
629 return( Pt_CONTINUE );
632 static int
633 gui_ph_handle_mouse( PtWidget_t *widget, void *data, PtCallbackInfo_t *info )
635 PhPointerEvent_t *pointer;
636 PhRect_t *pos;
637 int button = 0, repeated_click, modifiers = 0x0;
638 short mouse_x, mouse_y;
640 pointer = PhGetData( info->event );
641 pos = PhGetRects( info->event );
643 gui_mch_mousehide( MOUSE_SHOW );
646 * Coordinates need to be relative to the base window,
647 * not relative to the vimTextArea widget
649 mouse_x = pos->ul.x + gui.border_width;
650 mouse_y = pos->ul.y + gui.border_width;
652 if( info->event->type == Ph_EV_PTR_MOTION_NOBUTTON )
654 gui_mouse_moved( mouse_x, mouse_y );
655 return( Pt_CONTINUE );
658 if( pointer->key_mods & Pk_KM_Shift )
659 modifiers |= MOUSE_SHIFT;
660 if( pointer->key_mods & Pk_KM_Ctrl )
661 modifiers |= MOUSE_CTRL;
662 if( pointer->key_mods & Pk_KM_Alt )
663 modifiers |= MOUSE_ALT;
666 * FIXME More than one button may be involved, but for
667 * now just deal with one
669 if( pointer->buttons & Ph_BUTTON_SELECT )
670 button = MOUSE_LEFT;
672 if( pointer->buttons & Ph_BUTTON_MENU )
674 button = MOUSE_RIGHT;
675 /* Need the absolute coordinates for the popup menu */
676 abs_mouse.x = pointer->pos.x;
677 abs_mouse.y = pointer->pos.y;
680 if( pointer->buttons & Ph_BUTTON_ADJUST )
681 button = MOUSE_MIDDLE;
683 /* Catch a real release (not phantom or other releases */
684 if( info->event->type == Ph_EV_BUT_RELEASE )
685 button = MOUSE_RELEASE;
687 if( info->event->type & Ph_EV_PTR_MOTION_BUTTON )
688 button = MOUSE_DRAG;
690 #if 0
691 /* Vim doesn't use button repeats */
692 if( info->event->type & Ph_EV_BUT_REPEAT )
693 button = MOUSE_DRAG;
694 #endif
696 /* Don't do anything if it is one of the phantom mouse release events */
697 if( ( button != MOUSE_RELEASE ) ||
698 ( info->event->subtype == Ph_EV_RELEASE_REAL ) )
700 repeated_click = (pointer->click_count >= 2) ? TRUE : FALSE;
702 gui_send_mouse_event( button , mouse_x, mouse_y, repeated_click, modifiers );
705 return( Pt_CONTINUE );
708 /* Handle a focus change of the PtRaw widget */
709 static int
710 gui_ph_handle_focus( PtWidget_t *widget, void *data, PtCallbackInfo_t *info )
712 if( info->reason == Pt_CB_LOST_FOCUS )
714 PtRemoveEventHandler( gui.vimTextArea, Ph_EV_PTR_MOTION_NOBUTTON,
715 gui_ph_handle_mouse, NULL );
717 gui_mch_mousehide( MOUSE_SHOW );
719 else
721 PtAddEventHandler( gui.vimTextArea, Ph_EV_PTR_MOTION_NOBUTTON,
722 gui_ph_handle_mouse, NULL );
724 return( Pt_CONTINUE );
727 static void
728 gui_ph_handle_raw_draw( PtWidget_t *widget, PhTile_t *damage )
730 PhRect_t *r;
731 PhPoint_t offset;
732 PhPoint_t translation;
734 if( is_ignore_draw == TRUE )
735 return;
737 PtSuperClassDraw( PtBasic, widget, damage );
738 PgGetTranslation( &translation );
739 PgClearTranslation();
741 #if 0
743 * This causes some weird problems, with drawing being done from
744 * within this raw drawing function (rather than just simple clearing
745 * and text drawing done by gui_redraw)
747 * The main problem is when PhBlit is used, and the cursor appearing
748 * in places where it shouldn't
750 out_flush();
751 #endif
753 PtWidgetOffset( widget, &offset );
754 PhTranslatePoint( &offset, PtWidgetPos( gui.vimTextArea, NULL ) );
756 #if 1
757 /* Redraw individual damage regions */
758 if( damage->next != NULL )
759 damage = damage->next;
761 while( damage != NULL )
763 r = &damage->rect;
764 gui_redraw(
765 r->ul.x - offset.x, r->ul.y - offset.y,
766 r->lr.x - r->ul.x + 1,
767 r->lr.y - r->ul.y + 1 );
768 damage = damage->next;
770 #else
771 /* Redraw the rectangle that covers all the damaged regions */
772 r = &damage->rect;
773 gui_redraw(
774 r->ul.x - offset.x, r->ul.y - offset.y,
775 r->lr.x - r->ul.x + 1,
776 r->lr.y - r->ul.y + 1 );
777 #endif
779 PgSetTranslation( &translation, 0 );
782 static int
783 gui_ph_handle_pulldown_menu(
784 PtWidget_t *widget,
785 void *data,
786 PtCallbackInfo_t *info )
788 if( data != NULL )
790 vimmenu_T *menu = (vimmenu_T *) data;
792 PtPositionMenu( menu->submenu_id, NULL );
793 PtRealizeWidget( menu->submenu_id );
796 return( Pt_CONTINUE );
799 /* This is used for pulldown/popup menus and also toolbar buttons */
800 static int
801 gui_ph_handle_menu( PtWidget_t *widget, void *data, PtCallbackInfo_t *info )
803 if( data != NULL )
805 vimmenu_T *menu = (vimmenu_T *) data;
806 gui_menu_cb( menu );
808 return( Pt_CONTINUE );
811 /* Stop focus from disappearing into the menubar... */
812 static int
813 gui_ph_handle_menu_unrealized(
814 PtWidget_t *widget,
815 void *data,
816 PtCallbackInfo_t *info )
818 PtGiveFocus( gui.vimTextArea, NULL );
819 return( Pt_CONTINUE );
822 static int
823 gui_ph_handle_window_open(
824 PtWidget_t *widget,
825 void *data,
826 PtCallbackInfo_t *info )
828 gui_set_shellsize( FALSE, TRUE, RESIZE_BOTH );
829 return( Pt_CONTINUE );
832 /****************************************************************************/
834 #define DRAW_START gui_ph_draw_start()
835 #define DRAW_END gui_ph_draw_end()
837 /* TODO: Set a clipping rect? */
838 static void
839 gui_ph_draw_start( void )
841 PgSetRegion( PtWidgetRid( PtFindDisjoint( gui.vimTextArea ) ) );
843 PtWidgetOffset( gui.vimTextArea, &gui_ph_raw_offset );
844 PhTranslatePoint( &gui_ph_raw_offset, PtWidgetPos( gui.vimTextArea, NULL ) );
846 PgSetTranslation( &gui_ph_raw_offset, Pg_RELATIVE );
849 static void
850 gui_ph_draw_end( void )
852 gui_ph_raw_offset.x = -gui_ph_raw_offset.x;
853 gui_ph_raw_offset.y = -gui_ph_raw_offset.y;
854 PgSetTranslation( &gui_ph_raw_offset, Pg_RELATIVE );
857 #ifdef USE_PANEL_GROUP
858 static vimmenu_T *
859 gui_ph_find_buffer_item( char_u *name )
861 vimmenu_T *top_level = root_menu;
862 vimmenu_T *items = NULL;
864 while( top_level != NULL &&
865 ( STRCMP( top_level->dname, "Buffers" ) != 0 ) )
866 top_level = top_level->next;
868 if( top_level != NULL )
870 items = top_level->children;
872 while( items != NULL &&
873 ( STRCMP( items->dname, name ) != 0 ) )
874 items = items->next;
876 return( items );
879 static void
880 gui_ph_pg_set_buffer_num( int_u buf_num )
882 int i;
883 char search[16];
884 char *mark;
886 if( gui.vimTextArea == NULL || buf_num == 0 )
887 return;
889 search[0] = '(';
890 ultoa( buf_num, &search[1], 10 );
891 STRCAT( search, ")" );
893 for( i = 0; i < num_panels; i++ )
895 /* find the last "(" in the panel title and see if the buffer
896 * number in the title matches the one we're looking for */
897 mark = STRRCHR( panel_titles[ i ], '(' );
898 if( mark != NULL && STRCMP( mark, search ) == 0 )
900 PtSetResource( gui.vimPanelGroup, Pt_ARG_PG_CURRENT_INDEX,
901 i, 0 );
906 static int
907 gui_ph_handle_pg_change(
908 PtWidget_t *widget,
909 void *data,
910 PtCallbackInfo_t *info )
912 vimmenu_T *menu;
913 PtPanelGroupCallback_t *panel;
915 if( info->event != NULL )
917 panel = info->cbdata;
918 if( panel->new_panel != NULL )
920 menu = gui_ph_find_buffer_item( panel->new_panel );
921 if( menu )
922 gui_menu_cb( menu );
925 return( Pt_CONTINUE );
928 static void
929 gui_ph_get_panelgroup_margins(
930 short *top,
931 short *bottom,
932 short *left,
933 short *right )
935 unsigned short abs_raw_x, abs_raw_y, abs_panel_x, abs_panel_y;
936 const unsigned short *margin_top, *margin_bottom;
937 const unsigned short *margin_left, *margin_right;
939 PtGetAbsPosition( gui.vimTextArea, &abs_raw_x, &abs_raw_y );
940 PtGetAbsPosition( gui.vimPanelGroup, &abs_panel_x, &abs_panel_y );
942 PtGetResource( gui.vimPanelGroup, Pt_ARG_MARGIN_RIGHT, &margin_right, 0 );
943 PtGetResource( gui.vimPanelGroup, Pt_ARG_MARGIN_BOTTOM, &margin_bottom, 0 );
945 abs_raw_x -= abs_panel_x;
946 abs_raw_y -= abs_panel_y;
948 *top = abs_raw_y;
949 *bottom = *margin_bottom;
951 *left = abs_raw_x;
952 *right = *margin_right;
955 /* Used for the tabs for PtPanelGroup */
956 static int
957 gui_ph_is_buffer_item( vimmenu_T *menu, vimmenu_T *parent )
959 char *mark;
961 if( STRCMP( parent->dname, "Buffers" ) == 0 )
963 /* Look for '(' digits ')' */
964 mark = vim_strchr( menu->dname, '(' );
965 if( mark != NULL )
967 mark++;
968 while( isdigit( *mark ) )
969 mark++;
971 if( *mark == ')' )
972 return( TRUE);
975 return( FALSE );
978 static void
979 gui_ph_pg_add_buffer(char *name )
981 char **new_titles = NULL;
983 new_titles = (char **) alloc( ( num_panels + 1 ) * sizeof( char ** ) );
984 if( new_titles != NULL )
986 if( num_panels > 0 )
987 memcpy( new_titles, panel_titles, num_panels * sizeof( char ** ) );
989 new_titles[ num_panels++ ] = name;
991 PtSetResource( gui.vimPanelGroup, Pt_ARG_PG_PANEL_TITLES, new_titles,
992 num_panels );
994 vim_free( panel_titles );
995 panel_titles = new_titles;
999 static void
1000 gui_ph_pg_remove_buffer( char *name )
1002 int i;
1003 char **new_titles = NULL;
1005 /* If there is only 1 panel, we just use the temporary place holder */
1006 if( num_panels > 1 )
1008 new_titles = (char **) alloc( ( num_panels - 1 ) * sizeof( char ** ) );
1009 if( new_titles != NULL )
1011 char **s = new_titles;
1012 /* Copy all the titles except the one we're removing */
1013 for( i = 0; i < num_panels; i++ )
1015 if( STRCMP( panel_titles[ i ], name ) != 0 )
1017 *s++ = panel_titles[ i ];
1020 num_panels--;
1022 PtSetResource( gui.vimPanelGroup, Pt_ARG_PG_PANEL_TITLES, new_titles,
1023 num_panels );
1025 vim_free( panel_titles );
1026 panel_titles = new_titles;
1029 else
1031 num_panels--;
1032 PtSetResource( gui.vimPanelGroup, Pt_ARG_PG_PANEL_TITLES, &empty_title,
1033 1 );
1035 vim_free( panel_titles );
1036 panel_titles = NULL;
1040 /* When a buffer item is deleted from the buffer menu */
1041 static int
1042 gui_ph_handle_buffer_remove(
1043 PtWidget_t *widget,
1044 void *data,
1045 PtCallbackInfo_t *info )
1047 vimmenu_T *menu;
1049 if( data != NULL )
1051 menu = (vimmenu_T *) data;
1052 gui_ph_pg_remove_buffer( menu->dname );
1055 return( Pt_CONTINUE );
1057 #endif
1059 static int
1060 gui_ph_pane_resize( PtWidget_t *widget, void *data, PtCallbackInfo_t *info )
1062 if( PtWidgetIsRealized( widget ) )
1064 is_ignore_draw = TRUE;
1065 PtStartFlux( gui.vimContainer );
1066 PtContainerHold( gui.vimContainer );
1069 return( Pt_CONTINUE );
1072 /****************************************************************************/
1074 #ifdef FEAT_MBYTE
1075 void
1076 gui_ph_encoding_changed( int new_encoding )
1078 /* Default encoding is latin1 */
1079 char *charset = "latin1";
1080 int i;
1082 struct {
1083 int encoding;
1084 char *name;
1085 } charsets[] = {
1086 { DBCS_JPN, "SHIFT_JIS" },
1087 { DBCS_KOR, "csEUCKR" },
1088 { DBCS_CHT, "big5" },
1089 { DBCS_CHS, "gb" }
1092 for( i = 0; i < ARRAY_LENGTH( charsets ); i++ )
1094 if( new_encoding == charsets[ i ].encoding )
1095 charset = charsets[ i ].name;
1098 charset_translate = PxTranslateSet( charset_translate, charset );
1100 #endif
1102 /****************************************************************************/
1103 /****************************************************************************/
1105 void
1106 gui_mch_prepare(argc, argv)
1107 int *argc;
1108 char **argv;
1110 PtInit( NULL );
1114 gui_mch_init(void)
1116 PtArg_t args[10];
1117 int flags = 0, n = 0;
1119 PhDim_t window_size = {100, 100}; /* Arbitrary values */
1120 PhPoint_t pos = {0, 0};
1122 gui.event_buffer = (PhEvent_t *) alloc( EVENT_BUFFER_SIZE );
1123 if( gui.event_buffer == NULL )
1124 return( FAIL );
1126 /* Get a translation so we can convert from ISO Latin-1 to UTF */
1127 charset_translate = PxTranslateSet( NULL, "latin1" );
1129 /* The +2 is for the 1 pixel dark line on each side */
1130 gui.border_offset = gui.border_width = GUI_PH_MARGIN + 2;
1132 /* Handle close events ourselves */
1133 PtSetArg( &args[ n++ ], Pt_ARG_WINDOW_MANAGED_FLAGS, Pt_FALSE, Ph_WM_CLOSE );
1134 PtSetArg( &args[ n++ ], Pt_ARG_WINDOW_NOTIFY_FLAGS, Pt_TRUE,
1135 Ph_WM_CLOSE | Ph_WM_RESIZE | Ph_WM_FOCUS );
1136 PtSetArg( &args[ n++ ], Pt_ARG_DIM, &window_size, 0 );
1137 gui.vimWindow = PtCreateWidget( PtWindow, NULL, n, args );
1138 if( gui.vimWindow == NULL )
1139 return( FAIL );
1141 PtAddCallback( gui.vimWindow, Pt_CB_WINDOW, gui_ph_handle_window_cb, NULL );
1142 PtAddCallback( gui.vimWindow, Pt_CB_WINDOW_OPENING,
1143 gui_ph_handle_window_open, NULL );
1145 n = 0;
1146 PtSetArg( &args[ n++ ], Pt_ARG_ANCHOR_FLAGS, Pt_ANCHOR_ALL, Pt_IS_ANCHORED );
1147 PtSetArg( &args[ n++ ], Pt_ARG_DIM, &window_size, 0 );
1148 PtSetArg( &args[ n++ ], Pt_ARG_POS, &pos, 0 );
1150 #ifdef USE_PANEL_GROUP
1151 /* Put in a temprary place holder title */
1152 PtSetArg( &args[ n++ ], Pt_ARG_PG_PANEL_TITLES, &empty_title, 1 );
1154 gui.vimPanelGroup = PtCreateWidget( PtPanelGroup, gui.vimWindow, n, args );
1155 if( gui.vimPanelGroup == NULL )
1156 return( FAIL );
1158 PtAddCallback( gui.vimPanelGroup, Pt_CB_PG_PANEL_SWITCHING,
1159 gui_ph_handle_pg_change, NULL );
1160 #else
1161 /* Turn off all edge decorations */
1162 PtSetArg( &args[ n++ ], Pt_ARG_BASIC_FLAGS, Pt_FALSE, Pt_ALL );
1163 PtSetArg( &args[ n++ ], Pt_ARG_BEVEL_WIDTH, 0, 0 );
1164 PtSetArg( &args[ n++ ], Pt_ARG_MARGIN_WIDTH, 0, 0 );
1165 PtSetArg( &args[ n++ ], Pt_ARG_MARGIN_HEIGHT, 0, 0 );
1166 PtSetArg( &args[ n++ ], Pt_ARG_CONTAINER_FLAGS, Pt_TRUE, Pt_AUTO_EXTENT );
1168 gui.vimContainer = PtCreateWidget( PtPane, gui.vimWindow, n, args );
1169 if( gui.vimContainer == NULL )
1170 return( FAIL );
1172 PtAddCallback( gui.vimContainer, Pt_CB_RESIZE, gui_ph_pane_resize, NULL );
1173 #endif
1175 /* Size for the text area is set in gui_mch_set_text_area_pos */
1176 n = 0;
1178 PtSetArg( &args[ n++ ], Pt_ARG_RAW_DRAW_F, gui_ph_handle_raw_draw, 1 );
1179 PtSetArg( &args[ n++ ], Pt_ARG_BEVEL_WIDTH, GUI_PH_MARGIN, 0 );
1181 * Using focus render also causes the whole widget to be redrawn
1182 * whenever it changes focus, which is very annoying :p
1184 PtSetArg( &args[ n++ ], Pt_ARG_FLAGS, Pt_TRUE,
1185 Pt_GETS_FOCUS | Pt_HIGHLIGHTED );
1186 #ifndef FEAT_MOUSESHAPE
1187 PtSetArg( &args[ n++ ], Pt_ARG_CURSOR_TYPE, GUI_PH_MOUSE_TYPE, 0 );
1188 PtSetArg( &args[ n++ ], Pt_ARG_CURSOR_COLOR, gui_ph_mouse_color, 0 );
1189 #endif
1191 gui.vimTextArea = PtCreateWidget( PtRaw, Pt_DFLT_PARENT, n, args );
1192 if( gui.vimTextArea == NULL)
1193 return( FAIL );
1195 /* TODO: use PtAddEventHandlers instead? */
1196 /* Not using Ph_EV_BUT_REPEAT because vim wouldn't use it anyway */
1197 PtAddEventHandler( gui.vimTextArea,
1198 Ph_EV_BUT_PRESS | Ph_EV_BUT_RELEASE | Ph_EV_PTR_MOTION_BUTTON,
1199 gui_ph_handle_mouse, NULL );
1200 PtAddEventHandler( gui.vimTextArea, Ph_EV_KEY,
1201 gui_ph_handle_keyboard, NULL );
1202 PtAddCallback( gui.vimTextArea, Pt_CB_GOT_FOCUS,
1203 gui_ph_handle_focus, NULL );
1204 PtAddCallback( gui.vimTextArea, Pt_CB_LOST_FOCUS,
1205 gui_ph_handle_focus, NULL );
1208 * Now that the text area widget has been created, set up the colours,
1209 * which wil call PtSetResource from gui_mch_new_colors
1213 * Create the two timers, not as accurate as using the kernel timer
1214 * functions, but good enough
1216 gui_ph_timer_cursor = PtCreateWidget( PtTimer, gui.vimWindow, 0, NULL );
1217 if( gui_ph_timer_cursor == NULL )
1218 return( FAIL );
1220 gui_ph_timer_timeout = PtCreateWidget( PtTimer, gui.vimWindow, 0, NULL );
1221 if( gui_ph_timer_timeout == NULL )
1222 return( FAIL );
1224 PtAddCallback( gui_ph_timer_cursor, Pt_CB_TIMER_ACTIVATE,
1225 gui_ph_handle_timer_cursor, NULL);
1226 PtAddCallback( gui_ph_timer_timeout, Pt_CB_TIMER_ACTIVATE,
1227 gui_ph_handle_timer_timeout, NULL);
1229 #ifdef FEAT_MENU
1230 n = 0;
1231 PtSetArg( &args[ n++ ], Pt_ARG_WIDTH, window_size.w, 0 );
1232 PtSetArg( &args[ n++ ], Pt_ARG_ANCHOR_FLAGS, Pt_ANCHOR_LEFT_RIGHT,
1233 Pt_IS_ANCHORED );
1234 gui.vimToolBarGroup = PtCreateWidget( PtToolbarGroup, gui.vimWindow,
1235 n, args );
1236 if( gui.vimToolBarGroup == NULL )
1237 return( FAIL );
1239 PtAddCallback( gui.vimToolBarGroup, Pt_CB_RESIZE,
1240 gui_ph_handle_menu_resize, NULL );
1242 n = 0;
1243 flags = 0;
1244 PtSetArg( &args[ n++ ], Pt_ARG_WIDTH, window_size.w, 0 );
1245 if( ! vim_strchr( p_go, GO_MENUS ) )
1247 flags |= Pt_DELAY_REALIZE;
1248 PtSetArg( &args[ n++ ], Pt_ARG_FLAGS, Pt_TRUE, flags );
1250 gui.vimMenuBar = PtCreateWidget( PtMenuBar, gui.vimToolBarGroup, n, args );
1251 if( gui.vimMenuBar == NULL )
1252 return( FAIL );
1254 # ifdef FEAT_TOOLBAR
1255 n = 0;
1257 PtSetArg( &args[ n++ ], Pt_ARG_ANCHOR_FLAGS,
1258 Pt_ANCHOR_LEFT_RIGHT |Pt_TOP_ANCHORED_TOP, Pt_IS_ANCHORED );
1259 PtSetArg( &args[ n++ ], Pt_ARG_RESIZE_FLAGS, Pt_TRUE,
1260 Pt_RESIZE_Y_AS_REQUIRED );
1261 PtSetArg( &args[ n++ ], Pt_ARG_WIDTH, window_size.w, 0 );
1263 flags = Pt_GETS_FOCUS;
1264 if( ! vim_strchr( p_go, GO_TOOLBAR ) )
1265 flags |= Pt_DELAY_REALIZE;
1267 PtSetArg( &args[ n++ ], Pt_ARG_FLAGS, Pt_DELAY_REALIZE, flags );
1269 gui.vimToolBar = PtCreateWidget( PtToolbar, gui.vimToolBarGroup, n, args );
1270 if( gui.vimToolBar == NULL )
1271 return( FAIL );
1274 * Size for the toolbar is fetched in gui_mch_show_toolbar, after
1275 * the buttons have been added and the toolbar has resized it's height
1276 * for the buttons to fit
1278 # endif
1280 #endif
1282 return( OK );
1286 gui_mch_init_check(void)
1288 return( (is_photon_available == TRUE) ? OK : FAIL );
1292 gui_mch_open(void)
1294 gui.norm_pixel = Pg_BLACK;
1295 gui.back_pixel = Pg_WHITE;
1297 set_normal_colors();
1299 gui_check_colors();
1300 gui.def_norm_pixel = gui.norm_pixel;
1301 gui.def_back_pixel = gui.back_pixel;
1303 highlight_gui_started();
1305 if (gui_win_x != -1 && gui_win_y != -1)
1306 gui_mch_set_winpos(gui_win_x, gui_win_y);
1308 return( (PtRealizeWidget( gui.vimWindow ) == 0) ? OK : FAIL );
1311 void
1312 gui_mch_exit(int rc)
1314 PtDestroyWidget( gui.vimWindow );
1316 PxTranslateSet( charset_translate, NULL );
1318 vim_free( gui.event_buffer );
1320 #ifdef USE_PANEL_GROUPS
1321 vim_free( panel_titles );
1322 #endif
1325 /****************************************************************************/
1326 /* events */
1328 /* When no events are available, photon will call this function, working is
1329 * set to FALSE, and the gui_mch_update loop will exit. */
1330 static int
1331 exit_gui_mch_update( void *data )
1333 *(int *)data = FALSE;
1334 return( Pt_END );
1337 void
1338 gui_mch_update(void)
1340 int working = TRUE;
1342 PtAppAddWorkProc( NULL, exit_gui_mch_update, &working );
1343 while( ( working == TRUE ) && !vim_is_input_buf_full())
1345 PtProcessEvent();
1350 gui_mch_wait_for_chars(int wtime)
1352 is_timeout = FALSE;
1354 if( wtime > 0 )
1355 PtSetResource( gui_ph_timer_timeout, Pt_ARG_TIMER_INITIAL, wtime, 0 );
1357 while( 1 )
1359 PtProcessEvent();
1360 if( input_available() )
1362 PtSetResource( gui_ph_timer_timeout, Pt_ARG_TIMER_INITIAL, 0, 0 );
1363 return( OK );
1365 else if( is_timeout == TRUE )
1366 return( FAIL );
1370 #if defined( FEAT_BROWSE ) || defined( PROTO )
1372 * Put up a file requester.
1373 * Returns the selected name in allocated memory, or NULL for Cancel.
1374 * saving, select file to write
1375 * title title for the window
1376 * default_name default name (well duh!)
1377 * ext not used (extension added)
1378 * initdir initial directory, NULL for current dir
1379 * filter not used (file name filter)
1381 char_u *
1382 gui_mch_browse(
1383 int saving,
1384 char_u *title,
1385 char_u *default_name,
1386 char_u *ext,
1387 char_u *initdir,
1388 char_u *filter)
1390 PtFileSelectionInfo_t file;
1391 int flags;
1392 char_u *default_path;
1393 char_u *open_text = NULL;
1395 flags = 0;
1396 memset( &file, 0, sizeof( file ) );
1398 default_path = alloc( MAXPATHL + 1 + NAME_MAX + 1 );
1399 if( default_path != NULL )
1401 if( saving == TRUE )
1403 /* Don't need Pt_FSR_CONFIRM_EXISTING, vim will ask anyway */
1404 flags |= Pt_FSR_NO_FCHECK;
1405 open_text = "&Save";
1408 /* combine the directory and filename into a single path */
1409 if( initdir == NULL || *initdir == NUL )
1411 mch_dirname( default_path, MAXPATHL );
1412 initdir = default_path;
1414 else
1416 STRCPY( default_path, initdir );
1417 initdir = default_path;
1420 if( default_name != NULL )
1422 if( default_path[ STRLEN( default_path ) - 1 ] != '/' )
1423 STRCAT( default_path, "/" );
1425 STRCAT( default_path, default_name );
1428 /* TODO: add a filter? */
1429 PtFileSelection(
1430 gui.vimWindow,
1431 NULL,
1432 title,
1433 default_path,
1434 NULL,
1435 open_text,
1436 NULL,
1437 NULL,
1438 &file,
1439 flags );
1441 vim_free( default_path );
1443 if( file.ret == Pt_FSDIALOG_BTN1 )
1444 return( vim_strsave( file.path ) );
1446 return( NULL );
1448 #endif
1450 #if defined( FEAT_GUI_DIALOG ) || defined( PROTO )
1451 static PtWidget_t *gui_ph_dialog_text = NULL;
1453 static int
1454 gui_ph_dialog_close( int button, void *data )
1456 PtModalCtrl_t *modal_ctrl = data;
1457 char_u *dialog_text, *vim_text;
1459 if( gui_ph_dialog_text != NULL )
1461 PtGetResource( gui_ph_dialog_text, Pt_ARG_TEXT_STRING, &dialog_text, 0 );
1462 PtGetResource( gui_ph_dialog_text, Pt_ARG_POINTER, &vim_text, 0 );
1463 STRNCPY( vim_text, dialog_text, IOSIZE - 1 );
1466 PtModalUnblock( modal_ctrl, (void *) button );
1468 return( Pt_TRUE );
1471 static int
1472 gui_ph_dialog_text_enter( PtWidget_t *widget, void *data, PtCallbackInfo_t *info )
1474 if( info->reason_subtype == Pt_EDIT_ACTIVATE )
1475 gui_ph_dialog_close( 1, data );
1476 return( Pt_CONTINUE );
1479 static int
1480 gui_ph_dialog_esc( PtWidget_t *widget, void *data, PtCallbackInfo_t *info )
1482 PhKeyEvent_t *key;
1484 key = PhGetData( info->event );
1485 if( ( key->key_flags & Pk_KF_Cap_Valid ) && ( key->key_cap == Pk_Escape ) )
1487 gui_ph_dialog_close( 0, data );
1488 return( Pt_CONSUME );
1490 return( Pt_PROCESS );
1494 gui_mch_dialog(
1495 int type,
1496 char_u *title,
1497 char_u *message,
1498 char_u *buttons,
1499 int default_button,
1500 char_u *textfield)
1502 char_u *str;
1503 char_u **button_array;
1504 char_u *buttons_copy;
1506 int button_count;
1507 int i, len;
1508 int dialog_result = -1;
1510 /* FIXME: the vertical option in guioptions is blatantly ignored */
1511 /* FIXME: so is the type */
1513 button_count = len = i = 0;
1515 if( buttons == NULL || *buttons == NUL )
1516 return( -1 );
1518 /* There is one less separator than buttons, so bump up the button count */
1519 button_count = 1;
1521 /* Count string length and number of seperators */
1522 for( str = buttons; *str; str++ )
1524 len++;
1525 if( *str == DLG_BUTTON_SEP )
1526 button_count++;
1529 if ( title == NULL )
1530 title = "Vim";
1532 buttons_copy = alloc( len + 1 );
1533 button_array = (char_u **) alloc( button_count * sizeof( char_u * ) );
1534 if( buttons_copy != NULL && button_array != NULL )
1536 STRCPY( buttons_copy, buttons );
1539 * Convert DLG_BUTTON_SEP into NUL's and fill in
1540 * button_array with the pointer to each NUL terminated string
1542 str = buttons_copy;
1543 for( i = 0; i < button_count; i++ )
1545 button_array[ i ] = str;
1546 for( ; *str; str++ )
1548 if( *str == DLG_BUTTON_SEP )
1550 *str++ = NUL;
1551 break;
1555 #ifndef FEAT_GUI_TEXTDIALOG
1556 dialog_result = PtAlert(
1557 gui.vimWindow, NULL,
1558 title,
1559 NULL,
1560 message, NULL,
1561 button_count, (const char **) button_array, NULL,
1562 default_button, 0, Pt_MODAL );
1563 #else
1564 /* Writing the dialog ourselves lets us add extra features, like
1565 * trapping the escape key and returning 0 to vim */
1567 int n;
1568 PtArg_t args[5];
1569 PtWidget_t *dialog, *pane;
1570 PtModalCtrl_t modal_ctrl;
1571 PtDialogInfo_t di;
1573 memset( &di, 0, sizeof( di ) );
1574 memset( &modal_ctrl, 0, sizeof( modal_ctrl ) );
1576 n = 0;
1577 PtSetArg( &args[n++], Pt_ARG_GROUP_ROWS_COLS, 0, 0 );
1578 PtSetArg( &args[n++], Pt_ARG_WIDTH, 350, 0 );
1579 PtSetArg( &args[n++], Pt_ARG_GROUP_ORIENTATION,
1580 Pt_GROUP_VERTICAL, 0 );
1581 PtSetArg( &args[n++], Pt_ARG_GROUP_FLAGS,
1582 Pt_TRUE, Pt_GROUP_NO_KEYS | Pt_GROUP_STRETCH_HORIZONTAL );
1583 PtSetArg( &args[n++], Pt_ARG_CONTAINER_FLAGS, Pt_FALSE, Pt_TRUE );
1584 pane = PtCreateWidget( PtGroup, NULL, n, args );
1586 n = 0;
1587 PtSetArg( &args[n++], Pt_ARG_TEXT_STRING, message, 0 );
1588 PtCreateWidget( PtLabel, pane, n, args );
1590 if( textfield != NULL )
1592 n = 0;
1593 PtSetArg( &args[n++], Pt_ARG_MAX_LENGTH, IOSIZE - 1, 0 );
1594 PtSetArg( &args[n++], Pt_ARG_TEXT_STRING, textfield, 0 );
1595 PtSetArg( &args[n++], Pt_ARG_POINTER, textfield, 0 );
1596 gui_ph_dialog_text = PtCreateWidget( PtText, pane, n, args );
1597 PtAddCallback( gui_ph_dialog_text, Pt_CB_ACTIVATE,
1598 gui_ph_dialog_text_enter, &modal_ctrl );
1601 di.parent = gui.vimWindow;
1602 di.pane = pane;
1603 di.title = title;
1604 di.buttons = (const char **) button_array;
1605 di.nbtns = button_count;
1606 di.def_btn = default_button;
1607 /* This is just to give the dialog the close button.
1608 * We check for the Escape key ourselves and return 0 */
1609 di.esc_btn = button_count;
1610 di.callback = gui_ph_dialog_close;
1611 di.data = &modal_ctrl;
1613 dialog = PtCreateDialog( &di );
1614 PtAddFilterCallback( dialog, Ph_EV_KEY,
1615 gui_ph_dialog_esc, &modal_ctrl );
1617 if( gui_ph_dialog_text != NULL )
1618 PtGiveFocus( gui_ph_dialog_text, NULL );
1620 /* Open dialog, block the vim window and wait for the dialog to close */
1621 PtRealizeWidget( dialog );
1622 PtMakeModal( dialog, Ph_CURSOR_NOINPUT, Ph_CURSOR_DEFAULT_COLOR );
1623 dialog_result = (int) PtModalBlock( &modal_ctrl, 0 );
1625 PtDestroyWidget( dialog );
1626 gui_ph_dialog_text = NULL;
1628 #endif
1631 vim_free( button_array );
1632 vim_free( buttons_copy );
1634 return( dialog_result );
1636 #endif
1637 /****************************************************************************/
1638 /* window size/position/state */
1641 gui_mch_get_winpos(int *x, int *y)
1643 PhPoint_t *pos;
1645 pos = PtWidgetPos( gui.vimWindow, NULL );
1647 *x = pos->x;
1648 *y = pos->y;
1650 return( OK );
1653 void
1654 gui_mch_set_winpos(int x, int y)
1656 PhPoint_t pos = { x, y };
1658 PtSetResource( gui.vimWindow, Pt_ARG_POS, &pos, 0 );
1661 void
1662 gui_mch_set_shellsize(int width, int height,
1663 int min_width, int min_height, int base_width, int base_height,
1664 int direction)
1666 PhDim_t window_size = { width, height };
1667 PhDim_t min_size = { min_width, min_height };
1669 #ifdef USE_PANEL_GROUP
1670 window_size.w += pg_margin_left + pg_margin_right;
1671 window_size.h += pg_margin_top + pg_margin_bottom;
1672 #endif
1674 PtSetResource( gui.vimWindow, Pt_ARG_MINIMUM_DIM, &min_size, 0 );
1675 PtSetResource( gui.vimWindow, Pt_ARG_DIM, &window_size, 0 );
1677 if( ! PtWidgetIsRealized( gui.vimWindow ) )
1678 gui_ph_resize_container();
1682 * Return the amount of screen space that hasn't been allocated (such as
1683 * by the shelf).
1685 void
1686 gui_mch_get_screen_dimensions(int *screen_w, int *screen_h)
1688 PhRect_t console;
1690 PhWindowQueryVisible( Ph_QUERY_WORKSPACE, 0,
1691 PhInputGroup( NULL ), &console );
1693 *screen_w = console.lr.x - console.ul.x + 1;
1694 *screen_h = console.lr.y - console.ul.y + 1;
1697 void
1698 gui_mch_iconify(void)
1700 PhWindowEvent_t event;
1702 memset( &event, 0, sizeof (event) );
1703 event.event_f = Ph_WM_HIDE;
1704 event.event_state = Ph_WM_EVSTATE_HIDE;
1705 event.rid = PtWidgetRid( gui.vimWindow );
1706 PtForwardWindowEvent( &event );
1709 #if defined(FEAT_EVAL) || defined(PROTO)
1711 * Bring the Vim window to the foreground.
1713 void
1714 gui_mch_set_foreground()
1716 PhWindowEvent_t event;
1718 memset( &event, 0, sizeof (event) );
1719 event.event_f = Ph_WM_TOFRONT;
1720 event.event_state = Ph_WM_EVSTATE_FFRONT;
1721 event.rid = PtWidgetRid( gui.vimWindow );
1722 PtForwardWindowEvent( &event );
1724 #endif
1726 void
1727 gui_mch_settitle(char_u *title, char_u *icon)
1729 #ifdef USE_PANEL_GROUP
1730 gui_ph_pg_set_buffer_num( curwin->w_buffer->b_fnum );
1731 #endif
1732 PtSetResource( gui.vimWindow, Pt_ARG_WINDOW_TITLE, title, 0 );
1733 /* Not sure what to do with the icon text, set balloon text somehow? */
1736 /****************************************************************************/
1737 /* Scrollbar */
1739 void
1740 gui_mch_set_scrollbar_thumb(scrollbar_T *sb, int val, int size, int max)
1742 int n = 0;
1743 PtArg_t args[3];
1745 PtSetArg( &args[ n++ ], Pt_ARG_MAXIMUM, max, 0 );
1746 PtSetArg( &args[ n++ ], Pt_ARG_SLIDER_SIZE, size, 0 );
1747 PtSetArg( &args[ n++ ], Pt_ARG_GAUGE_VALUE, val, 0 );
1748 PtSetResources( sb->id, n, args );
1751 void
1752 gui_mch_set_scrollbar_pos(scrollbar_T *sb, int x, int y, int w, int h)
1754 PhArea_t area = {{ x, y }, { w, h }};
1756 PtSetResource( sb->id, Pt_ARG_AREA, &area, 0 );
1759 void
1760 gui_mch_create_scrollbar(scrollbar_T *sb, int orient)
1762 int n = 0;
1763 /* int anchor_flags = 0;*/
1764 PtArg_t args[4];
1767 * Stop the scrollbar from being realized when the parent
1768 * is realized, so it can be explicitly realized by vim.
1770 * Also, don't let the scrollbar get focus
1772 PtSetArg( &args[ n++ ], Pt_ARG_FLAGS, Pt_DELAY_REALIZE,
1773 Pt_DELAY_REALIZE | Pt_GETS_FOCUS );
1774 PtSetArg( &args[ n++ ], Pt_ARG_SCROLLBAR_FLAGS, Pt_SCROLLBAR_SHOW_ARROWS, 0);
1775 #if 0
1776 /* Don't need this anchoring for the scrollbars */
1777 if( orient == SBAR_HORIZ )
1779 anchor_flags = Pt_BOTTOM_ANCHORED_BOTTOM |
1780 Pt_LEFT_ANCHORED_LEFT | Pt_RIGHT_ANCHORED_RIGHT;
1782 else
1784 anchor_flags = Pt_BOTTOM_ANCHORED_BOTTOM | Pt_TOP_ANCHORED_TOP;
1785 if( sb->wp != NULL )
1787 if( sb == &sb->wp->w_scrollbars[ SBAR_LEFT ] )
1788 anchor_flags |= Pt_LEFT_ANCHORED_LEFT;
1789 else
1790 anchor_flags |= Pt_RIGHT_ANCHORED_RIGHT;
1793 PtSetArg( &args[ n++ ], Pt_ARG_ANCHOR_FLAGS, anchor_flags, Pt_IS_ANCHORED );
1794 #endif
1795 PtSetArg( &args[ n++ ], Pt_ARG_ORIENTATION,
1796 (orient == SBAR_HORIZ) ? Pt_HORIZONTAL : Pt_VERTICAL, 0 );
1797 #ifdef USE_PANEL_GROUP
1798 sb->id = PtCreateWidget( PtScrollbar, gui.vimPanelGroup, n, args );
1799 #else
1800 sb->id = PtCreateWidget( PtScrollbar, gui.vimContainer, n, args );
1801 #endif
1803 PtAddCallback( sb->id, Pt_CB_SCROLLBAR_MOVE, gui_ph_handle_scrollbar, sb );
1806 void
1807 gui_mch_enable_scrollbar(scrollbar_T *sb, int flag)
1809 if( flag != 0 )
1810 PtRealizeWidget( sb->id );
1811 else
1812 PtUnrealizeWidget( sb->id );
1815 void
1816 gui_mch_destroy_scrollbar(scrollbar_T *sb)
1818 PtDestroyWidget( sb->id );
1819 sb->id = NULL;
1822 /****************************************************************************/
1823 /* Mouse functions */
1825 #if defined(FEAT_MOUSESHAPE) || defined(PROTO)
1826 /* The last set mouse pointer shape is remembered, to be used when it goes
1827 * from hidden to not hidden. */
1828 static int last_shape = 0;
1830 /* Table for shape IDs. Keep in sync with the mshape_names[] table in
1831 * misc2.c! */
1832 static int mshape_ids[] =
1834 Ph_CURSOR_POINTER, /* arrow */
1835 Ph_CURSOR_NONE, /* blank */
1836 Ph_CURSOR_INSERT, /* beam */
1837 Ph_CURSOR_DRAG_VERTICAL, /* updown */
1838 Ph_CURSOR_DRAG_VERTICAL, /* udsizing */
1839 Ph_CURSOR_DRAG_HORIZONTAL, /* leftright */
1840 Ph_CURSOR_DRAG_HORIZONTAL, /* lrsizing */
1841 Ph_CURSOR_WAIT, /* busy */
1842 Ph_CURSOR_DONT, /* no */
1843 Ph_CURSOR_CROSSHAIR, /* crosshair */
1844 Ph_CURSOR_FINGER, /* hand1 */
1845 Ph_CURSOR_FINGER, /* hand2 */
1846 Ph_CURSOR_FINGER, /* pencil */
1847 Ph_CURSOR_QUESTION_POINT, /* question */
1848 Ph_CURSOR_POINTER, /* right-arrow */
1849 Ph_CURSOR_POINTER, /* up-arrow */
1850 Ph_CURSOR_POINTER /* last one */
1853 void
1854 mch_set_mouse_shape(shape)
1855 int shape;
1857 int id;
1859 if (!gui.in_use)
1860 return;
1862 if (shape == MSHAPE_HIDE || gui.pointer_hidden)
1863 PtSetResource( gui.vimTextArea, Pt_ARG_CURSOR_TYPE, Ph_CURSOR_NONE,
1864 0 );
1865 else
1867 if (shape >= MSHAPE_NUMBERED)
1868 id = Ph_CURSOR_POINTER;
1869 else
1870 id = mshape_ids[shape];
1872 PtSetResource( gui.vimTextArea, Pt_ARG_CURSOR_TYPE, id, 0 );
1874 if (shape != MSHAPE_HIDE)
1875 last_shape = shape;
1877 #endif
1879 void
1880 gui_mch_mousehide(int hide)
1882 if( gui.pointer_hidden != hide )
1884 gui.pointer_hidden = hide;
1885 #ifdef FEAT_MOUSESHAPE
1886 if( hide )
1887 PtSetResource( gui.vimTextArea, Pt_ARG_CURSOR_TYPE,
1888 Ph_CURSOR_NONE, 0 );
1889 else
1890 mch_set_mouse_shape( last_shape );
1891 #else
1892 PtSetResource( gui.vimTextArea, Pt_ARG_CURSOR_TYPE,
1893 ( hide == MOUSE_SHOW ) ? GUI_PH_MOUSE_TYPE : Ph_CURSOR_NONE,
1894 0 );
1895 #endif
1899 void
1900 gui_mch_getmouse(int *x, int *y)
1902 PhCursorInfo_t info;
1903 short ix, iy;
1905 /* FIXME: does this return the correct position,
1906 * with respect to the border? */
1907 PhQueryCursor( PhInputGroup( NULL ), &info );
1908 PtGetAbsPosition( gui.vimTextArea , &ix, &iy );
1910 *x = info.pos.x - ix;
1911 *y = info.pos.y - iy;
1914 void
1915 gui_mch_setmouse(int x, int y)
1917 short abs_x, abs_y;
1919 PtGetAbsPosition( gui.vimTextArea, &abs_x, &abs_y );
1920 /* Add the border offset? */
1921 PhMoveCursorAbs( PhInputGroup( NULL ), abs_x + x, abs_y + y );
1924 /****************************************************************************/
1925 /* Colours */
1928 * Return the RGB value of a pixel as a long.
1930 long_u
1931 gui_mch_get_rgb(guicolor_T pixel)
1933 return PgRGB(PgRedValue(pixel), PgGreenValue(pixel), PgBlueValue(pixel));
1936 void
1937 gui_mch_new_colors(void)
1939 #if 0 /* Don't bother changing the cursor colour */
1940 short color_diff;
1943 * If there isn't enough difference between the background colour and
1944 * the mouse pointer colour then change the mouse pointer colour
1946 color_diff = gui_get_lightness(gui_ph_mouse_color)
1947 - gui_get_lightness(gui.back_pixel);
1949 if( abs( color_diff ) < 64 )
1951 short r, g, b;
1952 /* not a great algorithm... */
1953 r = PgRedValue( gui_ph_mouse_color ) ^ 255;
1954 g = PgGreenValue( gui_ph_mouse_color ) ^ 255;
1955 b = PgBlueValue( gui_ph_mouse_color ) ^ 255;
1957 #ifndef FEAT_MOUSESHAPE
1958 gui_ph_mouse_color = PgRGB( r, g, b );
1959 PtSetResource( gui.vimTextArea, Pt_ARG_CURSOR_COLOR,
1960 gui_ph_mouse_color, 0 );
1961 #endif
1963 #endif
1965 PtSetResource( gui.vimTextArea, Pt_ARG_FILL_COLOR, gui.back_pixel, 0 );
1968 static int
1969 hex_digit(int c)
1971 if (VIM_ISDIGIT(c))
1972 return( c - '0' );
1973 c = TOLOWER_ASC(c);
1974 if (c >= 'a' && c <= 'f')
1975 return( c - 'a' + 10 );
1976 return( -1000 );
1981 * This should be split out into a separate file,
1982 * every port does basically the same thing.
1984 * This is the gui_w32.c version (i think..)
1985 * Return INVALCOLOR when failed.
1988 guicolor_T
1989 gui_mch_get_color(char_u *name)
1991 int i;
1992 int r, g, b;
1995 typedef struct GuiColourTable
1997 char *name;
1998 guicolor_T colour;
1999 } GuiColourTable;
2001 static GuiColourTable table[] =
2003 {"Black", RGB(0x00, 0x00, 0x00)},
2004 {"DarkGray", RGB(0x80, 0x80, 0x80)},
2005 {"DarkGrey", RGB(0x80, 0x80, 0x80)},
2006 {"Gray", RGB(0xC0, 0xC0, 0xC0)},
2007 {"Grey", RGB(0xC0, 0xC0, 0xC0)},
2008 {"LightGray", RGB(0xD3, 0xD3, 0xD3)},
2009 {"LightGrey", RGB(0xD3, 0xD3, 0xD3)},
2010 {"Gray10", RGB(0x1A, 0x1A, 0x1A)},
2011 {"Grey10", RGB(0x1A, 0x1A, 0x1A)},
2012 {"Gray20", RGB(0x33, 0x33, 0x33)},
2013 {"Grey20", RGB(0x33, 0x33, 0x33)},
2014 {"Gray30", RGB(0x4D, 0x4D, 0x4D)},
2015 {"Grey30", RGB(0x4D, 0x4D, 0x4D)},
2016 {"Gray40", RGB(0x66, 0x66, 0x66)},
2017 {"Grey40", RGB(0x66, 0x66, 0x66)},
2018 {"Gray50", RGB(0x7F, 0x7F, 0x7F)},
2019 {"Grey50", RGB(0x7F, 0x7F, 0x7F)},
2020 {"Gray60", RGB(0x99, 0x99, 0x99)},
2021 {"Grey60", RGB(0x99, 0x99, 0x99)},
2022 {"Gray70", RGB(0xB3, 0xB3, 0xB3)},
2023 {"Grey70", RGB(0xB3, 0xB3, 0xB3)},
2024 {"Gray80", RGB(0xCC, 0xCC, 0xCC)},
2025 {"Grey80", RGB(0xCC, 0xCC, 0xCC)},
2026 {"Gray90", RGB(0xE5, 0xE5, 0xE5)},
2027 {"Grey90", RGB(0xE5, 0xE5, 0xE5)},
2028 {"White", RGB(0xFF, 0xFF, 0xFF)},
2029 {"DarkRed", RGB(0x80, 0x00, 0x00)},
2030 {"Red", RGB(0xFF, 0x00, 0x00)},
2031 {"LightRed", RGB(0xFF, 0xA0, 0xA0)},
2032 {"DarkBlue", RGB(0x00, 0x00, 0x80)},
2033 {"Blue", RGB(0x00, 0x00, 0xFF)},
2034 {"LightBlue", RGB(0xA0, 0xA0, 0xFF)},
2035 {"DarkGreen", RGB(0x00, 0x80, 0x00)},
2036 {"Green", RGB(0x00, 0xFF, 0x00)},
2037 {"LightGreen", RGB(0xA0, 0xFF, 0xA0)},
2038 {"DarkCyan", RGB(0x00, 0x80, 0x80)},
2039 {"Cyan", RGB(0x00, 0xFF, 0xFF)},
2040 {"LightCyan", RGB(0xA0, 0xFF, 0xFF)},
2041 {"DarkMagenta", RGB(0x80, 0x00, 0x80)},
2042 {"Magenta", RGB(0xFF, 0x00, 0xFF)},
2043 {"LightMagenta", RGB(0xFF, 0xA0, 0xFF)},
2044 {"Brown", RGB(0x80, 0x40, 0x40)},
2045 {"Yellow", RGB(0xFF, 0xFF, 0x00)},
2046 {"LightYellow", RGB(0xFF, 0xFF, 0xA0)},
2047 {"SeaGreen", RGB(0x2E, 0x8B, 0x57)},
2048 {"Orange", RGB(0xFF, 0xA5, 0x00)},
2049 {"Purple", RGB(0xA0, 0x20, 0xF0)},
2050 {"SlateBlue", RGB(0x6A, 0x5A, 0xCD)},
2051 {"Violet", RGB(0xEE, 0x82, 0xEE)},
2054 /* is name #rrggbb format? */
2055 if( name[0] == '#' && STRLEN( name ) == 7 )
2057 r = hex_digit( name[1] ) * 16 + hex_digit( name[2] );
2058 g = hex_digit( name[3] ) * 16 + hex_digit( name[4] );
2059 b = hex_digit( name[5] ) * 16 + hex_digit( name[6] );
2060 if( r < 0 || g < 0 || b < 0 )
2061 return INVALCOLOR;
2062 return( RGB( r, g, b ) );
2065 for( i = 0; i < ARRAY_LENGTH( table ); i++ )
2067 if( STRICMP( name, table[i].name ) == 0 )
2068 return( table[i].colour );
2072 * Last attempt. Look in the file "$VIMRUNTIME/rgb.txt".
2075 #define LINE_LEN 100
2076 FILE *fd;
2077 char line[LINE_LEN];
2078 char_u *fname;
2080 fname = expand_env_save((char_u *)"$VIMRUNTIME/rgb.txt");
2081 if (fname == NULL)
2082 return INVALCOLOR;
2084 fd = fopen((char *)fname, "rt");
2085 vim_free(fname);
2086 if (fd == NULL)
2087 return INVALCOLOR;
2089 while (!feof(fd))
2091 int len;
2092 int pos;
2093 char *color;
2095 fgets(line, LINE_LEN, fd);
2096 len = STRLEN(line);
2098 if (len <= 1 || line[len-1] != '\n')
2099 continue;
2101 line[len-1] = '\0';
2103 i = sscanf(line, "%d %d %d %n", &r, &g, &b, &pos);
2104 if (i != 3)
2105 continue;
2107 color = line + pos;
2109 if (STRICMP(color, name) == 0)
2111 fclose(fd);
2112 return( (guicolor_T) RGB(r,g,b) );
2116 fclose(fd);
2120 return INVALCOLOR;
2123 void
2124 gui_mch_set_fg_color(guicolor_T color)
2126 PgSetTextColor( color );
2129 void
2130 gui_mch_set_bg_color(guicolor_T color)
2132 PgSetFillColor( color );
2135 void
2136 gui_mch_set_sp_color(guicolor_T color)
2140 void
2141 gui_mch_invert_rectangle(int row, int col, int nr, int nc)
2143 PhRect_t rect;
2145 rect.ul.x = FILL_X( col );
2146 rect.ul.y = FILL_Y( row );
2148 /* FIXME: This has an off by one pixel problem */
2149 rect.lr.x = rect.ul.x + nc * gui.char_width;
2150 rect.lr.y = rect.ul.y + nr * gui.char_height;
2151 if( nc > 0 )
2152 rect.lr.x -= 1;
2153 if( nr > 0 )
2154 rect.lr.y -= 1;
2156 DRAW_START;
2157 PgSetDrawMode( Pg_DrawModeDSTINVERT );
2158 PgDrawRect( &rect, Pg_DRAW_FILL );
2159 PgSetDrawMode( Pg_DrawModeSRCCOPY );
2160 DRAW_END;
2163 void
2164 gui_mch_clear_block(int row1, int col1, int row2, int col2)
2166 PhRect_t block = {
2167 { FILL_X( col1 ), FILL_Y( row1 ) },
2168 { FILL_X( col2 + 1 ) - 1, FILL_Y( row2 + 1 ) - 1}
2171 DRAW_START;
2172 gui_mch_set_bg_color( gui.back_pixel );
2173 PgDrawRect( &block, Pg_DRAW_FILL );
2174 DRAW_END;
2177 void
2178 gui_mch_clear_all()
2180 PhRect_t text_rect = {
2181 { gui.border_width, gui.border_width },
2182 { Columns * gui.char_width + gui.border_width - 1 ,
2183 Rows * gui.char_height + gui.border_width - 1 }
2186 if( is_ignore_draw == TRUE )
2187 return;
2189 DRAW_START;
2190 gui_mch_set_bg_color( gui.back_pixel );
2191 PgDrawRect( &text_rect, Pg_DRAW_FILL );
2192 DRAW_END;
2195 void
2196 gui_mch_delete_lines(int row, int num_lines)
2198 PhRect_t rect;
2199 PhPoint_t delta;
2201 rect.ul.x = FILL_X( gui.scroll_region_left );
2202 rect.ul.y = FILL_Y( row + num_lines );
2204 rect.lr.x = FILL_X( gui.scroll_region_right + 1 ) - 1;
2205 rect.lr.y = FILL_Y( gui.scroll_region_bot + 1) - 1;
2207 PtWidgetOffset( gui.vimTextArea, &gui_ph_raw_offset );
2208 PhTranslatePoint( &gui_ph_raw_offset, PtWidgetPos(gui.vimTextArea, NULL));
2209 PhTranslateRect( &rect, &gui_ph_raw_offset );
2211 delta.x = 0;
2212 delta.y = -num_lines * gui.char_height;
2214 PgFlush();
2216 PhBlit( PtWidgetRid( PtFindDisjoint( gui.vimTextArea ) ), &rect, &delta );
2218 gui_clear_block(
2219 gui.scroll_region_bot - num_lines + 1,
2220 gui.scroll_region_left,
2221 gui.scroll_region_bot,
2222 gui.scroll_region_right );
2225 void
2226 gui_mch_insert_lines(int row, int num_lines)
2228 PhRect_t rect;
2229 PhPoint_t delta;
2231 rect.ul.x = FILL_X( gui.scroll_region_left );
2232 rect.ul.y = FILL_Y( row );
2234 rect.lr.x = FILL_X( gui.scroll_region_right + 1 ) - 1;
2235 rect.lr.y = FILL_Y( gui.scroll_region_bot - num_lines + 1 ) - 1;
2237 PtWidgetOffset( gui.vimTextArea, &gui_ph_raw_offset );
2238 PhTranslatePoint( &gui_ph_raw_offset, PtWidgetPos( gui.vimTextArea, NULL ) );
2239 PhTranslateRect( &rect, &gui_ph_raw_offset );
2241 delta.x = 0;
2242 delta.y = num_lines * gui.char_height;
2244 PgFlush();
2246 PhBlit( PtWidgetRid( PtFindDisjoint( gui.vimTextArea ) ) , &rect, &delta );
2248 gui_clear_block( row, gui.scroll_region_left,
2249 row + num_lines - 1, gui.scroll_region_right );
2252 void
2253 gui_mch_draw_string(int row, int col, char_u *s, int len, int flags)
2255 static char *utf8_buffer = NULL;
2256 static int utf8_len = 0;
2258 PhPoint_t pos = { TEXT_X( col ), TEXT_Y( row ) };
2259 PhRect_t rect;
2261 if( is_ignore_draw == TRUE )
2262 return;
2264 DRAW_START;
2266 if( !( flags & DRAW_TRANSP ) )
2268 PgDrawIRect(
2269 FILL_X( col ), FILL_Y( row ),
2270 FILL_X( col + len ) - 1, FILL_Y( row + 1 ) - 1,
2271 Pg_DRAW_FILL );
2274 if( flags & DRAW_UNDERL )
2275 PgSetUnderline( gui.norm_pixel, Pg_TRANSPARENT, 0 );
2277 if( charset_translate != NULL
2278 #ifdef FEAT_MBYTE
2279 && enc_utf8 == 0
2280 #endif
2283 int src_taken, dst_made;
2285 /* Use a static buffer to avoid large amounts of de/allocations */
2286 if( utf8_len < len )
2288 utf8_buffer = realloc( utf8_buffer, len * MB_LEN_MAX );
2289 utf8_len = len;
2292 PxTranslateToUTF(
2293 charset_translate,
2295 len,
2296 &src_taken,
2297 utf8_buffer,
2298 utf8_len,
2299 &dst_made );
2300 s = utf8_buffer;
2301 len = dst_made;
2304 PgDrawText( s, len, &pos, 0 );
2306 if( flags & DRAW_BOLD )
2308 /* FIXME: try and only calculate these values once... */
2309 rect.ul.x = FILL_X( col ) + 1;
2310 rect.ul.y = FILL_Y( row );
2311 rect.lr.x = FILL_X( col + len ) - 1;
2312 rect.lr.y = FILL_Y( row + 1) - 1;
2313 /* PgSetUserClip( NULL ) causes the scrollbar to not redraw... */
2314 #if 0
2315 pos.x++;
2317 PgSetUserClip( &rect );
2318 PgDrawText( s, len, &pos, 0 );
2319 PgSetUserClip( NULL );
2320 #else
2321 rect.lr.y -= ( p_linespace + 1 ) / 2;
2322 /* XXX: DrawTextArea doesn't work with phditto */
2323 PgDrawTextArea( s, len, &rect, Pg_TEXT_BOTTOM );
2324 #endif
2327 if( flags & DRAW_UNDERL )
2328 PgSetUnderline( Pg_TRANSPARENT, Pg_TRANSPARENT, 0 );
2330 DRAW_END;
2333 /****************************************************************************/
2334 /* Cursor */
2336 void
2337 gui_mch_draw_hollow_cursor(guicolor_T color)
2339 PhRect_t r;
2341 /* FIXME: Double width characters */
2343 r.ul.x = FILL_X( gui.col );
2344 r.ul.y = FILL_Y( gui.row );
2345 r.lr.x = r.ul.x + gui.char_width - 1;
2346 r.lr.y = r.ul.y + gui.char_height - 1;
2348 DRAW_START;
2349 PgSetStrokeColor( color );
2350 PgDrawRect( &r, Pg_DRAW_STROKE );
2351 DRAW_END;
2354 void
2355 gui_mch_draw_part_cursor(int w, int h, guicolor_T color)
2357 PhRect_t r;
2359 r.ul.x = FILL_X( gui.col );
2360 r.ul.y = FILL_Y( gui.row ) + gui.char_height - h;
2361 r.lr.x = r.ul.x + w - 1;
2362 r.lr.y = r.ul.y + h - 1;
2364 DRAW_START;
2365 gui_mch_set_bg_color( color );
2366 PgDrawRect( &r, Pg_DRAW_FILL );
2367 DRAW_END;
2370 void
2371 gui_mch_set_blinking(long wait, long on, long off)
2373 blink_waittime = wait;
2374 blink_ontime = on;
2375 blink_offtime = off;
2378 void
2379 gui_mch_start_blink(void)
2381 /* Only turn on the timer on if none of the times are zero */
2382 if( blink_waittime && blink_ontime && blink_offtime && gui.in_focus)
2384 PtSetResource( gui_ph_timer_cursor, Pt_ARG_TIMER_INITIAL,
2385 blink_waittime, 0 );
2386 blink_state = BLINK_ON;
2387 gui_update_cursor(TRUE, FALSE);
2391 void
2392 gui_mch_stop_blink(void)
2394 PtSetResource( gui_ph_timer_cursor, Pt_ARG_TIMER_INITIAL, 0, 0 );
2396 if( blink_state == BLINK_OFF )
2397 gui_update_cursor(TRUE, FALSE);
2399 blink_state = BLINK_NONE;
2402 /****************************************************************************/
2403 /* miscellaneous functions */
2405 void
2406 gui_mch_beep(void)
2408 PtBeep();
2411 void
2412 gui_mch_flash(int msec)
2414 PgSetFillXORColor( Pg_BLACK, Pg_WHITE );
2415 PgSetDrawMode( Pg_DRAWMODE_XOR );
2416 gui_mch_clear_all();
2417 gui_mch_flush();
2419 ui_delay( (long) msec, TRUE );
2421 gui_mch_clear_all();
2422 PgSetDrawMode( Pg_DRAWMODE_OPAQUE );
2423 gui_mch_flush();
2426 void
2427 gui_mch_flush(void)
2429 PgFlush();
2432 void
2433 gui_mch_set_text_area_pos(int x, int y, int w, int h)
2435 PhArea_t area = {{x, y}, {w, h}};
2437 PtSetResource( gui.vimTextArea, Pt_ARG_AREA, &area, 0 );
2441 gui_mch_haskey(char_u *name)
2443 int i;
2445 for (i = 0; special_keys[i].key_sym != 0; i++)
2446 if (name[0] == special_keys[i].vim_code0 &&
2447 name[1] == special_keys[i].vim_code1)
2448 return( OK );
2449 return( FAIL );
2452 /****************************************************************************/
2453 /* Menu */
2455 #ifdef FEAT_TOOLBAR
2456 #include "toolbar.phi"
2458 static PhImage_t *gui_ph_toolbar_images[] = {
2459 &tb_new_phi,
2460 &tb_open_phi,
2461 &tb_save_phi,
2462 &tb_undo_phi,
2463 &tb_redo_phi,
2464 &tb_cut_phi,
2465 &tb_copy_phi,
2466 &tb_paste_phi,
2467 &tb_print_phi,
2468 &tb_help_phi,
2469 &tb_find_phi,
2470 &tb_save_all_phi,
2471 &tb_save_session_phi,
2472 &tb_new_session_phi,
2473 &tb_load_session_phi,
2474 &tb_macro_phi,
2475 &tb_replace_phi,
2476 &tb_close_phi,
2477 &tb_maximize_phi,
2478 &tb_minimize_phi,
2479 &tb_split_phi,
2480 &tb_shell_phi,
2481 &tb_find_prev_phi,
2482 &tb_find_next_phi,
2483 &tb_find_help_phi,
2484 &tb_make_phi,
2485 &tb_jump_phi,
2486 &tb_ctags_phi,
2487 &tb_vsplit_phi,
2488 &tb_maxwidth_phi,
2489 &tb_minwidth_phi
2492 static PhImage_t *
2493 gui_ph_toolbar_load_icon( char_u *iconfile )
2495 static PhImage_t external_icon;
2496 PhImage_t *temp_phi = NULL;
2498 temp_phi = PxLoadImage( iconfile, NULL );
2499 if( temp_phi != NULL )
2501 /* The label widget will free the image/palette/etc. for us when
2502 * it's destroyed */
2503 temp_phi->flags |= Ph_RELEASE_IMAGE_ALL;
2504 memcpy( &external_icon, temp_phi, sizeof( external_icon ) );
2505 free( temp_phi );
2507 temp_phi = &external_icon;
2509 return( temp_phi );
2513 * This returns either a builtin icon image, an external image or NULL
2514 * if it can't find either. The caller can't and doesn't need to try and
2515 * free() the returned image, and it can't store the image pointer.
2516 * (When setting the Pt_ARG_LABEL_IMAGE resource, the contents of the
2517 * PhImage_t are copied, and the original PhImage_t aren't needed anymore).
2519 static PhImage_t *
2520 gui_ph_toolbar_find_icon( vimmenu_T *menu )
2522 char_u full_pathname[ MAXPATHL + 1 ];
2523 PhImage_t *icon = NULL;
2525 if( menu->icon_builtin == FALSE )
2527 if( menu->iconfile != NULL )
2528 /* TODO: use gui_find_iconfile() */
2529 icon = gui_ph_toolbar_load_icon( menu->iconfile );
2531 /* TODO: Restrict loading to just .png? Search for any format? */
2532 if( ( icon == NULL ) &&
2533 ( ( gui_find_bitmap( menu->name, full_pathname, "gif" ) == OK ) ||
2534 ( gui_find_bitmap( menu->name, full_pathname, "png" ) == OK ) ) )
2535 icon = gui_ph_toolbar_load_icon( full_pathname );
2537 if( icon != NULL )
2538 return( icon );
2541 if( menu->iconidx >= 0 &&
2542 ( menu->iconidx < ARRAY_LENGTH( gui_ph_toolbar_images ) ) )
2544 return( gui_ph_toolbar_images[ menu->iconidx ] );
2547 return( NULL );
2549 #endif
2551 #if defined( FEAT_MENU ) || defined( PROTO )
2552 void
2553 gui_mch_enable_menu(int flag)
2555 if( flag != 0 )
2556 PtRealizeWidget( gui.vimMenuBar );
2557 else
2558 PtUnrealizeWidget( gui.vimMenuBar );
2561 void
2562 gui_mch_set_menu_pos(int x, int y, int w, int h)
2564 /* Nothing */
2567 /* Change the position of a menu button in the parent */
2568 static void
2569 gui_ph_position_menu( PtWidget_t *widget, int priority )
2571 PtWidget_t *traverse;
2572 vimmenu_T *menu;
2574 traverse = PtWidgetChildBack( PtWidgetParent( widget ) );
2576 /* Iterate through the list of widgets in traverse, until
2577 * we find the position we want to insert our widget into */
2578 /* TODO: traverse from front to back, possible speedup? */
2579 while( traverse != NULL )
2581 PtGetResource( traverse, Pt_ARG_POINTER, &menu, 0 );
2583 if( menu != NULL &&
2584 priority < menu->priority &&
2585 widget != traverse )
2587 /* Insert the widget before the current traverse widget */
2588 PtWidgetInsert( widget, traverse, 1 );
2589 return;
2592 traverse = PtWidgetBrotherInFront( traverse );
2596 /* the index is ignored because it's not useful for our purposes */
2597 void
2598 gui_mch_add_menu(vimmenu_T *menu, int index)
2600 vimmenu_T *parent = menu->parent;
2601 char_u *accel_key;
2602 char_u mnemonic_str[MB_LEN_MAX];
2603 int n;
2604 PtArg_t args[5];
2606 menu->submenu_id = menu->id = NULL;
2608 if( menu_is_menubar( menu->name ) )
2611 accel_key = vim_strchr( menu->name, '&' );
2612 if( accel_key != NULL )
2614 mnemonic_str[0] = accel_key[1];
2615 mnemonic_str[1] = NUL;
2618 /* Create the menu button */
2619 n = 0;
2620 PtSetArg( &args[ n++ ], Pt_ARG_TEXT_STRING, menu->dname, 0 );
2621 PtSetArg( &args[ n++ ], Pt_ARG_ACCEL_TEXT, menu->actext, 0 );
2622 if( accel_key != NULL )
2623 PtSetArg( &args[ n++ ], Pt_ARG_ACCEL_KEY, mnemonic_str, 0 );
2624 PtSetArg( &args[ n++ ], Pt_ARG_POINTER, menu, 0 );
2626 if( parent != NULL )
2627 PtSetArg( &args[ n++ ], Pt_ARG_BUTTON_TYPE, Pt_MENU_RIGHT, 0 );
2629 menu->id = PtCreateWidget( PtMenuButton,
2630 (parent == NULL) ? gui.vimMenuBar : parent->submenu_id,
2631 n, args );
2633 PtAddCallback( menu->id, Pt_CB_ARM, gui_ph_handle_pulldown_menu, menu );
2635 /* Create the actual menu */
2636 n = 0;
2637 if( parent != NULL )
2638 PtSetArg( &args[ n++ ], Pt_ARG_MENU_FLAGS, Pt_TRUE, Pt_MENU_CHILD );
2640 menu->submenu_id = PtCreateWidget( PtMenu, menu->id, n, args );
2642 if( parent == NULL )
2644 PtAddCallback( menu->submenu_id, Pt_CB_UNREALIZED,
2645 gui_ph_handle_menu_unrealized, menu );
2647 if( menu->mnemonic != 0 )
2649 PtAddHotkeyHandler( gui.vimWindow, tolower( menu->mnemonic ),
2650 Pk_KM_Alt, 0, menu, gui_ph_handle_pulldown_menu );
2654 gui_ph_position_menu( menu->id, menu->priority );
2656 /* Redraw menubar here instead of gui_mch_draw_menubar */
2657 if( gui.menu_is_active )
2658 PtRealizeWidget( menu->id );
2660 else if( menu_is_popup( menu->name ) )
2662 menu->submenu_id = PtCreateWidget( PtMenu, gui.vimWindow, 0, NULL );
2663 PtAddCallback( menu->submenu_id, Pt_CB_UNREALIZED,
2664 gui_ph_handle_menu_unrealized, menu );
2668 void
2669 gui_mch_add_menu_item(vimmenu_T *menu, int index)
2671 vimmenu_T *parent = menu->parent;
2672 char_u *accel_key;
2673 char_u mnemonic_str[MB_LEN_MAX];
2674 int n;
2675 PtArg_t args[13];
2677 n = 0;
2678 PtSetArg( &args[ n++ ], Pt_ARG_POINTER, menu, 0 );
2680 #ifdef FEAT_TOOLBAR
2681 if( menu_is_toolbar( parent->name ) )
2683 if( menu_is_separator( menu->name ) )
2685 PtSetArg( &args[ n++ ], Pt_ARG_SEP_FLAGS,
2686 Pt_SEP_VERTICAL, Pt_SEP_ORIENTATION );
2687 PtSetArg( &args[ n++ ], Pt_ARG_SEP_TYPE, Pt_ETCHED_IN, 0 );
2688 PtSetArg( &args[ n++ ], Pt_ARG_ANCHOR_FLAGS,
2689 Pt_TRUE, Pt_ANCHOR_TOP_BOTTOM );
2690 PtSetArg( &args[ n++ ], Pt_ARG_WIDTH, 2, 0 );
2691 menu->id = PtCreateWidget( PtSeparator, gui.vimToolBar, n, args );
2693 else
2695 if( strstr( (const char *) p_toolbar, "text" ) != NULL )
2697 PtSetArg( &args[ n++ ], Pt_ARG_BALLOON_POSITION,
2698 Pt_BALLOON_BOTTOM, 0 );
2699 PtSetArg( &args[ n++ ], Pt_ARG_TEXT_STRING, menu->dname, 0 );
2700 PtSetArg( &args[ n++ ], Pt_ARG_TEXT_FONT, "TextFont08", 0 );
2702 if( ( strstr( (const char *) p_toolbar, "icons" ) != NULL ) &&
2703 ( gui_ph_toolbar_images != NULL ) )
2705 PtSetArg( &args[ n++ ], Pt_ARG_LABEL_IMAGE,
2706 gui_ph_toolbar_find_icon( menu ), 0 );
2707 PtSetArg( &args[ n++ ], Pt_ARG_LABEL_TYPE, Pt_TEXT_IMAGE, 0 );
2708 PtSetArg( &args[ n++ ], Pt_ARG_TEXT_IMAGE_SPACING, 0, 0 );
2710 if( strstr( (const char *) p_toolbar, "tooltips" ) != NULL )
2712 PtSetArg( &args[ n++ ], Pt_ARG_LABEL_BALLOON,
2713 gui_ph_show_tooltip, 0 );
2714 PtSetArg( &args[ n++ ], Pt_ARG_LABEL_FLAGS,
2715 Pt_TRUE, Pt_SHOW_BALLOON );
2717 PtSetArg( &args[ n++ ], Pt_ARG_MARGIN_HEIGHT, 1, 0 );
2718 PtSetArg( &args[ n++ ], Pt_ARG_MARGIN_WIDTH, 1, 0 );
2719 PtSetArg( &args[ n++ ], Pt_ARG_FLAGS, Pt_FALSE,
2720 Pt_HIGHLIGHTED | Pt_GETS_FOCUS );
2721 PtSetArg( &args[ n++ ], Pt_ARG_FILL_COLOR, Pg_TRANSPARENT, 0 );
2722 menu->id = PtCreateWidget( PtButton, gui.vimToolBar, n, args );
2724 PtAddCallback( menu->id, Pt_CB_ACTIVATE, gui_ph_handle_menu, menu );
2726 /* Update toolbar if it's open */
2727 if( PtWidgetIsRealized( gui.vimToolBar ) )
2728 PtRealizeWidget( menu->id );
2730 else
2731 #endif
2732 if( menu_is_separator( menu->name ) )
2734 menu->id = PtCreateWidget( PtSeparator, parent->submenu_id, n, args );
2736 else
2738 accel_key = vim_strchr( menu->name, '&' );
2739 if( accel_key != NULL )
2741 mnemonic_str[0] = accel_key[1];
2742 mnemonic_str[1] = NUL;
2745 PtSetArg( &args[ n++ ], Pt_ARG_TEXT_STRING, menu->dname, 0 );
2746 if( accel_key != NULL )
2747 PtSetArg( &args[ n++ ], Pt_ARG_ACCEL_KEY, mnemonic_str,
2748 0 );
2750 PtSetArg( &args[ n++ ], Pt_ARG_ACCEL_TEXT, menu->actext, 0 );
2752 menu->id = PtCreateWidget( PtMenuButton, parent->submenu_id, n, args );
2754 PtAddCallback( menu->id, Pt_CB_ACTIVATE, gui_ph_handle_menu, menu );
2756 #ifdef USE_PANEL_GROUP
2757 if( gui_ph_is_buffer_item( menu, parent ) == TRUE )
2759 PtAddCallback( menu->id, Pt_CB_DESTROYED,
2760 gui_ph_handle_buffer_remove, menu );
2761 gui_ph_pg_add_buffer( menu->dname );
2763 #endif
2766 gui_ph_position_menu( menu->id, menu->priority );
2769 void
2770 gui_mch_destroy_menu(vimmenu_T *menu)
2772 if( menu->submenu_id != NULL )
2773 PtDestroyWidget( menu->submenu_id );
2774 if( menu->id != NULL )
2775 PtDestroyWidget( menu->id );
2777 menu->submenu_id = NULL;
2778 menu->id = NULL;
2781 void
2782 gui_mch_menu_grey(vimmenu_T *menu, int grey)
2784 long flags, mask, fields;
2786 if( menu->id == NULL )
2787 return;
2789 flags = PtWidgetFlags( menu->id );
2790 if( PtWidgetIsClass( menu->id, PtMenuButton ) &&
2791 PtWidgetIsClass( PtWidgetParent( menu->id ), PtMenu ) )
2793 fields = Pt_FALSE;
2794 mask = Pt_SELECTABLE | Pt_HIGHLIGHTED;
2796 else
2798 fields = Pt_TRUE;
2799 mask = Pt_BLOCKED | Pt_GHOST;
2802 if( ! grey )
2803 fields = ~fields;
2805 PtSetResource( menu->id, Pt_ARG_FLAGS, fields,
2806 mask );
2809 void
2810 gui_mch_menu_hidden(vimmenu_T *menu, int hidden)
2812 /* TODO: [un]realize the widget? */
2815 void
2816 gui_mch_draw_menubar(void)
2818 /* The only time a redraw is needed is when a menu button
2819 * is added to the menubar, and that is detected and the bar
2820 * redrawn in gui_mch_add_menu_item
2824 void
2825 gui_mch_show_popupmenu(vimmenu_T *menu)
2827 PtSetResource( menu->submenu_id, Pt_ARG_POS, &abs_mouse, 0 );
2828 PtRealizeWidget( menu->submenu_id );
2831 void
2832 gui_mch_toggle_tearoffs(int enable)
2834 /* No tearoffs yet */
2837 #endif
2839 #if defined( FEAT_TOOLBAR ) || defined( PROTO )
2840 void
2841 gui_mch_show_toolbar(int showit)
2843 if( showit )
2844 PtRealizeWidget( gui.vimToolBar );
2845 else
2846 PtUnrealizeWidget( gui.vimToolBar );
2848 #endif
2850 /****************************************************************************/
2851 /* Fonts */
2853 static GuiFont
2854 gui_ph_get_font(
2855 char_u *font_name,
2856 int_u font_flags,
2857 int_u font_size,
2858 /* Check whether the resulting font has the font flags and size that
2859 * was asked for */
2860 int_u enforce
2863 char_u *font_tag;
2864 FontQueryInfo info;
2865 int_u style;
2867 font_tag = alloc( MAX_FONT_TAG );
2868 if( font_tag != NULL )
2870 if( PfGenerateFontName( font_name, font_flags, font_size,
2871 font_tag ) != NULL )
2873 /* Enforce some limits on the font used */
2874 style = PHFONT_INFO_FIXED;
2876 if( enforce & PF_STYLE_BOLD )
2877 style |= PHFONT_INFO_BOLD;
2878 if( enforce & PF_STYLE_ANTIALIAS )
2879 style |= PHFONT_INFO_ALIAS;
2880 if( enforce & PF_STYLE_ITALIC )
2881 style |= PHFONT_INFO_ITALIC;
2883 PfQueryFontInfo( font_tag, &info );
2885 if( info.size == 0 )
2886 font_size = 0;
2888 /* Make sure font size matches, and that the font style
2889 * at least has the bits we're checking for */
2890 if( font_size == info.size &&
2891 style == (info.style & style) )
2892 return( (GuiFont) font_tag );
2894 vim_free( font_tag );
2896 return( NULL );
2900 * Split up the vim font name
2902 * vim_font is in the form of
2903 * <name>:s<height>:a:b:i
2905 * a = antialias
2906 * b = bold
2907 * i = italic
2911 static int
2912 gui_ph_parse_font_name(
2913 char_u *vim_font,
2914 char_u **font_name,
2915 int_u *font_flags,
2916 int_u *font_size )
2918 char_u *mark;
2919 int_u name_len, size;
2921 mark = vim_strchr( vim_font, ':' );
2922 if( mark == NULL )
2923 name_len = STRLEN( vim_font );
2924 else
2925 name_len = (int_u) ( mark - vim_font );
2927 *font_name = vim_strnsave( vim_font, name_len );
2928 if( *font_name != NULL )
2930 if( mark != NULL )
2932 while( *mark != NUL && *mark++ == ':')
2934 switch( tolower( *mark++ ) )
2936 case 'a': *font_flags |= PF_STYLE_ANTIALIAS; break;
2937 case 'b': *font_flags |= PF_STYLE_BOLD; break;
2938 case 'i': *font_flags |= PF_STYLE_ITALIC; break;
2940 case 's':
2941 size = getdigits( &mark );
2942 /* Restrict the size to some vague limits */
2943 if( size < 1 || size > 100 )
2944 size = 8;
2946 *font_size = size;
2947 break;
2949 default:
2950 break;
2954 return( TRUE );
2956 return( FALSE );
2960 gui_mch_init_font(char_u *vim_font_name, int fontset)
2962 char_u *font_tag;
2963 char_u *font_name = NULL;
2964 int_u font_flags = 0;
2965 int_u font_size = 12;
2967 FontQueryInfo info;
2968 PhRect_t extent;
2970 if( vim_font_name == NULL )
2972 /* Default font */
2973 vim_font_name = "PC Term";
2976 if( STRCMP( vim_font_name, "*" ) == 0 )
2978 font_tag = PtFontSelection( gui.vimWindow, NULL, NULL,
2979 "pcterm12", -1, PHFONT_FIXED, NULL );
2981 if( font_tag == NULL )
2982 return( FAIL );
2984 gui_mch_free_font( gui.norm_font );
2985 gui.norm_font = font_tag;
2987 PfQueryFontInfo( font_tag, &info );
2988 font_name = vim_strsave( info.font );
2990 else
2992 if( gui_ph_parse_font_name( vim_font_name, &font_name, &font_flags,
2993 &font_size ) == FALSE )
2994 return( FAIL );
2996 font_tag = gui_ph_get_font( font_name, font_flags, font_size, 0 );
2997 if( font_tag == NULL )
2999 vim_free( font_name );
3000 return( FAIL );
3003 gui_mch_free_font( gui.norm_font );
3004 gui.norm_font = font_tag;
3007 gui_mch_free_font( gui.bold_font );
3008 gui.bold_font = gui_ph_get_font( font_name, font_flags | PF_STYLE_BOLD,
3009 font_size, PF_STYLE_BOLD );
3011 gui_mch_free_font( gui.ital_font );
3012 gui.ital_font = gui_ph_get_font( font_name, font_flags | PF_STYLE_ITALIC,
3013 font_size, PF_STYLE_ITALIC );
3015 /* This extent was brought to you by the letter 'g' */
3016 PfExtentText( &extent, NULL, font_tag, "g", 1 );
3018 gui.char_width = extent.lr.x - extent.ul.x + 1;
3019 gui.char_height = (- extent.ul.y) + extent.lr.y + 1;
3020 gui.char_ascent = - extent.ul.y;
3022 vim_free( font_name );
3023 return( OK );
3027 * Adjust gui.char_height (after 'linespace' was changed).
3030 gui_mch_adjust_charheight(void)
3032 FontQueryInfo info;
3034 PfQueryFontInfo( gui.norm_font, &info );
3036 gui.char_height = - info.ascender + info.descender + p_linespace;
3037 gui.char_ascent = - info.ascender + p_linespace / 2;
3039 return( OK );
3042 GuiFont
3043 gui_mch_get_font(char_u *vim_font_name, int report_error)
3045 char_u *font_name;
3046 char_u *font_tag;
3047 int_u font_size = 12;
3048 int_u font_flags = 0;
3050 if( gui_ph_parse_font_name( vim_font_name, &font_name, &font_flags,
3051 &font_size ) != FALSE )
3053 font_tag = gui_ph_get_font( font_name, font_flags, font_size, -1 );
3054 vim_free( font_name );
3056 if( font_tag != NULL )
3057 return( (GuiFont) font_tag );
3060 if( report_error )
3061 EMSG2(e_font, vim_font_name );
3063 return( FAIL );
3066 #if defined(FEAT_EVAL) || defined(PROTO)
3068 * Return the name of font "font" in allocated memory.
3069 * Don't know how to get the actual name, thus use the provided name.
3071 char_u *
3072 gui_mch_get_fontname(font, name)
3073 GuiFont font;
3074 char_u *name;
3076 if (name == NULL)
3077 return NULL;
3078 return vim_strsave(name);
3080 #endif
3082 void
3083 gui_mch_set_font(GuiFont font)
3085 PgSetFont( font );
3088 void
3089 gui_mch_free_font(GuiFont font)
3091 vim_free( font );