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); }