wk_widget
aligned_widget (array<wk_widget> lhs, array<wk_widget> rhs,
SI hsep, SI vsep, SI lpad, SI rpad)
{
ASSERT (N(lhs) > 0, "at least one widget expected");
ASSERT (N(lhs) == N(rhs), "sizes don't match");
int i, n= N (lhs);
SI max_w= 0;
for (i=0; i<n; i++) {
SI ww=1280*PIXEL, hh=64*PIXEL;
lhs[i] << get_size (ww, hh, 0);
max_w= max (ww, max_w);
}
array<wk_widget> fields_w (2*n-1);
for (i=0; i<n; i++) {
SI ww=1280*PIXEL, hh=64*PIXEL;
lhs[i] << get_size (ww, hh, 0);
array<wk_widget> line_w (5);
array<string> line_n (5);
line_w[0]= glue_wk_widget (false, false, lpad + max_w - ww);
line_w[1]= lhs[i];
line_n[1]= "prompt";
line_w[2]= glue_wk_widget (false, false, hsep);
line_w[3]= rhs[i];
line_n[3]= "input";
line_w[4]= glue_wk_widget (false, false, rpad);
fields_w[2*i]= horizontal_list (line_w, line_n);
if (i < n-1) fields_w[2*i + 1]= glue_wk_widget (false, false, 0, vsep);
}
return vertical_list (fields_w);
}
wk_widget
file_chooser_widget_rep::input_widget (string what, string ref, int type) {
SI ww1= 1280*PIXEL, hh1= 64*PIXEL, ww2= 1280*PIXEL, hh2= 64*PIXEL;
wk_widget ref_w = text_wk_widget (translate (ref));
wk_widget what_w= text_wk_widget (translate (what));
ref_w << get_size (ww1, hh1, 0);
what_w << get_size (ww2, hh2, 0);
SI offset= max (ww1 - ww2, 0);
array<wk_widget> ww (4);
array<string> nn (4);
ww[0]= glue_wk_widget (false, false, offset);
ww[1]= what_w;
ww[2]= input_text_wk_widget (file_chooser_command (this, type));
nn[2]= "input";
ww[3]= glue_wk_widget (false, false, 3*PIXEL);
if (type == CHANGE_DIR) ww[2] << set_string ("type", "directory");
return horizontal_list (ww, nn);
}
file_chooser_widget_rep::file_chooser_widget_rep (
command cmd2, string type2):
attribute_widget_rep (1), cmd (cmd2), type (type2)
{
ref_count++;
tree t= stree_to_tree (call ("format-get-suffixes*", type));
int i, n= N(t);
for (i=0; i<n; i++)
suffix << ("." * as_string (t[i]));
if (n == 0) suffix << string ("");
SI sep= 3*PIXEL;
int cw2n= 5;
if (type == "directory") cw2n= 3;
array<wk_widget> cw2 (cw2n);
array<string> cn2 (cw2n);
cw2[0]= glue_wk_widget (false, true, sep);
cw2[1]= canvas_widget (wk_widget (tm_new<file_list_widget_rep> (this, suffix, true)));
cn2[1]= "directories";
cw2[2]= glue_wk_widget (false, true, sep);
if (type != "directory") {
cw2[3]= canvas_widget (wk_widget (tm_new<file_list_widget_rep> (this, suffix, false)));
cn2[3]= "files";
cw2[4]= glue_wk_widget (false, true, sep-PIXEL);
}
#ifdef OS_WIN32
wk_widget drive_menu = vertical_menu (array<wk_widget> ());
unsigned int driveMask = XGetDrivesMask();
char driveString[4] = "A:\\";
for (char x = 'A'; x <= 'Z'; x++)
if(driveMask & (1 << (x - 'A'))) {
driveString[0] = x;
drive_menu << emit_insert (driveString,
command_button (text_wk_widget (driveString),
tm_new<drive_menu_command_rep> (this, driveString)));
}
array<wk_widget> drw (2);
drw[0] = pullright_button (text_wk_widget (translate ("Drive")), drive_menu);
drw[1] = text_wk_widget ("");
// drw[1]= glue_wk_widget (false, true, sep);
#endif
int BUTTON_OK= BUTTON_FILE_OK;
if (type == "directory") BUTTON_OK= BUTTON_DIR_OK;
#ifdef OS_WIN32
array<wk_widget> cw3 (11);
cw3[0]= glue_wk_widget (false, false, sep);
cw3[1]= pulldown_button (text_wk_widget (translate ("Drive")),
drive_menu, true);
cw3[2]= glue_wk_widget (false, false, sep);
cw3[3]= button_widget ("Home", BUTTON_HOME);
cw3[4]= glue_wk_widget (false, false, sep);
cw3[5]= button_widget ("Texts", BUTTON_TEXTS);
cw3[6]= glue_wk_widget (true, false);
cw3[7]= button_widget ("Ok", BUTTON_OK);
cw3[8]= glue_wk_widget (false, false, sep);
cw3[9]= button_widget ("Cancel", BUTTON_CANCEL);
cw3[10]= glue_wk_widget (false, false, sep);
#else
array<wk_widget> cw3 (9);
cw3[0]= glue_wk_widget (false, false, sep);
cw3[1]= button_widget ("Home", BUTTON_HOME);
cw3[2]= glue_wk_widget (false, false, sep);
cw3[3]= button_widget ("Texts", BUTTON_TEXTS);
cw3[4]= glue_wk_widget (true, false);
cw3[5]= button_widget ("Ok", BUTTON_OK);
cw3[6]= glue_wk_widget (false, false, sep);
cw3[7]= button_widget ("Cancel", BUTTON_CANCEL);
#ifdef OS_MACOS
cw3[8]= glue_wk_widget (false, false, sep + 14*PIXEL);
#else
cw3[8]= glue_wk_widget (false, false, sep);
#endif
#endif
int cwn= 11;
if (type == "image") cwn= 16;
if (type == "directory") cwn= 7;
array<wk_widget> cw (cwn);
array<string> cn (cwn);
cw[0]= glue_wk_widget (true, false, 0, sep);
cw[1]= input_widget ("Directory:", "Directory:", CHANGE_DIR);
cn[1]= "directory";
cw[2]= glue_wk_widget (true, false, 0, sep);
if (type == "directory") {
cw[3]= horizontal_list (cw2, cn2);
cn[3]= "list";
}
if (type != "directory") {
cw[3]= input_widget ("File:", "Directory:", CHANGE_FILE);
cn[3]= "file";
cw[4]= glue_wk_widget (true, false, 0, sep);
cw[5]= input_widget ("Suffixes:", "Directory:", CHANGE_SUFFIXES);
cn[5]= "suffixes";
cw[6]= glue_wk_widget (true, false, 0, sep);
cw[7]= horizontal_list (cw2, cn2);
cn[7]= "list";
}
if (type == "image") {
array<wk_widget> imw (7);
array<string> ims (7);
imw[ 0]= input_widget ("width:", "y-position:", IMAGE_HSIZE);
ims[ 0]= "hsize";
imw[ 1]= glue_wk_widget (true, false, 0, sep);
imw[ 2]= input_widget ("height:", "y-position:", IMAGE_VSIZE);
ims[ 2]= "vsize";
imw[ 3]= glue_wk_widget (true, false, 0, sep);
imw[ 4]= input_widget ("x-position:", "y-position:", IMAGE_XPOS);
ims[ 4]= "xpos";
imw[ 5]= glue_wk_widget (true, false, 0, sep);
imw[ 6]= input_widget ("y-position:", "y-position:", IMAGE_YPOS);
ims[ 6]= "ypos";
array<wk_widget> cw4 (5);
array<string> cn4 (5);
cw4[0] = glue_wk_widget (false, false, sep);
cw4[1] = vertical_list (imw, ims);
cn4[1] = "parameters";
cw4[2] = glue_wk_widget (false, false, sep);
cw4[3] = tm_new<image_widget_rep> ();
cn4[3] = "image";
cw4[4] = glue_wk_widget (false, false, sep);
//cw[ 8] = glue_wk_widget (true, false, 0, sep);
//cw[ 9] = separator_wk_widget ();
cw[ 8] = glue_wk_widget (true, false, 0, sep);
cw[ 9] = horizontal_list (cw4, cn4);
cn[ 9] = "image";
cw[10] = glue_wk_widget (true, false, 0, sep);
cw[11] = separator_wk_widget ();
cw[12] = glue_wk_widget (true, false, 0, sep);
}
cw[cwn-3]= glue_wk_widget (true, false, 0, sep);
cw[cwn-2]= horizontal_list (cw3);
cn[cwn-2]= "buttons";
cw[cwn-1]= glue_wk_widget (true, false, 0, sep);
a[0]= vertical_list (cw, cn);
if (type != "directory") {
string s;
for (i=0; i<N(suffix); ++i) {
if (i) s << " ";
s << suffix[i];
}
a[0]["suffixes"]["input"] << set_string ("input", s);
}
ref_count--;
}
