1. onDestroy( ) in win32lib

I don't know if this is working, but
nothing is printed as the app closes.
I want to close a file if user closes the app
with the X button.
[code]
procedure onDestroy()
  for iter = 1 to 200 do
      puts(1,"The end of the program")
  end for

  if (FileIsOpen = 'Y') then ------------
      close(fileInteger) ----------------------------
      FileIsOpen = 'N' -------------------------
  end if                       ----------------
end procedure
[/code]

new topic     » topic index » view message » categorize

2. Re: onDestroy( ) in win32lib

John E. Franklin wrote:
> 
> I don't know if this is working, but
> nothing is printed as the app closes.
> I want to close a file if user closes the app
> with the X button.

Have you called setHandler()?

procedure onDestroy()
   for iter = 1 to 200 do
       puts(1,"The end of the program")
   end for
 
   if (FileIsOpen = 'Y') then ------------
       close(fileInteger) ----------------------------
       FileIsOpen = 'N' -------------------------
   end if                       ----------------
 end procedure
setHandler(mainWindow, w32HClose, routine_id("onDestroy"))


Where mainWindow is your main window - this will work when used with create or
createEx - not that stupid createUIForm or whatever its called?!

Alex

new topic     » goto parent     » topic index » view message » categorize

3. Re: onDestroy( ) in win32lib

Thanks alex, I'll try to figure out how to use setHandler()
for the onDestroy().  I just figured it was automatic.
Thanks a lot!

new topic     » goto parent     » topic index » view message » categorize

Search



Quick Links

User menu

Not signed in.

Misc Menu