- let ws = Window.open_main_window () in
- Slave.set_failure_hook (Window.failure ws);
- Slave.set_busy_hook (Window.throbber_busy ws);
- Slave.set_idle_hook (Window.throbber_idle ws);
- Slave.set_status_hook (Window.set_statusbar ws);
- Slave.set_progress_hook (Window.progress ws);
+ let w = new Window.window in
+ Slave.set_failure_hook w#failure;
+ Slave.set_busy_hook w#throbber_busy;
+ Slave.set_idle_hook w#throbber_idle;
+ Slave.set_status_hook w#set_statusbar;
+ Slave.set_progress_hook w#progress;