use fltk::{enums::*, prelude::*, *};
use fltk_theme::colors::html::*;

macro_rules! col {
    ($e: expr) => {
        Color::from_rgb($e.0, $e.1, $e.2)
    };
}

fn main() {
    let bg = SeaShell;

    let a = app::App::default().with_scheme(app::Scheme::Gtk);
    let col = bg.to_rgb();
    app::background(col.0, col.1, col.2);

    let mut win = window::Window::default().with_size(800, 600);
    {
        let scroll = group::Scroll::default_fill().with_type(group::ScrollType::VerticalAlways);
        {
            let mut scrollbar = scroll.scrollbar();
            scrollbar.set_type(valuator::ScrollbarType::VerticalNice);
            let mut pack = group::Pack::default()
                .with_size(700, 600)
                .center_of_parent();
            pack.set_spacing(5);
            {
                for i in color_maps::html::HTML_MAP.iter() {
                    let mut frame = frame::Frame::default().with_size(0, 40).with_label(i.0);
                    frame.set_frame(FrameType::RFlatBox);
                    frame.set_color(col!(*i.1));
                }
            }
            pack.end();
        }
        scroll.end();
    }
    win.end();
    win.show();
    a.run().unwrap();
}