/**************************************************************************
Popup a dialog giving a player choices when their caravan arrives at
a city (other than its home city). Example:
- Establish trade route.
- Help build wonder.
- Keep moving.
**************************************************************************/
void popup_caravan_dialog(struct unit *pUnit,
struct city *pHomecity, struct city *pDestcity)
{
struct widget *pWindow = NULL, *pBuf = NULL;
SDL_String16 *pStr;
struct CONTAINER *pCont;
char cBuf[128];
SDL_Rect area;
if (pCaravan_Dlg) {
return;
}
caravan_unit_id=pUnit->id;
caravan_city_id=pDestcity->id;
pCont = fc_calloc(1, sizeof(struct CONTAINER));
pCont->id0 = pUnit->id;
pCont->id1 = pDestcity->id;
pCaravan_Dlg = fc_calloc(1, sizeof(struct SMALL_DLG));
is_unit_move_blocked = TRUE;
fc_snprintf(cBuf, sizeof(cBuf), _("Your %s has arrived at %s"),
unit_name_translation(pUnit), city_name(pDestcity));
/* window */
pStr = create_str16_from_char(cBuf, adj_font(12));
pStr->style |= TTF_STYLE_BOLD;
pWindow = create_window_skeleton(NULL, pStr, 0);
pWindow->action = caravan_dlg_window_callback;
set_wstate(pWindow, FC_WS_NORMAL);
add_to_gui_list(ID_CARAVAN_DLG_WINDOW, pWindow);
pCaravan_Dlg->pEndWidgetList = pWindow;
area = pWindow->area;
area.h = MAX(area.h, adj_size(2));
/* ---------- */
if (can_cities_trade(pHomecity, pDestcity))
{
int revenue = get_caravan_enter_city_trade_bonus(pHomecity, pDestcity);
if (can_establish_trade_route(pHomecity, pDestcity)) {
fc_snprintf(cBuf, sizeof(cBuf),
_("Establish Trade route with %s ( %d R&G + %d trade )"),
city_name(pHomecity),
revenue,
trade_between_cities(pHomecity, pDestcity));
} else {
revenue = (revenue + 2) / 3;
fc_snprintf(cBuf, sizeof(cBuf),
_("Enter Marketplace ( %d R&G bonus )"), revenue);
}
create_active_iconlabel(pBuf, pWindow->dst, pStr,
cBuf, caravan_establish_trade_callback);
pBuf->data.cont = pCont;
set_wstate(pBuf, FC_WS_NORMAL);
add_to_gui_list(ID_LABEL, pBuf);
area.w = MAX(area.w, pBuf->size.w);
area.h += pBuf->size.h;
}
/* ---------- */
if (unit_can_help_build_wonder(pUnit, pDestcity)) {
create_active_iconlabel(pBuf, pWindow->dst, pStr,
_("Help build Wonder"), caravan_help_build_wonder_callback);
pBuf->data.cont = pCont;
set_wstate(pBuf, FC_WS_NORMAL);
add_to_gui_list(ID_LABEL, pBuf);
area.w = MAX(area.w, pBuf->size.w);
area.h += pBuf->size.h;
}
/* ---------- */
create_active_iconlabel(pBuf, pWindow->dst, pStr,
_("Keep moving"), exit_caravan_dlg_callback);
pBuf->data.cont = pCont;
set_wstate(pBuf, FC_WS_NORMAL);
set_wflag(pBuf, WF_FREE_DATA);
pBuf->key = SDLK_ESCAPE;
add_to_gui_list(ID_LABEL, pBuf);
area.w = MAX(area.w, pBuf->size.w);
area.h += pBuf->size.h;
/* ---------- */
pCaravan_Dlg->pBeginWidgetList = pBuf;
/* setup window size and start position */
resize_window(pWindow, NULL, NULL,
(pWindow->size.w - pWindow->area.w) + area.w,
(pWindow->size.h - pWindow->area.h) + area.h);
area = pWindow->area;
auto_center_on_focus_unit();
put_window_near_map_tile(pWindow, pWindow->size.w, pWindow->size.h,
unit_tile(pUnit));
/* setup widget size and start position */
pBuf = pWindow->prev;
setup_vertical_widgets_position(1,
area.x,
area.y + 1, area.w, 0,
pCaravan_Dlg->pBeginWidgetList, pBuf);
/* --------------------- */
/* redraw */
redraw_group(pCaravan_Dlg->pBeginWidgetList, pWindow, 0);
widget_flush(pWindow);
}
/**************************************************************************
Popup a dialog giving a diplomatic unit some options when moving into
the target tile.
**************************************************************************/
void popup_diplomat_dialog(struct unit *pUnit, struct tile *ptile)
{
struct widget *pWindow = NULL, *pBuf = NULL;
SDL_String16 *pStr;
struct city *pCity;
struct unit *pTunit;
bool spy;
SDL_Rect area;
if (pDiplomat_Dlg) {
return;
}
is_unit_move_blocked = TRUE;
pCity = tile_city(ptile);
spy = unit_has_type_flag(pUnit, F_SPY);
pDiplomat_Dlg = fc_calloc(1, sizeof(struct diplomat_dialog));
pDiplomat_Dlg->diplomat_id = pUnit->id;
pDiplomat_Dlg->pdialog = fc_calloc(1, sizeof(struct ADVANCED_DLG));
/* window */
if (pCity)
{
if(spy) {
pStr = create_str16_from_char(_("Choose Your Spy's Strategy") , adj_font(12));
}
else
{
pStr = create_str16_from_char(_("Choose Your Diplomat's Strategy"), adj_font(12));
}
}
else
{
pStr = create_str16_from_char(_("Subvert Enemy Unit"), adj_font(12));
}
pStr->style |= TTF_STYLE_BOLD;
pWindow = create_window_skeleton(NULL, pStr, 0);
pWindow->action = diplomat_dlg_window_callback;
set_wstate(pWindow, FC_WS_NORMAL);
add_to_gui_list(ID_CARAVAN_DLG_WINDOW, pWindow);
pDiplomat_Dlg->pdialog->pEndWidgetList = pWindow;
area = pWindow->area;
area.w = MAX(area.w, adj_size(8));
area.h = MAX(area.h, adj_size(2));
/* ---------- */
if((pCity))
{
/* Spy/Diplomat acting against a city */
pDiplomat_Dlg->diplomat_target_id = pCity->id;
/* -------------- */
if (diplomat_can_do_action(pUnit, DIPLOMAT_EMBASSY, ptile))
{
create_active_iconlabel(pBuf, pWindow->dst, pStr,
_("Establish Embassy"), diplomat_embassy_callback);
pBuf->data.city = pCity;
set_wstate(pBuf, FC_WS_NORMAL);
add_to_gui_list(MAX_ID - pUnit->id, pBuf);
area.w = MAX(area.w, pBuf->size.w);
area.h += pBuf->size.h;
}
/* ---------- */
if (diplomat_can_do_action(pUnit, DIPLOMAT_INVESTIGATE, ptile)) {
create_active_iconlabel(pBuf, pWindow->dst, pStr,
_("Investigate City"),
diplomat_investigate_callback);
pBuf->data.city = pCity;
set_wstate(pBuf, FC_WS_NORMAL);
add_to_gui_list(MAX_ID - pUnit->id, pBuf);
area.w = MAX(area.w, pBuf->size.w);
area.h += pBuf->size.h;
}
/* ---------- */
if (spy && diplomat_can_do_action(pUnit, SPY_POISON, ptile)) {
create_active_iconlabel(pBuf, pWindow->dst, pStr,
_("Poison City"), spy_poison_callback);
pBuf->data.city = pCity;
set_wstate(pBuf, FC_WS_NORMAL);
add_to_gui_list(MAX_ID - pUnit->id, pBuf);
area.w = MAX(area.w, pBuf->size.w);
area.h += pBuf->size.h;
}
/* ---------- */
if (diplomat_can_do_action(pUnit, DIPLOMAT_SABOTAGE, ptile)) {
create_active_iconlabel(pBuf, pWindow->dst, pStr,
_("Sabotage City"),
spy ? spy_sabotage_request : diplomat_sabotage_callback);
pBuf->data.city = pCity;
set_wstate(pBuf, FC_WS_NORMAL);
add_to_gui_list(MAX_ID - pUnit->id, pBuf);
area.w = MAX(area.w, pBuf->size.w);
area.h += pBuf->size.h;
}
/* ---------- */
if (diplomat_can_do_action(pUnit, DIPLOMAT_STEAL, ptile)) {
create_active_iconlabel(pBuf, pWindow->dst, pStr,
_("Steal Technology"),
spy ? spy_steal_popup : diplomat_steal_callback);
pBuf->data.city = pCity;
set_wstate(pBuf , FC_WS_NORMAL);
add_to_gui_list(MAX_ID - pUnit->id , pBuf);
area.w = MAX(area.w , pBuf->size.w);
area.h += pBuf->size.h;
}
/* ---------- */
if (diplomat_can_do_action(pUnit, DIPLOMAT_INCITE, ptile)) {
create_active_iconlabel(pBuf, pWindow->dst, pStr,
_("Incite a Revolt"), diplomat_incite_callback);
pBuf->data.city = pCity;
set_wstate(pBuf , FC_WS_NORMAL);
add_to_gui_list(MAX_ID - pUnit->id , pBuf);
area.w = MAX(area.w , pBuf->size.w);
area.h += pBuf->size.h;
}
/* ---------- */
if (diplomat_can_do_action(pUnit, DIPLOMAT_MOVE, ptile)) {
create_active_iconlabel(pBuf, pWindow->dst, pStr,
_("Keep moving"), diplomat_keep_moving_callback);
pBuf->data.city = pCity;
set_wstate(pBuf , FC_WS_NORMAL);
add_to_gui_list(MAX_ID - pUnit->id , pBuf);
area.w = MAX(area.w, pBuf->size.w);
area.h += pBuf->size.h;
}
}
else
{
if((pTunit=unit_list_get(ptile->units, 0))){
/* Spy/Diplomat acting against a unit */
pDiplomat_Dlg->diplomat_target_id = pTunit->id;
/* ---------- */
if (diplomat_can_do_action(pUnit, DIPLOMAT_BRIBE, ptile)) {
create_active_iconlabel(pBuf, pWindow->dst, pStr,
_("Bribe Enemy Unit"), diplomat_bribe_callback);
pBuf->data.unit = pTunit;
set_wstate(pBuf , FC_WS_NORMAL);
add_to_gui_list(MAX_ID - pUnit->id , pBuf);
area.w = MAX(area.w , pBuf->size.w);
area.h += pBuf->size.h;
}
/* ---------- */
if (diplomat_can_do_action(pUnit, SPY_SABOTAGE_UNIT, ptile)) {
create_active_iconlabel(pBuf, pWindow->dst, pStr,
_("Sabotage Enemy Unit"), spy_sabotage_unit_callback);
pBuf->data.unit = pTunit;
set_wstate(pBuf , FC_WS_NORMAL);
add_to_gui_list(MAX_ID - pUnit->id , pBuf);
area.w = MAX(area.w , pBuf->size.w);
area.h += pBuf->size.h;
}
}
}
/* ---------- */
create_active_iconlabel(pBuf, pWindow->dst, pStr,
_("Cancel"), diplomat_close_callback);
set_wstate(pBuf , FC_WS_NORMAL);
pBuf->key = SDLK_ESCAPE;
add_to_gui_list(ID_LABEL , pBuf);
area.w = MAX(area.w, pBuf->size.w);
area.h += pBuf->size.h;
/* ---------- */
pDiplomat_Dlg->pdialog->pBeginWidgetList = pBuf;
/* setup window size and start position */
resize_window(pWindow, NULL, NULL,
(pWindow->size.w - pWindow->area.w) + area.w,
(pWindow->size.h - pWindow->area.h) + area.h);
area = pWindow->area;
auto_center_on_focus_unit();
put_window_near_map_tile(pWindow, pWindow->size.w, pWindow->size.h,
pUnit->tile);
/* setup widget size and start position */
pBuf = pWindow->prev;
setup_vertical_widgets_position(1,
area.x,
area.y + 1, area.w, 0,
pDiplomat_Dlg->pdialog->pBeginWidgetList, pBuf);
/* --------------------- */
/* redraw */
redraw_group(pDiplomat_Dlg->pdialog->pBeginWidgetList, pWindow, 0);
widget_flush(pWindow);
}
/****************************************************************
Pops-up the Spy sabotage dialog, upon return of list of
available improvements requested by the above function.
*****************************************************************/
void popup_sabotage_dialog(struct city *pCity)
{
struct widget *pWindow = NULL, *pBuf = NULL , *pLast = NULL;
struct CONTAINER *pCont;
struct unit *pUnit = head_of_units_in_focus();
SDL_String16 *pStr;
SDL_Rect area, area2;
int n, w = 0, h, imp_h = 0;
if (pDiplomat_Dlg || !pUnit || !unit_has_type_flag(pUnit, F_SPY)) {
return;
}
is_unit_move_blocked = TRUE;
pDiplomat_Dlg = fc_calloc(1, sizeof(struct diplomat_dialog));
pDiplomat_Dlg->diplomat_id = pUnit->id;
pDiplomat_Dlg->diplomat_target_id = pCity->id;
pDiplomat_Dlg->pdialog = fc_calloc(1, sizeof(struct ADVANCED_DLG));
pCont = fc_calloc(1, sizeof(struct CONTAINER));
pCont->id0 = pCity->id;
pCont->id1 = pUnit->id;/* spy id */
pStr = create_str16_from_char(_("Select Improvement to Sabotage") , adj_font(12));
pStr->style |= TTF_STYLE_BOLD;
pWindow = create_window_skeleton(NULL, pStr, 0);
pWindow->action = diplomat_dlg_window_callback;
set_wstate(pWindow, FC_WS_NORMAL);
add_to_gui_list(ID_TERRAIN_ADV_DLG_WINDOW, pWindow);
pDiplomat_Dlg->pdialog->pEndWidgetList = pWindow;
area = pWindow->area;
area.h = MAX(area.h, adj_size(2));
/* ---------- */
/* exit button */
pBuf = create_themeicon(pTheme->Small_CANCEL_Icon, pWindow->dst,
WF_WIDGET_HAS_INFO_LABEL | WF_RESTORE_BACKGROUND);
pBuf->info_label = create_str16_from_char(_("Close Dialog (Esc)"),
adj_font(12));
area.w += pBuf->size.w + adj_size(10);
pBuf->action = diplomat_close_callback;
set_wstate(pBuf, FC_WS_NORMAL);
pBuf->key = SDLK_ESCAPE;
add_to_gui_list(ID_TERRAIN_ADV_DLG_EXIT_BUTTON, pBuf);
/* ---------- */
create_active_iconlabel(pBuf, pWindow->dst, pStr,
_("City Production"), sabotage_impr_callback);
pBuf->data.cont = pCont;
set_wstate(pBuf, FC_WS_NORMAL);
set_wflag(pBuf, WF_FREE_DATA);
add_to_gui_list(MAX_ID - 1000, pBuf);
area.w = MAX(area.w, pBuf->size.w);
area.h += pBuf->size.h;
/* separator */
pBuf = create_iconlabel(NULL, pWindow->dst, NULL, WF_FREE_THEME);
add_to_gui_list(ID_SEPARATOR, pBuf);
area.h += pBuf->next->size.h;
/* ------------------ */
n = 0;
city_built_iterate(pCity, pImprove) {
if (pImprove->sabotage > 0) {
create_active_iconlabel(pBuf, pWindow->dst, pStr,
(char *) city_improvement_name_translation(pCity, pImprove),
sabotage_impr_callback);
pBuf->data.cont = pCont;
set_wstate(pBuf , FC_WS_NORMAL);
add_to_gui_list(MAX_ID - improvement_number(pImprove), pBuf);
area.w = MAX(area.w , pBuf->size.w);
imp_h += pBuf->size.h;
if (!pDiplomat_Dlg->pdialog->pEndActiveWidgetList)
{
pDiplomat_Dlg->pdialog->pEndActiveWidgetList = pBuf;
}
if (improvement_number(pImprove) > 9)
{
set_wflag(pBuf, WF_HIDDEN);
}
n++;
/* ----------- */
}
} city_built_iterate_end;
pDiplomat_Dlg->pdialog->pBeginActiveWidgetList = pBuf;
if (n > 0) {
/* separator */
pBuf = create_iconlabel(NULL, pWindow->dst, NULL, WF_FREE_THEME);
add_to_gui_list(ID_SEPARATOR, pBuf);
area.h += pBuf->next->size.h;
/* ------------------ */
}
create_active_iconlabel(pBuf, pWindow->dst, pStr, _("At Spy's Discretion"),
sabotage_impr_callback);
pBuf->data.cont = pCont;
set_wstate(pBuf, FC_WS_NORMAL);
add_to_gui_list(MAX_ID - B_LAST, pBuf);
area.w = MAX(area.w, pBuf->size.w);
area.h += pBuf->size.h;
/* ----------- */
pLast = pBuf;
pDiplomat_Dlg->pdialog->pBeginWidgetList = pLast;
pDiplomat_Dlg->pdialog->pActiveWidgetList = pDiplomat_Dlg->pdialog->pEndActiveWidgetList;
/* ---------- */
if (n > 10)
{
imp_h = 10 * pBuf->size.h;
n = create_vertical_scrollbar(pDiplomat_Dlg->pdialog,
1, 10, TRUE, TRUE);
area.w += n;
}
/* ---------- */
area.h += imp_h;
resize_window(pWindow, NULL, NULL,
(pWindow->size.w - pWindow->area.w) + area.w,
(pWindow->size.h - pWindow->area.h) + area.h);
area = pWindow->area;
auto_center_on_focus_unit();
put_window_near_map_tile(pWindow, pWindow->size.w, pWindow->size.h,
pUnit->tile);
w = area.w;
if (pDiplomat_Dlg->pdialog->pScroll)
{
w -= n;
imp_h = pBuf->size.w;
}
else
{
imp_h = 0;
}
/* exit button */
pBuf = pWindow->prev;
pBuf->size.x = area.x + area.w - pBuf->size.w - 1;
pBuf->size.y = pWindow->size.y + adj_size(2);
/* Production sabotage */
pBuf = pBuf->prev;
pBuf->size.x = area.x;
pBuf->size.y = area.y + 1;
pBuf->size.w = w;
h = pBuf->size.h;
area2.x = adj_size(10);
area2.h = adj_size(2);
pBuf = pBuf->prev;
while(pBuf)
{
if (pBuf == pDiplomat_Dlg->pdialog->pEndActiveWidgetList)
{
w -= imp_h;
}
pBuf->size.w = w;
pBuf->size.x = pBuf->next->size.x;
pBuf->size.y = pBuf->next->size.y + pBuf->next->size.h;
if (pBuf->ID == ID_SEPARATOR)
{
FREESURFACE(pBuf->theme);
pBuf->size.h = h;
pBuf->theme = create_surf(w, h, SDL_SWSURFACE);
area2.y = pBuf->size.h / 2 - 1;
area2.w = pBuf->size.w - adj_size(20);
SDL_FillRect(pBuf->theme , &area2, map_rgba(pBuf->theme->format, *get_game_colorRGB(COLOR_THEME_SABOTAGEDLG_SEPARATOR)));
}
if (pBuf == pLast) {
break;
}
pBuf = pBuf->prev;
}
if (pDiplomat_Dlg->pdialog->pScroll)
{
setup_vertical_scrollbar_area(pDiplomat_Dlg->pdialog->pScroll,
area.x + area.w,
pDiplomat_Dlg->pdialog->pEndActiveWidgetList->size.y,
area.y - pDiplomat_Dlg->pdialog->pEndActiveWidgetList->size.y +
area.h, TRUE);
}
/* -------------------- */
/* redraw */
redraw_group(pDiplomat_Dlg->pdialog->pBeginWidgetList, pWindow, 0);
widget_flush(pWindow);
}
/**************************************************************************
Popup a dialog asking a diplomatic unit if it wishes to bribe the
given enemy unit.
**************************************************************************/
void popup_bribe_dialog(struct unit *pUnit, int cost)
{
struct widget *pWindow = NULL, *pBuf = NULL;
SDL_String16 *pStr;
struct unit *pDiplomatUnit;
char tBuf[255], cBuf[255];
bool exit = FALSE;
SDL_Rect area;
if (pBribe_Dlg) {
return;
}
/* ugly hack */
pDiplomatUnit = head_of_units_in_focus();
if (!pDiplomatUnit || !is_diplomat_unit(pDiplomatUnit)) {
return;
}
is_unit_move_blocked = TRUE;
pBribe_Dlg = fc_calloc(1, sizeof(struct small_diplomat_dialog));
pBribe_Dlg->diplomat_id = pDiplomatUnit->id;
pBribe_Dlg->diplomat_target_id = pUnit->id;
pBribe_Dlg->pdialog = fc_calloc(1, sizeof(struct SMALL_DLG));
fc_snprintf(tBuf, ARRAY_SIZE(tBuf), PL_("Treasury contains %d gold.",
"Treasury contains %d gold.",
client_player()->economic.gold),
client_player()->economic.gold);
/* window */
pStr = create_str16_from_char(_("Bribe Enemy Unit"), adj_font(12));
pStr->style |= TTF_STYLE_BOLD;
pWindow = create_window_skeleton(NULL, pStr, 0);
pWindow->action = bribe_dlg_window_callback;
set_wstate(pWindow, FC_WS_NORMAL);
add_to_gui_list(ID_BRIBE_DLG_WINDOW, pWindow);
pBribe_Dlg->pdialog->pEndWidgetList = pWindow;
area = pWindow->area;
area.w = MAX(area.w, adj_size(8));
area.h = MAX(area.h, adj_size(2));
if (cost <= client_player()->economic.gold) {
fc_snprintf(cBuf, sizeof(cBuf),
/* TRANS: %s is pre-pluralised "Treasury contains %d gold." */
PL_("Bribe unit for %d gold?\n%s",
"Bribe unit for %d gold?\n%s", cost), cost, tBuf);
create_active_iconlabel(pBuf, pWindow->dst, pStr, cBuf, NULL);
add_to_gui_list(ID_LABEL, pBuf);
area.w = MAX(area.w, pBuf->size.w);
area.h += pBuf->size.h;
/*------------*/
create_active_iconlabel(pBuf, pWindow->dst, pStr,
_("Yes"), diplomat_bribe_yes_callback);
pBuf->data.unit = pUnit;
set_wstate(pBuf, FC_WS_NORMAL);
add_to_gui_list(MAX_ID - pDiplomatUnit->id, pBuf);
area.w = MAX(area.w, pBuf->size.w);
area.h += pBuf->size.h;
/* ------- */
create_active_iconlabel(pBuf, pWindow->dst, pStr,
_("No") , exit_bribe_dlg_callback);
set_wstate(pBuf , FC_WS_NORMAL);
pBuf->key = SDLK_ESCAPE;
add_to_gui_list(ID_LABEL, pBuf);
area.w = MAX(area.w, pBuf->size.w);
area.h += pBuf->size.h;
} else {
/* exit button */
pBuf = create_themeicon(pTheme->Small_CANCEL_Icon, pWindow->dst,
WF_WIDGET_HAS_INFO_LABEL
| WF_RESTORE_BACKGROUND);
pBuf->info_label = create_str16_from_char(_("Close Dialog (Esc)"),
adj_font(12));
area.w += pBuf->size.w + adj_size(10);
pBuf->action = exit_bribe_dlg_callback;
set_wstate(pBuf, FC_WS_NORMAL);
pBuf->key = SDLK_ESCAPE;
add_to_gui_list(ID_BRIBE_DLG_EXIT_BUTTON, pBuf);
exit = TRUE;
/* --------------- */
fc_snprintf(cBuf, sizeof(cBuf),
/* TRANS: %s is pre-pluralised "Treasury contains %d gold." */
PL_("Bribing the unit costs %d gold.\n%s",
"Bribing the unit costs %d gold.\n%s", cost), cost, tBuf);
create_active_iconlabel(pBuf, pWindow->dst, pStr, cBuf, NULL);
add_to_gui_list(ID_LABEL, pBuf);
area.w = MAX(area.w, pBuf->size.w);
area.h += pBuf->size.h;
/*------------*/
create_active_iconlabel(pBuf, pWindow->dst, pStr,
_("Traitors Demand Too Much!"), NULL);
add_to_gui_list(ID_LABEL, pBuf);
area.w = MAX(area.w, pBuf->size.w);
area.h += pBuf->size.h;
}
pBribe_Dlg->pdialog->pBeginWidgetList = pBuf;
/* setup window size and start position */
resize_window(pWindow, NULL, NULL,
(pWindow->size.w - pWindow->area.w) + area.w,
(pWindow->size.h - pWindow->area.h) + area.h);
area = pWindow->area;
auto_center_on_focus_unit();
put_window_near_map_tile(pWindow, pWindow->size.w, pWindow->size.h,
pDiplomatUnit->tile);
/* setup widget size and start position */
pBuf = pWindow;
if (exit)
{/* exit button */
pBuf = pBuf->prev;
pBuf->size.x = area.x + area.w - pBuf->size.w - 1;
pBuf->size.y = pWindow->size.y + adj_size(2);
}
pBuf = pBuf->prev;
setup_vertical_widgets_position(1,
area.x,
area.y + 1, area.w, 0,
pBribe_Dlg->pdialog->pBeginWidgetList, pBuf);
/* --------------------- */
/* redraw */
redraw_group(pBribe_Dlg->pdialog->pBeginWidgetList, pWindow, 0);
widget_flush(pWindow);
}