Home GuiCOBOL 006 FORM - eventi

006 FORM - eventi PDF Stampa E-mail
I tools opensource di OpenCOBOL
Scritto da Administrator   
Domenica 26 Febbraio 2012 07:25

 

closed l'evento viene eseguito quando la finestra viene chiusa

invoke gtk-form "closed" using....cobolprcedure

e.g.

000920  invoke gtk-form "Closed" using "exitForm"

exit program.

001120  identification division.
001130  program-id. exitForm.
001140  data division.
001150  working-storage section.
001160  77 testo             pic x(100).
001170
001230      copy "global".
001240
001250
001260  procedure division.
001270
001290            move "title" of gtk-form to testo.
001300
001310            display " exitform from " testo.
001320
001330            invoke gtk-form "closeform".
001340
001350  exit program.
001360  end program exitForm.

Ultimo aggiornamento Domenica 26 Febbraio 2012 07:49
 

Aggiungi commento


Codice di sicurezza
Aggiorna

Accessi dal mondo