require 'fltk'

$name = nil
$age  = nil

FLTK::Window.new(200,200){|win|
  wiz = FLTK::Wizard.new(0,0,200,180,"Wizard"){|wiz|
    FLTK::Group.new(0,0,200,200){|g|
      FLTK::Box.new(0,0,200,30, "1st stage")
      input = FLTK::Input.new(90,40,100,20, "Your Name:")
      FLTK::Button.new(0,150,50,20,"next"){
	$name = input.value
	wiz.next
      }
    }
    FLTK::Group.new(0,0,200,200){|g|
      FLTK::Box.new(0,0,200,30, "2nd stage")
      input = FLTK::IntInput.new(90,40,100,20, "Age:")
      FLTK::Button.new(0,150,50,20,"next"){
	$age = input.value
	FLTK.message("Name: #{$name}\nAge: #{$age}")
	exit(0)
      }
      FLTK::Button.new(50,150,50,20,"prev"){ wiz.prev }
    }
  }
  FLTK::Button.new(0,180,50,20,"Cancel"){ exit(0) }
  win.show
}
FLTK.run