A test for BChannelSlider

git-svn-id: file:///srv/svn/repos/haiku/haiku/trunk@12271 a95241bf-73f2-0310-859d-f6bbb57e9c96

src/tests/kits/interface/ChannelSliderTest.cpp

@@ -0,0 +1,42 @@
+#include <Application.h>
+#include <ChannelSlider.h>
+#include <Window.h>
+
+class MainWindow : public BWindow {
+public:
+	MainWindow()
+		:BWindow(BRect(50, 50, 250, 360), "window", B_TITLED_WINDOW, B_ASYNCHRONOUS_CONTROLS)
+	{
+		BChannelSlider *slider = new BChannelSlider(BRect(20, 10, 180, 190),
+			"vertical slider", "vertical slider", new BMessage('test'), 4);
+		AddChild(slider);
+		BChannelSlider *horizontal = new BChannelSlider(BRect(20, 200, 180, 300),
+			 "horizontal slider", "horizontal slider", new BMessage('test'), 3);
+		AddChild(horizontal);
+	}
+	
+	virtual bool QuitRequested() { be_app->PostMessage(B_QUIT_REQUESTED); return BWindow::QuitRequested() ; }
+};
+
+
+class App : public BApplication {
+public:
+	App() : BApplication("application/x-vnd.channelslidertest")
+	{
+	}
+	
+	virtual void ReadyToRun()
+	{
+		(new MainWindow())->Show();
+	}
+	
+};
+
+int main()
+{
+	App app;
+	
+	app.Run();
+
+	return 0;
+}

src/tests/kits/interface/Jamfile

@@ -68,6 +68,11 @@ SimpleTest ScrollViewTest :
 	: be
 	;
 
+SimpleTest ChannelSliderTest :
+	ChannelSliderTest.cpp
+	: be
+	;
+
 SEARCH on [ FGristFiles
 		ScrollView.cpp
 	] = [ FDirName $(OBOS_TOP) src kits interface ] ;