Source position: goption.inc line 86
procedure g_option_context_set_translate_func(
context: PGOptionContext;
func: TGTranslateFunc;
data: gpointer;
destroy_notify: TGDestroyNotify
);