VisualBuilder: Add GScrollBar (and yes, an icon for it, too.)

Author: https://github.com/awesomekling
Commit: https://github.com/SerenityOS/serenity/commit/3f67298dad8

Applications/VisualBuilder/VBWidget.cpp

@@ -7,12 +7,15 @@
 #include <LibGUI/GTextEditor.h>
 #include <LibGUI/GProgressBar.h>
 #include <LibGUI/GCheckBox.h>
+#include <LibGUI/GScrollBar.h>
 
 static GWidget* build_gwidget(WidgetType type, GWidget* parent)
 {
     switch (type) {
     case WidgetType::GWidget:
         return new GWidget(parent);
+    case WidgetType::GScrollBar:
+        return new GScrollBar(Orientation::Vertical, parent);
     case WidgetType::GLabel: {
         auto* label = new GLabel(parent);
         label->set_text("label_1");

Applications/VisualBuilder/VBWidget.h

@@ -32,6 +32,7 @@ enum class WidgetType {
     GTextEditor,
     GProgressBar,
     GCheckBox,
+    GScrollBar,
 };
 
 class VBWidget : public Retainable<VBWidget>, public Weakable<VBWidget> {

Applications/VisualBuilder/main.cpp

@@ -109,5 +109,12 @@ GWindow* make_toolbox_window()
         if (auto* form = VBForm::current())
             form->insert_widget(WidgetType::GCheckBox);
     };
+    auto* scrollbar_button = new GButton(widget);
+    scrollbar_button->set_tooltip("GScrollBar");
+    scrollbar_button->set_icon(GraphicsBitmap::load_from_file("/res/icons/vbwidgets/scrollbar.png"));
+    scrollbar_button->on_click = [] (GButton&) {
+        if (auto* form = VBForm::current())
+            form->insert_widget(WidgetType::GScrollBar);
+    };
     return window;
 }