From 08ab007c5c97f153902c4ac58f87e30fbf7cf99f Mon Sep 17 00:00:00 2001
From: ingoem <ingoem@gmail.com>
Date: Wed, 26 Sep 2012 11:35:27 +0200
Subject: Added a Swing ColorChooser wrapper

---
 docs/examples/swing/ColorChooserDemo.scala | 61 ++++++++++++++++++++++++++++++
 1 file changed, 61 insertions(+)
 create mode 100644 docs/examples/swing/ColorChooserDemo.scala

(limited to 'docs/examples')

diff --git a/docs/examples/swing/ColorChooserDemo.scala b/docs/examples/swing/ColorChooserDemo.scala
new file mode 100644
index 0000000000..1cb2bdefa2
--- /dev/null
+++ b/docs/examples/swing/ColorChooserDemo.scala
@@ -0,0 +1,61 @@
+package examples.swing
+
+import java.awt.{Color, Font, Dimension}
+import swing._
+import event._
+import Swing._
+import BorderPanel._
+
+/**
+ * Demo for ColorChooser.
+ * Based on http://download.oracle.com/javase/tutorial/uiswing/components/colorchooser.html
+ * 
+ * @author andy@hicks.net
+ */
+object ColorChooserDemo extends SimpleSwingApplication {
+  def top = new MainFrame {
+    title = "ColorChooser Demo"
+    size = new Dimension(400, 400)
+    
+    contents = ui
+  }
+
+  def ui = new BorderPanel {
+    val colorChooser = new ColorChooser {
+      reactions += {
+        case ColorChanged(_, c) =>
+          banner.foreground = c
+      }
+    }
+
+    colorChooser.border = TitledBorder(EtchedBorder, "Choose Text Color")
+    
+    val banner = new Label("Welcome to Scala Swing") {
+      horizontalAlignment = Alignment.Center
+      foreground = Color.yellow
+      background = Color.blue
+      opaque = true
+      font = new Font("SansSerif", Font.BOLD, 24)
+    }
+   
+    val bannerArea = new BorderPanel {
+      layout(banner) = Position.Center
+      border = TitledBorder(EtchedBorder, "Banner")
+    }
+    
+    // Display a color selection dialog when button pressed 
+    val selectColor = new Button("Choose Background Color") {
+      reactions += {
+        case ButtonClicked(_) =>
+          ColorChooser.showDialog(this, "Test", Color.red) match {
+            case Some(c) => banner.background = c
+            case None =>
+          }
+      }
+    }
+
+    layout(bannerArea) = Position.North
+    layout(colorChooser) = Position.Center
+    layout(selectColor) = Position.South
+  }
+}
\ No newline at end of file
-- 
cgit v1.2.3