program to test buttons

examples/testbuttons.rb

@@ -0,0 +1,292 @@
+# This program tests out various buttons.
+#
+require 'logger'
+require 'rbcurse'
+require 'rbcurse/core/include/appmethods.rb'
+def help_text
+      <<-eos
+               BUTTONS  HELP 
+
+      This is some help text for testbuttons.
+      To select any button press the SPACEBAR, although ENTER will also work.
+      You may also press the mnemonic or hotkey on the label..
+
+      The toggle button toggles the kind of dialog for the Cancel button. Modern look 
+      and feel refers to a popup with buttons. This is like the links editor.
+
+      Classic look and feel refers to a line at the bottom of the screen, with a y/n prompt.
+      THis is like a lot of older apps, i think Pine and maybe vim.
+
+
+      Alt-c/F10 -   Exit application 
+
+
+
+      -----------------------------------------------------------------------
+      eos
+end
+if $0 == __FILE__
+
+  include RubyCurses
+  include RubyCurses::Utils
+
+  begin
+  # Initialize curses
+    VER::start_ncurses  # this is initializing colors via ColorMap.setup
+    path = File.join(ENV["LOGDIR"] || "./" ,"rbc13.log")
+    file   = File.open(path, File::WRONLY|File::TRUNC|File::CREAT) 
+    $log = Logger.new(path)
+    $log.level = Logger::DEBUG
+
+    @lookfeel = :classic # :dialog # or :classic
+    @lookfeel = :dialog # or :classic
+
+    @window = VER::Window.root_window
+    # Initialize few color pairs 
+    # Create the window to be associated with the form 
+    # Un post form and free the memory
+
+    catch(:close) do
+      colors = Ncurses.COLORS
+      $log.debug "START #{colors} colors test2.rb --------- #{@window} "
+      @form = Form.new @window
+      title = (" "*30) + "Original Demo of basic Ruby Curses Widgets " + Rbcurse::VERSION
+      Label.new @form, {'text' => title, :row => 0, :col => 0, :color => 'green', :bgcolor => 'black'}
+      r = 1; fc = 12;
+        r += 1
+        row = 5
+        col = 3
+
+      $message = Variable.new
+      $message.value = "Message Comes Here"
+      message_label = RubyCurses::Label.new @form, {'text_variable' => $message, 
+        "name"=>"message_label","row" => Ncurses.LINES-1, "col" => 1, "display_length" => 60,  
+        "height" => 2, 'color' => 'cyan'}
+
+      $results = Variable.new
+      $results.value = "A variable"
+
+      row += 1
+      checkbutton = CheckBox.new @form do
+        variable $results
+        #value = true
+        onvalue "Selected bold   "
+        offvalue "UNselected bold"
+        text "Bold attribute "
+        display_length 18  # helps when right aligning
+        row row
+        col col
+        mnemonic 'B'
+      end
+      row += 1
+      @cb_rev = Variable.new false # related to checkbox reverse
+      cbb = @cb_rev
+      checkbutton1 = CheckBox.new @form do
+        variable cbb # $cb_rev
+        #value = true
+        onvalue "Selected reverse   "
+        offvalue "UNselected reverse"
+        text "Reverse attribute "
+        display_length 18
+        row row
+        col col
+        mnemonic 'R'
+      end
+      row += 1
+      togglebutton = ToggleButton.new @form do
+        value  true
+        onvalue  " Toggle Down "
+        offvalue "  Untoggle   "
+        row row
+        col col
+        mnemonic 'T'
+        #underline 0
+      end
+      togglebutton.command do
+        if togglebutton.value 
+          $message.value = "Modern look and feel for dialogs"
+        else
+          $message.value = "Classic look and feel for dialogs"
+        end
+      end
+      # a special case required since another form (combo popup also modifies)
+      $message.update_command() { message_label.repaint }
+
+      @form.bind(:ENTER) { |f|   f.label && f.label.bgcolor = 'red' if f.respond_to? :label}
+      @form.bind(:LEAVE) { |f|  f.label && f.label.bgcolor = 'black'   if f.respond_to? :label}
+
+      row += 1
+      colorlabel = Label.new @form, {'text' => "Select a color:", "row" => row, "col" => col, 
+        "color"=>"cyan", "mnemonic" => 'S'}
+      $radio = Variable.new
+      $radio.update_command(colorlabel) {|tv, label|  label.color tv.value; }
+      #$radio.update_command() {|tv|  message_label.color tv.value; align.bgcolor tv.value; combo1.bgcolor tv.value}
+      $radio.update_command() {|tv|  @form.widgets.each { |e| next unless e.is_a? Widget; 
+        e.bgcolor tv.value };  }
+
+      # whenever updated set colorlabel and messagelabel to bold
+      $results.update_command(colorlabel,checkbutton) {|tv, label, cb| 
+        attrs =  cb.value ? 'bold' : 'normal'; label.attr(attrs); message_label.attr(attrs)}
+
+
+      # whenever updated set colorlabel and messagelabel to reverse
+      #@cb_rev.update_command(colorlabel,checkbutton1) {|tv, label, cb| attrs =  cb.value ? 'reverse' : nil; label.attr(attrs); message_label.attr(attrs)}
+      # changing nil to normal since PROP CHAN handler will not fire if nil being set.
+      @cb_rev.update_command(colorlabel,checkbutton1) {|tv, label, cb| 
+        attrs =  cb.value ? 'reverse' : 'normal'; label.attr(attrs); message_label.attr(attrs)}
+
+      row += 1
+      dlen = 10
+      radio1 = RadioButton.new @form do
+        variable $radio
+        text "red"
+        value "red"
+        color "red"
+        display_length dlen  # helps when right aligning
+        row row
+        col col
+      end
+      radio11 = RadioButton.new @form do
+        variable $radio
+        text "c&yan"
+        value "cyan"
+        color "cyan"
+        display_length dlen  # helps when right aligning
+        row row
+        col col+24
+      end
+
+      row += 1
+      radio2 = RadioButton.new @form do
+        variable $radio
+        text  "&green"
+        value  "green"
+        color "green"
+        display_length dlen  # helps when right aligning
+        row row
+        col col
+      end
+      radio22 = RadioButton.new @form do
+        variable $radio
+        text "magenta"
+        value "magenta"
+        color "magenta"
+        display_length dlen  # helps when right aligning
+        row row
+        col col+24
+      end
+      colorlabel.label_for radio1
+
+      # instead of using frozen, I will use a PropertyVeto
+      # to disallow changes to color itself
+      veto = lambda { |e, name|
+        if e.property_name == 'color'
+          if e.newvalue != name
+            raise PropertyVetoException.new("Cannot change this at all!", e)
+          end
+        elsif e.property_name == 'bgcolor'
+            raise PropertyVetoException.new("Cannot change this!", e)
+        end
+      }
+      [radio1, radio2, radio11, radio22].each { |r| 
+        r.bind(:PROPERTY_CHANGE) do |e| veto.call(e, r.text) end
+      }
+
+      @status_line = status_line :row => Ncurses.LINES-2
+      @status_line.command {
+        "F1 Help | F2 Menu | F3 View | F4 Shell | F5 Sh | %20s" % [$message.value]
+      }
+      row += 1 #2
+      ok_button = Button.new @form do
+        text "OK"
+        name "OK"
+        row row
+        col col
+        #attr 'reverse'
+        #highlight_background "white"
+        #highlight_foreground "blue"
+        mnemonic 'O'
+      end
+      ok_button.command() { |eve| 
+        alert("Hope you enjoyed this demo - Press Cancel to quit", {'title' => "Hello", :bgcolor => :blue, :color => :white})
+      }
+
+      # using ampersand to set mnemonic
+      cancel_button = Button.new @form do
+        #variable $results
+        text "&Cancel"
+        name "Cancel"
+        row row
+        col col + 10
+        #attr 'reverse'
+        #highlight_background "white"
+        #highlight_foreground "blue"
+        #surround_chars ['{ ',' }']  ## change the surround chars
+      end
+      cancel_button.command { |aeve| 
+        #if @lookfeel == :dialog
+        if togglebutton.value == true
+          ret = confirm("Do your really want to quit?") 
+        else
+          ret = confirm_window("Do your really want to quit?") 
+        end
+        if ret == :YES || ret == true
+          throw(:close); 
+        else
+          $message.value = "Quit aborted"
+        end
+      }
+      #col += 22
+      @form.repaint
+      @window.wrefresh
+      Ncurses::Panel.update_panels
+
+      # the main loop
+
+      while((ch = @window.getchar()) != FFI::NCurses::KEY_F10 )
+        break if ch == ?\C-q.getbyte(0)
+        begin
+          @form.handle_key(ch)
+
+        rescue FieldValidationException => fve 
+          alert fve.to_s
+
+          f = @form.get_current_field
+          # lets restore the value
+          if f.respond_to? :restore_original_value
+            f.restore_original_value
+            @form.repaint
+          end
+          $error_message.value = ""
+        rescue => err
+          $log.error( err) if err
+          $log.error(err.backtrace.join("\n")) if err
+          textdialog err
+          $error_message.value = ""
+        end
+
+        # this should be avoided, we should not muffle the exception and set a variable
+        # However, we have been doing that
+        if $error_message.get_value != ""
+          if @lookfeel == :dialog
+            alert($error_message, {:bgcolor => :red, 'color' => 'yellow'}) if $error_message.get_value != ""
+          else
+            print_error_message $error_message, {:bgcolor => :red, :color => :yellow}
+          end
+          $error_message.value = ""
+        end
+
+        @window.wrefresh
+      end # while loop
+    end # catch
+  rescue => ex
+  ensure
+    $log.debug " -==== EXCEPTION =====-"
+    $log.debug( ex) if ex
+    $log.debug(ex.backtrace.join("\n")) if ex
+    @window.destroy if !@window.nil?
+    VER::stop_ncurses
+    puts ex if ex
+    puts(ex.backtrace.join("\n")) if ex
+  end
+end