rndk 0.0.1

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA1:
+  metadata.gz: a5b6103e3b2539bf72321942974536d2688cdf41
+  data.tar.gz: 5890e72b066792bf7c11e0810aa6fec292c287d8
+SHA512:
+  metadata.gz: 4236e304d133df93247638b65dba122a1b434f6934f6635e4de784aa169696e773c874efdcb2835713390ee10e7c683b53a71594d9d1eb8b8f01d26d5a3d5af5
+  data.tar.gz: 18585b599021f220cc26fb9e2127b04727ef7d757b965be78b8e33d66ea27e3ef11f83a0f8013d53cd01b733eb7bc88925a9a40539ffbccf6b7647a946d0e5ec

data/.gitignore

@@ -0,0 +1,23 @@
+# Files starting with 'NOPE' are a way for me
+# to ignore files that I'm still converting from
+# old CDK style to current RNDK format.
+NOPE*
+
+# "regular" files to ignore
+*.gem
+*.rbc
+.bundle
+.config
+.yardoc
+Gemfile.lock
+InstalledFiles
+_yardoc
+coverage
+doc/
+lib/bundler/man
+pkg
+rdoc
+spec/reports
+test/tmp
+test/version_tmp
+tmp

data/COPYING

@@ -0,0 +1,137 @@
+RNDK copyright Alexandre Dantas 2013
+
+Normally I'd use GPL, but since I don't know if I can simply do that,
+I'll keep the same license as Chris Sauro on his original ruby CDK port.
+See right below.
+
+================================================================================
+
+Original Ruby CDK port copyright Chris Sauro 2013
+
+Like Thomas, I am keeping this under a BSD license but I am changing to the
+3-clause version rather than the old 4-clause version.  The text of this
+license is copied below and the original COPYING file is available below
+that. -CS
+
+================================================================================
+
+Copyright (c) 2013, Chris Sauro
+All rights reserved.
+
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions are met:
+    * Redistributions of source code must retain the above copyright
+      notice, this list of conditions and the following disclaimer.
+    * Redistributions in binary form must reproduce the above copyright
+      notice, this list of conditions and the following disclaimer in the
+      documentation and/or other materials provided with the distribution.
+    * Neither the name of Chris Sauro nor the
+      names of its contributors may be used to endorse or promote products
+      derived from this software without specific prior written permission.
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
+ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
+WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+DISCLAIMED. IN NO EVENT SHALL <COPYRIGHT HOLDER> BE LIABLE FOR ANY
+DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
+(INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
+LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
+ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+
+================================================================================
+
+Modifications copyright Thomas Dickey 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007
+
+The software and documentation are still under the same licensing are the
+original Cdk, but noting that substantial work and enhancements have been made,
+I've added my name as needed -TD
+
+The original COPYING file follows (with corrections as noted in CHANGES).
+
+================================================================================
+
+Cdk Copying Guide
+Copyright Mike Glover, 1995, 1996, 1997, 1998, 1999
+-------------------------------------------------------------------------------
+In order to copy Cdk around I have some requirements that will protect me,
+and possibly even you. First thing, I feel I should say that this little project
+of mine has taken quite a bit 'free' time and I have put a lot of work
+into it. I do ask that if anyone asks you about Cdk, tell them where you got it
+and who wrote it. If you see Cdk installed without this file on the system
+somewhere, then assume the copy the person has is a 'corrupt' version. I will
+not be responsible for any unfortunate results if someone else makes a personal
+modification to the Cdk library. I will also not be responsible if for some
+reason the installation of Cdk creates a negative effect on your machine. You
+do have my word that there are no "Trojan horses", worms, or other security
+worries lurking in this code. If there are I did not put them there and you
+should remove the version of Cdk you have and go get a proper copy. I hate
+virus writers as much as anyone else!
+
+Instead of writing my own license (I'm a programmer, not a lawyer!) I'm going
+to adapt the BSD public license on public software. If you do not agree to
+this license then remove the Cdk distribution and we all will be happier in
+the end. Here is the complete BSD public license in its true form, for
+reference.
+
+I will say one thing, Cdk is my copyright.  I will continue to support any
+released versions out there as long as they are in their released form.  I am
+releasing this into the "public" because I feel I have benefited from other
+people's hard work, I'd like to chip into the pot as well.  This does NOT make
+Cdk public domain though.  Cdk is still my copyright, and owned by me, I am
+merely stating this so I don't see 40 different versions of my code floating
+around with other people's names attached.
+
+With that ugly stuff said, I will happily take any comments or questions about
+Cdk.  Input is more than welcomed.  In fact I encourage it.  Feel free to mail
+me and ask questions you think the supplied documents don't cover.  If I get
+enough I may build a FAQ to help newcomers.  (We'll see how Cdk is accepted
+though).
+
+For you Perl programmers, there is a Perl5 extension to Cdk. Look at your
+closest CPAN site under authors/id/GLOVER.
+
+If you want to get a hold of me mail me at one of the following:
+        glover@credit.erin.utoronto.ca
+	mike@vexus.ca
+
+The CDK Web page has several homes. They are:
+        http://www.vexus.ca/CDK.html (official)
+        http://www.datasoft.on.ca/~cdk (Sponsored by the nice folks at Datasoft)
+
+ttfn,
+	Mike
+-------------------------------------------------------------------------------
+
+ Copyright (c) 1999, Mike Glover
+ All rights reserved.
+
+ Redistribution and use in source and binary forms, with or without
+ modification, are permitted provided that the following conditions
+ are met:
+ 1. Redistributions of source code must retain the above copyright
+    notice, this list of conditions and the following disclaimer.
+ 2. Redistributions in binary form must reproduce the above copyright
+    notice, this list of conditions and the following disclaimer in the
+    documentation and/or other materials provided with the distribution.
+ 3. All advertising materials mentioning features or use of this software
+    must display the following acknowledgment:
+ 	This product includes software developed by Mike Glover
+ 	and contributors.
+ 4. Neither the name of Mike Glover, nor the names of contributors
+    may be used to endorse or promote products derived from this software
+    without specific prior written permission.
+
+ THIS SOFTWARE IS PROVIDED BY MIKE GLOVER AND CONTRIBUTORS ``AS IS'' AND
+ ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ ARE DISCLAIMED.  IN NO EVENT SHALL MIKE GLOVER OR CONTRIBUTORS BE LIABLE
+ FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ SUCH DAMAGE.
+

data/Gemfile

@@ -0,0 +1,4 @@
+source 'https://rubygems.org'
+
+# Specify your gem's dependencies in rndk.gemspec
+gemspec

data/README.md

@@ -0,0 +1,100 @@
+# Ruby Ncurses Development Kit (RNDK)
+
+`rndk` aims to be a powerful, well-documented and easy-to-use
+Ncurses Development Kit in Ruby. Besides abstracting away Ncurses'
+details, it provides some widgets for rapid console app development.
+
+It means that you'll be able to master the dark arts of text-based
+applications, easily creating nice apps for the console.
+
+`RNDK` is a fork from `tawny-cdk`, a [Chris Sauro Ruby port][tawny]
+of [Thomas Dickey's Curses Development Kit][cdk] (in C).
+
+Currently implemented widgets:
+
+ * Alphalist
+ * Button
+ * Buttonbox
+ * Calendar
+ * Dialog
+ * Entry
+ * File Selector
+ * Graph
+ * Histogram
+ * Item List
+ * Label
+ * Matrix
+ * Marquee
+ * Menu
+ * Multiple Line Entry
+ * Radio List
+ * Scale
+ * Scrolling List
+ * Scrolling Window
+ * Selection List
+ * Slider
+ * Template
+ * Viewer
+
+## WARNING
+
+This is a very unstable Work-in-Progress library.
+
+I'm currently reviewing `tawny-cdk`'s API, so a lot of things are
+changing real fast.
+
+Be sure to know that whenever I remove this notice, things will be
+nicer.
+
+For now, I recommend you to **not** use `rndk` for production
+programs!
+
+## Requirements
+
+`rndk` requires the gem `ffi-ncurses`.
+
+## Installation
+
+Add this line to your application's Gemfile:
+
+    gem 'rndk'
+
+And then execute:
+
+    $ bundle
+
+Or install it yourself as:
+
+    $ gem install rndk
+
+## Usage
+
+The `examples` directory contains lots of sample usages for every
+widget available. To execute them, go to the `rndk` root folder
+and run:
+
+    ruby -Ilib examples/YOUR_EXAMPLE_HERE
+
+There's also some more comples demo applications under the `demos`
+directory. Do the same:
+
+    ruby -Ilib demos/YOUR_DEMO_HERE
+
+## Contributing
+
+Currently `rndk` has a C-like API, since it was directly taken
+from `cdk`. The top priority is to make it more rubyish (maybe
+studying [rbcurse]?).
+
+Also, see the `TODO` file.
+
+1. Fork it
+2. Create your feature branch (`git checkout -b my-new-feature`)
+3. Commit your changes (`git commit -am 'Add some feature'`)
+4. Push to the branch (`git push origin my-new-feature`)
+5. Create new Pull Request
+
+[tawny]:https://github.com/masterzora/tawny-cdk
+[cdk]:http://invisible-island.net/cdk/
+[rbcurse]:https://github.com/rkumar/rbcurse
+

data/Rakefile

@@ -0,0 +1,3 @@
+# See default bundler take tasks with `rake -T`
+require "bundler/gem_tasks"
+

data/TODO

@@ -0,0 +1,68 @@
+RNDK TODO List
+(forked from Tawny-Cdk's TODO List)
+------------------------------------------------------------------------------
+
+Now that Tawny CDK is basically a complete copy of Thomas Dickey version of
+Mike Glover's CDK it is essentially usable, but there's still a lot to do:
+
+ * Documentation
+   - Most of the original comments from the .c files were preserved but many
+     of those are less than helpful and some areas where they might be more
+     helpful are lacking.  Further, the .h files have a few potentially
+     useful comments that were not preserved.  Further, module, class, and
+     method docs are either lacking or nonexistent in most places. Tawny CDK
+     won't see a major version release until some better docs are in place.
+ * Code cleanup
+   - This project was how I learned Ruby so there are probably a fair number
+     of Ruby conventions being broken all over the place.  This goes double
+     since I stayed fairly close to the original C in some places where it
+     wasn't necessarily appropriate.
+ * Continue restructuring
+   - Related to but distinct from the cleanup.  The original C code was a
+     very impressive approximation of polymorphic object-oriented code.
+     Since Ruby is actually object-oriented I've mostly translated this into
+     this paradigm but some work still remains.  Some of the codebase can
+     definitely benefit from a more aggressive approach to the object
+     orientation and polymorphic behaviour.  Further, I need to take a more
+     critical eye at seeing what works better as inherited classes and what
+     works better as mixins since apparently those are different things in
+     Ruby.
+ * Error handling
+   - In part to allow for more rapid development and in part because I still
+     need to get more familiar with Ruby's exception handling but the code
+     is nowhere near as robust as it should be.  In some cases, such as a lot
+     of the file handling, this means implementing intelligent rescues.  In
+     other cases this means dealing more robustly with sensible but unexpected
+     parameter types.
+ * Package it all up
+   - Tawny CDK won't see a major version release until I work on packaging it
+     all up.
+ * Compatiblity version
+   - Right now I've significantly renamed and restructured a lot of things to
+     better facilitate development but have still attempted to remain somewhat
+     faithful to the original version.  At some point I'd like to fix this with
+     a sort of split: a less faithful 'primary' version that makes more sense
+     in Ruby and a as-faithful-as-possible 'compatibility' version that wraps
+     the primary version into the same (more-or-less) names and structure as
+     the original.
+ * Support other Curses packages
+   - Right now this is all developed for a very specific Ncurses package.
+     Ruby has multiple Curses packages so it would be nice to provide broader
+     support.
+ * Fixes
+   - The code has a few "FIXME(original)" tags strewn around.  Some of these
+     appear to be significantly easier to fix in Ruby and might even provide
+     some insight to allow me to kick fixes back to Thomas's project.
+ * The Cdk TODO List
+   - The Dickey/Glover version has its own TODO list with several items that
+     would be interesting to add.  As with fixes, some of them may be easier
+     to implement in the Ruby version and then use the insights gained to
+     kick back to the C.
+ * Collections
+   - It's simple: a widget that is really a collection of widgets.  Fully take
+     advantage of real object-orientation and polymorphism and make a widget
+     that collects widgets and handles them as one.  Have its activate really
+     activate the focused widget, move affect all widgets in the collection as
+     one, and things like that.  Basically, make it really easy to combine
+     widgets in useful manners
+

data/demos/appointment.rb

@@ -0,0 +1,346 @@
+#!/usr/bin/env ruby
+#
+# Shows a book where you can create appointments of different
+# kinds, save and restore them on a file.
+#
+# The keybindings are:
+#
+# * 'm' create appointment at selected day
+# * 'r' remove appointment at selected day
+# * '?' displays appointment for selected day
+# * 'enter' or 'tab' quits
+#
+# It automatically creates file `/tmp/appointments.dat` on the
+# current directory
+require 'ostruct'
+require 'rndk/calendar'
+require 'rndk/itemlist'
+require 'rndk/entry'
+
+class Appointment
+  MAX_MARKERS = 2000
+  GPAppointmentAttributes = [
+    Ncurses::A_BLINK,
+    Ncurses::A_BOLD,
+    Ncurses::A_REVERSE,
+    Ncurses::A_UNDERLINE,
+  ]
+
+  AppointmentType = [
+    :BIRTHDAY,
+    :ANNIVERSARY,
+    :APPOINTMENT,
+    :OTHER,
+  ]
+
+  # This reads a given appointment file.
+  def Appointment.readAppointmentFile(filename, app_info)
+    appointments = 0
+    segments = 0
+    lines = []
+
+    # Read the appointment file.
+    lines_read = RNDK.readFile(filename, lines)
+    if lines_read == -1
+      app_info.count = 0
+      return
+    end
+
+    # Split each line up and create an appointment.
+    (0...lines_read).each do |x|
+      temp = lines[x].split(RNDK.CTRL('V').chr)
+      segments =  temp.size
+
+      # A valid line has 5 elements:
+      #          Day, Month, Year, Type, Description.
+      if segments == 5
+        app_info.appointment << OpenStruct.new
+        e_type = Appointment::AppointmentType[temp[3].to_i]
+
+        app_info.appointment[appointments].day = temp[0].to_i
+        app_info.appointment[appointments].month = temp[1].to_i
+        app_info.appointment[appointments].year = temp[2].to_i
+        app_info.appointment[appointments].type = e_type
+        app_info.appointment[appointments].description = temp[4]
+        appointments += 1
+      end
+    end
+
+    # Keep the amount of appointments read.
+    app_info.count = appointments
+  end
+
+  # This saves a given appointment file.
+  def Appointment.saveAppointmentFile(filename, app_info)
+    # TODO: error handling
+    fd = File.new(filename, 'w')
+
+    # Start writing.
+    app_info.appointment.each do |appointment|
+      if appointment.description != ''
+        fd.puts '%d%c%d%c%d%c%d%c%s' % [
+            appointment.day, RNDK.CTRL('V').chr,
+            appointment.month, RNDK.CTRL('V').chr,
+            appointment.year, RNDK.CTRL('V').chr,
+            Appointment::AppointmentType.index(appointment.type),
+            RNDK.CTRL('V').chr, appointment.description]
+      end
+    end
+    fd.close
+  end
+
+  # This program demonstrates the Rndk calendar widget.
+  def Appointment.main
+
+    # Get the current dates and set the default values for
+    # the day/month/year values for the calendar.
+    date_info = Time.now.gmtime
+    day = date_info.day
+    month = date_info.mon
+    year = date_info.year
+
+    title = "<C></U>RNDK Appointment Book\nPress 'h' for help\n<C><#HL(30)>\n"
+
+    filename = ''
+
+    # Create the appointment book filename.
+    filename = "/tmp/appointments.dat"
+
+    appointment_info = OpenStruct.new
+    appointment_info.count = 0
+    appointment_info.appointment = []
+
+    # Read the appointment book information.
+    readAppointmentFile(filename, appointment_info)
+
+    # Set up RNDK
+    curses_win = Ncurses.initscr
+    rndkscreen = RNDK::Screen.new(curses_win)
+
+    # Set up RNDK colors
+    RNDK::Draw.initRNDKColor
+
+    # Create the calendar widget.
+    calendar = RNDK::CALENDAR.new(rndkscreen,
+                                  RNDK::CENTER,
+                                  RNDK::CENTER,
+                                  title, day, month, year,
+                                  Ncurses::A_NORMAL, Ncurses::A_NORMAL, Ncurses::A_NORMAL, Ncurses::A_REVERSE,
+                                  true, false)
+
+    # Is the widget nil?
+    if calendar.nil?
+      rndkscreen.destroy
+      RNDK::Screen.end_rndk
+
+      puts "Cannot create the calendar. Is the window too small?"
+      exit 1
+    end
+
+    # This adds a marker to the calendar.
+    create_calendar_mark_cb = lambda do |object_type, calendar, info, key|
+      items = [
+          'Birthday',
+          'Anniversary',
+          'Appointment',
+          'Other',
+      ]
+
+      # Create the itemlist widget.
+      itemlist = RNDK::ITEMLIST.new(calendar.screen,
+          RNDK::CENTER, RNDK::CENTER, '', 'Select Appointment Type: ',
+          items, items.size, 0, true, false)
+
+      # Get the appointment type from the user.
+      selection = itemlist.activate([])
+
+      # They hit escape, kill the itemlist widget and leave.
+      if selection == -1
+        itemlist.destroy
+        calendar.draw(calendar.box)
+        return false
+      end
+
+      # Destroy the itemlist and set the marker.
+      itemlist.destroy
+      calendar.draw(calendar.box)
+      marker = Appointment::GPAppointmentAttributes[selection]
+
+      # Create the entry field for the description.
+      entry = RNDK::ENTRY.new(calendar.screen, RNDK::CENTER, RNDK::CENTER,
+          '<C>Enter a description of the appointment.',
+          'Description: ', Ncurses::A_NORMAL, '.'.ord, :MIXED, 40, 1, 512,
+          true, false)
+
+      # Get the description.
+      description = entry.activate([])
+      if description == 0
+        entry.destroy
+        calendar.draw(calendar.box)
+        return false
+      end
+
+      # Destroy the entry and set the marker.
+      description = entry.info
+      entry.destroy
+      calendar.draw(calendar.box)
+
+      # Set the marker.
+      calendar.setMarker(calendar.day, calendar.month, calendar.year, marker)
+
+      # Keep the marker.
+      info.appointment << OpenStruct.new
+      current = info.count
+
+      info.appointment[current].day = calendar.day
+      info.appointment[current].month = calendar.month
+      info.appointment[current].year = calendar.year
+      info.appointment[current].type = Appointment::AppointmentType[selection]
+      info.appointment[current].description = description
+      info.count += 1
+
+      # Redraw the calendar.
+      calendar.draw(calendar.box)
+      return false
+    end
+
+    # This removes a marker from the calendar.
+    remove_calendar_mark_cb = lambda do |object_type, calendar, info, key|
+      info.appointment.each do |appointment|
+        if appointment.day == calendar.day &&
+            appointment.month == calendar.month &&
+            appointment.year == calendar.year
+          appointment.description = ''
+          break
+        end
+      end
+
+      # Remove the marker from the calendar.
+      calendar.removeMarker(calendar.day, calendar.month, calendar.year)
+
+      # Redraw the calendar.
+      calendar.draw(calendar.box)
+      return false
+    end
+
+    # This displays the marker(s) on the given day.
+    display_calendar_mark_cb = lambda do |object_type, calendar, info, key|
+      found = 0
+      type = ''
+      mesg = []
+
+      # Look for the marker in the list.
+      info.appointment.each do |appointment|
+        # Get the day month year.
+        day = appointment.day
+        month = appointment.month
+        year = appointment.year
+
+        # Determine the appointment type.
+        if appointment.type == :BIRTHDAY
+          type = 'Birthday'
+        elsif appointment.type == :ANNIVERSARY
+          type = 'Anniversary'
+        elsif appointment.type == :APPOINTMENT
+          type = 'Appointment'
+        else
+          type = 'Other'
+        end
+
+        # Find the marker by the day/month/year.
+        if day == calendar.day && month == calendar.month &&
+            year == calendar.year && appointment.description != ''
+          # Create the message for the label widget.
+          mesg << '<C>Appointment Date: %02d/%02d/%d' % [
+              day, month, year]
+          mesg << ' '
+          mesg << '<C><#HL(35)>'
+          mesg << ' Appointment Type: %s' % [type]
+          mesg << ' Description     :'
+          mesg << '    %s' % [appointment.description]
+          mesg << '<C><#HL(35)>'
+          mesg << ' '
+          mesg << '<C>Press space to continue.'
+
+          found = 1
+          break
+        end
+      end
+
+      # If we didn't find the marker, create a different message.
+      if found == 0
+        mesg << '<C>There is no appointment for %02d/%02d/%d' % [calendar.day, calendar.month, calendar.year]
+        mesg << '<C><#HL(30)>'
+        mesg << '<C>Press space to continue.'
+      end
+
+      # Create the label widget
+      label = RNDK::LABEL.new(calendar.screen, RNDK::CENTER, RNDK::CENTER, mesg, mesg.size, true, false)
+      label.draw(label.box)
+      label.wait(' ')
+      label.destroy
+
+      # Redraw the calendar
+      calendar.draw(calendar.box)
+      return false
+    end
+
+    # Shows a help popup with keybindings.
+    show_help = lambda do |object_type, calendar, info, key|
+      msg = ["Keybindings:",
+             " 'm' create appointment at selected day",
+             " 'r' remove appointment at selected day",
+             " '?' displays appointment for selected day",
+             " 'enter' or 'tab' quits"]
+
+      rndkscreen.popupLabel msg
+    end
+
+    # Now we bind actions to the calendar.
+    # Create a key binding to mark days on the calendar.
+    calendar.bind(:CALENDAR, 'm', create_calendar_mark_cb, appointment_info)
+    calendar.bind(:CALENDAR, 'M', create_calendar_mark_cb, appointment_info)
+    calendar.bind(:CALENDAR, 'r', remove_calendar_mark_cb, appointment_info)
+    calendar.bind(:CALENDAR, 'R', remove_calendar_mark_cb, appointment_info)
+    calendar.bind(:CALENDAR, '?', display_calendar_mark_cb, appointment_info)
+    calendar.bind(:CALENDAR, 'h', show_help, nil)
+
+    # Set all the appointments read from the file.
+    appointment_info.appointment.each do |appointment|
+      marker = Appointment::GPAppointmentAttributes[Appointment::AppointmentType.index(appointment.type)]
+
+      calendar.setMarker(appointment.day,
+                         appointment.month,
+                         appointment.year,
+                         marker)
+    end
+
+    # Draw the calendar widget.
+    calendar.draw(calendar.box)
+
+    # Let the user play with the widget.
+    calendar.activate([])
+
+    # Save the appointment information.
+    Appointment.saveAppointmentFile(filename, appointment_info)
+
+    # Clean up.
+    calendar.destroy
+    rndkscreen.destroy
+    RNDK::Screen.end_rndk
+  end
+end
+
+
+begin
+  Appointment.main
+
+# In case something goes wrong
+rescue Exception => e
+  RNDK::Screen.end_rndk
+
+  puts e
+  puts e.inspect
+  puts e.backtrace
+end
+