void
tm_frame_rep::dialogue_start (string name, widget wid) {
if (is_nil (dialogue_win)) {
string lan= get_output_language ();
if (lan == "russian") lan= "english";
name= translate (name, "english", lan);
dialogue_wid= wid;
dialogue_win= plain_window_widget (dialogue_wid, name);
widget win= concrete_window () -> win;
SI ox, oy, dx, dy, ex= 0, ey= 0;
get_position (win, ox, oy);
get_size (win, dx, dy);
get_size (dialogue_win, ex, ey);
ox += (dx - ex) >> 1;
oy -= (dy - ey) >> 1;
set_position (dialogue_win, ox, oy);
set_visibility (dialogue_win, true);
}
}
void
tm_frame_rep::get_extents (SI& x1, SI& y1, SI& x2, SI& y2) {
concrete_window () -> get_extents (x1, y1, x2, y2);
}
void
tm_frame_rep::menu_icons (int which, string menu) {
if ((which<0) || (which>3) || (!has_current_view())) return;
concrete_window () -> menu_icons (which, menu);
}
string
tm_frame_rep::get_string_window_property (string what) {
return as_string (concrete_window () -> get_property (what));
}
bool
tm_frame_rep::get_bool_window_property (string what) {
return as_bool (concrete_window () -> get_property (what));
}
void
tm_frame_rep::set_string_window_property (string what, string val) {
concrete_window () -> set_property (what, val);
}
void
tm_frame_rep::set_bool_window_property (string what, bool val) {
concrete_window () -> set_property (what, val? string ("true"): string ("false"));
}
int
tm_frame_rep::get_window_serial () {
return concrete_window () -> serial;
}
bool
tm_frame_rep::visible_bottom_tools (int which) {
if ((which<0) || (which>0)) return false;
return concrete_window () -> get_bottom_tools_flag (which);
}
bool
tm_frame_rep::visible_icon_bar (int which) {
if ((which<0) || (which>3)) return false;
return concrete_window () -> get_icon_bar_flag (which);
}
void
tm_frame_rep::show_footer (bool flag) {
if (!has_current_view ()) return;
concrete_window () -> set_footer_flag (flag);
}
void
tm_frame_rep::show_bottom_tools (int which, bool flag) {
if ((which<0) || (which>0) || (!has_current_view())) return;
concrete_window () -> set_bottom_tools_flag (which, flag);
}
void
tm_frame_rep::show_icon_bar (int which, bool flag) {
if ((which<0) || (which>3) || (!has_current_view())) return;
concrete_window () -> set_icon_bar_flag (which, flag);
}
void
tm_frame_rep::bottom_tools (int which, string tools) {
if ((which<0) || (which>0)|| (!has_current_view())) return;
concrete_window () -> bottom_tools (which, tools);
}
void
tm_frame_rep::set_extents (SI x1, SI y1, SI x2, SI y2) {
concrete_window () -> set_extents (x1, y1, x2, y2);
}
void
tm_frame_rep::set_right_footer (string s) {
if (!has_current_window ()) return;
concrete_window () -> set_right_footer (s);
}
bool
tm_frame_rep::visible_footer () {
return concrete_window () -> get_footer_flag ();
}
void
tm_frame_rep::set_window_property (scheme_tree what, scheme_tree val) {
concrete_window () -> set_property (what, val);
}
double
tm_frame_rep::get_window_zoom_factor () {
return concrete_window () -> get_window_zoom_factor ();
}
void
tm_frame_rep::set_int_window_property (string what, int val) {
concrete_window () -> set_property (what, as_tree (val));
}
void
tm_frame_rep::get_visible (SI& x1, SI& y1, SI& x2, SI& y2) {
concrete_window () -> get_visible (x1, y1, x2, y2);
}
scheme_tree
tm_frame_rep::get_window_property (scheme_tree what) {
return concrete_window () -> get_property (what);
}
void
tm_frame_rep::set_scrollbars (int sb) {
concrete_window () -> set_scrollbars (sb);
}
int
tm_frame_rep::get_int_window_property (string what) {
return as_int (concrete_window () -> get_property (what));
}
void
tm_frame_rep::scroll_where (SI& x, SI& y) {
concrete_window () -> get_scroll_pos (x, y);
}
void
tm_frame_rep::scroll_to (SI x, SI y) {
concrete_window () -> set_scroll_pos (x, y);
}
void
tm_frame_rep::menu_main (string menu) {
if (!has_current_view ()) return;
concrete_window () -> menu_main (menu);
}
