fix some mysterx problems
svn: r6011
This commit is contained in:
parent
e36f77a748
commit
6102d0a6a6
|
@ -142,11 +142,11 @@ Scheme_Object *mx_make_browser(int argc,Scheme_Object **argv) {
|
|||
|
||||
browser = (MX_Browser_Object *)scheme_malloc_tagged(sizeof(MX_Browser_Object));
|
||||
browser->so.type = mx_browser_type;
|
||||
browser->destroy = destroy;
|
||||
|
||||
destroy = (int *)malloc(sizeof(int)); /* freed by msg loop */
|
||||
*destroy = 0;
|
||||
browserWindowInit.destroy = destroy;
|
||||
browser->destroy = destroy;
|
||||
|
||||
// use _beginthread instead of CreateThread
|
||||
// because the use of HTMLHelp requires the use of
|
||||
|
@ -381,7 +381,7 @@ Scheme_Object *mx_register_navigate_handler(int argc,Scheme_Object **argv) {
|
|||
|
||||
// register handler for NavigateComplete2 event (memID = 259)
|
||||
|
||||
pISink->register_handler(259,argv[1]);
|
||||
pISink->register_handler(259, mx_wrap_handler(argv[1]));
|
||||
|
||||
return scheme_void;
|
||||
}
|
||||
|
|
|
@ -5466,6 +5466,11 @@ void mx_cleanup (void)
|
|||
/* looks like CoUninitialize() gets called automatically */
|
||||
}
|
||||
|
||||
void *mx_wrap_handler(Scheme_Object *h)
|
||||
{
|
||||
return GC_HANDLER_BOX(h);
|
||||
}
|
||||
|
||||
Scheme_Object *scheme_module_name (void)
|
||||
{
|
||||
return scheme_intern_symbol (MXMAIN);
|
||||
|
@ -5551,7 +5556,7 @@ Scheme_Object *scheme_initialize (Scheme_Env *env)
|
|||
|
||||
initMysSinkTable();
|
||||
|
||||
if (isatty (fileno (stdin))) {
|
||||
if (0 && isatty (fileno (stdin))) {
|
||||
fprintf (stderr,
|
||||
"MysterX extension for PLT Scheme, "
|
||||
"Copyright (c) 1999-2003 PLT (Paul Steckler)\n");
|
||||
|
|
|
@ -901,7 +901,7 @@ extern unsigned long browserCount;
|
|||
sprintf(buff,"Can't push argument with VARIANT tag = %X",va.vt); \
|
||||
scheme_signal_error(buff); }; } while (0)
|
||||
|
||||
|
||||
void *mx_wrap_handler(Scheme_Object *h);
|
||||
|
||||
/* This indirection lets us delayload libmzsch.dll: */
|
||||
#define scheme_false (scheme_make_false())
|
||||
|
|
Loading…
Reference in New Issue
Block a user