# data file for the Fltk User Interface Designer (fluid)
version 1.0303 
header_name {.h} 
code_name {.cxx}
decl {import System.Exit} {selected private local
} 

Function {make_window(IO (Ref Window))} {open
} {
  code {let { message_button_callback :: Ref Button -> IO ();
      message_button_callback _ = 
        flMessage ("Test to see if this modal window prevents you from "
                   ++ "changing the tabs. It should.");
      test_event_blocking_callback :: Ref Button -> IO ();
      test_event_blocking_callback _ = 
        flMessage "Make sure you cannot change the tabs while this modal window is up";
      first_button_callback :: Ref Wizard -> Ref Button -> IO ();
      first_button_callback wizard _ = do {
         c <- getChild wizard 0;
         maybe (return ())
               (setValue wizard . Just)
               c;
         };
      prev_button_callback :: Ref Wizard -> Ref Button -> IO ();
      prev_button_callback wizard _ = prev wizard;
      next_button_callback :: Ref Wizard -> Ref Button -> IO ();
      next_button_callback wizard _ = next wizard;
      last_button_callback :: Ref Wizard -> Ref Button -> IO ();
      last_button_callback wizard _ =  do {
               cs <- getArray wizard;   
               if (null cs)
               then return ();
               else setValue wizard (Just (cs !! (length cs - 1)));
               }
     }} {}
  Fl_Window foo_window {
    label {Comparison of Fl_Tab (left) vs. Fl_Wizard (right)} open
    xywh {423 205 640 335} type Double resizable visible
  } {
    Fl_Box {} {
      label {class Fl_Tabs}
      xywh {95 0 130 35} labeltype ENGRAVED_LABEL labelfont 1
    }
    Fl_Tabs {} {open
      tooltip {the various index cards test different aspects of the Fl_Tabs widget} xywh {10 35 300 205} selection_color 4 labelcolor 7 resizable
    } {
      Fl_Group {} {
        label {Label&1} open
        tooltip {this Tab tests correct keyboard navigation between text input fields} xywh {10 60 300 180} selection_color 1 resizable
      } {
        Fl_Input {} {
          label {input:}
          tooltip {This is the first input field} xywh {60 80 240 40}
        }
        Fl_Input {} {
          label {input2:}
          xywh {60 120 240 30}
        }
        Fl_Input {} {
          label {input3:}
          xywh {60 150 240 80}
        }
      }
      Fl_Group {} {
        label {tab&2} open
        tooltip {tab2 tests among other things the cooperation of modal windows and tabs} xywh {10 60 300 180} selection_color 2 hide
      } {
        Fl_Button message_button {
          label button1
          callback message_button_callback
          xywh {20 90 100 30}
        }
        Fl_Input {} {
          label {input in box2}
          xywh {140 130 100 30}
        }
        Fl_Button {} {
          label {This is stuff inside the Fl_Group "tab2"}
          xywh {30 170 260 30}
        }
        Fl_Button {} {
          label {Test event blocking by modal window}
          callback test_event_blocking_callback
          xywh {30 200 260 30}
        }
      }
      Fl_Group {} {
        label {tab&3} open
        tooltip {tab3 checks for correct keyboard navigation} xywh {10 60 300 180} selection_color 3 hide
      } {
        Fl_Button {} {
          label button2
          xywh {20 90 60 80}
        }
        Fl_Button {} {
          label button
          xywh {80 90 60 80}
        }
        Fl_Button {} {
          label button
          xywh {140 90 60 80}
        }
      }
      Fl_Group {} {
        label {&tab4} open
        tooltip {this tab show the issue of indicating a selcted tab if the tab layouts are very similar} xywh {10 60 300 180} selection_color 5 labeltype ENGRAVED_LABEL labelfont 2 hide
      } {
        Fl_Button {} {
          label button2
          xywh {20 80 60 110}
        }
        Fl_Button {} {
          label button
          xywh {80 80 60 110}
        }
        Fl_Button {} {
          label button
          xywh {140 80 60 110}
        }
      }
      Fl_Group {} {
        label {@fileprint  &print} open
        tooltip {tab5 verifies if visibility requests are handled correctly} xywh {10 60 300 180} hide
      } {
        Fl_Button {} {
          label button2
          tooltip {button2 has a different tooltp than tab5} xywh {20 75 60 80}
        }
        Fl_Button {} {
          label button
          xywh {90 75 60 80}
        }
        Fl_Clock {} {
          label {Make sure this clock does not use processor time when this tab is hidden or window is iconized}
          xywh {160 75 100 100} box OSHADOW_BOX color 238 selection_color 0 labelfont 8 labelsize 10 align 130
        }
        Fl_Group {} {open
          xywh {20 175 40 55} box THIN_DOWN_BOX color 173 align 16
          class Fl_Window
        } {}
        Fl_Group {} {
          label {subwindows:} open
          xywh {65 175 40 55} box THIN_DOWN_BOX color 167
          class Fl_Window
        } {}
        Fl_Group {} {open
          xywh {110 175 40 55} box THIN_DOWN_BOX color 239 align 16
          class Fl_Window
        } {}
      }
    }
    Fl_Box {} {
      label {class Fl_Wizard}
      xywh {410 0 130 35} labeltype ENGRAVED_LABEL labelfont 1
    }
    Fl_Wizard wWizard {open
      xywh {325 60 300 180}
    } {
      Fl_Group {} {
        label Label1 open
        tooltip {this Tab tests correct keyboard navigation between text input fields} xywh {325 60 300 180} selection_color 1 hide resizable
      } {
        Fl_Input {} {
          label {input:}
          tooltip {This is the first input field} xywh {375 80 240 40}
        }
        Fl_Input {} {
          label {input2:}
          xywh {375 120 240 30}
        }
        Fl_Input {} {
          label {input3:}
          xywh {375 150 240 80}
        }
      }
      Fl_Group {} {
        label tab2 open
        tooltip {tab2 tests among other things the cooperation of modal windows and tabs} xywh {325 60 300 180} selection_color 2 hide
      } {
        Fl_Button {} {
          label button1
          callback message_button_callback
          xywh {335 90 100 30}
        }
        Fl_Input {} {
          label {input in box2}
          xywh {455 130 100 30}
        }
        Fl_Button {} {
          label {This is stuff inside the Fl_Group "tab2"}
          xywh {345 170 260 30}
        }
        Fl_Button {} {
          label {Test event blocking by modal window}
          callback test_event_blocking_callback
          xywh {345 200 260 30}
        }
      }
      Fl_Group {} {
        label tab3 open
        tooltip {tab3 checks for correct keyboard navigation} xywh {325 60 300 180} selection_color 3 hide
      } {
        Fl_Button {} {
          label button2
          xywh {335 90 60 80}
        }
        Fl_Button {} {
          label button
          xywh {395 90 60 80}
        }
        Fl_Button {} {
          label button
          xywh {455 90 60 80}
        }
      }
      Fl_Group {} {
        label tab4 open
        tooltip {this tab show the issue of indicating a selcted tab if the tab layouts are very similar} xywh {325 60 300 180} selection_color 5 labelfont 2 hide
      } {
        Fl_Button {} {
          label button2
          xywh {335 80 60 110}
        }
        Fl_Button {} {
          label button
          xywh {395 80 60 110}
        }
        Fl_Button {} {
          label button
          xywh {455 80 60 110}
        }
      }
      Fl_Group {} {
        label {     tab5      } open
        tooltip {tab5 verifies if visibility requests are handled correctly} xywh {325 60 300 180} labeltype ENGRAVED_LABEL
      } {
        Fl_Button {} {
          label button2
          tooltip {button2 has a different tooltp than tab5} xywh {335 75 60 80}
        }
        Fl_Button {} {
          label button
          xywh {405 75 60 80}
        }
        Fl_Clock {} {
          label {Make sure this clock does not use processor time when this tab is hidden or window is iconized}
          xywh {475 75 100 100} box OSHADOW_BOX color 238 selection_color 0 labelfont 8 labelsize 10 align 130
        }
        Fl_Group {} {open
          xywh {335 175 40 55} box THIN_DOWN_BOX color 173 align 16
          class Fl_Window
        } {}
        Fl_Group {} {
          label {subwindows:} open
          xywh {380 175 40 55} box THIN_DOWN_BOX color 167
          class Fl_Window
        } {}
        Fl_Group {} {open
          xywh {425 175 40 55} box THIN_DOWN_BOX color 239 align 16
          class Fl_Window
        } {}
      }
    }
    Fl_Group {} {open
      xywh {410 245 130 25}
    } {
      Fl_Button {} {
        label {@|<}
        callback {(first_button_callback wWizard)}
        tooltip {go to first page [Home]} xywh {410 245 30 25} shortcut 0xff50
      }
      Fl_Button {} {
        label {@<}
        callback {(prev_button_callback wWizard)}
        tooltip {go to previous page [left arrow]} xywh {440 245 30 25} shortcut 0xff51
      }
      Fl_Button {} {
        label {@>}
        callback {(next_button_callback wWizard)}
        tooltip {go to next page in wizard [right arrow]} xywh {480 245 30 25} shortcut 0xff53
      }
      Fl_Button {} {
        label {@>|}
        callback {(last_button_callback wWizard)}
        tooltip {go to last page [End]} xywh {510 245 30 25} shortcut 0xff57
      }
    }
    Fl_Input {} {
      label {inputA:}
      xywh {60 255 130 25}
    }
    Fl_Input {} {
      label {inputB:}
      xywh {60 285 250 25}
    }
    Fl_Button {} {
      label cancel
      callback {(const (exitWith (ExitFailure 1)))}
      xywh {475 295 70 30}
    }
    Fl_Return_Button {} {
      label OK
      callback {(const (exitWith ExitSuccess))}
      xywh {555 295 70 30}
    }
  }
  code {return foo_window;} {}
}