inline wk_widget concrete (widget w) {
return wk_widget ((wk_widget_rep*) w.rep); }
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--;
}
