GTK+에 C언어로 된 프로그램 접목시키기

loop {
  print( process (read) )
}

button   = make-button
window = make-window
push( button, window )
show( window )
 
loop {
  switch( get-event ) {
    case input-button-clicked :
        input-dialog = make-input-dialog
        show( input-dialog )
 
    case input-dialog-button-clicked :
        output-dialog = make-output-dialog ( process( get-input (input-dialog) ) )
        show( output-dialog )
  }
  redraw( window )
}

function show-input-dialog {
  input-dialog = make-input-dialog
  show( input-dialog )
}
 
function show-output-dialog {
  output-dialog = make-output-dialog ( process( get-input (input-dialog) ) )
  show( output-dialog )
}
 
input-button = make-button
window  = make-window
push( input-button, window )
 
connect( input-button, clicked, show-input-dialog )
connect( input-dialog-button, clicked, show-output-dialog)
 
show( window )
 
run-loop