CWM: Added DateField and TimeField widgets

library/cwm/examples/date_time.rb

@@ -0,0 +1,70 @@
+# Simple example to demonstrate object API for CWM
+
+require_relative "example_helper"
+
+require "cwm"
+require "cwm/popup"
+
+Yast.import "CWM"
+
+class Name < CWM::InputField
+  def initialize
+    textdomain "example"
+  end
+
+  def label
+    _("Name")
+  end
+end
+
+class EventDate < CWM::DateField
+  def initialize
+    textdomain "example"
+  end
+
+  def init
+    self.value = Time.now.strftime("%Y-%m-%d")
+  end
+
+  def label
+    _("Event date")
+  end
+end
+
+class EventTime < CWM::TimeField
+  def initialize
+    textdomain "example"
+  end
+
+  def init
+    self.value = Time.now.strftime("%H:%M:%S")
+  end
+
+  def label
+    _("Event time")
+  end
+end
+
+
+class Event < ::CWM::Popup
+  def initialize
+    textdomain "example"
+  end
+
+  def contents
+    VBox(
+      Name.new,
+      HBox(
+        EventDate.new,
+        HSpacing(1),
+        EventTime.new
+      )
+    )
+  end
+
+  def title
+    _("Event Example")
+  end
+end
+
+Event.new.run

library/cwm/src/Makefile.am

@@ -33,6 +33,10 @@ ycwm_DATA = \
 ylibdir = @ylibdir@
 ylib_DATA = lib/cwm.rb
 
-EXTRA_DIST = $(module_DATA) $(ylib_DATA) $(ycwm_DATA)
+ylibclients_DATA = \
+  lib/clients/test_example.rb
+  lib/clients/datetime_example.rb
+
+EXTRA_DIST = $(module_DATA) $(ylib_DATA) $(ycwm_DATA) $(ylibclients_DATA)
 
 include $(top_srcdir)/Makefile.am.common

library/cwm/src/clients/test_example.rb

@@ -0,0 +1 @@
+require_relative "../../examples/date_time.rb"

library/cwm/src/lib/cwm/common_widgets.rb

@@ -366,4 +366,18 @@ class RichText < AbstractWidget
 
     include ValueBasedWidget
   end
+
+  class TimeField < AbstractWidget
+    self.widget_type = :time_field
+
+    include ValueBasedWidget
+    abstract_method :label
+  end
+
+  class DateField < AbstractWidget
+    self.widget_type = :date_field
+
+    include ValueBasedWidget
+    abstract_method :label
+  end
 end

library/cwm/src/modules/CWM.rb

@@ -616,6 +616,10 @@ def prepareWidget(widget_descr)
           Ops.set(w, "widget", MultiLineEdit(id_term, opt_term, label))
         elsif widget == :richtext
           Ops.set(w, "widget", RichText(id_term, opt_term, ""))
+        elsif widget == :date_field
+          Ops.set(w, "widget", DateField(id_term, opt_term, label))
+        elsif widget == :time_field
+          Ops.set(w, "widget", TimeField(id_term, opt_term, label))
         end
       end
       Ops.set(w, "custom_widget", nil) # not needed any more