/* vi:set ts=8 sw=4 sts=4: * * VIM - Vi IMproved by Bram Moolenaar * Photon GUI support by Julian Kinraid * * Do ":help uganda" in Vim to read copying and usage conditions. * Do ":help credits" in Vim to see a list of people who contributed. * * * Clipboard support is in os_qnx.c * PhAttach() is called in os_qnx.c:qnx_init() */ #include "vim.h" /* cproto fails on missing include files */ #ifndef PROTO # ifdef FEAT_TOOLBAR # include # endif #endif #if !defined(__QNX__) /* Used when generating prototypes. */ # define PgColor_t int # define PhEvent_t int # define PhPoint_t int # define PtWidget_t int # define Pg_BLACK 0 # define PtCallbackF_t int # define PtCallbackInfo_t int # define PhTile_t int # define PtWidget_t int # define PhImage_t int #endif #define ARRAY_LENGTH(a) (sizeof(a) / sizeof(a[0])) #define RGB(r, g, b) PgRGB(r, g, b) #define EVENT_BUFFER_SIZE sizeof(PhEvent_t) + 1000 /* Some defines for gui_mch_mousehide() */ #define MOUSE_HIDE TRUE #define MOUSE_SHOW FALSE /* Optional support for using a PtPanelGroup widget, needs work */ #undef USE_PANEL_GROUP #ifdef USE_PANEL_GROUP static char *empty_title = " "; static char **panel_titles = NULL; static ushort_t num_panels = 0; static short pg_margin_left, pg_margin_right, pg_margin_top, pg_margin_bottom; #endif #define GUI_PH_MARGIN 4 /* Size of the bevel */ #define GUI_PH_MOUSE_TYPE Ph_CURSOR_INSERT static PgColor_t gui_ph_mouse_color = Pg_BLACK; static PhPoint_t gui_ph_raw_offset; static PtWidget_t *gui_ph_timer_cursor; /* handle cursor blinking */ static PtWidget_t *gui_ph_timer_timeout; /* used in gui_mch_wait_for_chars */ static short is_timeout; /* Has the timeout occurred? */ /* * This is set inside the mouse callback for a right mouse * button click, and used for the popup menus */ static PhPoint_t abs_mouse; /* Try and avoid redraws while a resize is in progress */ static int is_ignore_draw = FALSE; /* Used for converting to/from utf-8 and other charsets */ static struct PxTransCtrl *charset_translate; /* * Cursor blink functions. * * This is a simple state machine: * BLINK_NONE not blinking at all * BLINK_OFF blinking, cursor is not shown * BLINK_ON blinking, cursor is shown */ static enum { BLINK_NONE, BLINK_OFF, BLINK_ON } blink_state = BLINK_NONE; static long_u blink_waittime = 700; static long_u blink_ontime = 400; static long_u blink_offtime = 250; static struct { int key_sym; char_u vim_code0; char_u vim_code1; } special_keys[] = { {Pk_Up, 'k', 'u'}, {Pk_Down, 'k', 'd'}, {Pk_Left, 'k', 'l'}, {Pk_Right, 'k', 'r'}, {Pk_F1, 'k', '1'}, {Pk_F2, 'k', '2'}, {Pk_F3, 'k', '3'}, {Pk_F4, 'k', '4'}, {Pk_F5, 'k', '5'}, {Pk_F6, 'k', '6'}, {Pk_F7, 'k', '7'}, {Pk_F8, 'k', '8'}, {Pk_F9, 'k', '9'}, {Pk_F10, 'k', ';'}, {Pk_F11, 'F', '1'}, {Pk_F12, 'F', '2'}, {Pk_F13, 'F', '3'}, {Pk_F14, 'F', '4'}, {Pk_F15, 'F', '5'}, {Pk_F16, 'F', '6'}, {Pk_F17, 'F', '7'}, {Pk_F18, 'F', '8'}, {Pk_F19, 'F', '9'}, {Pk_F20, 'F', 'A'}, {Pk_F21, 'F', 'B'}, {Pk_F22, 'F', 'C'}, {Pk_F23, 'F', 'D'}, {Pk_F24, 'F', 'E'}, {Pk_F25, 'F', 'F'}, {Pk_F26, 'F', 'G'}, {Pk_F27, 'F', 'H'}, {Pk_F28, 'F', 'I'}, {Pk_F29, 'F', 'J'}, {Pk_F30, 'F', 'K'}, {Pk_F31, 'F', 'L'}, {Pk_F32, 'F', 'M'}, {Pk_F33, 'F', 'N'}, {Pk_F34, 'F', 'O'}, {Pk_F35, 'F', 'P'}, {Pk_Help, '%', '1'}, {Pk_BackSpace, 'k', 'b'}, {Pk_Insert, 'k', 'I'}, {Pk_Delete, 'k', 'D'}, {Pk_Home, 'k', 'h'}, {Pk_End, '@', '7'}, {Pk_Prior, 'k', 'P'}, {Pk_Next, 'k', 'N'}, {Pk_Print, '%', '9'}, {Pk_KP_Add, 'K', '6'}, {Pk_KP_Subtract,'K', '7'}, {Pk_KP_Divide, 'K', '8'}, {Pk_KP_Multiply,'K', '9'}, {Pk_KP_Enter, 'K', 'A'}, {Pk_KP_0, KS_EXTRA, KE_KINS}, /* Insert */ {Pk_KP_Decimal, KS_EXTRA, KE_KDEL}, /* Delete */ {Pk_KP_4, 'k', 'l'}, /* Left */ {Pk_KP_6, 'k', 'r'}, /* Right */ {Pk_KP_8, 'k', 'u'}, /* Up */ {Pk_KP_2, 'k', 'd'}, /* Down */ {Pk_KP_7, 'K', '1'}, /* Home */ {Pk_KP_1, 'K', '4'}, /* End */ {Pk_KP_9, 'K', '3'}, /* Page Up */ {Pk_KP_3, 'K', '5'}, /* Page Down */ {Pk_KP_5, '&', '8'}, /* Undo */ /* Keys that we want to be able to use any modifier with: */ {Pk_Return, CAR, NUL}, {Pk_space, ' ', NUL}, {Pk_Tab, TAB, NUL}, {Pk_Escape, ESC, NUL}, {NL, NL, NUL}, {CAR, CAR, NUL}, /* End of list marker: */ {0, 0, 0} }; /****************************************************************************/ static PtCallbackF_t gui_ph_handle_timer_cursor; static PtCallbackF_t gui_ph_handle_timer_timeout; static PtCallbackF_t gui_ph_handle_window_cb; static PtCallbackF_t gui_ph_handle_scrollbar; static PtCallbackF_t gui_ph_handle_keyboard; static PtCallbackF_t gui_ph_handle_mouse; static PtCallbackF_t gui_ph_handle_pulldown_menu; static PtCallbackF_t gui_ph_handle_menu; static PtCallbackF_t gui_ph_handle_focus; /* focus change of text area */ static PtCallbackF_t gui_ph_handle_menu_resize; /* When a menu is unrealized, give focus back to vimTextArea */ static PtCallbackF_t gui_ph_handle_menu_unrealized; #ifdef USE_PANEL_GROUP static void gui_ph_get_panelgroup_margins(short*, short*, short*, short*); #endif #ifdef FEAT_TOOLBAR static PhImage_t *gui_ph_toolbar_find_icon(vimmenu_T *menu); #endif static void gui_ph_draw_start(void); static void gui_ph_draw_end(void); /* Set the text for the balloon */ static PtWidget_t * gui_ph_show_tooltip(PtWidget_t *window, PtWidget_t *widget, int position, char *text, char *font, PgColor_t fill_color, PgColor_t text_color); /****************************************************************************/ static PtWidget_t * gui_ph_show_tooltip(PtWidget_t *window, PtWidget_t *widget, int position, char *text, char *font, PgColor_t fill_color, PgColor_t text_color) { PtArg_t arg; vimmenu_T *menu; char_u *tooltip; PtSetArg(&arg, Pt_ARG_POINTER, &menu, 0); PtGetResources(widget, 1, &arg); /* Override the text and position */ tooltip = text; if (menu != NULL) { int index = MENU_INDEX_TIP; if (menu->strings[ index ] != NULL) tooltip = menu->strings[ index ]; } return PtInflateBalloon( window, widget, /* Don't put the balloon at the bottom, * it gets drawn over by gfx done in the PtRaw */ Pt_BALLOON_TOP, tooltip, font, fill_color, text_color); } static void gui_ph_resize_container(void) { PhArea_t area; PtWidgetArea(gui.vimWindow, &area); PtWidgetPos (gui.vimContainer, &area.pos); PtSetResource(gui.vimContainer, Pt_ARG_AREA, &area, 0); } static int gui_ph_handle_menu_resize( PtWidget_t *widget, void *other, PtCallbackInfo_t *info) { PtContainerCallback_t *sizes = info->cbdata; PtWidget_t *container; PhPoint_t below_menu; int_u height; height = sizes->new_dim.h; /* Because vim treats the toolbar and menubar separately, * and here they're lumped together into a PtToolbarGroup, * we only need either menu_height or toolbar_height set at once */ if (gui.menu_is_active) { gui.menu_height = height; gui.toolbar_height = 0; } #ifdef FEAT_TOOLBAR else gui.toolbar_height = height; #endif below_menu.x = 0; below_menu.y = height; #ifdef USE_PANEL_GROUP container = gui.vimPanelGroup; #else container = gui.vimContainer; #endif PtSetResource(container, Pt_ARG_POS, &below_menu, 0); gui_ph_resize_container(); #ifdef USE_PANEL_GROUP gui_ph_get_panelgroup_margins( &pg_margin_top, &pg_margin_bottom, &pg_margin_left, &pg_margin_right); #endif return Pt_CONTINUE; } /* * Pt_ARG_TIMER_REPEAT isn't used because the on & off times * are different */ static int gui_ph_handle_timer_cursor( PtWidget_t *widget, void *data, PtCallbackInfo_t *info) { if (blink_state == BLINK_ON) { gui_undraw_cursor(); blink_state = BLINK_OFF; PtSetResource(gui_ph_timer_cursor, Pt_ARG_TIMER_INITIAL, blink_offtime, 0); } else { gui_update_cursor(TRUE, FALSE); blink_state = BLINK_ON; PtSetResource(gui_ph_timer_cursor, Pt_ARG_TIMER_INITIAL, blink_ontime, 0); } return Pt_CONTINUE; } static int gui_ph_handle_timer_timeout(PtWidget_t *widget, void *data, PtCallbackInfo_t *info) { is_timeout = TRUE; return Pt_CONTINUE; } static int gui_ph_handle_window_cb(PtWidget_t *widget, void *data, PtCallbackInfo_t *info) { PhWindowEvent_t *we = info->cbdata; ushort_t *width, *height; switch (we->event_f) { case Ph_WM_CLOSE: gui_shell_closed(); break; case Ph_WM_FOCUS: /* Just in case it's hidden and needs to be shown */ gui_mch_mousehide(MOUSE_SHOW); if (we->event_state == Ph_WM_EVSTATE_FOCUS) { gui_focus_change(TRUE); gui_mch_start_blink(); } else { gui_focus_change(FALSE); gui_mch_stop_blink(); } break; case Ph_WM_RESIZE: PtGetResource(gui.vimWindow, Pt_ARG_WIDTH, &width, 0); PtGetResource(gui.vimWindow, Pt_ARG_HEIGHT, &height, 0); #ifdef USE_PANEL_GROUP width -= (pg_margin_left + pg_margin_right); height -= (pg_margin_top + pg_margin_bottom); #endif gui_resize_shell(*width, *height); gui_set_shellsize(FALSE, FALSE, RESIZE_BOTH); is_ignore_draw = FALSE; PtEndFlux(gui.vimContainer); PtContainerRelease(gui.vimContainer); break; default: break; } return Pt_CONTINUE; } static int gui_ph_handle_scrollbar(PtWidget_t *widget, void *data, PtCallbackInfo_t *info) { PtScrollbarCallback_t *scroll; scrollbar_T *sb; int value, dragging = FALSE; scroll = info->cbdata; sb = (scrollbar_T *) data; if (sb != NULL) { value = scroll->position; switch (scroll->action) { case Pt_SCROLL_DRAGGED: dragging = TRUE; break; case Pt_SCROLL_SET: /* FIXME: return straight away here? */ return Pt_CONTINUE; break; } gui_drag_scrollbar(sb, value, dragging); } return Pt_CONTINUE; } static int gui_ph_handle_keyboard(PtWidget_t *widget, void *data, PtCallbackInfo_t *info) { PhKeyEvent_t *key; unsigned char string[6]; int len, i; int ch, modifiers; key = PhGetData(info->event); ch = modifiers = len = 0; if (p_mh) gui_mch_mousehide(MOUSE_HIDE); /* We're a good lil photon program, aren't we? yes we are, yeess wee arrr */ if (key->key_flags & Pk_KF_Compose) { return Pt_CONTINUE; } if ((key->key_flags & Pk_KF_Cap_Valid) && PkIsKeyDown(key->key_flags)) { #ifdef FEAT_MENU /* * Only show the menu if the Alt key is down, and the Shift & Ctrl * keys aren't down, as well as the other conditions */ if (((key->key_mods & Pk_KM_Alt) && !(key->key_mods & Pk_KM_Shift) && !(key->key_mods & Pk_KM_Ctrl)) && gui.menu_is_active && (*p_wak == 'y' || (*p_wak == 'm' && gui_is_menu_shortcut(key->key_cap)))) { /* Fallthrough and let photon look for the hotkey */ return Pt_CONTINUE; } #endif for (i = 0; special_keys[i].key_sym != 0; i++) { if (special_keys[i].key_sym == key->key_cap) { len = 0; if (special_keys[i].vim_code1 == NUL) ch = special_keys[i].vim_code0; else { /* Detect if a keypad number key has been pressed * and change the key if Num Lock is on */ if (key->key_cap >= Pk_KP_Enter && key->key_cap <= Pk_KP_9 && (key->key_mods & Pk_KM_Num_Lock)) { /* FIXME: For now, just map the key to a ascii value * (see ) */ ch = key->key_cap - 0xf080; } else ch = TO_SPECIAL(special_keys[i].vim_code0, special_keys[i].vim_code1); } break; } } if (key->key_mods & Pk_KM_Ctrl) modifiers |= MOD_MASK_CTRL; if (key->key_mods & Pk_KM_Alt) modifiers |= MOD_MASK_ALT; if (key->key_mods & Pk_KM_Shift) modifiers |= MOD_MASK_SHIFT; /* Is this not a special key? */ if (special_keys[i].key_sym == 0) { ch = PhTo8859_1(key); if (ch == -1 #ifdef FEAT_MBYTE || (enc_utf8 && ch > 127) #endif ) { #ifdef FEAT_MBYTE len = PhKeyToMb(string, key); if (len > 0) { static char buf[6]; int src_taken, dst_made; if (enc_utf8 != TRUE) { PxTranslateFromUTF( charset_translate, string, len, &src_taken, buf, 6, &dst_made); add_to_input_buf(buf, dst_made); } else { add_to_input_buf(string, len); } return Pt_CONSUME; } len = 0; #endif ch = key->key_cap; if (ch < 0xff) { /* FIXME: is this the right thing to do? */ if (modifiers & MOD_MASK_CTRL) { modifiers &= ~MOD_MASK_CTRL; if ((ch >= 'a' && ch <= 'z') || ch == '[' || ch == ']' || ch == '\\') ch = Ctrl_chr(ch); else if (ch == '2') ch = NUL; else if (ch == '6') ch = 0x1e; else if (ch == '-') ch = 0x1f; else modifiers |= MOD_MASK_CTRL; } if (modifiers & MOD_MASK_ALT) { ch = Meta(ch); modifiers &= ~MOD_MASK_ALT; } } else { return Pt_CONTINUE; } } else modifiers &= ~MOD_MASK_SHIFT; } ch = simplify_key(ch, &modifiers); if (modifiers) { string[ len++ ] = CSI; string[ len++ ] = KS_MODIFIER; string[ len++ ] = modifiers; } if (IS_SPECIAL(ch)) { string[ len++ ] = CSI; string[ len++ ] = K_SECOND(ch); string[ len++ ] = K_THIRD(ch); } else { string[ len++ ] = ch; } if (len == 1 && ((ch == Ctrl_C && ctrl_c_interrupts) || ch == intr_char)) { trash_input_buf(); got_int = TRUE; } if (len == 1 && string[0] == CSI) { /* Turn CSI into K_CSI. */ string[ len++ ] = KS_EXTRA; string[ len++ ] = KE_CSI; } if (len > 0) { add_to_input_buf(string, len); return Pt_CONSUME; } } return Pt_CONTINUE; } static int gui_ph_handle_mouse(PtWidget_t *widget, void *data, PtCallbackInfo_t *info) { PhPointerEvent_t *pointer; PhRect_t *pos; int button = 0, repeated_click, modifiers = 0x0; short mouse_x, mouse_y; pointer = PhGetData(info->event); pos = PhGetRects(info->event); gui_mch_mousehide(MOUSE_SHOW); /* * Coordinates need to be relative to the base window, * not relative to the vimTextArea widget */ mouse_x = pos->ul.x + gui.border_width; mouse_y = pos->ul.y + gui.border_width; if (info->event->type == Ph_EV_PTR_MOTION_NOBUTTON) { gui_mouse_moved(mouse_x, mouse_y); return Pt_CONTINUE; } if (pointer->key_mods & Pk_KM_Shift) modifiers |= MOUSE_SHIFT; if (pointer->key_mods & Pk_KM_Ctrl) modifiers |= MOUSE_CTRL; if (pointer->key_mods & Pk_KM_Alt) modifiers |= MOUSE_ALT; /* * FIXME More than one button may be involved, but for * now just deal with one */ if (pointer->buttons & Ph_BUTTON_SELECT) button = MOUSE_LEFT; if (pointer->buttons & Ph_BUTTON_MENU) { button = MOUSE_RIGHT; /* Need the absolute coordinates for the popup menu */ abs_mouse.x = pointer->pos.x; abs_mouse.y = pointer->pos.y; } if (pointer->buttons & Ph_BUTTON_ADJUST) button = MOUSE_MIDDLE; /* Catch a real release (not phantom or other releases */ if (info->event->type == Ph_EV_BUT_RELEASE) button = MOUSE_RELEASE; if (info->event->type & Ph_EV_PTR_MOTION_BUTTON) button = MOUSE_DRAG; #if 0 /* Vim doesn't use button repeats */ if (info->event->type & Ph_EV_BUT_REPEAT) button = MOUSE_DRAG; #endif /* Don't do anything if it is one of the phantom mouse release events */ if ((button != MOUSE_RELEASE) || (info->event->subtype == Ph_EV_RELEASE_REAL)) { repeated_click = (pointer->click_count >= 2) ? TRUE : FALSE; gui_send_mouse_event(button , mouse_x, mouse_y, repeated_click, modifiers); } return Pt_CONTINUE; } /* Handle a focus change of the PtRaw widget */ static int gui_ph_handle_focus(PtWidget_t *widget, void *data, PtCallbackInfo_t *info) { if (info->reason == Pt_CB_LOST_FOCUS) { PtRemoveEventHandler(gui.vimTextArea, Ph_EV_PTR_MOTION_NOBUTTON, gui_ph_handle_mouse, NULL); gui_mch_mousehide(MOUSE_SHOW); } else { PtAddEventHandler(gui.vimTextArea, Ph_EV_PTR_MOTION_NOBUTTON, gui_ph_handle_mouse, NULL); } return Pt_CONTINUE; } static void gui_ph_handle_raw_draw(PtWidget_t *widget, PhTile_t *damage) { PhRect_t *r; PhPoint_t offset; PhPoint_t translation; if (is_ignore_draw == TRUE) return; PtSuperClassDraw(PtBasic, widget, damage); PgGetTranslation(&translation); PgClearTranslation(); #if 0 /* * This causes some weird problems, with drawing being done from * within this raw drawing function (rather than just simple clearing * and text drawing done by gui_redraw) * * The main problem is when PhBlit is used, and the cursor appearing * in places where it shouldn't */ out_flush(); #endif PtWidgetOffset(widget, &offset); PhTranslatePoint(&offset, PtWidgetPos(gui.vimTextArea, NULL)); #if 1 /* Redraw individual damage regions */ if (damage->next != NULL) damage = damage->next; while (damage != NULL) { r = &damage->rect; gui_redraw( r->ul.x - offset.x, r->ul.y - offset.y, r->lr.x - r->ul.x + 1, r->lr.y - r->ul.y + 1); damage = damage->next; } #else /* Redraw the rectangle that covers all the damaged regions */ r = &damage->rect; gui_redraw( r->ul.x - offset.x, r->ul.y - offset.y, r->lr.x - r->ul.x + 1, r->lr.y - r->ul.y + 1); #endif PgSetTranslation(&translation, 0); } static int gui_ph_handle_pulldown_menu( PtWidget_t *widget, void *data, PtCallbackInfo_t *info) { if (data != NULL) { vimmenu_T *menu = (vimmenu_T *) data; PtPositionMenu(menu->submenu_id, NULL); PtRealizeWidget(menu->submenu_id); } return Pt_CONTINUE; } /* This is used for pulldown/popup menus and also toolbar buttons */ static int gui_ph_handle_menu(PtWidget_t *widget, void *data, PtCallbackInfo_t *info) { if (data != NULL) { vimmenu_T *menu = (vimmenu_T *) data; gui_menu_cb(menu); } return Pt_CONTINUE; } /* Stop focus from disappearing into the menubar... */ static int gui_ph_handle_menu_unrealized( PtWidget_t *widget, void *data, PtCallbackInfo_t *info) { PtGiveFocus(gui.vimTextArea, NULL); return Pt_CONTINUE; } static int gui_ph_handle_window_open( PtWidget_t *widget, void *data, PtCallbackInfo_t *info) { gui_set_shellsize(FALSE, TRUE, RESIZE_BOTH); return Pt_CONTINUE; } /****************************************************************************/ #define DRAW_START gui_ph_draw_start() #define DRAW_END gui_ph_draw_end() /* TODO: Set a clipping rect? */ static void gui_ph_draw_start(void) { PhGC_t *gc; gc = PgGetGC(); PgSetRegion(PtWidgetRid(PtFindDisjoint(gui.vimTextArea))); PgClearClippingsCx(gc); PgClearTranslationCx(gc); PtWidgetOffset(gui.vimTextArea, &gui_ph_raw_offset); PhTranslatePoint(&gui_ph_raw_offset, PtWidgetPos(gui.vimTextArea, NULL)); PgSetTranslation(&gui_ph_raw_offset, Pg_RELATIVE); } static void gui_ph_draw_end(void) { gui_ph_raw_offset.x = -gui_ph_raw_offset.x; gui_ph_raw_offset.y = -gui_ph_raw_offset.y; PgSetTranslation(&gui_ph_raw_offset, Pg_RELATIVE); } #ifdef USE_PANEL_GROUP static vimmenu_T * gui_ph_find_buffer_item(char_u *name) { vimmenu_T *top_level = root_menu; vimmenu_T *items = NULL; while (top_level != NULL && (STRCMP(top_level->dname, "Buffers") != 0)) top_level = top_level->next; if (top_level != NULL) { items = top_level->children; while (items != NULL && (STRCMP(items->dname, name) != 0)) items = items->next; } return items; } static void gui_ph_pg_set_buffer_num(int_u buf_num) { int i; char search[16]; char *mark; if (gui.vimTextArea == NULL || buf_num == 0) return; search[0] = '('; ultoa(buf_num, &search[1], 10); STRCAT(search, ")"); for (i = 0; i < num_panels; i++) { /* find the last "(" in the panel title and see if the buffer * number in the title matches the one we're looking for */ mark = STRRCHR(panel_titles[ i ], '('); if (mark != NULL && STRCMP(mark, search) == 0) { PtSetResource(gui.vimPanelGroup, Pt_ARG_PG_CURRENT_INDEX, i, 0); } } } static int gui_ph_handle_pg_change( PtWidget_t *widget, void *data, PtCallbackInfo_t *info) { vimmenu_T *menu; PtPanelGroupCallback_t *panel; if (info->event != NULL) { panel = info->cbdata; if (panel->new_panel != NULL) { menu = gui_ph_find_buffer_item(panel->new_panel); if (menu) gui_menu_cb(menu); } } return Pt_CONTINUE; } static void gui_ph_get_panelgroup_margins( short *top, short *bottom, short *left, short *right) { unsigned short abs_raw_x, abs_raw_y, abs_panel_x, abs_panel_y; const unsigned short *margin_top, *margin_bottom; const unsigned short *margin_left, *margin_right; PtGetAbsPosition(gui.vimTextArea, &abs_raw_x, &abs_raw_y); PtGetAbsPosition(gui.vimPanelGroup, &abs_panel_x, &abs_panel_y); PtGetResource(gui.vimPanelGroup, Pt_ARG_MARGIN_RIGHT, &margin_right, 0); PtGetResource(gui.vimPanelGroup, Pt_ARG_MARGIN_BOTTOM, &margin_bottom, 0); abs_raw_x -= abs_panel_x; abs_raw_y -= abs_panel_y; *top = abs_raw_y; *bottom = *margin_bottom; *left = abs_raw_x; *right = *margin_right; } /* Used for the tabs for PtPanelGroup */ static int gui_ph_is_buffer_item(vimmenu_T *menu, vimmenu_T *parent) { char *mark; if (STRCMP(parent->dname, "Buffers") == 0) { /* Look for '(' digits ')' */ mark = vim_strchr(menu->dname, '('); if (mark != NULL) { mark++; while (isdigit(*mark)) mark++; if (*mark == ')') return TRUE; } } return FALSE; } static void gui_ph_pg_add_buffer(char *name) { char **new_titles = NULL; new_titles = (char **) alloc((num_panels + 1) * sizeof(char **)); if (new_titles != NULL) { if (num_panels > 0) memcpy(new_titles, panel_titles, num_panels * sizeof(char **)); new_titles[ num_panels++ ] = name; PtSetResource(gui.vimPanelGroup, Pt_ARG_PG_PANEL_TITLES, new_titles, num_panels); vim_free(panel_titles); panel_titles = new_titles; } } static void gui_ph_pg_remove_buffer(char *name) { int i; char **new_titles = NULL; /* If there is only 1 panel, we just use the temporary place holder */ if (num_panels > 1) { new_titles = (char **) alloc((num_panels - 1) * sizeof(char **)); if (new_titles != NULL) { char **s = new_titles; /* Copy all the titles except the one we're removing */ for (i = 0; i < num_panels; i++) { if (STRCMP(panel_titles[ i ], name) != 0) { *s++ = panel_titles[ i ]; } } num_panels--; PtSetResource(gui.vimPanelGroup, Pt_ARG_PG_PANEL_TITLES, new_titles, num_panels); vim_free(panel_titles); panel_titles = new_titles; } } else { num_panels--; PtSetResource(gui.vimPanelGroup, Pt_ARG_PG_PANEL_TITLES, &empty_title, 1); vim_free(panel_titles); panel_titles = NULL; } } /* When a buffer item is deleted from the buffer menu */ static int gui_ph_handle_buffer_remove( PtWidget_t *widget, void *data, PtCallbackInfo_t *info) { vimmenu_T *menu; if (data != NULL) { menu = (vimmenu_T *) data; gui_ph_pg_remove_buffer(menu->dname); } return Pt_CONTINUE; } #endif static int gui_ph_pane_resize(PtWidget_t *widget, void *data, PtCallbackInfo_t *info) { if (PtWidgetIsRealized(widget)) { is_ignore_draw = TRUE; PtStartFlux(gui.vimContainer); PtContainerHold(gui.vimContainer); } return Pt_CONTINUE; } /****************************************************************************/ #ifdef FEAT_MBYTE void gui_ph_encoding_changed(int new_encoding) { /* Default encoding is latin1 */ char *charset = "latin1"; int i; struct { int encoding; char *name; } charsets[] = { { DBCS_JPN, "SHIFT_JIS" }, { DBCS_KOR, "csEUCKR" }, { DBCS_CHT, "big5" }, { DBCS_CHS, "gb" } }; for (i = 0; i < ARRAY_LENGTH(charsets); i++) { if (new_encoding == charsets[ i ].encoding) charset = charsets[ i ].name; } charset_translate = PxTranslateSet(charset_translate, charset); } #endif /****************************************************************************/ /****************************************************************************/ void gui_mch_prepare(int *argc, char **argv) { PtInit(NULL); } int gui_mch_init(void) { PtArg_t args[10]; int flags = 0, n = 0; PhDim_t window_size = {100, 100}; /* Arbitrary values */ PhPoint_t pos = {0, 0}; gui.event_buffer = (PhEvent_t *) alloc(EVENT_BUFFER_SIZE); if (gui.event_buffer == NULL) return FAIL; /* Get a translation so we can convert from ISO Latin-1 to UTF */ charset_translate = PxTranslateSet(NULL, "latin1"); /* The +2 is for the 1 pixel dark line on each side */ gui.border_offset = gui.border_width = GUI_PH_MARGIN + 2; /* Handle close events ourselves */ PtSetArg(&args[ n++ ], Pt_ARG_WINDOW_MANAGED_FLAGS, Pt_FALSE, Ph_WM_CLOSE); PtSetArg(&args[ n++ ], Pt_ARG_WINDOW_NOTIFY_FLAGS, Pt_TRUE, Ph_WM_CLOSE | Ph_WM_RESIZE | Ph_WM_FOCUS); PtSetArg(&args[ n++ ], Pt_ARG_DIM, &window_size, 0); gui.vimWindow = PtCreateWidget(PtWindow, NULL, n, args); if (gui.vimWindow == NULL) return FAIL; PtAddCallback(gui.vimWindow, Pt_CB_WINDOW, gui_ph_handle_window_cb, NULL); PtAddCallback(gui.vimWindow, Pt_CB_WINDOW_OPENING, gui_ph_handle_window_open, NULL); n = 0; PtSetArg(&args[ n++ ], Pt_ARG_ANCHOR_FLAGS, Pt_ANCHOR_ALL, Pt_IS_ANCHORED); PtSetArg(&args[ n++ ], Pt_ARG_DIM, &window_size, 0); PtSetArg(&args[ n++ ], Pt_ARG_POS, &pos, 0); #ifdef USE_PANEL_GROUP /* Put in a temporary place holder title */ PtSetArg(&args[ n++ ], Pt_ARG_PG_PANEL_TITLES, &empty_title, 1); gui.vimPanelGroup = PtCreateWidget(PtPanelGroup, gui.vimWindow, n, args); if (gui.vimPanelGroup == NULL) return FAIL; PtAddCallback(gui.vimPanelGroup, Pt_CB_PG_PANEL_SWITCHING, gui_ph_handle_pg_change, NULL); #else /* Turn off all edge decorations */ PtSetArg(&args[ n++ ], Pt_ARG_BASIC_FLAGS, Pt_FALSE, Pt_ALL); PtSetArg(&args[ n++ ], Pt_ARG_BEVEL_WIDTH, 0, 0); PtSetArg(&args[ n++ ], Pt_ARG_MARGIN_WIDTH, 0, 0); PtSetArg(&args[ n++ ], Pt_ARG_MARGIN_HEIGHT, 0, 0); PtSetArg(&args[ n++ ], Pt_ARG_CONTAINER_FLAGS, Pt_TRUE, Pt_AUTO_EXTENT); gui.vimContainer = PtCreateWidget(PtPane, gui.vimWindow, n, args); if (gui.vimContainer == NULL) return FAIL; PtAddCallback(gui.vimContainer, Pt_CB_RESIZE, gui_ph_pane_resize, NULL); #endif /* Size for the text area is set in gui_mch_set_text_area_pos */ n = 0; PtSetArg(&args[ n++ ], Pt_ARG_RAW_DRAW_F, gui_ph_handle_raw_draw, 1); PtSetArg(&args[ n++ ], Pt_ARG_BEVEL_WIDTH, GUI_PH_MARGIN, 0); /* * Using focus render also causes the whole widget to be redrawn * whenever it changes focus, which is very annoying :p */ PtSetArg(&args[ n++ ], Pt_ARG_FLAGS, Pt_TRUE, Pt_GETS_FOCUS | Pt_HIGHLIGHTED); #ifndef FEAT_MOUSESHAPE PtSetArg(&args[ n++ ], Pt_ARG_CURSOR_TYPE, GUI_PH_MOUSE_TYPE, 0); PtSetArg(&args[ n++ ], Pt_ARG_CURSOR_COLOR, gui_ph_mouse_color, 0); #endif gui.vimTextArea = PtCreateWidget(PtRaw, Pt_DFLT_PARENT, n, args); if (gui.vimTextArea == NULL) return FAIL; /* TODO: use PtAddEventHandlers instead? */ /* Not using Ph_EV_BUT_REPEAT because vim wouldn't use it anyway */ PtAddEventHandler(gui.vimTextArea, Ph_EV_BUT_PRESS | Ph_EV_BUT_RELEASE | Ph_EV_PTR_MOTION_BUTTON, gui_ph_handle_mouse, NULL); PtAddEventHandler(gui.vimTextArea, Ph_EV_KEY, gui_ph_handle_keyboard, NULL); PtAddCallback(gui.vimTextArea, Pt_CB_GOT_FOCUS, gui_ph_handle_focus, NULL); PtAddCallback(gui.vimTextArea, Pt_CB_LOST_FOCUS, gui_ph_handle_focus, NULL); /* * Now that the text area widget has been created, set up the colours, * which wil call PtSetResource from gui_mch_new_colors */ /* * Create the two timers, not as accurate as using the kernel timer * functions, but good enough */ gui_ph_timer_cursor = PtCreateWidget(PtTimer, gui.vimWindow, 0, NULL); if (gui_ph_timer_cursor == NULL) return FAIL; gui_ph_timer_timeout = PtCreateWidget(PtTimer, gui.vimWindow, 0, NULL); if (gui_ph_timer_timeout == NULL) return FAIL; PtAddCallback(gui_ph_timer_cursor, Pt_CB_TIMER_ACTIVATE, gui_ph_handle_timer_cursor, NULL); PtAddCallback(gui_ph_timer_timeout, Pt_CB_TIMER_ACTIVATE, gui_ph_handle_timer_timeout, NULL); #ifdef FEAT_MENU n = 0; PtSetArg(&args[ n++ ], Pt_ARG_WIDTH, window_size.w, 0); PtSetArg(&args[ n++ ], Pt_ARG_ANCHOR_FLAGS, Pt_ANCHOR_LEFT_RIGHT, Pt_IS_ANCHORED); gui.vimToolBarGroup = PtCreateWidget(PtToolbarGroup, gui.vimWindow, n, args); if (gui.vimToolBarGroup == NULL) return FAIL; PtAddCallback(gui.vimToolBarGroup, Pt_CB_RESIZE, gui_ph_handle_menu_resize, NULL); n = 0; flags = 0; PtSetArg(&args[ n++ ], Pt_ARG_WIDTH, window_size.w, 0); if (! vim_strchr(p_go, GO_MENUS)) { flags |= Pt_DELAY_REALIZE; PtSetArg(&args[ n++ ], Pt_ARG_FLAGS, Pt_TRUE, flags); } gui.vimMenuBar = PtCreateWidget(PtMenuBar, gui.vimToolBarGroup, n, args); if (gui.vimMenuBar == NULL) return FAIL; # ifdef FEAT_TOOLBAR n = 0; PtSetArg(&args[ n++ ], Pt_ARG_ANCHOR_FLAGS, Pt_ANCHOR_LEFT_RIGHT |Pt_TOP_ANCHORED_TOP, Pt_IS_ANCHORED); PtSetArg(&args[ n++ ], Pt_ARG_RESIZE_FLAGS, Pt_TRUE, Pt_RESIZE_Y_AS_REQUIRED); PtSetArg(&args[ n++ ], Pt_ARG_WIDTH, window_size.w, 0); flags = Pt_GETS_FOCUS; if (! vim_strchr(p_go, GO_TOOLBAR)) flags |= Pt_DELAY_REALIZE; PtSetArg(&args[ n++ ], Pt_ARG_FLAGS, Pt_DELAY_REALIZE, flags); gui.vimToolBar = PtCreateWidget(PtToolbar, gui.vimToolBarGroup, n, args); if (gui.vimToolBar == NULL) return FAIL; /* * Size for the toolbar is fetched in gui_mch_show_toolbar, after * the buttons have been added and the toolbar has resized it's height * for the buttons to fit */ # endif #endif return OK; } int gui_mch_init_check(void) { return (is_photon_available == TRUE) ? OK : FAIL; } int gui_mch_open(void) { gui.norm_pixel = Pg_BLACK; gui.back_pixel = Pg_WHITE; set_normal_colors(); gui_check_colors(); gui.def_norm_pixel = gui.norm_pixel; gui.def_back_pixel = gui.back_pixel; highlight_gui_started(); if (gui_win_x != -1 && gui_win_y != -1) gui_mch_set_winpos(gui_win_x, gui_win_y); return (PtRealizeWidget(gui.vimWindow) == 0) ? OK : FAIL; } void gui_mch_exit(int rc) { PtDestroyWidget(gui.vimWindow); PxTranslateSet(charset_translate, NULL); vim_free(gui.event_buffer); #ifdef USE_PANEL_GROUPS vim_free(panel_titles); #endif } /****************************************************************************/ /* events */ /* When no events are available, photon will call this function, working is * set to FALSE, and the gui_mch_update loop will exit. */ static int exit_gui_mch_update(void *data) { *(int *)data = FALSE; return Pt_END; } void gui_mch_update(void) { int working = TRUE; PtAppAddWorkProc(NULL, exit_gui_mch_update, &working); while ((working == TRUE) && !vim_is_input_buf_full()) { PtProcessEvent(); } } int gui_mch_wait_for_chars(int wtime) { is_timeout = FALSE; if (wtime > 0) PtSetResource(gui_ph_timer_timeout, Pt_ARG_TIMER_INITIAL, wtime, 0); while (1) { PtProcessEvent(); if (input_available()) { PtSetResource(gui_ph_timer_timeout, Pt_ARG_TIMER_INITIAL, 0, 0); return OK; } else if (is_timeout == TRUE) return FAIL; } } #if defined(FEAT_BROWSE) || defined(PROTO) /* * Put up a file requester. * Returns the selected name in allocated memory, or NULL for Cancel. * saving, select file to write * title title for the window * default_name default name (well duh!) * ext not used (extension added) * initdir initial directory, NULL for current dir * filter not used (file name filter) */ char_u * gui_mch_browse( int saving, char_u *title, char_u *default_name, char_u *ext, char_u *initdir, char_u *filter) { PtFileSelectionInfo_t file; int flags; char_u *default_path; char_u *open_text = NULL; flags = 0; memset(&file, 0, sizeof(file)); default_path = alloc(MAXPATHL + 1 + NAME_MAX + 1); if (default_path != NULL) { if (saving == TRUE) { /* Don't need Pt_FSR_CONFIRM_EXISTING, vim will ask anyway */ flags |= Pt_FSR_NO_FCHECK; open_text = "&Save"; } /* combine the directory and filename into a single path */ if (initdir == NULL || *initdir == NUL) { mch_dirname(default_path, MAXPATHL); initdir = default_path; } else { STRCPY(default_path, initdir); initdir = default_path; } if (default_name != NULL) { if (default_path[ STRLEN(default_path) - 1 ] != '/') STRCAT(default_path, "/"); STRCAT(default_path, default_name); } /* TODO: add a filter? */ PtFileSelection( gui.vimWindow, NULL, title, default_path, NULL, open_text, NULL, NULL, &file, flags); vim_free(default_path); if (file.ret == Pt_FSDIALOG_BTN1) return vim_strsave(file.path); } return NULL; } #endif #if defined(FEAT_GUI_DIALOG) || defined(PROTO) static PtWidget_t *gui_ph_dialog_text = NULL; static int gui_ph_dialog_close(int button, void *data) { PtModalCtrl_t *modal_ctrl = data; char_u *dialog_text, *vim_text; if (gui_ph_dialog_text != NULL) { PtGetResource(gui_ph_dialog_text, Pt_ARG_TEXT_STRING, &dialog_text, 0); PtGetResource(gui_ph_dialog_text, Pt_ARG_POINTER, &vim_text, 0); STRNCPY(vim_text, dialog_text, IOSIZE - 1); } PtModalUnblock(modal_ctrl, (void *) button); return Pt_TRUE; } static int gui_ph_dialog_text_enter(PtWidget_t *widget, void *data, PtCallbackInfo_t *info) { if (info->reason_subtype == Pt_EDIT_ACTIVATE) gui_ph_dialog_close(1, data); return Pt_CONTINUE; } static int gui_ph_dialog_esc(PtWidget_t *widget, void *data, PtCallbackInfo_t *info) { PhKeyEvent_t *key; key = PhGetData(info->event); if ((key->key_flags & Pk_KF_Cap_Valid) && (key->key_cap == Pk_Escape)) { gui_ph_dialog_close(0, data); return Pt_CONSUME; } return Pt_PROCESS; } int gui_mch_dialog( int type, char_u *title, char_u *message, char_u *buttons, int default_button, char_u *textfield, int ex_cmd) { char_u *str; char_u **button_array; char_u *buttons_copy; int button_count; int i, len; int dialog_result = -1; /* FIXME: the vertical option in guioptions is blatantly ignored */ /* FIXME: so is the type */ button_count = len = i = 0; if (buttons == NULL || *buttons == NUL) return -1; /* There is one less separator than buttons, so bump up the button count */ button_count = 1; /* Count string length and number of separators */ for (str = buttons; *str; str++) { len++; if (*str == DLG_BUTTON_SEP) button_count++; } if (title == NULL) title = "Vim"; buttons_copy = alloc(len + 1); button_array = (char_u **) alloc(button_count * sizeof(char_u *)); if (buttons_copy != NULL && button_array != NULL) { STRCPY(buttons_copy, buttons); /* * Convert DLG_BUTTON_SEP into NUL's and fill in * button_array with the pointer to each NUL terminated string */ str = buttons_copy; for (i = 0; i < button_count; i++) { button_array[ i ] = str; for (; *str; str++) { if (*str == DLG_BUTTON_SEP) { *str++ = NUL; break; } } } #ifndef FEAT_GUI_TEXTDIALOG dialog_result = PtAlert( gui.vimWindow, NULL, title, NULL, message, NULL, button_count, (const char **) button_array, NULL, default_button, 0, Pt_MODAL); #else /* Writing the dialog ourselves lets us add extra features, like * trapping the escape key and returning 0 to vim */ { int n; PtArg_t args[5]; PtWidget_t *dialog, *pane; PtModalCtrl_t modal_ctrl; PtDialogInfo_t di; memset(&di, 0, sizeof(di)); memset(&modal_ctrl, 0, sizeof(modal_ctrl)); n = 0; PtSetArg(&args[n++], Pt_ARG_GROUP_ROWS_COLS, 0, 0); PtSetArg(&args[n++], Pt_ARG_WIDTH, 350, 0); PtSetArg(&args[n++], Pt_ARG_GROUP_ORIENTATION, Pt_GROUP_VERTICAL, 0); PtSetArg(&args[n++], Pt_ARG_GROUP_FLAGS, Pt_TRUE, Pt_GROUP_NO_KEYS | Pt_GROUP_STRETCH_HORIZONTAL); PtSetArg(&args[n++], Pt_ARG_CONTAINER_FLAGS, Pt_FALSE, Pt_TRUE); pane = PtCreateWidget(PtGroup, NULL, n, args); n = 0; PtSetArg(&args[n++], Pt_ARG_TEXT_STRING, message, 0); PtCreateWidget(PtLabel, pane, n, args); if (textfield != NULL) { n = 0; PtSetArg(&args[n++], Pt_ARG_MAX_LENGTH, IOSIZE - 1, 0); PtSetArg(&args[n++], Pt_ARG_TEXT_STRING, textfield, 0); PtSetArg(&args[n++], Pt_ARG_POINTER, textfield, 0); gui_ph_dialog_text = PtCreateWidget(PtText, pane, n, args); PtAddCallback(gui_ph_dialog_text, Pt_CB_ACTIVATE, gui_ph_dialog_text_enter, &modal_ctrl); } di.parent = gui.vimWindow; di.pane = pane; di.title = title; di.buttons = (const char **) button_array; di.nbtns = button_count; di.def_btn = default_button; /* This is just to give the dialog the close button. * We check for the Escape key ourselves and return 0 */ di.esc_btn = button_count; di.callback = gui_ph_dialog_close; di.data = &modal_ctrl; dialog = PtCreateDialog(&di); PtAddFilterCallback(dialog, Ph_EV_KEY, gui_ph_dialog_esc, &modal_ctrl); if (gui_ph_dialog_text != NULL) PtGiveFocus(gui_ph_dialog_text, NULL); /* Open dialog, block the vim window and wait for the dialog to close */ PtRealizeWidget(dialog); PtMakeModal(dialog, Ph_CURSOR_NOINPUT, Ph_CURSOR_DEFAULT_COLOR); dialog_result = (int) PtModalBlock(&modal_ctrl, 0); PtDestroyWidget(dialog); gui_ph_dialog_text = NULL; } #endif } vim_free(button_array); vim_free(buttons_copy); return dialog_result; } #endif /****************************************************************************/ /* window size/position/state */ int gui_mch_get_winpos(int *x, int *y) { PhPoint_t *pos; pos = PtWidgetPos(gui.vimWindow, NULL); *x = pos->x; *y = pos->y; return OK; } void gui_mch_set_winpos(int x, int y) { PhPoint_t pos = { x, y }; PtSetResource(gui.vimWindow, Pt_ARG_POS, &pos, 0); } void gui_mch_set_shellsize(int width, int height, int min_width, int min_height, int base_width, int base_height, int direction) { PhDim_t window_size = { width, height }; PhDim_t min_size = { min_width, min_height }; #ifdef USE_PANEL_GROUP window_size.w += pg_margin_left + pg_margin_right; window_size.h += pg_margin_top + pg_margin_bottom; #endif PtSetResource(gui.vimWindow, Pt_ARG_MINIMUM_DIM, &min_size, 0); PtSetResource(gui.vimWindow, Pt_ARG_DIM, &window_size, 0); if (! PtWidgetIsRealized(gui.vimWindow)) gui_ph_resize_container(); } /* * Return the amount of screen space that hasn't been allocated (such as * by the shelf). */ void gui_mch_get_screen_dimensions(int *screen_w, int *screen_h) { PhRect_t console; PhWindowQueryVisible(Ph_QUERY_WORKSPACE, 0, PhInputGroup(NULL), &console); *screen_w = console.lr.x - console.ul.x + 1; *screen_h = console.lr.y - console.ul.y + 1; } void gui_mch_iconify(void) { PhWindowEvent_t event; memset(&event, 0, sizeof (event)); event.event_f = Ph_WM_HIDE; event.event_state = Ph_WM_EVSTATE_HIDE; event.rid = PtWidgetRid(gui.vimWindow); PtForwardWindowEvent(&event); } #if defined(FEAT_EVAL) || defined(PROTO) /* * Bring the Vim window to the foreground. */ void gui_mch_set_foreground(void) { PhWindowEvent_t event; memset(&event, 0, sizeof (event)); event.event_f = Ph_WM_TOFRONT; event.event_state = Ph_WM_EVSTATE_FFRONT; event.rid = PtWidgetRid(gui.vimWindow); PtForwardWindowEvent(&event); } #endif void gui_mch_settitle(char_u *title, char_u *icon) { #ifdef USE_PANEL_GROUP gui_ph_pg_set_buffer_num(curwin->w_buffer->b_fnum); #endif PtSetResource(gui.vimWindow, Pt_ARG_WINDOW_TITLE, title, 0); /* Not sure what to do with the icon text, set balloon text somehow? */ } /****************************************************************************/ /* Scrollbar */ void gui_mch_set_scrollbar_thumb(scrollbar_T *sb, int val, int size, int max) { int n = 0; PtArg_t args[3]; PtSetArg(&args[ n++ ], Pt_ARG_MAXIMUM, max, 0); PtSetArg(&args[ n++ ], Pt_ARG_SLIDER_SIZE, size, 0); PtSetArg(&args[ n++ ], Pt_ARG_GAUGE_VALUE, val, 0); PtSetResources(sb->id, n, args); } void gui_mch_set_scrollbar_pos(scrollbar_T *sb, int x, int y, int w, int h) { PhArea_t area = {{ x, y }, { w, h }}; PtSetResource(sb->id, Pt_ARG_AREA, &area, 0); } void gui_mch_create_scrollbar(scrollbar_T *sb, int orient) { int n = 0; /* int anchor_flags = 0;*/ PtArg_t args[4]; /* * Stop the scrollbar from being realized when the parent * is realized, so it can be explicitly realized by vim. * * Also, don't let the scrollbar get focus */ PtSetArg(&args[ n++ ], Pt_ARG_FLAGS, Pt_DELAY_REALIZE, Pt_DELAY_REALIZE | Pt_GETS_FOCUS); PtSetArg(&args[ n++ ], Pt_ARG_SCROLLBAR_FLAGS, Pt_SCROLLBAR_SHOW_ARROWS, 0); #if 0 /* Don't need this anchoring for the scrollbars */ if (orient == SBAR_HORIZ) { anchor_flags = Pt_BOTTOM_ANCHORED_BOTTOM | Pt_LEFT_ANCHORED_LEFT | Pt_RIGHT_ANCHORED_RIGHT; } else { anchor_flags = Pt_BOTTOM_ANCHORED_BOTTOM | Pt_TOP_ANCHORED_TOP; if (sb->wp != NULL) { if (sb == &sb->wp->w_scrollbars[ SBAR_LEFT ]) anchor_flags |= Pt_LEFT_ANCHORED_LEFT; else anchor_flags |= Pt_RIGHT_ANCHORED_RIGHT; } } PtSetArg(&args[ n++ ], Pt_ARG_ANCHOR_FLAGS, anchor_flags, Pt_IS_ANCHORED); #endif PtSetArg(&args[ n++ ], Pt_ARG_ORIENTATION, (orient == SBAR_HORIZ) ? Pt_HORIZONTAL : Pt_VERTICAL, 0); #ifdef USE_PANEL_GROUP sb->id = PtCreateWidget(PtScrollbar, gui.vimPanelGroup, n, args); #else sb->id = PtCreateWidget(PtScrollbar, gui.vimContainer, n, args); #endif PtAddCallback(sb->id, Pt_CB_SCROLLBAR_MOVE, gui_ph_handle_scrollbar, sb); } void gui_mch_enable_scrollbar(scrollbar_T *sb, int flag) { if (flag != 0) PtRealizeWidget(sb->id); else PtUnrealizeWidget(sb->id); } void gui_mch_destroy_scrollbar(scrollbar_T *sb) { PtDestroyWidget(sb->id); sb->id = NULL; } /****************************************************************************/ /* Mouse functions */ #if defined(FEAT_MOUSESHAPE) || defined(PROTO) /* The last set mouse pointer shape is remembered, to be used when it goes * from hidden to not hidden. */ static int last_shape = 0; /* Table for shape IDs. Keep in sync with the mshape_names[] table in * misc2.c! */ static int mshape_ids[] = { Ph_CURSOR_POINTER, /* arrow */ Ph_CURSOR_NONE, /* blank */ Ph_CURSOR_INSERT, /* beam */ Ph_CURSOR_DRAG_VERTICAL, /* updown */ Ph_CURSOR_DRAG_VERTICAL, /* udsizing */ Ph_CURSOR_DRAG_HORIZONTAL, /* leftright */ Ph_CURSOR_DRAG_HORIZONTAL, /* lrsizing */ Ph_CURSOR_WAIT, /* busy */ Ph_CURSOR_DONT, /* no */ Ph_CURSOR_CROSSHAIR, /* crosshair */ Ph_CURSOR_FINGER, /* hand1 */ Ph_CURSOR_FINGER, /* hand2 */ Ph_CURSOR_FINGER, /* pencil */ Ph_CURSOR_QUESTION_POINT, /* question */ Ph_CURSOR_POINTER, /* right-arrow */ Ph_CURSOR_POINTER, /* up-arrow */ Ph_CURSOR_POINTER /* last one */ }; void mch_set_mouse_shape(int shape) { int id; if (!gui.in_use) return; if (shape == MSHAPE_HIDE || gui.pointer_hidden) PtSetResource(gui.vimTextArea, Pt_ARG_CURSOR_TYPE, Ph_CURSOR_NONE, 0); else { if (shape >= MSHAPE_NUMBERED) id = Ph_CURSOR_POINTER; else id = mshape_ids[shape]; PtSetResource(gui.vimTextArea, Pt_ARG_CURSOR_TYPE, id, 0); } if (shape != MSHAPE_HIDE) last_shape = shape; } #endif void gui_mch_mousehide(int hide) { if (gui.pointer_hidden != hide) { gui.pointer_hidden = hide; #ifdef FEAT_MOUSESHAPE if (hide) PtSetResource(gui.vimTextArea, Pt_ARG_CURSOR_TYPE, Ph_CURSOR_NONE, 0); else mch_set_mouse_shape(last_shape); #else PtSetResource(gui.vimTextArea, Pt_ARG_CURSOR_TYPE, (hide == MOUSE_SHOW) ? GUI_PH_MOUSE_TYPE : Ph_CURSOR_NONE, 0); #endif } } void gui_mch_getmouse(int *x, int *y) { PhCursorInfo_t info; short ix, iy; /* FIXME: does this return the correct position, * with respect to the border? */ PhQueryCursor(PhInputGroup(NULL), &info); PtGetAbsPosition(gui.vimTextArea , &ix, &iy); *x = info.pos.x - ix; *y = info.pos.y - iy; } void gui_mch_setmouse(int x, int y) { short abs_x, abs_y; PtGetAbsPosition(gui.vimTextArea, &abs_x, &abs_y); /* Add the border offset? */ PhMoveCursorAbs(PhInputGroup(NULL), abs_x + x, abs_y + y); } /****************************************************************************/ /* Colours */ /* * Return the RGB value of a pixel as a long. */ guicolor_T gui_mch_get_rgb(guicolor_T pixel) { return (guicolor_T)(PgRGB(PgRedValue(pixel), PgGreenValue(pixel), PgBlueValue(pixel))); } void gui_mch_new_colors(void) { #if 0 /* Don't bother changing the cursor colour */ short color_diff; /* * If there isn't enough difference between the background colour and * the mouse pointer colour then change the mouse pointer colour */ color_diff = gui_get_lightness(gui_ph_mouse_color) - gui_get_lightness(gui.back_pixel); if (abs(color_diff) < 64) { short r, g, b; /* not a great algorithm... */ r = PgRedValue(gui_ph_mouse_color) ^ 255; g = PgGreenValue(gui_ph_mouse_color) ^ 255; b = PgBlueValue(gui_ph_mouse_color) ^ 255; #ifndef FEAT_MOUSESHAPE gui_ph_mouse_color = PgRGB(r, g, b); PtSetResource(gui.vimTextArea, Pt_ARG_CURSOR_COLOR, gui_ph_mouse_color, 0); #endif } #endif PtSetResource(gui.vimTextArea, Pt_ARG_FILL_COLOR, gui.back_pixel, 0); } /* * This should be split out into a separate file, * every port does basically the same thing. * * This is the gui_w32.c version (i think..) * Return INVALCOLOR when failed. */ guicolor_T gui_mch_get_color(char_u *name) { return gui_get_color_cmn(name); } void gui_mch_set_fg_color(guicolor_T color) { PgSetTextColor(color); } void gui_mch_set_bg_color(guicolor_T color) { PgSetFillColor(color); } void gui_mch_set_sp_color(guicolor_T color) { } void gui_mch_invert_rectangle(int row, int col, int nr, int nc) { PhRect_t rect; rect.ul.x = FILL_X(col); rect.ul.y = FILL_Y(row); /* FIXME: This has an off by one pixel problem */ rect.lr.x = rect.ul.x + nc * gui.char_width; rect.lr.y = rect.ul.y + nr * gui.char_height; if (nc > 0) rect.lr.x -= 1; if (nr > 0) rect.lr.y -= 1; DRAW_START; PgSetDrawMode(Pg_DrawModeDSTINVERT); PgDrawRect(&rect, Pg_DRAW_FILL); PgSetDrawMode(Pg_DrawModeSRCCOPY); DRAW_END; } void gui_mch_clear_block(int row1, int col1, int row2, int col2) { PhRect_t block = { { FILL_X(col1), FILL_Y(row1) }, { FILL_X(col2 + 1) - 1, FILL_Y(row2 + 1) - 1} }; DRAW_START; gui_mch_set_bg_color(gui.back_pixel); PgDrawRect(&block, Pg_DRAW_FILL); DRAW_END; } void gui_mch_clear_all(void) { PhRect_t text_rect = { { gui.border_width, gui.border_width }, { Columns * gui.char_width + gui.border_width - 1 , Rows * gui.char_height + gui.border_width - 1 } }; if (is_ignore_draw == TRUE) return; DRAW_START; gui_mch_set_bg_color(gui.back_pixel); PgDrawRect(&text_rect, Pg_DRAW_FILL); DRAW_END; } void gui_mch_delete_lines(int row, int num_lines) { PhRect_t rect; PhPoint_t delta; rect.ul.x = FILL_X(gui.scroll_region_left); rect.ul.y = FILL_Y(row + num_lines); rect.lr.x = FILL_X(gui.scroll_region_right + 1) - 1; rect.lr.y = FILL_Y(gui.scroll_region_bot + 1) - 1; PtWidgetOffset(gui.vimTextArea, &gui_ph_raw_offset); PhTranslatePoint(&gui_ph_raw_offset, PtWidgetPos(gui.vimTextArea, NULL)); PhTranslateRect(&rect, &gui_ph_raw_offset); delta.x = 0; delta.y = -num_lines * gui.char_height; PgFlush(); PhBlit(PtWidgetRid(PtFindDisjoint(gui.vimTextArea)), &rect, &delta); gui_clear_block( gui.scroll_region_bot - num_lines + 1, gui.scroll_region_left, gui.scroll_region_bot, gui.scroll_region_right); } void gui_mch_insert_lines(int row, int num_lines) { PhRect_t rect; PhPoint_t delta; rect.ul.x = FILL_X(gui.scroll_region_left); rect.ul.y = FILL_Y(row); rect.lr.x = FILL_X(gui.scroll_region_right + 1) - 1; rect.lr.y = FILL_Y(gui.scroll_region_bot - num_lines + 1) - 1; PtWidgetOffset(gui.vimTextArea, &gui_ph_raw_offset); PhTranslatePoint(&gui_ph_raw_offset, PtWidgetPos(gui.vimTextArea, NULL)); PhTranslateRect(&rect, &gui_ph_raw_offset); delta.x = 0; delta.y = num_lines * gui.char_height; PgFlush(); PhBlit(PtWidgetRid(PtFindDisjoint(gui.vimTextArea)) , &rect, &delta); gui_clear_block(row, gui.scroll_region_left, row + num_lines - 1, gui.scroll_region_right); } void gui_mch_draw_string(int row, int col, char_u *s, int len, int flags) { static char *utf8_buffer = NULL; static int utf8_len = 0; PhPoint_t pos = { TEXT_X(col), TEXT_Y(row) }; PhRect_t rect; if (is_ignore_draw == TRUE) return; DRAW_START; if (!(flags & DRAW_TRANSP)) { PgDrawIRect( FILL_X(col), FILL_Y(row), FILL_X(col + len) - 1, FILL_Y(row + 1) - 1, Pg_DRAW_FILL); } if (flags & DRAW_UNDERL) PgSetUnderline(gui.norm_pixel, Pg_TRANSPARENT, 0); if (charset_translate != NULL #ifdef FEAT_MBYTE && enc_utf8 == 0 #endif ) { int src_taken, dst_made; /* Use a static buffer to avoid large amounts of de/allocations */ if (utf8_len < len) { utf8_buffer = realloc(utf8_buffer, len * MB_LEN_MAX); utf8_len = len; } PxTranslateToUTF( charset_translate, s, len, &src_taken, utf8_buffer, utf8_len, &dst_made); s = utf8_buffer; len = dst_made; } PgDrawText(s, len, &pos, 0); if (flags & DRAW_BOLD) { /* FIXME: try and only calculate these values once... */ rect.ul.x = FILL_X(col) + 1; rect.ul.y = FILL_Y(row); rect.lr.x = FILL_X(col + len) - 1; rect.lr.y = FILL_Y(row + 1) - 1; /* PgSetUserClip(NULL) causes the scrollbar to not redraw... */ #if 0 pos.x++; PgSetUserClip(&rect); PgDrawText(s, len, &pos, 0); PgSetUserClip(NULL); #else rect.lr.y -= (p_linespace + 1) / 2; /* XXX: DrawTextArea doesn't work with phditto */ PgDrawTextArea(s, len, &rect, Pg_TEXT_BOTTOM); #endif } if (flags & DRAW_UNDERL) PgSetUnderline(Pg_TRANSPARENT, Pg_TRANSPARENT, 0); DRAW_END; } /****************************************************************************/ /* Cursor */ void gui_mch_draw_hollow_cursor(guicolor_T color) { PhRect_t r; /* FIXME: Double width characters */ r.ul.x = FILL_X(gui.col); r.ul.y = FILL_Y(gui.row); r.lr.x = r.ul.x + gui.char_width - 1; r.lr.y = r.ul.y + gui.char_height - 1; DRAW_START; PgSetStrokeColor(color); PgDrawRect(&r, Pg_DRAW_STROKE); DRAW_END; } void gui_mch_draw_part_cursor(int w, int h, guicolor_T color) { PhRect_t r; r.ul.x = FILL_X(gui.col); r.ul.y = FILL_Y(gui.row) + gui.char_height - h; r.lr.x = r.ul.x + w - 1; r.lr.y = r.ul.y + h - 1; DRAW_START; gui_mch_set_bg_color(color); PgDrawRect(&r, Pg_DRAW_FILL); DRAW_END; } int gui_mch_is_blinking(void) { return blink_state != BLINK_NONE; } int gui_mch_is_blink_off(void) { return blink_state == BLINK_OFF; } void gui_mch_set_blinking(long wait, long on, long off) { blink_waittime = wait; blink_ontime = on; blink_offtime = off; } void gui_mch_start_blink(void) { /* Only turn on the timer on if none of the times are zero */ if (blink_waittime && blink_ontime && blink_offtime && gui.in_focus) { PtSetResource(gui_ph_timer_cursor, Pt_ARG_TIMER_INITIAL, blink_waittime, 0); blink_state = BLINK_ON; gui_update_cursor(TRUE, FALSE); } } void gui_mch_stop_blink(void) { PtSetResource(gui_ph_timer_cursor, Pt_ARG_TIMER_INITIAL, 0, 0); if (blink_state == BLINK_OFF) gui_update_cursor(TRUE, FALSE); blink_state = BLINK_NONE; } /****************************************************************************/ /* miscellaneous functions */ void gui_mch_beep(void) { PtBeep(); } void gui_mch_flash(int msec) { PgSetFillXORColor(Pg_BLACK, Pg_WHITE); PgSetDrawMode(Pg_DRAWMODE_XOR); gui_mch_clear_all(); gui_mch_flush(); ui_delay((long) msec, TRUE); gui_mch_clear_all(); PgSetDrawMode(Pg_DRAWMODE_OPAQUE); gui_mch_flush(); } void gui_mch_flush(void) { PgFlush(); } void gui_mch_set_text_area_pos(int x, int y, int w, int h) { PhArea_t area = {{x, y}, {w, h}}; PtSetResource(gui.vimTextArea, Pt_ARG_AREA, &area, 0); } int gui_mch_haskey(char_u *name) { int i; for (i = 0; special_keys[i].key_sym != 0; i++) if (name[0] == special_keys[i].vim_code0 && name[1] == special_keys[i].vim_code1) return OK; return FAIL; } /****************************************************************************/ /* Menu */ #ifdef FEAT_TOOLBAR #include "toolbar.phi" static PhImage_t *gui_ph_toolbar_images[] = { &tb_new_phi, &tb_open_phi, &tb_save_phi, &tb_undo_phi, &tb_redo_phi, &tb_cut_phi, &tb_copy_phi, &tb_paste_phi, &tb_print_phi, &tb_help_phi, &tb_find_phi, &tb_save_all_phi, &tb_save_session_phi, &tb_new_session_phi, &tb_load_session_phi, &tb_macro_phi, &tb_replace_phi, &tb_close_phi, &tb_maximize_phi, &tb_minimize_phi, &tb_split_phi, &tb_shell_phi, &tb_find_prev_phi, &tb_find_next_phi, &tb_find_help_phi, &tb_make_phi, &tb_jump_phi, &tb_ctags_phi, &tb_vsplit_phi, &tb_maxwidth_phi, &tb_minwidth_phi }; static PhImage_t * gui_ph_toolbar_load_icon(char_u *iconfile) { static PhImage_t external_icon; PhImage_t *temp_phi = NULL; temp_phi = PxLoadImage(iconfile, NULL); if (temp_phi != NULL) { /* The label widget will free the image/palette/etc. for us when * it's destroyed */ temp_phi->flags |= Ph_RELEASE_IMAGE_ALL; memcpy(&external_icon, temp_phi, sizeof(external_icon)); free(temp_phi); temp_phi = &external_icon; } return temp_phi; } /* * This returns either a builtin icon image, an external image or NULL * if it can't find either. The caller can't and doesn't need to try and * free() the returned image, and it can't store the image pointer. * (When setting the Pt_ARG_LABEL_IMAGE resource, the contents of the * PhImage_t are copied, and the original PhImage_t aren't needed anymore). */ static PhImage_t * gui_ph_toolbar_find_icon(vimmenu_T *menu) { char_u full_pathname[ MAXPATHL + 1 ]; PhImage_t *icon = NULL; if (menu->icon_builtin == FALSE) { if (menu->iconfile != NULL) /* TODO: use gui_find_iconfile() */ icon = gui_ph_toolbar_load_icon(menu->iconfile); /* TODO: Restrict loading to just .png? Search for any format? */ if ((icon == NULL) && ((gui_find_bitmap(menu->name, full_pathname, "gif") == OK) || (gui_find_bitmap(menu->name, full_pathname, "png") == OK))) icon = gui_ph_toolbar_load_icon(full_pathname); if (icon != NULL) return icon; } if (menu->iconidx >= 0 && (menu->iconidx < ARRAY_LENGTH(gui_ph_toolbar_images))) { return gui_ph_toolbar_images[menu->iconidx]; } return NULL; } #endif #if defined(FEAT_MENU) || defined(PROTO) void gui_mch_enable_menu(int flag) { if (flag != 0) PtRealizeWidget(gui.vimMenuBar); else PtUnrealizeWidget(gui.vimMenuBar); } void gui_mch_set_menu_pos(int x, int y, int w, int h) { /* Nothing */ } /* Change the position of a menu button in the parent */ static void gui_ph_position_menu(PtWidget_t *widget, int priority) { PtWidget_t *traverse; vimmenu_T *menu; traverse = PtWidgetChildBack(PtWidgetParent(widget)); /* Iterate through the list of widgets in traverse, until * we find the position we want to insert our widget into */ /* TODO: traverse from front to back, possible speedup? */ while (traverse != NULL) { PtGetResource(traverse, Pt_ARG_POINTER, &menu, 0); if (menu != NULL && priority < menu->priority && widget != traverse) { /* Insert the widget before the current traverse widget */ PtWidgetInsert(widget, traverse, 1); return; } traverse = PtWidgetBrotherInFront(traverse); } } /* the index is ignored because it's not useful for our purposes */ void gui_mch_add_menu(vimmenu_T *menu, int index) { vimmenu_T *parent = menu->parent; char_u *accel_key; char_u mnemonic_str[MB_LEN_MAX]; int n; PtArg_t args[5]; menu->submenu_id = menu->id = NULL; if (menu_is_menubar(menu->name)) { accel_key = vim_strchr(menu->name, '&'); if (accel_key != NULL) { mnemonic_str[0] = accel_key[1]; mnemonic_str[1] = NUL; } /* Create the menu button */ n = 0; PtSetArg(&args[ n++ ], Pt_ARG_TEXT_STRING, menu->dname, 0); PtSetArg(&args[ n++ ], Pt_ARG_ACCEL_TEXT, menu->actext, 0); if (accel_key != NULL) PtSetArg(&args[ n++ ], Pt_ARG_ACCEL_KEY, mnemonic_str, 0); PtSetArg(&args[ n++ ], Pt_ARG_POINTER, menu, 0); if (parent != NULL) PtSetArg(&args[ n++ ], Pt_ARG_BUTTON_TYPE, Pt_MENU_RIGHT, 0); menu->id = PtCreateWidget(PtMenuButton, (parent == NULL) ? gui.vimMenuBar : parent->submenu_id, n, args); PtAddCallback(menu->id, Pt_CB_ARM, gui_ph_handle_pulldown_menu, menu); /* Create the actual menu */ n = 0; if (parent != NULL) PtSetArg(&args[ n++ ], Pt_ARG_MENU_FLAGS, Pt_TRUE, Pt_MENU_CHILD); menu->submenu_id = PtCreateWidget(PtMenu, menu->id, n, args); if (parent == NULL) { PtAddCallback(menu->submenu_id, Pt_CB_UNREALIZED, gui_ph_handle_menu_unrealized, menu); if (menu->mnemonic != 0) { PtAddHotkeyHandler(gui.vimWindow, tolower(menu->mnemonic), Pk_KM_Alt, 0, menu, gui_ph_handle_pulldown_menu); } } gui_ph_position_menu(menu->id, menu->priority); /* Redraw menubar here instead of gui_mch_draw_menubar */ if (gui.menu_is_active) PtRealizeWidget(menu->id); } else if (menu_is_popup(menu->name)) { menu->submenu_id = PtCreateWidget(PtMenu, gui.vimWindow, 0, NULL); PtAddCallback(menu->submenu_id, Pt_CB_UNREALIZED, gui_ph_handle_menu_unrealized, menu); } } void gui_mch_add_menu_item(vimmenu_T *menu, int index) { vimmenu_T *parent = menu->parent; char_u *accel_key; char_u mnemonic_str[MB_LEN_MAX]; int n; PtArg_t args[13]; n = 0; PtSetArg(&args[ n++ ], Pt_ARG_POINTER, menu, 0); #ifdef FEAT_TOOLBAR if (menu_is_toolbar(parent->name)) { if (menu_is_separator(menu->name)) { PtSetArg(&args[ n++ ], Pt_ARG_SEP_FLAGS, Pt_SEP_VERTICAL, Pt_SEP_ORIENTATION); PtSetArg(&args[ n++ ], Pt_ARG_SEP_TYPE, Pt_ETCHED_IN, 0); PtSetArg(&args[ n++ ], Pt_ARG_ANCHOR_FLAGS, Pt_TRUE, Pt_ANCHOR_TOP_BOTTOM); PtSetArg(&args[ n++ ], Pt_ARG_WIDTH, 2, 0); menu->id = PtCreateWidget(PtSeparator, gui.vimToolBar, n, args); } else { if (strstr((const char *) p_toolbar, "text") != NULL) { PtSetArg(&args[ n++ ], Pt_ARG_BALLOON_POSITION, Pt_BALLOON_BOTTOM, 0); PtSetArg(&args[ n++ ], Pt_ARG_TEXT_STRING, menu->dname, 0); PtSetArg(&args[ n++ ], Pt_ARG_TEXT_FONT, "TextFont08", 0); } if ((strstr((const char *) p_toolbar, "icons") != NULL) && (gui_ph_toolbar_images != NULL)) { PtSetArg(&args[ n++ ], Pt_ARG_LABEL_IMAGE, gui_ph_toolbar_find_icon(menu), 0); PtSetArg(&args[ n++ ], Pt_ARG_LABEL_TYPE, Pt_TEXT_IMAGE, 0); PtSetArg(&args[ n++ ], Pt_ARG_TEXT_IMAGE_SPACING, 0, 0); } if (strstr((const char *) p_toolbar, "tooltips") != NULL) { PtSetArg(&args[ n++ ], Pt_ARG_LABEL_BALLOON, gui_ph_show_tooltip, 0); PtSetArg(&args[ n++ ], Pt_ARG_LABEL_FLAGS, Pt_TRUE, Pt_SHOW_BALLOON); } PtSetArg(&args[ n++ ], Pt_ARG_MARGIN_HEIGHT, 1, 0); PtSetArg(&args[ n++ ], Pt_ARG_MARGIN_WIDTH, 1, 0); PtSetArg(&args[ n++ ], Pt_ARG_FLAGS, Pt_FALSE, Pt_HIGHLIGHTED | Pt_GETS_FOCUS); PtSetArg(&args[ n++ ], Pt_ARG_FILL_COLOR, Pg_TRANSPARENT, 0); menu->id = PtCreateWidget(PtButton, gui.vimToolBar, n, args); PtAddCallback(menu->id, Pt_CB_ACTIVATE, gui_ph_handle_menu, menu); } /* Update toolbar if it's open */ if (PtWidgetIsRealized(gui.vimToolBar)) PtRealizeWidget(menu->id); } else #endif if (menu_is_separator(menu->name)) { menu->id = PtCreateWidget(PtSeparator, parent->submenu_id, n, args); } else { accel_key = vim_strchr(menu->name, '&'); if (accel_key != NULL) { mnemonic_str[0] = accel_key[1]; mnemonic_str[1] = NUL; } PtSetArg(&args[ n++ ], Pt_ARG_TEXT_STRING, menu->dname, 0); if (accel_key != NULL) PtSetArg(&args[ n++ ], Pt_ARG_ACCEL_KEY, mnemonic_str, 0); PtSetArg(&args[ n++ ], Pt_ARG_ACCEL_TEXT, menu->actext, 0); menu->id = PtCreateWidget(PtMenuButton, parent->submenu_id, n, args); PtAddCallback(menu->id, Pt_CB_ACTIVATE, gui_ph_handle_menu, menu); #ifdef USE_PANEL_GROUP if (gui_ph_is_buffer_item(menu, parent) == TRUE) { PtAddCallback(menu->id, Pt_CB_DESTROYED, gui_ph_handle_buffer_remove, menu); gui_ph_pg_add_buffer(menu->dname); } #endif } gui_ph_position_menu(menu->id, menu->priority); } void gui_mch_destroy_menu(vimmenu_T *menu) { if (menu->submenu_id != NULL) PtDestroyWidget(menu->submenu_id); if (menu->id != NULL) PtDestroyWidget(menu->id); menu->submenu_id = NULL; menu->id = NULL; } void gui_mch_menu_grey(vimmenu_T *menu, int grey) { long flags, mask, fields; if (menu->id == NULL) return; flags = PtWidgetFlags(menu->id); if (PtWidgetIsClass(menu->id, PtMenuButton) && PtWidgetIsClass(PtWidgetParent(menu->id), PtMenu)) { fields = Pt_FALSE; mask = Pt_SELECTABLE | Pt_HIGHLIGHTED; } else { fields = Pt_TRUE; mask = Pt_BLOCKED | Pt_GHOST; } if (! grey) fields = ~fields; PtSetResource(menu->id, Pt_ARG_FLAGS, fields, mask); } void gui_mch_menu_hidden(vimmenu_T *menu, int hidden) { /* TODO: [un]realize the widget? */ } void gui_mch_draw_menubar(void) { /* The only time a redraw is needed is when a menu button * is added to the menubar, and that is detected and the bar * redrawn in gui_mch_add_menu_item */ } void gui_mch_show_popupmenu(vimmenu_T *menu) { PtSetResource(menu->submenu_id, Pt_ARG_POS, &abs_mouse, 0); PtRealizeWidget(menu->submenu_id); } void gui_mch_toggle_tearoffs(int enable) { /* No tearoffs yet */ } #endif #if defined(FEAT_TOOLBAR) || defined(PROTO) void gui_mch_show_toolbar(int showit) { if (showit) PtRealizeWidget(gui.vimToolBar); else PtUnrealizeWidget(gui.vimToolBar); } #endif /****************************************************************************/ /* Fonts */ static GuiFont gui_ph_get_font( char_u *font_name, int_u font_flags, int_u font_size, /* Check whether the resulting font has the font flags and size that * was asked for */ int_u enforce ) { char_u *font_tag; FontQueryInfo info; int_u style; font_tag = alloc(MAX_FONT_TAG); if (font_tag != NULL) { if (PfGenerateFontName(font_name, font_flags, font_size, font_tag) != NULL) { /* Enforce some limits on the font used */ style = PHFONT_INFO_FIXED; if (enforce & PF_STYLE_BOLD) style |= PHFONT_INFO_BOLD; if (enforce & PF_STYLE_ANTIALIAS) style |= PHFONT_INFO_ALIAS; if (enforce & PF_STYLE_ITALIC) style |= PHFONT_INFO_ITALIC; PfQueryFontInfo(font_tag, &info); if (info.size == 0) font_size = 0; /* Make sure font size matches, and that the font style * at least has the bits we're checking for */ if (font_size == info.size && style == (info.style & style)) return (GuiFont)font_tag; } vim_free(font_tag); } return NULL; } /* * Split up the vim font name * * vim_font is in the form of * :s:a:b:i * * a = antialias * b = bold * i = italic * */ static int gui_ph_parse_font_name( char_u *vim_font, char_u **font_name, int_u *font_flags, int_u *font_size) { char_u *mark; int_u name_len, size; mark = vim_strchr(vim_font, ':'); if (mark == NULL) name_len = STRLEN(vim_font); else name_len = (int_u) (mark - vim_font); *font_name = vim_strnsave(vim_font, name_len); if (*font_name != NULL) { if (mark != NULL) { while (*mark != NUL && *mark++ == ':') { switch (tolower(*mark++)) { case 'a': *font_flags |= PF_STYLE_ANTIALIAS; break; case 'b': *font_flags |= PF_STYLE_BOLD; break; case 'i': *font_flags |= PF_STYLE_ITALIC; break; case 's': size = getdigits(&mark); /* Restrict the size to some vague limits */ if (size < 1 || size > 100) size = 8; *font_size = size; break; default: break; } } } return TRUE; } return FALSE; } int gui_mch_init_font(char_u *vim_font_name, int fontset) { char_u *font_tag; char_u *font_name = NULL; int_u font_flags = 0; int_u font_size = 12; FontQueryInfo info; PhRect_t extent; if (vim_font_name == NULL) { /* Default font */ vim_font_name = "PC Terminal"; } if (STRCMP(vim_font_name, "*") == 0) { font_tag = PtFontSelection(gui.vimWindow, NULL, NULL, "pcterm12", -1, PHFONT_FIXED, NULL); if (font_tag == NULL) return FAIL; gui_mch_free_font(gui.norm_font); gui.norm_font = font_tag; PfQueryFontInfo(font_tag, &info); font_name = vim_strsave(info.font); } else { if (gui_ph_parse_font_name(vim_font_name, &font_name, &font_flags, &font_size) == FALSE) return FAIL; font_tag = gui_ph_get_font(font_name, font_flags, font_size, 0); if (font_tag == NULL) { vim_free(font_name); return FAIL; } gui_mch_free_font(gui.norm_font); gui.norm_font = font_tag; } gui_mch_free_font(gui.bold_font); gui.bold_font = gui_ph_get_font(font_name, font_flags | PF_STYLE_BOLD, font_size, PF_STYLE_BOLD); gui_mch_free_font(gui.ital_font); gui.ital_font = gui_ph_get_font(font_name, font_flags | PF_STYLE_ITALIC, font_size, PF_STYLE_ITALIC); /* This extent was brought to you by the letter 'g' */ PfExtentText(&extent, NULL, font_tag, "g", 1); gui.char_width = extent.lr.x - extent.ul.x + 1; gui.char_height = (- extent.ul.y) + extent.lr.y + 1; gui.char_ascent = - extent.ul.y; vim_free(font_name); return OK; } /* * Adjust gui.char_height (after 'linespace' was changed). */ int gui_mch_adjust_charheight(void) { FontQueryInfo info; PfQueryFontInfo(gui.norm_font, &info); gui.char_height = - info.ascender + info.descender + p_linespace; gui.char_ascent = - info.ascender + p_linespace / 2; return OK; } GuiFont gui_mch_get_font(char_u *vim_font_name, int report_error) { char_u *font_name; char_u *font_tag; int_u font_size = 12; int_u font_flags = 0; if (gui_ph_parse_font_name(vim_font_name, &font_name, &font_flags, &font_size) != FALSE) { font_tag = gui_ph_get_font(font_name, font_flags, font_size, -1); vim_free(font_name); if (font_tag != NULL) return (GuiFont)font_tag; } if (report_error) EMSG2(e_font, vim_font_name); return FAIL; } #if defined(FEAT_EVAL) || defined(PROTO) /* * Return the name of font "font" in allocated memory. * Don't know how to get the actual name, thus use the provided name. */ char_u * gui_mch_get_fontname(GuiFont font, char_u *name) { if (name == NULL) return NULL; return vim_strsave(name); } #endif void gui_mch_set_font(GuiFont font) { PgSetFont(font); } void gui_mch_free_font(GuiFont font) { vim_free(font); }