/*
 * Copyright 2005, Axel Dörfler, axeld@pinc-software.de. All rights reserved.
 * Distributed under the terms of the MIT License.
 */


#include <Application.h>
#include <Window.h>
#include <Slider.h>
#include <StringView.h>

#include <stdio.h>


class Window : public BWindow {
        public:
                Window();

                virtual bool QuitRequested();
};


void
downBy(BRect &rect, BView* view)
{
        rect.bottom = rect.top + view->Bounds().Height() + 10;
        rect.OffsetBy(0, rect.Height());
}


void
rightBy(BRect &rect, BView* view)
{
        rect.right = rect.left + view->Bounds().Width() + 10;
        rect.OffsetBy(rect.Width(), 0);
}


//      #pragma mark -


Window::Window()
        : BWindow(BRect(100, 100, 600, 400), "Slider-Test",
                        B_TITLED_WINDOW, B_ASYNCHRONOUS_CONTROLS)
{
        BRect rect = Bounds();
        BView* view = new BView(rect, NULL, B_FOLLOW_ALL, B_WILL_DRAW);
        view->SetViewUIColor(B_PANEL_BACKGROUND_COLOR);
        AddChild(view);

        // horizontal sliders

        rect.InsetBy(10, 10);
        rect.right = rect.left + 250;
        rect.bottom = rect.top + 30;

        BSlider* slider = new BSlider(rect, "Slider1", "Test 1", NULL, 0, 100);
        slider->ResizeToPreferred();
        view->AddChild(slider);

        downBy(rect, slider);

        slider = new BSlider(rect, "Slider2", "Test 2", NULL, 0, 100, B_TRIANGLE_THUMB);
        slider->ResizeToPreferred();
        view->AddChild(slider);
        
        downBy(rect, slider);

        slider = new BSlider(rect, "Slider3", "Test 3", NULL, 0, 100);
        rgb_color color = { 200, 80, 80, 255 };
        slider->UseFillColor(true, &color);
        slider->SetHashMarks(B_HASH_MARKS_BOTTOM);
        slider->SetHashMarkCount(11);
        slider->SetLimitLabels("0", "100");
        slider->SetBarThickness(12.0);
        slider->ResizeToPreferred();
        view->AddChild(slider);

        downBy(rect, slider);

        slider = new BSlider(rect, "Slider4", "Test 4", NULL, 0, 100, B_TRIANGLE_THUMB);
        slider->SetLimitLabels("0", "100");
        slider->UseFillColor(true, &color);
        slider->SetBarThickness(20.0);
        slider->SetHashMarks(B_HASH_MARKS_BOTH);
        slider->SetHashMarkCount(21);
        slider->ResizeToPreferred();
        view->AddChild(slider);

        downBy(rect, slider);
        rect.right = rect.left + 100;
        rect.bottom = rect.top + 100;

        slider = new BSlider(rect, "SliderA", "Test A", NULL, 0, 100);
        slider->SetLimitLabels("0", "100");
        slider->UseFillColor(true, &color);
        slider->SetHashMarks(B_HASH_MARKS_BOTH);
        slider->SetHashMarkCount(5);
        view->AddChild(slider);

        // vertical sliders

        rect.left = 270;
        rect.right = rect.left + 30;
        rect.top = 10;
        rect.bottom = view->Bounds().Height() - 20;

        slider = new BSlider(rect, "Slider5", "Test 5", NULL, 0, 100);
        slider->SetOrientation(B_VERTICAL);
        slider->SetBarThickness(12.0);
        slider->SetHashMarks(B_HASH_MARKS_RIGHT);
        slider->SetHashMarkCount(5);
        slider->ResizeToPreferred();
        view->AddChild(slider);

        rightBy(rect, slider);

        slider = new BSlider(rect, "Slider6", "Test 6", NULL, 0, 100, B_TRIANGLE_THUMB);
        slider->SetOrientation(B_VERTICAL);
        slider->ResizeToPreferred();
        view->AddChild(slider);
        
        rightBy(rect, slider);

        slider = new BSlider(rect, "Slider7", "Test 7", NULL, 0, 100);
        slider->SetOrientation(B_VERTICAL);
        slider->UseFillColor(true, &color);
        slider->SetHashMarks(B_HASH_MARKS_BOTH);
        slider->SetBarThickness(6.0);
        slider->SetHashMarkCount(11);
        slider->SetLimitLabels("0", "100");
        slider->ResizeToPreferred();
        view->AddChild(slider);

        rightBy(rect, slider);

        slider = new BSlider(rect, "Slider8", "Test 8", NULL, 0, 100, B_TRIANGLE_THUMB);
        slider->SetOrientation(B_VERTICAL);
        slider->UseFillColor(true, &color);
        slider->SetBarThickness(20.0);
        slider->SetHashMarks(B_HASH_MARKS_BOTH);
        slider->SetHashMarkCount(21);
        slider->SetLimitLabels("0", "100");
        slider->ResizeToPreferred();
        view->AddChild(slider);
}


bool
Window::QuitRequested()
{
        be_app->PostMessage(B_QUIT_REQUESTED);
        return true;
}


//      #pragma mark -


class Application : public BApplication {
        public:
                Application();

                virtual void ReadyToRun(void);
};


Application::Application()
        : BApplication("application/x-vnd.haiku-test")
{
}


void
Application::ReadyToRun(void)
{
        BWindow *window = new Window();
        window->Show();
}


//      #pragma mark -


int 
main(int argc, char **argv)
{
        Application app;

        app.Run();
        return 0;
}