newt 0.9.6 → 1.0.0

data/examples/test_method/Newt_cursor.rb

@@ -0,0 +1,30 @@
+#!/usr/bin/env ruby
+require 'rubygems'
+require 'newt'
+
+begin
+  Newt::Screen.new
+  Newt::Screen.centered_window(45, 10, 'Cursor Test')
+
+  l = Newt::Listbox.new(5, 1, 5)
+  1.upto(3) do |i|
+    l.append("item #{i}", i)
+  end
+
+  b1 = Newt::Button.new(2, 5, 'Cursor On')
+  b2 = Newt::Button.new(17, 5, 'Cursor Off')
+  b3 = Newt::Button.new(33, 5, 'Exit')
+
+  f = Newt::Form.new
+  f.add(l, b1, b2, b3)
+
+  loop do
+    case f.run
+    when b1 then Newt::Screen.cursor_on
+    when b2 then Newt::Screen.cursor_off
+    else break
+    end
+  end
+ensure
+  Newt::Screen.finish
+end

data/examples/test_method/RadioButton.rb

@@ -0,0 +1,25 @@
+#!/usr/bin/env ruby
+
+require 'rubygems'
+require 'newt'
+
+begin
+  Newt::Screen.new
+  Newt::Screen.centered_window(20, 8, 'RadioButton')
+
+  rb1 = Newt::RadioButton.new(1, 1, 'Button1', 1)
+  rb2 = Newt::RadioButton.new(1, 2, 'Button2', 0, rb1)
+
+  b = Newt::Button.new(6, 4, 'Exit')
+
+  f = Newt::Form.new
+  f.add(rb1, rb2, b)
+
+  f.run
+  current = rb1.get_current
+ensure
+  Newt::Screen.finish
+end
+
+puts "selected: #{current}"
+puts "current == rb1?: #{current == rb1}"

data/examples/test_method/ReflowText.rb

@@ -0,0 +1,15 @@
+#!/usr/bin/env ruby
+
+require 'rubygems'
+require 'newt'
+
+text, width, height = Newt.reflow_text('This is a quite a bit of text. It is 40 ' \
+                                       'columns long, so some wrapping should be ' \
+                                       'done. Did you know that the quick, brown ' \
+                                       "fox jumped over the lazy dog?\n\n" \
+                                       "In other news, it's pretty important that we " \
+                                       'can properly force a line break.', 40, 5, 5)
+
+p text
+p width
+p height

data/examples/test_method/Scale.rb

@@ -0,0 +1,27 @@
+#!/usr/bin/env ruby
+
+require 'rubygems'
+require 'newt'
+
+begin
+  SCALE_EMPTY = Newt::COLORSET_CUSTOM 1
+  SCALE_FULL  = Newt::COLORSET_CUSTOM 2
+
+  Newt::Screen.new
+  Newt::Screen.set_color(SCALE_EMPTY, 'yellow', 'cyan')
+  Newt::Screen.set_color(SCALE_FULL,  'black', 'red')
+  Newt::Screen.centered_window(20, 8, 'Scale')
+
+  s = Newt::Scale.new(1, 1, 18, 100)
+  s.set(50)
+  s.set_colors(SCALE_EMPTY, SCALE_FULL)
+
+  b = Newt::Button.new(6, 4, 'Exit')
+
+  f = Newt::Form.new
+  f.add(s, b)
+
+  f.run
+ensure
+  Newt::Screen.finish
+end

data/examples/test_method/Screen_bell.rb

@@ -0,0 +1,10 @@
+#!/usr/bin/env ruby
+
+require 'rubygems'
+require 'newt'
+
+Newt::Screen.new
+
+Newt::Screen.bell
+
+Newt::Screen.finish

data/examples/test_method/Screen_cls.rb

@@ -0,0 +1,11 @@
+#!/usr/bin/env ruby
+
+require 'rubygems'
+require 'newt'
+
+Newt::Screen.new
+
+Newt::Screen.init
+Newt::Screen.cls
+
+Newt::Screen.finish

data/examples/test_method/Screen_draw_roottext.rb

@@ -0,0 +1,15 @@
+#!/usr/bin/env ruby
+
+require 'rubygems'
+require 'newt'
+
+begin
+  Newt::Screen.new
+
+  Newt::Screen.init
+
+  Newt::Screen.draw_roottext(1, 1, 'Test')
+  Newt::Screen.wait_for_key
+ensure
+  Newt::Screen.finish
+end

data/examples/test_method/Screen_init.rb

@@ -0,0 +1,10 @@
+#!/usr/bin/env ruby
+
+require 'rubygems'
+require 'newt'
+
+Newt::Screen.new
+
+Newt::Screen.init
+
+Newt::Screen.finish

data/examples/test_method/Screen_pop_helpline.rb

@@ -0,0 +1,15 @@
+#!/usr/bin/env ruby
+
+require 'rubygems'
+require 'newt'
+
+begin
+  Newt::Screen.new
+
+  Newt::Screen.push_helpline('Hit Key!!')
+  Newt::Screen.wait_for_key
+  Newt::Screen.pop_helpline
+  Newt::Screen.wait_for_key
+ensure
+  Newt::Screen.finish
+end

data/examples/test_method/Screen_push_helpline.rb

@@ -0,0 +1,13 @@
+#!/usr/bin/env ruby
+
+require 'rubygems'
+require 'newt'
+
+begin
+  Newt::Screen.new
+
+  Newt::Screen.push_helpline('Hit Key!!')
+  Newt::Screen.wait_for_key
+ensure
+  Newt::Screen.finish
+end

data/examples/test_method/Screen_redraw_helpline.rb

@@ -0,0 +1,15 @@
+#!/usr/bin/env ruby
+
+require 'rubygems'
+require 'newt'
+
+begin
+  Newt::Screen.new
+
+  Newt::Screen.push_helpline('Hit Key!!')
+  Newt::Screen.wait_for_key
+  Newt::Screen.redraw_helpline
+  Newt::Screen.wait_for_key
+ensure
+  Newt::Screen.finish
+end

data/examples/test_method/Screen_set_colors.rb

@@ -0,0 +1,32 @@
+#!/usr/bin/env ruby
+
+require 'rubygems'
+require 'newt'
+
+COLORS = {
+  borderFg:     'yellow', borderBg:     'cyan',
+  windowFg:     'black',  windowBg:     'cyan',
+  titleFg:      'black',  titleBg:      'cyan',
+  listboxFg:    'black',  listboxBg:    'cyan',
+  actListboxFg: 'black',  actListboxBg: 'red',
+  buttonFg:     'white',  buttonBg:     'blue'
+}.freeze
+
+begin
+  Newt::Screen.new
+  Newt::Screen.set_colors(COLORS)
+
+  l1 = Newt::Listbox.new(1, 1, 10, Newt::FLAG_SCROLL)
+  1.upto(20) do |i|
+    l1.append("item #{i}", i)
+  end
+
+  b = Newt::Button.new(1, 12, 'Exit')
+
+  f = Newt::Form.new
+  f.add(l1, b)
+
+  f.run
+ensure
+  Newt::Screen.finish
+end

data/examples/test_method/Screen_size.rb

@@ -0,0 +1,15 @@
+#!/usr/bin/env ruby
+
+require 'rubygems'
+require 'newt'
+
+Newt::Screen.new
+
+Newt::Screen.init
+Newt::Screen.cls
+
+cols, rows = Newt::Screen.size
+
+Newt::Screen.finish
+
+p cols, rows

data/examples/test_method/Screen_win_menu.rb

@@ -0,0 +1,15 @@
+#!/usr/bin/env ruby
+
+require 'rubygems'
+require 'newt'
+
+begin
+  Newt::Screen.new
+
+  v = Newt::Screen.win_menu('Test Menu', 'Text', 50, 5, 5, 3,
+                            %w[One Two Three], 'OK')
+ensure
+  Newt::Screen.finish
+end
+
+p v

data/examples/test_method/SuspendCallback.rb

@@ -0,0 +1,33 @@
+#!/usr/bin/env ruby
+# rubocop:disable Style/GlobalVars
+
+require 'rubygems'
+require 'newt'
+
+$suspend_called = false
+$callback_data = nil
+
+def global_callback(data)
+  $suspend_called = true
+  $callback_data = data
+end
+
+begin
+  Newt::Screen.new
+  Newt::Screen.suspend_callback(:global_callback, 'Hello World!')
+  Newt::Screen.centered_window(20, 8, 'Suspend Callback')
+
+  l = Newt::Label.new(6, 1, 'Press ^Z')
+  b = Newt::Button.new(6, 3, 'Exit')
+
+  f = Newt::Form.new
+  f.add(l, b)
+
+  f.run
+ensure
+  Newt::Screen.finish
+end
+
+puts "suspend_called: #{$suspend_called}"
+puts "callback_data: #{$callback_data}"
+# rubocop:enable Style/GlobalVars

data/examples/test_method/Textbox.rb

@@ -0,0 +1,27 @@
+#!/usr/bin/env ruby
+
+require 'rubygems'
+require 'newt'
+
+begin
+  TEXTBOX_NORMAL = Newt::COLORSET_CUSTOM 1
+  TEXTBOX_ACTIVE = Newt::COLORSET_CUSTOM 2
+
+  Newt::Screen.new
+  Newt::Screen.set_color(TEXTBOX_NORMAL, 'black', 'red')
+  Newt::Screen.set_color(TEXTBOX_ACTIVE, 'white', 'red')
+  Newt::Screen.centered_window(20, 10, 'Textbox')
+
+  t = Newt::Textbox.new(1, 1, 18, 3, Newt::FLAG_WRAP)
+  t.set_colors(TEXTBOX_NORMAL, TEXTBOX_ACTIVE)
+  t.set_text("Line1\nLine2\nLine3")
+  t.set_height(20)
+
+  b = Newt::Button.new(6, 6, 'Exit')
+  f = Newt::Form.new
+  f.add(t, b)
+
+  f.run
+ensure
+  Newt::Screen.finish
+end

data/examples/test_method/TextboxReflowed.rb

@@ -0,0 +1,20 @@
+#!/usr/bin/env ruby
+
+require 'rubygems'
+require 'newt'
+
+begin
+  Newt::Screen.new
+  Newt::Screen.centered_window(20, 10, 'TextboxReflowed')
+
+  text = "Line1 Line1 Line1 Line1 Line1 Line1 Line1 Line1 \nLine2"
+  t = Newt::TextboxReflowed.new(1, 1, text, 18, 0, 0, 0)
+
+  b = Newt::Button.new(6, 6, 'Exit')
+  f = Newt::Form.new
+  f.add(t, b)
+
+  f.run
+ensure
+  Newt::Screen.finish
+end

data/examples/test_method/Widget_callback.rb

@@ -0,0 +1,76 @@
+#!/usr/bin/env ruby
+# rubocop:disable Style/GlobalVars
+
+require 'rubygems'
+require 'newt'
+
+$cb1_called = false
+$cb1_widget = nil
+$cb1_data = nil
+
+$cb2_called = false
+$cb2_widget = nil
+$cb2_data = nil
+
+$cb3_called = false
+$cb3_widget = nil
+$cb3_data = nil
+
+def callme(w, data)
+  $cb1_called = true
+  $cb1_widget = w
+  $cb1_data = data
+end
+
+class Receiver
+  attr_reader :cb
+  def initialize
+    @cb = Newt::Checkbox.new(1, 12, 'Checkbox3')
+    @cb.callback(:callme, 'Hello Receiver!')
+  end
+
+  def callme(w, data)
+    $cb3_called = true
+    $cb3_widget = w
+    $cb3_data = data
+  end
+end
+
+begin
+  Newt::Screen.new
+
+  cb1 = Newt::Checkbox.new(1, 10, 'Checkbox1')
+  cb1.callback(:callme, 'Hello World!')
+
+  cb2 = Newt::Checkbox.new(1, 11, 'Checkbox2')
+  cb2.callback(proc { |w, data|
+    $cb2_called = true
+    $cb2_widget = w
+    $cb2_data = data
+  }, 'Hello Proc!')
+
+  cb_receiver = Receiver.new
+  b = Newt::Button.new(1, 14, 'Exit')
+
+  f = Newt::Form.new
+  f.add(cb1, cb2, cb_receiver.cb, b)
+
+  f.run
+ensure
+  Newt::Screen.finish
+end
+
+puts "$cb1_called: #{$cb1_called}"
+puts "$cb1_widget: #{$cb1_widget}"
+puts "$cb1_data: #{$cb1_data}"
+puts
+
+puts "$cb2_called: #{$cb2_called}"
+puts "$cb2_widget: #{$cb2_widget}"
+puts "$cb2_data: #{$cb2_data}"
+puts
+
+puts "$cb3_called: #{$cb3_called}"
+puts "$cb3_widget: #{$cb3_widget}"
+puts "$cb3_data: #{$cb3_data}"
+# rubocop:enable Style/GlobalVars

data/examples/test_method/memory.rb

@@ -0,0 +1,21 @@
+#!/usr/bin/env ruby
+require 'rubygems'
+require 'newt'
+
+def cleanup
+  Newt::Screen.finish
+end
+
+Newt::Screen.new
+Signal.trap('INT') { cleanup }
+
+10.times do
+  f = Newt::Form.new
+  b1 = Newt::Button.new(3, 1, 'Exit')
+  b2 = Newt::Button.new(18, 1, 'Update')
+  f.add(b1, b2)
+  Newt::Screen.refresh
+  GC.start
+end
+
+cleanup

data/examples/testgrid-e.rb

@@ -0,0 +1,78 @@
+#!/usr/bin/env ruby
+
+require 'rubygems'
+require 'newt'
+
+menu_contents = %w[One Two Three Four Five]
+auto_entries = ['An entry', 'Another entry', 'Third entry', 'Fourth entry']
+
+Newt::Screen.new
+
+b1 = Newt::Checkbox.new(-1, -1, 'An pretty long checkbox for testing', ' ', nil)
+b2 = Newt::Button.new(-1, -1, 'Another Button')
+b3 = Newt::Button.new(-1, -1, 'But, but')
+b4 = Newt::Button.new(-1, -1, 'But what?')
+
+f = Newt::Form.new
+
+grid = Newt::Grid.new(2, 2)
+grid.set_field(0, 0, Newt::GRID_COMPONENT, b1, 0, 0, 0, 0,
+               Newt::ANCHOR_RIGHT, 0)
+grid.set_field(0, 1, Newt::GRID_COMPONENT, b2, 0, 0, 0, 0, 0, 0)
+grid.set_field(1, 0, Newt::GRID_COMPONENT, b3, 0, 0, 0, 0, 0, 0)
+grid.set_field(1, 1, Newt::GRID_COMPONENT, b4, 0, 0, 0, 0, 0, 0)
+
+f.add(b1, b2, b3, b4)
+grid.wrapped_window('first window')
+f.run
+
+Newt::Screen.pop_window
+
+flowed_text, text_width, text_height = Newt.reflow_text('This is a quite a bit of text. It is 40 ' \
+                                                        'columns long, so some wrapping should be ' \
+                                                        'done. Did you know that the quick, brown ' \
+                                                        "fox jumped over the lazy dog?\n\n" \
+                                                        "In other news, it's pretty important that we " \
+                                                        'can properly force a line break.', 40, 5, 5)
+
+t = Newt::Textbox.new(-1, -1, text_width, text_height, Newt::FLAG_WRAP)
+t.set_text(flowed_text)
+
+b1 = Newt::Button.new(-1, -1, 'Okay')
+b2 = Newt::Button.new(-1, -1, 'Cancel')
+
+grid = Newt::Grid.new(1, 2)
+subgrid = Newt::Grid.new(2, 1)
+
+subgrid.set_field(0, 0, Newt::GRID_COMPONENT, b1, 0, 0, 0, 0, 0, 0)
+subgrid.set_field(1, 0, Newt::GRID_COMPONENT, b2, 0, 0, 0, 0, 0, 0)
+
+grid.set_field(0, 0, Newt::GRID_COMPONENT, t, 0, 0, 0, 1, 0, 0)
+grid.set_field(0, 1, Newt::GRID_SUBGRID, subgrid, 0, 0, 0, 0, 0,
+               Newt::GRID_FLAG_GROWX)
+grid.wrapped_window('another example')
+
+f = Newt::Form.new
+f.add(b1, t, b2)
+f.run
+
+Newt::Screen.pop_window
+
+Newt::Screen.win_message('Simple', 'Ok', 'This is a simple message window')
+result = Newt::Screen.win_choice('Simple', 'Ok', 'Cancel', 'This is a simple choice window')
+
+text_width = Newt::Screen.win_menu('Test Menu', 'This is a sample invovation of the ' \
+                                                'newtWinMenu() call. It may or may not have a scrollbar, ' \
+                                                'depending on the need for one.',
+                                  50, 5, 5, 3, menu_contents, 'Ok', 'Cancel')
+
+v = Newt::Screen.win_entries('Text newtWinEntries()', 'This is a sample invovation of ' \
+                                                      'newtWinEntries() call. It lets you get a lot of input ' \
+                                                      'quite easily.',
+                             50, 5, 5, 20, auto_entries, 'Ok', 'Cancel')
+
+Newt::Screen.finish
+
+printf "item = %d\n", text_width
+p v
+p result

data/examples/testgrid-j.rb

@@ -0,0 +1,80 @@
+#!/usr/bin/env ruby
+
+require 'rubygems'
+require 'newt'
+
+menu_contents = ['°ì', 'Æó', '»°', '»Í', '¸Þ']
+auto_entries = ['¥¨¥ó¥È¥ê', 'Ê̤Υ¨¥ó¥È¥ê', '»°ÈÖÌܤΥ¨¥ó¥È¥ê', '»ÍÈÖÌܤΥ¨¥ó¥È¥ê']
+
+Newt::Screen.new
+
+b1 = Newt::Checkbox.new(-1, -1, '¥Æ¥¹¥È¤Î¤¿¤á¤Î¤«¤Ê¤êŤ¤¥Á¥§¥Ã¥¯¥Ü¥Ã¥¯¥¹', ' ', nil)
+b2 = Newt::Button.new(-1, -1, 'Ê̤Υܥ¿¥ó')
+b3 = Newt::Button.new(-1, -1, '¤·¤«¤·¡¢¤·¤«¤·')
+b4 = Newt::Button.new(-1, -1, '¤·¤«¤·²¿¤À¤í¤¦¡©')
+
+f = Newt::Form.new
+
+grid = Newt::Grid.new(2, 2)
+grid.set_field(0, 0, Newt::GRID_COMPONENT, b1, 0, 0, 0, 0,
+               Newt::ANCHOR_RIGHT, 0)
+grid.set_field(0, 1, Newt::GRID_COMPONENT, b2, 0, 0, 0, 0, 0, 0)
+grid.set_field(1, 0, Newt::GRID_COMPONENT, b3, 0, 0, 0, 0, 0, 0)
+grid.set_field(1, 1, Newt::GRID_COMPONENT, b4, 0, 0, 0, 0, 0, 0)
+
+f.add(b1, b2, b3, b4)
+grid.wrapped_window('°ìÈÖÌܤΥ¦¥£¥ó¥É¥¦')
+f.run
+
+# f.destroy
+Newt::Screen.pop_window
+
+flowed_text, text_width, text_height = Newt.reflow_text('¤³¤ì¤Ï¤«¤Ê¤ê¥Æ¥­¥¹¥È¤é¤·¤¤¤â¤Î¤Ç¤¹¡£40¥«¥é¥à' \
+                                                        '¤ÎŤµ¤Ç¡¢¥é¥Ã¥Ô¥ó¥°¤¬¹Ô¤ï¤ì¤Þ¤¹¡£' \
+                                                        'ÁÇÁᤤ¡¢Ã㿧¤Î¸Ñ¤¬¤Î¤í¤Þ¤Ê¸¤¤òÈô¤Ó' \
+                                                        "±Û¤¨¤¿¤Î¤òÃΤäƤ뤫¤¤?\n\n" \
+                                                        '¾¤Ë¤ªÃΤ餻¤¹¤ë¤³¤È¤È¤·¤Æ¡¢Å¬Åö¤Ë²þ¹Ô¤ò¤¹¤ë' \
+                                                        '¤³¤È¤¬½ÅÍפǤ¹¡£', 40, 5, 5)
+
+t = Newt::Textbox.new(-1, -1, text_width, text_height, Newt::FLAG_WRAP)
+t.set_text(flowed_text)
+
+b1 = Newt::Button.new(-1, -1, 'λ²ò')
+b2 = Newt::Button.new(-1, -1, '¥­¥ã¥ó¥»¥ë')
+
+grid = Newt::Grid.new(1, 2)
+subgrid = Newt::Grid.new(2, 1)
+
+subgrid.set_field(0, 0, Newt::GRID_COMPONENT, b1, 0, 0, 0, 0, 0, 0)
+subgrid.set_field(1, 0, Newt::GRID_COMPONENT, b2, 0, 0, 0, 0, 0, 0)
+
+grid.set_field(0, 0, Newt::GRID_COMPONENT, t, 0, 0, 0, 1, 0, 0)
+grid.set_field(0, 1, Newt::GRID_SUBGRID, subgrid, 0, 0, 0, 0, 0,
+               Newt::GRID_FLAG_GROWX)
+grid.wrapped_window('Ê̤ÎÎã')
+
+f = Newt::Form.new
+f.add(b1, t, b2)
+f.run
+
+Newt::Screen.pop_window
+# f.destroy
+
+Newt::Screen.win_message('¥·¥ó¥×¥ë', 'λ²ò', '¤³¤ì¤Ï¥·¥ó¥×¥ë¤Ê¥á¥Ã¥»¡¼¥¸¥¦¥£¥ó¥É¥¦¤Ç¤¹')
+result = Newt::Screen.win_choice('¥·¥ó¥×¥ë', 'λ²ò', '¥­¥ã¥ó¥»¥ë', '¤³¤ì¤Ï¥·¥ó¥×¥ë¤ÊÁªÂò¥¦¥£¥ó¥É¥¦¤Ç¤¹')
+
+text_width = Newt::Screen.win_menu('¥Æ¥¹¥È¥á¥Ë¥å¡¼', '¤³¤ì¤Ï newtWinMenu() ¥³¡¼¥ë¤Î¥µ¥ó¥×¥ë' \
+                                                     '¤Ç¤¹¡£ ¥¹¥¯¥í¡¼¥ë¥Ð¡¼¤ÏɬÍפ˱þ¤¸¤Æ¤Ä¤¤¤¿¤ê¡¢ ' \
+                                                     '¤Ä¤«¤Ê¤«¤Ã¤¿¤ê¤·¤Þ¤¹¡£',
+                                  50, 5, 5, 3, menu_contents, 'λ²ò', '¥­¥ã¥ó¥»¥ë')
+
+v = Newt::Screen.win_entries('¥Æ¥­¥¹¥È newtWinEntries()', '¤³¤ì¤Ï newtWinEntries()' \
+                                                          '¥³¡¼¥ë¤Î¥µ¥ó¥×¥ë¤Ç¤¹¡£¤¿¤¤¤Ø¤ó´Êñ¤Ë¤¿¤¯¤µ¤ó¤ÎÆþÎϤò' \
+                                                          '°·¤¦¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£',
+                             50, 5, 5, 20, auto_entries, 'λ²ò', '¥­¥ã¥ó¥»¥ë')
+
+Newt::Screen.finish
+
+printf "item = %d\n", text_width
+p v
+p result

data/examples/testtree-e.rb

@@ -0,0 +1,53 @@
+#!/usr/bin/env ruby
+
+require 'rubygems'
+require 'newt'
+
+Newt::Screen.new
+
+checktree = Newt::CheckboxTreeMulti.new(-1, -1, 10, ' ab', Newt::FLAG_SCROLL)
+checktree.add('Numbers', 2, 0, Newt::ARG_APPEND)
+checktree.add('Really really long thing', 3, 0, Newt::ARG_APPEND)
+checktree.add('number 5', 5, Newt::FLAG_SELECTED, Newt::ARG_APPEND)
+checktree.add('number 6', 6, 0, Newt::ARG_APPEND)
+checktree.add('number 7', 7, Newt::FLAG_SELECTED, Newt::ARG_APPEND)
+checktree.add('number 8', 8, 0, Newt::ARG_APPEND)
+checktree.add('number 9', 9, 0, Newt::ARG_APPEND)
+checktree.add('number 10', 10, Newt::FLAG_SELECTED, Newt::ARG_APPEND)
+checktree.add('number 11', 11, 0, Newt::ARG_APPEND)
+checktree.add('number 12', 12, Newt::FLAG_SELECTED, Newt::ARG_APPEND)
+
+checktree.add('Colors', 1, 0, 0)
+checktree.add('Red', 100, 0, 0, Newt::ARG_APPEND)
+checktree.add('White', 101, 0, 0, Newt::ARG_APPEND)
+checktree.add('Blue', 102, 0, 0, Newt::ARG_APPEND)
+
+checktree.add('number 4', 4, 0, 3)
+
+checktree.add('Single digit', 200, 0, 1, Newt::ARG_APPEND)
+checktree.add('One', 201, 0, 1, 0, Newt::ARG_APPEND)
+checktree.add('Two', 202, 0, 1, 0, Newt::ARG_APPEND)
+checktree.add('Three', 203, 0, 1, 0, Newt::ARG_APPEND)
+checktree.add('Four', 204, 0, 1, 0, Newt::ARG_APPEND)
+
+checktree.add('Double digit', 300, 0, 1, Newt::ARG_APPEND)
+checktree.add('Ten', 210, 0, 1, 1, Newt::ARG_APPEND)
+checktree.add('Eleven', 211, 0, 1, 1, Newt::ARG_APPEND)
+checktree.add('Twelve', 212, 0, 1, 1, Newt::ARG_APPEND)
+checktree.add('Thirteen', 213, 0, 1, 1, Newt::ARG_APPEND)
+
+button = Newt::Button.new(-1, -1, 'Exit')
+
+grid = Newt::Grid.new(1, 2)
+grid.set_field(0, 0, Newt::GRID_COMPONENT, checktree, 0, 0, 0, 1,
+               Newt::ANCHOR_RIGHT, 0)
+grid.set_field(0, 1, Newt::GRID_COMPONENT, button, 0, 0, 0, 0, 0, 0)
+
+grid.wrapped_window('Checkbox Tree Test')
+
+form = Newt::Form.new
+form.add(checktree, button)
+
+form.run
+
+Newt::Screen.finish