static
void winchoosefile(char *prompt, char *buf, int len, int filter, Eina_Bool is_save)
{
Evas *evas = NULL;
if ( frame != NULL ){ //simulate a modal dialog by disabling all events to the main window
ecore_evas_get( frame );
disable_idlers();
evas_event_freeze(evas);
}
/*TODO: implement file name filtering */
Evas_Object *win, *fs, *bg, *vbox, *hbox, *bt;
win = elm_win_add(NULL, "fileselector", ELM_WIN_BASIC);
elm_win_title_set(win, prompt);
bg = elm_bg_add(win);
elm_win_resize_object_add(win, bg);
evas_object_size_hint_weight_set(bg, EVAS_HINT_EXPAND, EVAS_HINT_EXPAND);
evas_object_show(bg);
vbox = elm_box_add(win);
elm_win_resize_object_add(win, vbox);
evas_object_size_hint_weight_set(vbox, EVAS_HINT_EXPAND, EVAS_HINT_EXPAND);
evas_object_show(vbox);
fs = elm_fileselector_add(win);
elm_fileselector_is_save_set(fs, is_save);
elm_fileselector_expandable_set(fs, EINA_FALSE);
evas_object_size_hint_weight_set(fs, EVAS_HINT_EXPAND, EVAS_HINT_EXPAND);
evas_object_size_hint_align_set(fs, EVAS_HINT_FILL, EVAS_HINT_FILL);
elm_box_pack_end(vbox, fs);
evas_object_show(fs);
evas_object_smart_callback_add(fs, "done", my_fileselector_done, win);
if (strlen(buf))
elm_fileselector_selected_set( fs, buf );
if (fileselect)
elm_fileselector_path_set( fs, filepath );
else if (getenv("HOME"))
elm_fileselector_path_set( fs, getenv("HOME") );
evas_object_resize(win, 400, 350);
evas_object_show(win);
evas_object_data_set(fs, "buffer", buf);
elm_run();
if ( evas != NULL ){ //enable events to the main window
enable_idlers();
evas_event_thaw(evas);
}
}
PREFIX value ml_elm_fileselector_selected_set(value v_obj, value v_path)
{
return Val_Eina_Bool(elm_fileselector_selected_set((Evas_Object*) v_obj,
String_val(v_path)));
}
