diff options
| author | Akira TAGOH <akira@tagoh.org> | 2006-09-04 11:33:05 +0000 |
|---|---|---|
| committer | Akira TAGOH <akira@tagoh.org> | 2006-09-04 11:33:05 +0000 |
| commit | bb8ae6d506fd5cc8bde650f9d844b8607d6894c3 (patch) | |
| tree | 1373d3722487d9347ebcd2c31c5a02138c3cf63f /src | |
| parent | fe86d53f31d34426589c3af57db6611cb4539aed (diff) | |
* hieroglyph/hglist.c (_hg_list_iter_real_set_data): new function.
(hg_list_init): new function.
(hg_list_finalize): new function.
(hg_list_first): new function.
(hg_list_last): new function.
(hg_list_iter_new): use own memory pool to avoid an allocation failure,
because it's quite likely so that it's used under set_flags where could
be invoked during GC.
(hg_list_iter_get_data): renamed.
(hg_list_iter_set_data): new function.
(hg_list_iter_set_object): new function.
(hg_list_iter_delete_link): new function.
(hg_list_find_iter): new function.
(hg_list_find_iter_custom): new function.
* hieroglyph/vm.c (_hg_vm_eval_file): allow NULL to not want to get
an error result.
* src/hgspy.c (_hgspy_quit_cb): try to shutdown VM.
* hieroglyph/hgallocator-bfit.c (_hg_allocator_bfit_remove_block):
Diffstat (limited to 'src')
| -rw-r--r-- | src/hgspy.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/hgspy.c b/src/hgspy.c index 298e089..5bc5be5 100644 --- a/src/hgspy.c +++ b/src/hgspy.c @@ -387,8 +387,10 @@ _hgspy_quit_cb(GtkWidget *widget, if (spy->vm) { retval = _hgspy_ask_dialog(spy, N_("Hieroglyph VM is still running.\nAre you sure that you really want to quit?")); + if (retval) + hg_vm_shutdown(spy->vm, 0); } else { - retval = FALSE; + retval = TRUE; } if (retval) { gtk_widget_unrealize(spy->window); |