ffi-tk 2009.11.29

data/lib/ffi-tk/widget/text/peer.rb

@@ -0,0 +1,10 @@
+module Tk
+  class Text
+    class Peer < Text
+      def initialize(tk_parent, options = {})
+        @tk_parent = tk_parent
+        Tk.execute(tk_parent.tk_pathname, 'peer', 'create', assign_pathname, options)
+      end
+    end
+  end
+end

data/lib/ffi-tk/widget/tile.rb

@@ -0,0 +1,70 @@
+# Ttk package merged Tcl/Tk core (Tcl/Tk 8.5+)
+module Tk
+  module Tile
+    autoload :Entry,         'ffi-tk/widget/tile/entry'
+    autoload :Frame,         'ffi-tk/widget/tile/frame'
+    autoload :Button,        'ffi-tk/widget/tile/button'
+    autoload :LabelFrame,    'ffi-tk/widget/tile/labelframe'
+    autoload :CheckButton,   'ffi-tk/widget/tile/checkbutton'
+    autoload :RadioButton,   'ffi-tk/widget/tile/radiobutton'
+    autoload :MenuButton,    'ffi-tk/widget/tile/menubutton'
+    autoload :PanedWindow,   'ffi-tk/widget/tile/panedwindow'
+    autoload :Label,         'ffi-tk/widget/tile/label'
+    autoload :Scale,         'ffi-tk/widget/tile/scale'
+    autoload :Scrollbar,     'ffi-tk/widget/tile/scrollbar'
+    autoload :YScrollbar,    'ffi-tk/widget/tile/scrollbar'
+    autoload :XScrollbar,    'ffi-tk/widget/tile/scrollbar'
+    autoload :Notebook,      'ffi-tk/widget/tile/notebook'
+    autoload :Separator,     'ffi-tk/widget/tile/separator'
+    autoload :Sizegrip,      'ffi-tk/widget/tile/sizegrip'
+    autoload :ComboBox,      'ffi-tk/widget/tile/combobox'
+    autoload :Progressbar,   'ffi-tk/widget/tile/progressbar'
+    autoload :Treeview,      'ffi-tk/widget/tile/treeview'
+
+    autoload :Style,         'ffi-tk/widget/tile/style'
+
+    def self.style(style, parent_name)
+      Style.style(style, parent_name)
+    end
+
+    def self.set_theme(theme)
+      Style.theme_use(theme)
+    end
+
+    module TileWidget
+      def ttk_state(new_state = None)
+        if new_state == None
+          execute(:state).to_a
+        else
+          execute_only(:state, new_state)
+        end
+      end
+
+      def state(new_state = None)
+        ttk_state(new_state)
+      end
+
+      def style(layout_spec, name = tk_pathname)
+        Tk::Tile::Style.layout(name, layout_spec)
+      end
+
+      include Tk::Grid
+
+      def grid(options)
+        grid_configure options
+      end
+    end
+
+    module Font
+      Default      = 'TkDefaultFont'
+      Text         = 'TkTextFont'
+      Heading      = 'TkHeadingFont'
+      Caption      = 'TkCaptionFont'
+      Tooltip      = 'TkTooltipFont'
+      Fixed        = 'TkFixedFont'
+      Menu         = 'TkMenuFont'
+      SmallCaption = 'TkSmallCaptionFont'
+      Icon         = 'TkIconFont'
+    end
+  end
+end

data/lib/ffi-tk/widget/tile/button.rb

@@ -0,0 +1,8 @@
+module Tk
+  module Tile
+    class Button < Tk::Button
+      def self.tk_command; 'ttk::button'; end
+      include TileWidget
+    end
+  end
+end

data/lib/ffi-tk/widget/tile/checkbutton.rb

@@ -0,0 +1,8 @@
+module Tk
+  module Tile
+    class CheckButton < Tk::CheckButton
+      def self.tk_command; 'ttk::checkbutton'; end
+      include TileWidget
+    end
+  end
+end

data/lib/ffi-tk/widget/tile/combobox.rb

@@ -0,0 +1,43 @@
+module Tk
+  module Tile
+    # combobox combines a text field with a pop-down list of values.
+    # the user may select the value of the text field from among the values in the list.
+    class ComboBox < Tile::Entry
+      def self.tk_command; 'ttk::combobox'; end
+      include TileWidget
+      # include Cget, Configure
+
+      def postcommand(&block)
+        configure(:postcommand => block) if block
+      end
+
+      # Sets the value of the combobox to value.
+      def set(value)
+        execute_only(:set, value)
+      end
+
+      # Returns the current value of the combobox.
+      def get
+        execute(:get).to_s
+      end
+
+      # If newIndex is supplied, sets the combobox value to the element
+      # at position newIndex in the list of -values. Otherwise, returns
+      # the index of the current value in the list of -values or -1 if
+      # the current value does not appear in the list.
+      def current(newindex = None)
+        if None == newindex
+          execute(:current)
+        else
+          execute_only(:current, newindex)
+        end
+      end
+
+      # VIRTUAL EVENTS
+      # The combobox widget generates a <<ComboboxSelected>> virtual event
+      # when the user selects an element from the list of values. If the
+      # selection action unposts the listbox, this event is delivered after
+      # the listbox is unposted.
+    end
+  end
+end

data/lib/ffi-tk/widget/tile/entry.rb

@@ -0,0 +1,8 @@
+module Tk
+  module Tile
+    class Entry < Tk::Entry
+      def self.tk_command; 'ttk::entry'; end
+      include TileWidget
+    end
+  end
+end

data/lib/ffi-tk/widget/tile/frame.rb

@@ -0,0 +1,13 @@
+module Tk
+  module Tile
+    class Frame < Tk::Frame
+      def self.tk_command; 'ttk::frame'; end
+      include TileWidget
+
+      def initialize(parent = Tk.root, options = {})
+        options = { relief: :flat }.merge(options)
+        super
+      end
+    end
+  end
+end

data/lib/ffi-tk/widget/tile/label.rb

@@ -0,0 +1,9 @@
+module Tk
+  module Tile
+    class Label < Tk::Label
+      def self.tk_command; 'ttk::label'; end
+      include TileWidget
+    end
+  end
+end
+

data/lib/ffi-tk/widget/tile/labelframe.rb

@@ -0,0 +1,8 @@
+module Tk
+  module Tile
+    class LabelFrame < Tk::LabelFrame
+      def self.tk_command; 'ttk::labelframe'; end
+      include TileWidget
+    end
+  end
+end

data/lib/ffi-tk/widget/tile/menubutton.rb

@@ -0,0 +1,8 @@
+module Tk
+  module Tile
+    class MenuButton < Tk::MenuButton
+      def self.tk_command; 'ttk::menubutton'; end
+      include TileWidget
+    end
+  end
+end

data/lib/ffi-tk/widget/tile/notebook.rb

@@ -0,0 +1,93 @@
+module Tk
+  module Tile
+    # Tk::Tile::Notebook widget manages a collection of windows
+    # and displays a single one at a time. Each slave window
+    # is associated with a tab, which the user may select to
+    # change the currently-displayed window.
+    class Notebook < Widget
+      def self.tk_command; 'ttk::notebook'; end
+      include TileWidget
+
+      def initialize(parent = Tk.root, options = {})
+        super
+      end
+
+      def add(window, options)
+        execute_only(:add, window, options.to_tcl_options)
+      end
+
+      # Returns the list of windows managed by the notebook.
+      def tabs
+        execute(:tabs).to_a
+      end
+
+      # Query or modify the options of the specific tab.
+      # If no -option is specified, returns a dictionary of the
+      # tab option values. If one -option is specified, returns
+      # the value of that option. Otherwise, sets the -options
+      # to the corresponding values.
+      def tab(window, options = None)
+        if None == options
+          execute(:tab, window)
+        else
+          execute_only(:tab, window, options.to_tcl_options)
+        end
+      end
+
+      # Inserts a pane at the specified position. pos is either
+      # the string end, an integer index, or the name of a managed subwindow.
+      # If subwindow is already managed by the notebook, moves it to
+      # the specified position.
+      def insert(pos, window, options)
+          execute_only(:insert, pos, window, options.to_tcl_options)
+      end
+
+      # Selects the specified tab. The associated slave window
+      # will be displayed, and the previously-selected window
+      # (if different) is unmapped. If tabid is omitted, returns
+      # the widget name of the currently selected pane.
+      def select(window)
+        execute_only(:select, window)
+        window.tk_pathname
+      end
+
+      # Remove the pane containing window from the panedwindow.
+      # All geometry management options for window will be forgotten.
+      def forget(window, *windows)
+        execute_only(:forget, window, *windows)
+      end
+
+      def hide(window)
+        execute_only(:hide, window)
+      end
+
+      # Returns the numeric index of the tab specified by tabid,
+      # or the total number of tabs if tabid is the string 'end'.
+      def index(window)
+        execute(:index, window).to_i
+      end
+
+      def identify(x, y)
+        execute(:identify, x, y)
+      end
+
+      def enable_traversal
+        self.class.enable_traversal self
+      end
+
+      def self.enable_traversal(nb)
+        Tk.execute_only('ttk::notebook::enableTraversal', nb)
+      end
+
+      # TAB IDENTIFIERS, the tabid argument may take any of the following forms:
+      #  * An integer between zero and the number of tabs;
+      #  * The name of a slave window;
+      #  * A positional specification of the form '@x,y', which identifies the tab
+      #  * string 'current', which identifies the currently-selected tab; or:
+      #  * string 'end', which returns the number of tabs (only valid for 'pathname index').
+
+      # VIRTUAL EVENTS
+      # The notebook widget generates a <<NotebookTabChanged>> virtual event after a new tab is selected.
+    end
+  end
+end

data/lib/ffi-tk/widget/tile/panedwindow.rb

@@ -0,0 +1,9 @@
+module Tk
+  module Tile
+    class PanedWindow < Tk::PanedWindow
+      def self.tk_command; 'ttk::panedwindow'; end
+      include TileWidget
+    end
+  end
+end
+

data/lib/ffi-tk/widget/tile/progressbar.rb

@@ -0,0 +1,59 @@
+module Tk
+  module Tile
+    # progressbar widget shows the status of a long-running operation.
+    # They can operate in two modes: determinate mode shows the amount
+    # completed relative to the total amount of work to be done, and
+    # indeterminate mode provides an animated display to let the user
+    # know that something is happening.
+    class Progressbar < Widget
+      def self.tk_command; 'ttk::progressbar'; end
+      include TileWidget, Cget, Configure
+
+      # Begin autoincrement mode
+      # schedules a recurring timer event that calls step every
+      # interval milliseconds. If omitted, interval defaults to
+      # 50 milliseconds (20 steps/second).
+      def start(interval = None)
+        execute_only(:start, interval)
+      end
+
+      # Stop autoincrement mode
+      # cancels any recurring timer event initiated by #start
+      def stop
+        execute_only(:stop)
+      end
+
+      # Increments the -value by amount. amount defaults to 1.0 if omitted.
+      def step(amount = 1.0)
+        execute_only(:step, amount)
+      end
+
+      # the current value of the progress bar. In determinate mode,
+      # this represents the amount of work completed. In indeterminate mode,
+      # it is interpreted modulo -maximum; that is, the progress bar
+      # completes one 'cycle' when the -value increases by -maximum.
+      def value
+        execute(:cget, '-value').to_f
+      end
+
+      def phase
+        execute(:cget, '-phase').to_i
+      end
+
+
+      def identify(x, y)
+        execute(:identify, x, y)
+      end
+
+      # Specifies the orientation of the scrollbar.
+      # horizontal or vertical
+      def orient(orientation = None)
+        if None == orientation
+          cget(:orient)
+        else
+          configure orient: orientation
+        end
+      end
+    end
+  end
+end

data/lib/ffi-tk/widget/tile/radiobutton.rb

@@ -0,0 +1,8 @@
+module Tk
+  module Tile
+    class RadioButton < Tk::RadioButton
+      def self.tk_command; 'ttk::radiobutton'; end
+      include TileWidget
+    end
+  end
+end

data/lib/ffi-tk/widget/tile/scale.rb

@@ -0,0 +1,8 @@
+module Tk
+  module Tile
+    class Scale < Tk::Scale
+      def self.tk_command; 'ttk::scale'; end
+      include TileWidget
+    end
+  end
+end

data/lib/ffi-tk/widget/tile/scrollbar.rb

@@ -0,0 +1,41 @@
+module Tk
+  module Tile
+    class Scrollbar < Tk::Scrollbar
+      def self.tk_command; 'ttk::scrollbar'; end
+      include TileWidget
+
+      def initialize(parent = Tk.root, options = {})
+        super
+        scrollbar_default
+      end
+
+      # Specifies the orientation of the scrollbar.
+      # horizontal or vertical
+      def orient(orientation = None)
+        if None == orientation
+          cget(:orient)
+        else
+          configure orient: orientation
+        end
+      end
+
+      def command(&block)
+        configure(:command => block) if block
+      end
+
+      def scrollbar_default; end
+    end
+
+    class YScrollbar < Tk::Tile::Scrollbar
+      def scrollbar_default
+        #configure :orient => :vertical
+      end
+    end
+
+    class XScrollbar < Tk::Tile::Scrollbar
+      def scrollbar_default
+        configure :orient => :horizontal
+      end
+    end
+  end
+end

data/lib/ffi-tk/widget/tile/separator.rb

@@ -0,0 +1,23 @@
+module Tk
+  module Tile
+    # Separator widget displays a horizontal or vertical separator bar.
+    class Separator < Widget
+      def self.tk_command; 'ttk::separator'; end
+      include TileWidget, Cget, Configure
+
+      # Specifies the orientation of the separator.
+      # horizontal or vertical
+      def orient(orientation = None)
+        if None == orientation
+          cget(:orient)
+        else
+          configure orient: orientation
+        end
+      end
+
+      def identify(x, y)
+        execute_only(:identify, x, y)
+      end
+    end
+  end
+end