/*
* Lookup part of a menu name in the translations.
* Return a pointer to the translation or NULL if not found.
*/
static char_u *menutrans_lookup(char_u *name, int len)
{
menutrans_T *tp = (menutrans_T *)menutrans_ga.ga_data;
char_u *dname;
for (int i = 0; i < menutrans_ga.ga_len; ++i) {
if (STRNCMP(name, tp[i].from, len) == 0 && tp[i].from[len] == NUL) {
return tp[i].to;
}
}
/* Now try again while ignoring '&' characters. */
char c = name[len];
name[len] = NUL;
dname = menu_text(name, NULL, NULL);
name[len] = c;
if (dname != NULL) {
for (int i = 0; i < menutrans_ga.ga_len; ++i) {
if (STRCMP(dname, tp[i].from_noamp) == 0) {
free(dname);
return tp[i].to;
}
}
free(dname);
}
return NULL;
}
void deskmenu_init(void)
{
int i;
h_gem_menu = gemtk_obj_get_tree(MAINMENU);
/* Install menu: */
menu_bar(h_gem_menu, MENU_INSTALL);
/* parse and update menu items: */
i = 0;
while( menu_evnt_tbl[i].rid != -1 ) {
register_menu_str( &menu_evnt_tbl[i] );
/* Update menu string if not null: */
if( menu_evnt_tbl[i].menustr != NULL ){
menu_text(h_gem_menu, menu_evnt_tbl[i].rid,
menu_evnt_tbl[i].menustr);
}
i++;
}
deskmenu_update();
/* Redraw menu: */
menu_bar(h_gem_menu, MENU_UPDATE);
}
/*
* ":menutrans".
* This function is also defined without the +multi_lang feature, in which
* case the commands are ignored.
*/
void ex_menutranslate(exarg_T *eap)
{
char_u *arg = eap->arg;
menutrans_T *tp;
char_u *from, *from_noamp, *to;
if (menutrans_ga.ga_itemsize == 0)
ga_init(&menutrans_ga, (int)sizeof(menutrans_T), 5);
/*
* ":menutrans clear": clear all translations.
*/
if (STRNCMP(arg, "clear", 5) == 0 && ends_excmd(*skipwhite(arg + 5))) {
tp = (menutrans_T *)menutrans_ga.ga_data;
for (int i = 0; i < menutrans_ga.ga_len; ++i) {
free(tp[i].from);
free(tp[i].from_noamp);
free(tp[i].to);
}
ga_clear(&menutrans_ga);
/* Delete all "menutrans_" global variables. */
del_menutrans_vars();
} else {
/* ":menutrans from to": add translation */
from = arg;
arg = menu_skip_part(arg);
to = skipwhite(arg);
*arg = NUL;
arg = menu_skip_part(to);
if (arg == to)
EMSG(_(e_invarg));
else {
ga_grow(&menutrans_ga, 1);
tp = (menutrans_T *)menutrans_ga.ga_data;
from = vim_strsave(from);
from_noamp = menu_text(from, NULL, NULL);
to = vim_strnsave(to, (int)(arg - to));
if (from_noamp != NULL) {
menu_translate_tab_and_shift(from);
menu_translate_tab_and_shift(to);
menu_unescape_name(from);
menu_unescape_name(to);
tp[menutrans_ga.ga_len].from = from;
tp[menutrans_ga.ga_len].from_noamp = from_noamp;
tp[menutrans_ga.ga_len].to = to;
++menutrans_ga.ga_len;
} else {
free(from);
free(from_noamp);
free(to);
}
}
}
}
static WORD do_viewmenu(WORD item)
{
WORD newview, newsort, rc = 0;
LONG ptext;
newview = G.g_iview;
newsort = G.g_isort;
switch(item)
{
case ICONITEM:
newview = (G.g_iview == V_ICON) ? V_TEXT : V_ICON;
break;
case NAMEITEM:
newsort = S_NAME;
break;
case DATEITEM:
newsort = S_DATE;
break;
case SIZEITEM:
newsort = S_SIZE;
break;
case TYPEITEM:
newsort = S_TYPE;
break;
case NSRTITEM:
newsort = S_NSRT;
break;
}
if (newview != G.g_iview)
{
G.g_iview = newview;
ptext = (newview == V_TEXT) ? ad_picon : ad_ptext;
menu_text(G.a_trees[ADMENU], ICONITEM, ptext);
rc |= VIEW_HAS_CHANGED;
}
if (newsort != G.g_isort)
{
menu_icheck(G.a_trees[ADMENU], G.g_csortitem, 0);
G.g_csortitem = item;
menu_icheck(G.a_trees[ADMENU], item, 1);
rc |= SORT_HAS_CHANGED;
}
if (rc)
win_view(newview, newsort);
return rc;
}
/*
* ":menutrans".
* This function is also defined without the +multi_lang feature, in which
* case the commands are ignored.
*/
void ex_menutranslate(exarg_T *eap)
{
char_u *arg = eap->arg;
char_u *from, *from_noamp, *to;
if (menutrans_ga.ga_itemsize == 0)
ga_init(&menutrans_ga, (int)sizeof(menutrans_T), 5);
/*
* ":menutrans clear": clear all translations.
*/
if (STRNCMP(arg, "clear", 5) == 0 && ends_excmd(*skipwhite(arg + 5))) {
GA_DEEP_CLEAR(&menutrans_ga, menutrans_T, FREE_MENUTRANS);
/* Delete all "menutrans_" global variables. */
del_menutrans_vars();
} else {
/* ":menutrans from to": add translation */
from = arg;
arg = menu_skip_part(arg);
to = skipwhite(arg);
*arg = NUL;
arg = menu_skip_part(to);
if (arg == to)
EMSG(_(e_invarg));
else {
from = vim_strsave(from);
from_noamp = menu_text(from, NULL, NULL);
to = vim_strnsave(to, (int)(arg - to));
if (from_noamp != NULL) {
menu_translate_tab_and_shift(from);
menu_translate_tab_and_shift(to);
menu_unescape_name(from);
menu_unescape_name(to);
menutrans_T* tp = GA_APPEND_VIA_PTR(menutrans_T, &menutrans_ga);
tp->from = from;
tp->from_noamp = from_noamp;
tp->to = to;
} else {
free(from);
free(to);
}
}
}
}
/*
* Add the menu with the given name to the menu hierarchy
*/
static int
add_menu_path (
char_u *menu_path,
vimmenu_T *menuarg, /* passes modes, iconfile, iconidx,
icon_builtin, silent[0], noremap[0] */
int *pri_tab,
char_u *call_data
)
{
char_u *path_name;
int modes = menuarg->modes;
vimmenu_T **menup;
vimmenu_T *menu = NULL;
vimmenu_T *parent;
vimmenu_T **lower_pri;
char_u *p;
char_u *name;
char_u *dname;
char_u *next_name;
int i;
int c;
int d;
int pri_idx = 0;
int old_modes = 0;
int amenu;
char_u *en_name;
char_u *map_to = NULL;
/* Make a copy so we can stuff around with it, since it could be const */
path_name = vim_strsave(menu_path);
menup = &root_menu;
parent = NULL;
name = path_name;
while (*name) {
/* Get name of this element in the menu hierarchy, and the simplified
* name (without mnemonic and accelerator text). */
next_name = menu_name_skip(name);
map_to = menutrans_lookup(name, (int)STRLEN(name));
if (map_to != NULL) {
en_name = name;
name = map_to;
} else
en_name = NULL;
dname = menu_text(name, NULL, NULL);
if (dname == NULL)
goto erret;
if (*dname == NUL) {
/* Only a mnemonic or accelerator is not valid. */
EMSG(_("E792: Empty menu name"));
goto erret;
}
/* See if it's already there */
lower_pri = menup;
menu = *menup;
while (menu != NULL) {
if (menu_name_equal(name, menu) || menu_name_equal(dname, menu)) {
if (*next_name == NUL && menu->children != NULL) {
if (!sys_menu)
EMSG(_("E330: Menu path must not lead to a sub-menu"));
goto erret;
}
if (*next_name != NUL && menu->children == NULL
) {
if (!sys_menu)
EMSG(_(e_notsubmenu));
goto erret;
}
break;
}
menup = &menu->next;
/* Count menus, to find where this one needs to be inserted.
* Ignore menus that are not in the menubar (PopUp and Toolbar) */
if (parent != NULL || menu_is_menubar(menu->name)) {
if (menu->priority <= pri_tab[pri_idx]) {
lower_pri = menup;
}
}
menu = menu->next;
}
if (menu == NULL) {
if (*next_name == NUL && parent == NULL) {
EMSG(_("E331: Must not add menu items directly to menu bar"));
goto erret;
}
if (menu_is_separator(dname) && *next_name != NUL) {
EMSG(_("E332: Separator cannot be part of a menu path"));
goto erret;
}
/* Not already there, so lets add it */
menu = xcalloc(1, sizeof(vimmenu_T));
menu->modes = modes;
menu->enabled = MENU_ALL_MODES;
menu->name = vim_strsave(name);
/* separate mnemonic and accelerator text from actual menu name */
menu->dname = menu_text(name, &menu->mnemonic, &menu->actext);
if (en_name != NULL) {
menu->en_name = vim_strsave(en_name);
menu->en_dname = menu_text(en_name, NULL, NULL);
} else {
menu->en_name = NULL;
menu->en_dname = NULL;
}
menu->priority = pri_tab[pri_idx];
menu->parent = parent;
/*
* Add after menu that has lower priority.
*/
menu->next = *lower_pri;
*lower_pri = menu;
old_modes = 0;
} else {
old_modes = menu->modes;
/*
* If this menu option was previously only available in other
* modes, then make sure it's available for this one now
* Also enable a menu when it's created or changed.
*/
{
menu->modes |= modes;
menu->enabled |= modes;
}
}
menup = &menu->children;
parent = menu;
name = next_name;
free(dname);
dname = NULL;
if (pri_tab[pri_idx + 1] != -1)
++pri_idx;
}
free(path_name);
/*
* Only add system menu items which have not been defined yet.
* First check if this was an ":amenu".
*/
amenu = ((modes & (MENU_NORMAL_MODE | MENU_INSERT_MODE)) ==
(MENU_NORMAL_MODE | MENU_INSERT_MODE));
if (sys_menu)
modes &= ~old_modes;
if (menu != NULL && modes) {
p = (call_data == NULL) ? NULL : vim_strsave(call_data);
/* loop over all modes, may add more than one */
for (i = 0; i < MENU_MODES; ++i) {
if (modes & (1 << i)) {
/* free any old menu */
free_menu_string(menu, i);
/* For "amenu", may insert an extra character.
* Don't do this if adding a tearbar (addtearoff == FALSE).
* Don't do this for "<Nop>". */
c = 0;
d = 0;
if (amenu && call_data != NULL && *call_data != NUL
) {
switch (1 << i) {
case MENU_VISUAL_MODE:
case MENU_SELECT_MODE:
case MENU_OP_PENDING_MODE:
case MENU_CMDLINE_MODE:
c = Ctrl_C;
break;
case MENU_INSERT_MODE:
c = Ctrl_BSL;
d = Ctrl_O;
break;
}
}
if (c != 0) {
menu->strings[i] = xmalloc(STRLEN(call_data) + 5 );
menu->strings[i][0] = c;
if (d == 0)
STRCPY(menu->strings[i] + 1, call_data);
else {
menu->strings[i][1] = d;
STRCPY(menu->strings[i] + 2, call_data);
}
if (c == Ctrl_C) {
int len = (int)STRLEN(menu->strings[i]);
/* Append CTRL-\ CTRL-G to obey 'insertmode'. */
menu->strings[i][len] = Ctrl_BSL;
menu->strings[i][len + 1] = Ctrl_G;
menu->strings[i][len + 2] = NUL;
}
} else
menu->strings[i] = p;
menu->noremap[i] = menuarg->noremap[0];
menu->silent[i] = menuarg->silent[0];
}
}
#if defined(FEAT_TOOLBAR) && !defined(FEAT_GUI_W32) \
&& (defined(FEAT_BEVAL) || defined(FEAT_GUI_GTK))
/* Need to update the menu tip. */
if (modes & MENU_TIP_MODE)
gui_mch_menu_set_tip(menu);
#endif
}
return OK;
erret:
free(path_name);
free(dname);
/* Delete any empty submenu we added before discovering the error. Repeat
* for higher levels. */
while (parent != NULL && parent->children == NULL) {
if (parent->parent == NULL)
menup = &root_menu;
else
menup = &parent->parent->children;
for (; *menup != NULL && *menup != parent; menup = &((*menup)->next))
;
if (*menup == NULL) /* safety check */
break;
parent = parent->parent;
free_menu(menup);
}
return FAIL;
}
/* MAIN()
* ================================================================
*/
VOID
main( VOID )
{
WORD button;
BOOLEAN done;
OBJECT *tree;
appl_init();
phys_handle = graf_handle( &gl_wchar, &gl_hchar, &gl_wbox, &gl_hbox );
open_vwork();
graf_mouse( ARROW, 0L );
rsrc_load( "DEMO.RSC" );
rsrc_gaddr( 0, MENUBAR, &ad_menubar );
rsrc_gaddr( 0, ATREE, &ad_tree );
rsrc_gaddr( 0, FONTTREE, &ad_fonts );
rsrc_gaddr( 0, STREE, &ad_style );
rsrc_gaddr( 0, POSTREE, &ad_position );
rsrc_gaddr( 0, CTREE, &ad_color );
rsrc_gaddr( 0, PTREE, &ad_pattern );
rsrc_gaddr( 0, MTREE, &ad_modem );
rsrc_gaddr( 0, BAUDRATE, &ad_baudrate );
rsrc_gaddr( 0, PARTREE, &ad_parity );
rsrc_gaddr( 0, BITTREE, &ad_bittree );
rsrc_gaddr( 0, STOPTREE, &ad_stoptree );
rsrc_gaddr( 0, PORTTREE, &ad_porttree );
rsrc_gaddr( 0, FLOWTREE, &ad_flowtree );
rsrc_gaddr( 0, LTREE, &ad_list );
rsrc_gaddr( 0, TOOLBOX, &ad_tools );
rsrc_gaddr( 0, BLANK, &ad_blank );
rsrc_gaddr( 0, TOOLBOX2, &ad_box2 );
rsrc_gaddr( 0, TOOLBAR, &ad_box3 );
rsrc_gaddr( 0, FONT2, &ad_font2 );
/* Attach all Submenus that are being attached */
AttachMenus();
/* CheckMark the Current Menu Items in their respective menus */
menu_icheck( ad_baudrate, CurBaudRate, 1 );
menu_icheck( ad_parity, CurParity, 1 );
menu_icheck( ad_bittree, CurBits, 1 );
menu_icheck( ad_stoptree, CurStopBits, 1 );
menu_icheck( ad_porttree, CurPort, 1 );
menu_icheck( ad_flowtree, CurFlow, 1 );
menu_icheck( ad_style, CurStyle, 1 );
menu_icheck( ad_position, CurPos, 1 );
menu_icheck( ad_fonts, CurFonts, 1 );
menu_icheck( ad_font2, CurFont2, 1 );
/* display menubar stuff here */
menu_bar( ad_menubar, TRUE );
/* initialize windows */
wind_get( 0, WF_FULLXYWH, &desk.g_x, &desk.g_y, &desk.g_w, &desk.g_h );
cur_tree = ad_tools;
menu_flag = TRUE; /* Set Toggle Flags */
SubFlag = TRUE;
ToolFlag = TRUE;
CurRect.g_x = desk.g_x;
CurRect.g_y = desk.g_y;
CurRect.g_w = 320;
CurRect.g_h = 200;
InitObjects();
InitWindow();
menu_ienable( ad_menubar, FOPEN, 0 );
menu_ienable( ad_menubar, FCLOSE, 1 );
done = FALSE;
do
{
evnt_mesag( msg );
wind_update( BEG_UPDATE );
if( msg[0] == MN_SELECTED )
{
/* msg[7] is the parent of FQUIT - which the user can't know */
ptr = ( OBJECT **)&msg[5];
if( *ptr == ad_menubar )
{
switch( msg[4] )
{
case FQUIT:
button = form_alert( 1, "[1][ | EXIT PROGRAM? ][OK|Cancel]");
if( button == 1 )
done = TRUE;
break;
case ABOUTX: execform( ad_tree, 0 );
break;
case PHONE: do_modem();
break;
case TABOUT: /* Enable, Disable About PLUS change TEXT */
menu_flag ^= 1;
menu_ienable( ad_menubar, ABOUTX, menu_flag );
menu_text( ad_menubar, TABOUT, TextAbout[ menu_flag ] );
if( menu_flag )
menu_text( ad_menubar, ABOUTX, " About Demo... " );
else
menu_text( ad_menubar, ABOUTX, " Disabled... " );
break;
case TSUB: /* Enable/Disable all Submenus */
SubFlag ^= 1;
menu_text( ad_menubar, TSUB, TextSubMenu[ SubFlag ] );
if( SubFlag )
AttachMenus();
else
DetachMenus();
break;
case SLISTS: DoList(); /* Do A Drop Down List Dialog */
break;
case TOOLFLAG: /* Enable/Disable ToolBox */
ToolFlag ^= 1;
menu_text( ad_menubar, TOOLFLAG, TextToolBox[ ToolFlag ] );
if( ToolFlag )
{
*( (LONG *)&tree_data[0] ) = ( LONG )cur_tree;
wind_set( wid, WF_TOOLBAR, tree_data[0], tree_data[1], dummy, dummy );
}
else
wind_set( wid, WF_TOOLBAR, 0, 0, dummy, dummy );
break;
case SWITCH: /* Switch ToolBoxes */
if( cur_tree == ad_tools )
cur_tree = ad_box2;
else if( cur_tree == ad_box2 ) {
cur_tree = ad_box3;
ActiveTree( ad_fonts );
textptr = ObString( CurFonts );
strncpy( &tbuff[0], &textptr[1], 28 );
ActiveTree( ad_box3 );
TedText( FBUTT1 ) = &tbuff[0];
}
else
cur_tree = ad_tools;
*( (LONG *)&tree_data[0] ) = ( LONG )cur_tree;
ToolFlag = TRUE;
menu_text( ad_menubar, TOOLFLAG, TextToolBox[ ToolFlag ] );
wind_set( wid, WF_TOOLBAR, tree_data[0], tree_data[1], dummy, dummy );
break;
case FCLOSE: /* close Window */
if( wid ) {
wind_get( wid, WF_CURRXYWH,
&CurRect.g_x, &CurRect.g_y,
&CurRect.g_w, &CurRect.g_h );
wind_close( wid );
wind_delete( wid );
wid = 0;
menu_ienable( ad_menubar, FCLOSE, 0 );
menu_ienable( ad_menubar, FOPEN, 1 );
}
break;
case FOPEN: /* open Window */
if( !wid ) {
InitWindow();
menu_ienable( ad_menubar, FOPEN, 0 );
menu_ienable( ad_menubar, FCLOSE, 1 );
}
break;
default:
break;
}
}
/* MENU SELECTED -> Font Style Menu Clicked on as a SUBMENU from the Menubar*/
if( *ptr == ad_style )
{
menu_icheck( ad_style, CurStyle, 0 ); /* Turn OFF Old Checkmark */
menu_icheck( ad_style, msg[4], 1 ); /* Turn ON New CheckMark */
CurStyle = msg[4]; /* Update Current Var */
menu_istart( 1, ad_style, ROOT, CurStyle ); /* Reset Starting Position*/
}
/* MENU SELECTED -> Font Position Clicked on as a SUBMENU from the menubar */
if( *ptr == ad_position )
{
menu_icheck( ad_position, CurPos, 0 );
menu_icheck( ad_position, msg[4], 1 );
CurPos = msg[4];
menu_istart( 1, ad_position, ROOT, CurPos );
}
/* MENU SELECTED -> Fonts Menu Clicked on as a SUBMENU from the menubar */
if( *ptr == ad_fonts )
{
menu_icheck( ad_fonts, CurFonts, 0 );
menu_icheck( ad_fonts, msg[4], 1 );
CurFonts = msg[4];
menu_istart( 1, ad_fonts, ROOT, CurFonts );
}
menu_tnormal( ad_menubar, msg[3], TRUE );
}
if( msg[0] != MN_SELECTED ) {
switch( msg[0] ) {
case WM_FULLED:
DoFull( msg[3] );
break;
case WM_REDRAW:
DoRedraw( msg );
break;
case WM_ARROWED:
case WM_HSLID:
case WM_VSLID:
break;
case WM_MOVED:
if( msg[3] == wid ) {
wind_set( wid, WF_CURRXYWH, msg[4],
msg[5], msg[6], msg[7] );
}
break;
case WM_TOPPED:
if( msg[3] == wid ) {
wind_set( wid, WF_TOP );
}
break;
case WM_CLOSED:
if( msg[3] == wid ) {
wind_get( wid, WF_CURRXYWH,
&CurRect.g_x, &CurRect.g_y,
&CurRect.g_w, &CurRect.g_h );
wind_close( wid );
wind_delete( wid );
wid = 0;
menu_ienable( ad_menubar, FCLOSE, 0 );
menu_ienable( ad_menubar, FOPEN, 1 );
}
break;
case WM_SIZED:
DoSizer( msg );
break;
case WM_TOOLBAR:
if( msg[3] == wid ) {
/* Button Handling for ToolBox #1 */
if( cur_tree == ad_tools ) {
switch( msg[4] ) {
case T1B1: button = B1B1;
break;
case T1B2: button = B1B2;
break;
case T1B3: button = B1B3;
break;
case T1B4: button = B1B4;
break;
case T1B5: button = B1B5;
break;
}
}
/* Button Handling for TOOLBOX 2 */
if( cur_tree == ad_box2 ) {
switch( msg[4] ) {
case T2I1: button = T2B1;
break;
case T2I2: button = T2B2;
break;
case T2I3: button = T2B3;
break;
case T2I4: button = T2B4;
break;
case T2I5: button = T2B5;
break;
}
}
/* Word Processing Tree */
if( cur_tree == ad_box3 ) {
switch( msg[4] ) {
case FBUTT1:
case FBUTT2: DoFonts();
break;
default:
break;
}
}
if( cur_tree != ad_box3 ) {
if( cur_tree[ button ].ob_state & SELECTED )
cur_tree[ button ].ob_state &= ~SELECTED;
else
cur_tree[ button ].ob_state |= SELECTED;
objc_offset( cur_tree, button, &r.g_x, &r.g_y );
r.g_x -= 2;
r.g_y -= 2;
r.g_w = cur_tree[ button ].ob_width + 4;
r.g_h = cur_tree[ button ].ob_height + 4;
do_redraw( cur_tree, button, &r );
}
} /* end of msg[3] == wid */
break;
case WM_ICONIFY:
if( msg[3] == wid )
wind_set( msg[3], WF_ICONIFY, msg[4], msg[5], msg[6], msg[7] );
break;
case WM_UNICONIFY:
if( msg[3] == wid )
wind_set( msg[3], WF_UNICONIFY, msg[4], msg[5], msg[6], msg[7] );
break;
default:
break;
} /* end of switch */
}
wind_update( END_UPDATE );
}while( !done );
if( wid > 0 )
wind_delete( wid );
menu_bar( ad_menubar, FALSE );
graf_mouse( ARROW, 0L );
rsrc_free();
close_vwork();
appl_exit();
}
