/********************************************************************** Freeciv - Copyright (C) 1996 - A Kjeldberg, L Gregersen, P Unold This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. ***********************************************************************/ #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #define MAX_CITIES_SHOWN 256 extern Widget toplevel, main_form, map_canvas; extern struct connection aconnection; extern Display *display; extern int display_depth; extern struct advance advances[]; extern int did_advance_tech_this_year; void create_science_dialog(int make_modal); void science_close_callback(Widget w, XtPointer client_data, XtPointer call_data); void science_help_callback(Widget w, XtPointer client_data, XtPointer call_data); void science_change_callback(Widget w, XtPointer client_data, XtPointer call_data); void science_goal_callback(Widget w, XtPointer client_data, XtPointer call_data); /******************************************************************/ Widget science_dialog_shell; Widget science_label; Widget science_current_label, science_goal_label; Widget science_change_menu_button, science_goal_menu_button; Widget science_list, science_help_toggle; int science_dialog_shell_is_modal; Widget popupmenu, goalmenu; /******************************************************************/ void create_city_report_dialog(int make_modal); void city_close_callback(Widget w, XtPointer client_data, XtPointer call_data); void city_center_callback(Widget w, XtPointer client_data, XtPointer call_data); void city_popup_callback(Widget w, XtPointer client_data, XtPointer call_data); void city_buy_callback(Widget w, XtPointer client_data, XtPointer call_data); void city_refresh_callback(Widget w, XtPointer client_data, XtPointer call_data); void city_change_callback(Widget w, XtPointer client_data, XtPointer call_data); void city_list_callback(Widget w, XtPointer client_data, XtPointer call_data); Widget city_dialog_shell; Widget city_label; Widget city_viewport; Widget city_list, city_list_label; Widget city_center_command, city_popup_command, city_buy_command, city_refresh_command; Widget city_change_command, city_popupmenu; int city_dialog_shell_is_modal; int cities_in_list[MAX_CITIES_SHOWN]; static char *dummy_city_list[]={ " " " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", 0 }; /******************************************************************/ void create_trade_report_dialog(int make_modal); void trade_close_callback(Widget w, XtPointer client_data, XtPointer call_data); void trade_selloff_callback(Widget w, XtPointer client_data, XtPointer call_data); void trade_list_callback(Widget w, XtPointer client_data, XtPointer call_data); int trade_improvement_type[B_LAST]; Widget trade_dialog_shell; Widget trade_label, trade_label2; Widget trade_list, trade_list_label; Widget sellall_command, sellobsolete_command; int trade_dialog_shell_is_modal; /******************************************************************/ void create_activeunits_report_dialog(int make_modal); void activeunits_close_callback(Widget w, XtPointer client_data, XtPointer call_data); void activeunits_upgrade_callback(Widget w, XtPointer client_data, XtPointer call_data); void activeunits_list_callback(Widget w, XtPointer client_data, XtPointer call_data); int activeunits_type[U_LAST]; Widget activeunits_dialog_shell; Widget activeunits_label, activeunits_label2; Widget activeunits_list, activeunits_list_label; Widget upgrade_command; int activeunits_dialog_shell_is_modal; /******************************************************************/ static int delay_report_update=0; /****************************************************************** Turn off updating of reports *******************************************************************/ void report_update_delay_on() { delay_report_update=1; } /****************************************************************** Turn on updating of reports *******************************************************************/ void report_update_delay_off() { delay_report_update=0; } /****************************************************************** ... *******************************************************************/ void update_report_dialogs(void) { if(delay_report_update) return; activeunits_report_dialog_update(); trade_report_dialog_update(); city_report_dialog_update(); science_dialog_update(); } /**************************************************************** ... ****************************************************************/ static char *get_report_title(char *report_name) { char buf[512]; sprintf(buf, "%s\n%s of the %s\n%s %s: %s", report_name, get_government_name(game.player_ptr->government), get_race_name_plural(game.player_ptr->race), get_ruler_title(game.player_ptr->government), game.player_ptr->name, textyear(game.year)); return create_centered_string(buf); } /**************************************************************** Create the text for a line in the city report *****************************************************************/ static void get_city_text(struct city *pcity,char *text) { char impro[64]; char happytext[32]; char statetext[32]; char outputtext[32]; char foodtext[32]; if(pcity->is_building_unit) sprintf(impro, "%s(%d/%d/%d)", get_unit_type(pcity->currently_building)->name, pcity->shield_stock, get_unit_type(pcity->currently_building)->build_cost, city_buy_cost(pcity)); else sprintf(impro, "%s(%d/%d/%d)", get_imp_name_ex(pcity, pcity->currently_building), pcity->shield_stock, get_improvement_type(pcity->currently_building)->build_cost, city_buy_cost(pcity)); sprintf(happytext, "%s(%d/%d/%d)", city_celebrating(pcity) ? "Rapture" : (city_unhappy(pcity) ? "Disorder" : "Peace"), pcity->ppl_happy[4], pcity->ppl_content[4], pcity->ppl_unhappy[4]); sprintf(statetext, "(%d/%d/%d)", pcity->food_surplus, pcity->shield_surplus, pcity->trade_prod); sprintf(outputtext, "(%+d/%d/%d)", city_gold_surplus(pcity), pcity->luxury_total, pcity->science_total); sprintf(foodtext,"(%d/%d)", pcity->food_stock, pcity->size * game.foodbox); sprintf(text, "%-15s %-16s%-12s%-12s%-10s%s", pcity->name, happytext, statetext, outputtext, foodtext, impro); } /**************************************************************** ... ************************ ***************************************/ void popup_science_dialog(int make_modal) { if(!science_dialog_shell) { Position x, y; Dimension width, height; science_dialog_shell_is_modal=make_modal; if(make_modal) XtSetSensitive(main_form, FALSE); create_science_dialog(make_modal); XtVaGetValues(toplevel, XtNwidth, &width, XtNheight, &height, NULL); XtTranslateCoords(toplevel, (Position) width/10, (Position) height/10, &x, &y); XtVaSetValues(science_dialog_shell, XtNx, x, XtNy, y, NULL); XtPopup(science_dialog_shell, XtGrabNone); } } /**************************************************************** ... *****************************************************************/ void create_science_dialog(int make_modal) { Widget science_form; Widget close_command; static char *tech_list_names_ptrs[A_LAST+1]; static char tech_list_names[A_LAST+1][200]; int i, j, flag; Dimension width; char current_text[512]; char goal_text[512]; char *report_title; if (game.player_ptr->research.researching!=A_NONE) sprintf(current_text, "Researching %s: %d/%d", advances[game.player_ptr->research.researching].name, game.player_ptr->research.researched, research_time(game.player_ptr)); else sprintf(current_text, "Researching Future Tech. %d: %d/%d", ((game.player_ptr->future_tech)+1), game.player_ptr->research.researched, research_time(game.player_ptr)); sprintf(goal_text, "Goal: %s (%d steps)", advances[game.player_ptr->ai.tech_goal].name, tech_goal_turns(game.player_ptr, game.player_ptr->ai.tech_goal)); for(i=1, j=0; iresearch.researched, research_time(game.player_ptr)); XtVaSetValues(science_current_label, XtNlabel, current_text, NULL); packet.tech=to; send_packet_player_request(&aconnection, &packet, PACKET_PLAYER_RESEARCH); } } /**************************************************************** ... *****************************************************************/ void science_goal_callback(Widget w, XtPointer client_data, XtPointer call_data) { char goal_text[512]; struct packet_player_request packet; int to; Boolean b; to=(int)client_data; XtVaGetValues(science_help_toggle, XtNstate, &b, NULL); if (b == TRUE) popup_help_dialog_string(advances[to].name); else { sprintf(goal_text, "Goal: %s (%d steps)", advances[to].name, tech_goal_turns(game.player_ptr, to)); XtVaSetValues(science_goal_label, XtNlabel, goal_text, NULL); packet.tech=to; send_packet_player_request(&aconnection, &packet, PACKET_PLAYER_TECH_GOAL); } } /**************************************************************** ... *****************************************************************/ void science_close_callback(Widget w, XtPointer client_data, XtPointer call_data) { if(science_dialog_shell_is_modal) XtSetSensitive(main_form, TRUE); XtDestroyWidget(science_dialog_shell); science_dialog_shell=0; } /**************************************************************** ... *****************************************************************/ void science_help_callback(Widget w, XtPointer client_data, XtPointer call_data) { XawListReturnStruct *ret=XawListShowCurrent(science_list); Boolean b; XtVaGetValues(science_help_toggle, XtNstate, &b, NULL); if (b == TRUE) { if(ret->list_index!=XAW_LIST_NONE) popup_help_dialog_string(ret->string); else popup_help_dialog_string("Technology research"); } } /**************************************************************** ... *****************************************************************/ void science_dialog_update(void) { if(delay_report_update) return; if(science_dialog_shell) { char text[512]; static char *tech_list_names_ptrs[A_LAST+1]; static char tech_list_names[A_LAST+1][200]; int i, j, flag; char *report_title; report_title=get_report_title("Science Advisor"); xaw_set_label(science_label, report_title); free(report_title); if (game.player_ptr->research.researching!=A_NONE) sprintf(text, "Researching %s: %d/%d", advances[game.player_ptr->research.researching].name, game.player_ptr->research.researched, research_time(game.player_ptr)); else sprintf(text, "Researching Future Tech. %d: %d/%d", ((game.player_ptr->future_tech)+1), game.player_ptr->research.researched, research_time(game.player_ptr)); xaw_set_label(science_current_label, text); sprintf(text, "Goal: %s (%d steps)", advances[game.player_ptr->ai.tech_goal].name, tech_goal_turns(game.player_ptr, game.player_ptr->ai.tech_goal)); xaw_set_label(science_goal_label, text); for(i=1, j=0; ilist_index!=XAW_LIST_NONE && (pcity=find_city_by_id(cities_in_list[ret->list_index]))) { int flag,i; char buf[512]; XtSetSensitive(city_change_command, TRUE); XtSetSensitive(city_center_command, TRUE); XtSetSensitive(city_popup_command, TRUE); XtSetSensitive(city_buy_command, TRUE); if (city_popupmenu) XtDestroyWidget(city_popupmenu); city_popupmenu=XtVaCreatePopupShell("menu", simpleMenuWidgetClass, city_change_command, NULL); flag = 0; for(i=0; ibuild_cost); entry = XtVaCreateManagedWidget(buf, smeBSBObjectClass, city_popupmenu, NULL); XtAddCallback(entry, XtNcallback, city_change_callback, (XtPointer) i); flag=1; } for(i=0; ibuild_cost); entry = XtVaCreateManagedWidget(buf, smeBSBObjectClass, city_popupmenu, NULL); XtAddCallback(entry, XtNcallback, city_change_callback, (XtPointer) (i+B_LAST)); flag = 1; } if(!flag) XtSetSensitive(city_change_command, FALSE); } else { XtSetSensitive(city_change_command, FALSE); XtSetSensitive(city_center_command, FALSE); XtSetSensitive(city_popup_command, FALSE); XtSetSensitive(city_buy_command, FALSE); } } /**************************************************************** ... *****************************************************************/ void city_change_callback(Widget w, XtPointer client_data, XtPointer call_data) { XawListReturnStruct *ret=XawListShowCurrent(city_list); struct city *pcity; if(ret->list_index!=XAW_LIST_NONE && (pcity=find_city_by_id(cities_in_list[ret->list_index]))) { struct packet_city_request packet; int build_nr; Boolean unit; build_nr = (int) client_data; if (build_nr >= B_LAST) { build_nr -= B_LAST; unit = TRUE; } else unit = FALSE; packet.city_id=pcity->id; packet.name[0]='\0'; packet.build_id=build_nr; packet.is_build_id_unit_id=unit; send_packet_city_request(&aconnection, &packet, PACKET_CITY_CHANGE); } } /**************************************************************** ... *****************************************************************/ void city_buy_callback(Widget w, XtPointer client_data, XtPointer call_data) { XawListReturnStruct *ret=XawListShowCurrent(city_list); if(ret->list_index!=XAW_LIST_NONE) { struct city *pcity; if((pcity=find_city_by_id(cities_in_list[ret->list_index]))) { int value; char *name; char buf[512]; value=city_buy_cost(pcity); if(pcity->is_building_unit) name=get_unit_type(pcity->currently_building)->name; else name=get_imp_name_ex(pcity, pcity->currently_building); if (game.player_ptr->economic.gold >= value) { struct packet_city_request packet; packet.city_id=pcity->id; packet.name[0]='\0'; send_packet_city_request(&aconnection, &packet, PACKET_CITY_BUY); } else { sprintf(buf, "Game: %s costs %d gold and you only have %d gold.", name,value,game.player_ptr->economic.gold); append_output_window(buf); } } } } void city_refresh_callback(Widget w, XtPointer client_data, XtPointer call_data) { /* added by Syela - I find this very useful */ XawListReturnStruct *ret=XawListShowCurrent(city_list); struct city *pcity; struct packet_generic_integer packet; if (ret->list_index!=XAW_LIST_NONE) { if ((pcity=find_city_by_id(cities_in_list[ret->list_index]))) { packet.value = pcity->id; send_packet_generic_integer(&aconnection, PACKET_CITY_REFRESH, &packet); } } else { packet.value = 0; send_packet_generic_integer(&aconnection, PACKET_CITY_REFRESH, &packet); } } /**************************************************************** ... *****************************************************************/ void city_close_callback(Widget w, XtPointer client_data, XtPointer call_data) { if(city_dialog_shell_is_modal) XtSetSensitive(main_form, TRUE); XtDestroyWidget(city_dialog_shell); city_dialog_shell=0; } /**************************************************************** ... *****************************************************************/ void city_center_callback(Widget w, XtPointer client_data, XtPointer call_data) { XawListReturnStruct *ret=XawListShowCurrent(city_list); if(ret->list_index!=XAW_LIST_NONE) { struct city *pcity; if((pcity=find_city_by_id(cities_in_list[ret->list_index]))) center_tile_mapcanvas(pcity->x, pcity->y); } } /**************************************************************** ... *****************************************************************/ void city_popup_callback(Widget w, XtPointer client_data, XtPointer call_data) { XawListReturnStruct *ret=XawListShowCurrent(city_list); if(ret->list_index!=XAW_LIST_NONE) { struct city *pcity; if((pcity=find_city_by_id(cities_in_list[ret->list_index]))) { center_tile_mapcanvas(pcity->x, pcity->y); popup_city_dialog(pcity, 0); } } } /**************************************************************** ... *****************************************************************/ void city_report_dialog_update(void) { if(delay_report_update) return; if(city_dialog_shell) { int i=0; Dimension width; static char *city_list_names_ptrs[MAX_CITIES_SHOWN+1]; static char city_list_names[MAX_CITIES_SHOWN][200]; char *report_title; report_title=get_report_title("City Advisor"); xaw_set_label(city_label, report_title); free(report_title); if (city_popupmenu) { XtDestroyWidget(city_popupmenu); city_popupmenu = 0; } city_list_iterate(game.player_ptr->cities, pcity) { get_city_text(pcity,city_list_names[i]); city_list_names_ptrs[i]=city_list_names[i]; cities_in_list[i]=pcity->id; i++; } city_list_iterate_end; if(i==0) { strcpy(city_list_names[0], " "); city_list_names_ptrs[0]=city_list_names[0]; i=1; cities_in_list[0]=0; } city_list_names_ptrs[i]=NULL; /* Lists are independently sorted, but stay in sync as long as the city info strings (in city_list_names) start with the city name. */ qsort(city_list_names_ptrs,i,sizeof(char *),(void *)string_ptr_compare); qsort(cities_in_list,i,sizeof(int),(void *)city_name_compare); XawListChange(city_list, city_list_names_ptrs, i, 0, 1); XtVaGetValues(city_list, XtNlongest, &width, NULL); /* I don't know the proper way to set the width of this viewport widget. Someone who knows is more than welcome to fix this */ XtVaSetValues(city_viewport, XtNwidth, width+25, NULL); XtVaSetValues(city_list_label, XtNwidth, width+10, NULL); XtVaSetValues(city_label, XtNwidth, width+25, NULL); XtSetSensitive(city_change_command, FALSE); XtSetSensitive(city_center_command, FALSE); XtSetSensitive(city_popup_command, FALSE); XtSetSensitive(city_buy_command, FALSE); } } /**************************************************************** Update the text for a single city in the city report *****************************************************************/ void city_report_dialog_update_city(struct city *pcity) { int i; if(delay_report_update) return; if(!city_dialog_shell) return; for(i=0; cities_in_list[i]; i++) { if(cities_in_list[i]==pcity->id) { int n; String *list; Dimension w; XtVaGetValues(city_list, XtNnumberStrings, &n, XtNlist, &list, NULL); if(strncmp(pcity->name,list[i],strlen(pcity->name))) break; get_city_text(pcity,list[i]); /* It seems really inefficient to regenerate the whole list just to change one line. It's also annoying to have to set the size of each widget explicitly, since Xt is supposed to handle that. */ XawListChange(city_list, list, n, 0, 1); XtVaGetValues(city_list, XtNlongest, &w, NULL); XtVaSetValues(city_viewport, XtNwidth, w+25, NULL); XtVaSetValues(city_list_label, XtNwidth, w+10, NULL); XtVaSetValues(city_label, XtNwidth, w+25, NULL); return; }; } city_report_dialog_update(); } /**************************************************************** TRADE REPORT DIALOG ****************************************************************/ /**************************************************************** ... ****************************************************************/ void popup_trade_report_dialog(int make_modal) { if(!trade_dialog_shell) { Position x, y; Dimension width, height; trade_dialog_shell_is_modal=make_modal; if(make_modal) XtSetSensitive(main_form, FALSE); create_trade_report_dialog(make_modal); XtVaGetValues(toplevel, XtNwidth, &width, XtNheight, &height, NULL); XtTranslateCoords(toplevel, (Position) width/10, (Position) height/10, &x, &y); XtVaSetValues(trade_dialog_shell, XtNx, x, XtNy, y, NULL); XtPopup(trade_dialog_shell, XtGrabNone); } } /**************************************************************** ... *****************************************************************/ void create_trade_report_dialog(int make_modal) { Widget trade_form; Widget close_command; char *report_title; trade_dialog_shell = XtVaCreatePopupShell("reporttradepopup", make_modal ? transientShellWidgetClass : topLevelShellWidgetClass, toplevel, 0); trade_form = XtVaCreateManagedWidget("reporttradeform", formWidgetClass, trade_dialog_shell, NULL); report_title=get_report_title("Trade Advisor"); trade_label = XtVaCreateManagedWidget("reporttradelabel", labelWidgetClass, trade_form, XtNlabel, report_title, NULL); free(report_title); trade_list_label = XtVaCreateManagedWidget("reporttradelistlabel", labelWidgetClass, trade_form, NULL); trade_list = XtVaCreateManagedWidget("reporttradelist", listWidgetClass, trade_form, NULL); trade_label2 = XtVaCreateManagedWidget("reporttradelabel2", labelWidgetClass, trade_form, XtNlabel, "Total Cost:", NULL); close_command = XtVaCreateManagedWidget("reporttradeclosecommand", commandWidgetClass, trade_form, NULL); sellobsolete_command = XtVaCreateManagedWidget("reporttradesellobsoletecommand", commandWidgetClass, trade_form, XtNsensitive, False, NULL); sellall_command = XtVaCreateManagedWidget("reporttradesellallcommand", commandWidgetClass, trade_form, XtNsensitive, False, NULL); XtAddCallback(trade_list, XtNcallback, trade_list_callback, NULL); XtAddCallback(close_command, XtNcallback, trade_close_callback, NULL); XtAddCallback(sellobsolete_command, XtNcallback, trade_selloff_callback, (XtPointer)0); XtAddCallback(sellall_command, XtNcallback, trade_selloff_callback, (XtPointer)1); XtRealizeWidget(trade_dialog_shell); trade_report_dialog_update(); } /**************************************************************** ... *****************************************************************/ void trade_list_callback(Widget w, XtPointer client_data, XtPointer call_data) { XawListReturnStruct *ret; int i; ret=XawListShowCurrent(trade_list); if(ret->list_index!=XAW_LIST_NONE) { i=trade_improvement_type[ret->list_index]; if(i>=0 && ilist_index==XAW_LIST_NONE) return; i=trade_improvement_type[ret->list_index]; genlist_iterator_init(&myiter, &game.player_ptr->cities.list, 0); for(; ITERATOR_PTR(myiter);ITERATOR_NEXT(myiter)) { pcity=(struct city *)ITERATOR_PTR(myiter); if(!pcity->did_sell && city_got_building(pcity, i) && (client_data || improvement_obsolete(game.player_ptr,i) || wonder_replacement(pcity, i) )) { count++; gold+=improvement_value(i); packet.city_id=pcity->id; packet.build_id=i; packet.name[0]='\0'; send_packet_city_request(&aconnection, &packet, PACKET_CITY_SELL); }; }; if(count) { sprintf(str,"Sold %d %s for %d gold",count,get_improvement_name(i),gold); } else { sprintf(str,"No %s could be sold",get_improvement_name(i)); }; popup_notify_dialog("Sell-Off Results",str); return; } /**************************************************************** ... *****************************************************************/ void trade_report_dialog_update(void) { if(delay_report_update) return; if(trade_dialog_shell) { int j, k, count, tax, cost, total; Dimension width; static char *trade_list_names_ptrs[B_APOLLO+1]; static char trade_list_names[B_APOLLO][200]; char *report_title; char trade_total[48]; struct city *pcity; report_title=get_report_title("Trade Advisor"); xaw_set_label(trade_label, report_title); free(report_title); total = 0; tax=0; k = 0; pcity = city_list_get(&game.player_ptr->cities,0); if(pcity) { for (j=0;jcities,pcity) if (city_got_building(pcity, j)) count++; city_list_iterate_end; if (!count) continue; cost = count * improvement_upkeep(pcity, j); sprintf(trade_list_names[k], "%-20s%5d%5d%6d", get_improvement_name(j), count, improvement_upkeep(pcity, j), cost); total+=cost; trade_list_names_ptrs[k]=trade_list_names[k]; trade_improvement_type[k]=j; k++; } city_list_iterate(game.player_ptr->cities,pcity) { tax+=pcity->tax_total; if (!pcity->is_building_unit && pcity->currently_building==B_CAPITAL) tax+=pcity->shield_surplus; } city_list_iterate_end; } if(k==0) { strcpy(trade_list_names[0], " "); trade_list_names_ptrs[0]=trade_list_names[0]; k=1; } trade_list_names_ptrs[k]=NULL; sprintf(trade_total, "Income:%6d Total Costs: %6d", tax, total); xaw_set_label(trade_label2, trade_total); XawListChange(trade_list, trade_list_names_ptrs, 0, 0, 1); XtVaGetValues(trade_list, XtNwidth, &width, NULL); XtVaSetValues(trade_list_label, XtNwidth, width, NULL); XtVaSetValues(trade_label2, XtNwidth, width, NULL); XtVaSetValues(trade_label, XtNwidth, width, NULL); } } /**************************************************************** ACTIVE UNITS REPORT DIALOG ****************************************************************/ /**************************************************************** ... ****************************************************************/ void popup_activeunits_report_dialog(int make_modal) { if(!activeunits_dialog_shell) { Position x, y; Dimension width, height; activeunits_dialog_shell_is_modal=make_modal; if(make_modal) XtSetSensitive(main_form, FALSE); create_activeunits_report_dialog(make_modal); XtVaGetValues(toplevel, XtNwidth, &width, XtNheight, &height, NULL); XtTranslateCoords(toplevel, (Position) width/10, (Position) height/10, &x, &y); XtVaSetValues(activeunits_dialog_shell, XtNx, x, XtNy, y, NULL); XtPopup(activeunits_dialog_shell, XtGrabNone); } } /**************************************************************** ... *****************************************************************/ void create_activeunits_report_dialog(int make_modal) { Widget activeunits_form; Widget close_command; char *report_title; activeunits_dialog_shell = XtVaCreatePopupShell("reportactiveunitspopup", make_modal ? transientShellWidgetClass : topLevelShellWidgetClass, toplevel, 0); activeunits_form = XtVaCreateManagedWidget("reportactiveunitsform", formWidgetClass, activeunits_dialog_shell, NULL); report_title=get_report_title("Active Units"); activeunits_label = XtVaCreateManagedWidget("reportactiveunitslabel", labelWidgetClass, activeunits_form, XtNlabel, report_title, NULL); free(report_title); activeunits_list_label = XtVaCreateManagedWidget("reportactiveunitslistlabel", labelWidgetClass, activeunits_form, NULL); activeunits_list = XtVaCreateManagedWidget("reportactiveunitslist", listWidgetClass, activeunits_form, NULL); activeunits_label2 = XtVaCreateManagedWidget("reportactiveunitslabel2", labelWidgetClass, activeunits_form, XtNlabel, "Total Cost:", NULL); close_command = XtVaCreateManagedWidget("reportactiveunitsclosecommand", commandWidgetClass, activeunits_form, NULL); upgrade_command = XtVaCreateManagedWidget("reportactiveunitsupgradecommand", commandWidgetClass, activeunits_form, XtNsensitive, False, NULL); XtAddCallback(activeunits_list, XtNcallback, activeunits_list_callback, NULL); XtAddCallback(close_command, XtNcallback, activeunits_close_callback, NULL); XtAddCallback(upgrade_command, XtNcallback, activeunits_upgrade_callback, NULL); XtRealizeWidget(activeunits_dialog_shell); activeunits_report_dialog_update(); } /**************************************************************** ... *****************************************************************/ void activeunits_list_callback(Widget w, XtPointer client_data, XtPointer call_data) { XawListReturnStruct *ret; ret=XawListShowCurrent(activeunits_list); if(ret->list_index!=XAW_LIST_NONE) { if (can_upgrade_unittype(game.player_ptr, activeunits_type[ret->list_index]) != -1) XtSetSensitive(upgrade_command, TRUE); return; } XtSetSensitive(upgrade_command, FALSE); } /**************************************************************** ... *****************************************************************/ void upgrade_callback_yes(Widget w, XtPointer client_data, XtPointer call_data) { send_packet_unittype_info(&aconnection, (int)client_data, PACKET_UNITTYPE_UPGRADE); destroy_message_dialog(w); } /**************************************************************** ... *****************************************************************/ void upgrade_callback_no(Widget w, XtPointer client_data, XtPointer call_data) { destroy_message_dialog(w); } /**************************************************************** ... *****************************************************************/ void activeunits_upgrade_callback(Widget w, XtPointer client_data, XtPointer call_data) { char buf[512]; int ut1,ut2; XawListReturnStruct *ret; ret=XawListShowCurrent(activeunits_list); if(ret->list_index!=XAW_LIST_NONE) { ut1 = activeunits_type[ret->list_index]; puts(unit_types[ut1].name); ut2 = can_upgrade_unittype(game.player_ptr, activeunits_type[ret->list_index]); sprintf(buf, "upgrade as many %s to %s as possible for %d gold each?\nTreasury contains %d gold.", unit_types[ut1].name, unit_types[ut2].name, unit_upgrade_price(game.player_ptr, ut1, ut2), game.player_ptr->economic.gold); popup_message_dialog(toplevel, "upgradedialog", buf, upgrade_callback_yes, (XtPointer)(activeunits_type[ret->list_index]), upgrade_callback_no, 0, 0); } } /**************************************************************** ... *****************************************************************/ void activeunits_close_callback(Widget w, XtPointer client_data, XtPointer call_data) { if(activeunits_dialog_shell_is_modal) XtSetSensitive(main_form, TRUE); XtDestroyWidget(activeunits_dialog_shell); activeunits_dialog_shell=0; } /**************************************************************** ... *****************************************************************/ void activeunits_report_dialog_update(void) { if(delay_report_update) return; if(activeunits_dialog_shell) { int i, k, total; Dimension width; static char *activeunits_list_names_ptrs[U_LAST+1]; static char activeunits_list_names[U_LAST][200]; int unit_count[U_LAST]; char *report_title; char activeunits_total[100]; report_title=get_report_title("Active Units"); xaw_set_label(activeunits_label, report_title); free(report_title); for (i=0;i units, punit) unit_count[punit->type]++; unit_list_iterate_end; k = 0; total = 0; for (i=0;i 0) { sprintf(activeunits_list_names[k], "%-27s%c%5d", unit_name(i), can_upgrade_unittype(game.player_ptr, i) != -1 ? '*': '-', unit_count[i]); activeunits_list_names_ptrs[k]=activeunits_list_names[k]; activeunits_type[k]=i; k++; total+=unit_count[i]; } } if (k==0) { strcpy(activeunits_list_names[0], " "); activeunits_list_names_ptrs[0]=activeunits_list_names[0]; k=1; } sprintf(activeunits_total, "Total units:%21d",total); xaw_set_label(activeunits_label2, activeunits_total); activeunits_list_names_ptrs[k]=0; XawListChange(activeunits_list, activeunits_list_names_ptrs, 0, 0, 1); XtVaGetValues(activeunits_list, XtNwidth, &width, NULL); XtVaSetValues(activeunits_list_label, XtNwidth, width, NULL); XtVaSetValues(activeunits_label2, XtNwidth, width, NULL); XtVaSetValues(activeunits_label, XtNwidth, width, NULL); } }