luikore-cici 0.0.9

data/README.rdoc

@@ -0,0 +1,53 @@
+= Cici
+
+Mini Ruby text-based traditional GUI lib for Windows. (project just started)
+
+No other prepared libraries needed, that is -- No Qt, Gtk, Mfc ...
+
+Light and small with nice efficiency. 
+
+== Download
+
+Cici is packed with this ruby1.9.1.zip
+
+http://github.com/LuiKore/Cici/downloads
+
+== Example
+
+  require 'cici'
+  include Cici::View
+  view [100, 30] do
+    button('hello').onclick = -> this { alert 'world' }
+  end
+
+Find more in examples folder.
+
+== Document
+
+http://wiki.github.com/LuiKore/Cici
+
+== License (MIT)
+
+Copyright (c) 2009 Lui Kore
+    
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to
+deal in the Software without restriction, including without limitation the
+rights to use, copy, modify, merge, publish, distribute, sublicense, and/or
+sell copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+      
+The above copyright notice and this permission notice shall be included in
+all copies or substantial portions of the Software.
+       
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
+THE AUTHORS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER 
+IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
+CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+== My blog (中文)
+
+http://night-stalker.javaeye.com
+

data/lib/cici.rb

@@ -0,0 +1,7 @@
+libdir = File.dirname(__FILE__) + '/cici/'
+%w[ext.so support.rb misc.rb element_base.rb canvas.rb list.rb view.rb config.rb].each do |e|
+  require "#{libdir}#{e}"
+end
+
+Cici.scintilla_init(libdir + 'SciLexer.dll')
+require "#{libdir}scintilla.rb"

data/lib/cici/canvas.rb

@@ -0,0 +1,207 @@
+# Coding: utf-8
+module Cici
+  class Canvas
+    # downing: the biggest bottom position of current elements
+    # padding: space between horizontal elements
+    attr_reader :padding, :downing, :turtlex, :turtley, :children
+
+    # note that data_wrap_objects don't call initializer
+    def marginx= n 
+      @marginx = (n.to_i || @marginx)
+    end
+
+    def inspect
+      print 'Canvas: '
+      %w[@padding @downing @turtlex @turtley].map do |e|
+        "#{e}=#{self.instance_variable_get(e)}"
+      end.join ','
+    end
+
+    # ----------------------------------------------------------------
+    # fixed layout
+    module Fixed
+      private
+      def onresize
+      end
+
+      def onchildresize child
+      end
+
+      def onappend child, cx, cy
+        child.displace @turtlex, @turtley, cx, cy
+        child.instance_variable_set "@parent", self
+        @turtlex += cx + @padding
+        @downing = cy if @downing < cy
+        @children << child
+        self
+      end
+
+      public
+      def br space = 5 
+        @turtlex = @marginx
+        @turtley += (@downing + space)
+        @downing = 0
+      end
+    end
+
+    # ----------------------------------------------------------------
+    # flow layout
+    module Flow
+      private
+      def onresize
+      end
+
+      def onchildresize child
+        # when appending, this mark is set to false to avoid unecessary resize
+        return unless @do_onchildresize
+
+        @turtlex = @marginx
+        @turtley = 0
+        @downing = 0
+        to_append = @children.dup
+        @children = []
+        to_append.each do |c|
+          self.append c, *c.size
+        end
+        # self.invalidate_rect # FIXME doesn't work...
+      end
+
+      def onappend child, cx, cy
+        # set mark to avoid unecessary resize
+        @do_onchildresize = false 
+
+        # do a line break if width exceeds flow_width
+        fw = @flow_width || self.size[0]
+        if (@turtlex > @marginx) and (fw < (@turtlex + cx + @padding))
+          @turtlex = @marginx
+          @turtley += (@downing + 5)
+          @downing = 0
+        end
+
+        child.displace @turtlex, @turtley, cx, cy
+        child.instance_variable_set "@parent", self
+        @turtlex += cx + @padding
+        @downing = cy if @downing < cy
+        @children << child
+
+        # set mark back
+        @do_onchildresize = true
+      end
+
+      public
+      def flow_width= fw
+        @flow_width = fw.to_i
+        self.onchildresize nil
+        fw
+      end
+
+      attr_reader :flow_width
+    end # module Flow
+
+    # ----------------------------------------------------------------
+    # zoom layout
+    module Zoom
+      # FIXME when removing child ?
+      private
+      def onresize
+        if @percents
+          @turtlex = @marginx
+          @turtley = 0
+          @downing = 0
+          to_append = @children.dup
+          stored_percents = @percents.dup
+          @children = []
+          szx, szy = self.size
+          to_append.each_with_index do |c, i|
+            px, py = stored_percents[i]
+            self.append c, px*szx, py*szy
+          end
+        else
+          @percents = []
+        end
+      end
+
+      def onchildresize child
+      end
+
+      def onappend child, cx, cy
+        child.displace @turtlex, @turtley, cx, cy
+        child.instance_variable_set "@parent", self
+        @turtlex += cx + @padding
+        @downing = cy if @downing < cy
+        @children << child
+        @percents ||= []
+        szx, szy = self.size
+        @percents << [cx.to_f/szx, cy.to_f/szy]
+        self
+      end
+
+      public
+      def br space = 5 
+        @turtlex = @marginx
+        @turtley += (@downing + space)
+        @downing = 0
+      end      
+    end
+
+    # ----------------------------------------------------------------
+    # tab layout (or say, navigate / tabbook layout)
+    module Tab
+      private
+      def check_index idx
+        raise "index #{idx} out of range" if @pages.empty? or (not ((0...(@pages.size)).include? idx))
+      end
+
+      def new_label txt
+        idx = @labels.children.size
+        label = Button.create @labels, txt, 0
+        label.onclick = proc{
+          self.tab_index = idx 
+        }
+      end
+
+      # initialize some instance vars
+      def init
+        @tab_index = 0
+        @labels = Canvas.paint(self, 2000, 22, Flow) {}
+        @labels.displace 0, 0, 2000, 22
+        @labels.instance_variable_set "@padding", 1
+        @pages = []
+        @turtley = 22
+      end
+
+      def onresize
+      end
+
+      def onchildresize child
+      end
+
+      def onappend child, cx, cy
+      end
+
+      public
+      attr_reader :tab_index, :pages, :labels
+      def tab_index= idx
+        check_index idx
+        if idx != @tab_index
+          @pages[@tab_index].hide
+          @tab_index = idx
+          @pages[@tab_index].restore
+        end
+      end
+
+      def []= txt, page
+        init() unless @tab_index
+        new_label txt
+        if @pages[@tab_index]
+          @pages[@tab_index].hide
+        end
+        @pages << page
+        page.parent = self
+        page.pos = [0, 22]
+        @tab_index = @pages.size - 1
+      end
+    end
+
+  end # class Canvas
+end

data/lib/cici/config.rb

@@ -0,0 +1,44 @@
+# coding: utf-8
+module Cici
+  Config = Object.new
+
+  ANSI_CHARSET            = 0
+  DEFAULT_CHARSET         = 1
+  SYMBOL_CHARSET          = 2
+  SHIFTJIS_CHARSET        = 128
+  HANGEUL_CHARSET         = 129
+  HANGUL_CHARSET          = 129
+  GB2312_CHARSET          = 134
+  CHINESEBIG5_CHARSET     = 136
+
+  KEYMAP = {'LEFT'=>37,'UP'=>38,'RIGHT'=>39,'DOWN'=>40,
+        'PAGE UP'=>33,'PAGE DOWN'=>34,'END'=>35,'HOME'=>36,
+        '`'=>192,'-'=>189,'='=>187,'BACKSPACE'=>8,
+        '['=>219,']'=>221,'\\'=>220,
+        ';'=>186,'\''=>222,'ENTER'=>13,
+        ','=>188,'.'=>190,'/'=>191,
+        'F1'=>112,'F2'=>113,'F3'=>114,'F4'=>115,'F5'=>116,'F6'=>117,'F7'=>118,'F8'=>119,'F9'=>120,'F10'=>121,
+        'PRINT SCREEN'=>44,'PAUSE'=>19,'INSERT'=>45,'DELETE'=>46
+  }
+
+  class << Config
+  	@@config = {
+	    :default_font => Font['宋体', 12, '', GB2312_CHARSET],
+	    :external_font_paths => [],
+	  }
+
+	  def << hash
+	    @@config.each_key do |k|
+  		  next unless hash[k]
+	  	  @@config[k] = hash[k]
+	    end
+	    hash.each_key do |k|
+		    puts "warning: config[#{k}] takes no effect" if !@@config[k]
+	    end
+	  end
+
+	  def [] k
+	    @@config[k]
+	  end
+  end
+end

data/lib/cici/countlines.rb

@@ -0,0 +1,8 @@
+# Coding: utf-8
+sz = 0
+(Dir.new('.').entries - ['.','..']).each do |f|
+  if (f =~ /\.rb$/)
+    File.read(f).scan(/\n/){sz+=1} rescue 'do nothing'
+  end
+end
+puts sz

data/lib/cici/element_base.rb

@@ -0,0 +1,12 @@
+# Coding: utf-8
+module Cici
+  class ElementBase
+    def parent= p
+      @parent.children.delete self
+      self._parent = p
+      @parent = p
+      p.children << self
+    end
+    attr_reader :parent
+  end
+end

data/lib/cici/lexers/ruby

@@ -0,0 +1,64 @@
+# normal keywords
+set_keywords 0, "DATA __END__ __FILE__ __LINE__ alias and begin break case class def defined? do else elsif end ensure false for if in module next nil not or raise redo rescue retry return self super then true undef unless until when while yield"
+
+# indent keywords
+set_keywords 1, "def class module if unless begin do elsif else case while for when"
+
+# unindent keywords
+set_keywords 2, "end rescue ensure when"
+
+# line number
+style_set_color 33, nil, 0XC0C0C0
+
+#brace highlight
+style_set_color 34, 0X00009F, 0XFFFF80
+
+#brace incomplete highlight
+style_set_color 35, 0XFF0000, 0X000000
+
+#control chars
+style_set_color 36, 0X000000, nil
+
+#indent guides
+style_set_color 37, 0XC0C0C0, 0XFFFFFF
+
+# from scite
+{
+  0=>0X808080,
+  2=>0X007f00,
+  3=>0X004000,
+  4=>0X7f7f00,
+  5=>0X7f0000,
+  6=>0X7f007f,
+  7=>0X7f007f,
+  8=>0Xff0000,
+  9=>0X7f7f00,
+  12=>0X000000,
+  13=>0X800080,
+  14=>0X30a0c0,
+  15=>0Xa000a0,
+  16=>0X8000b0,
+  17=>0Xb00080,
+  18=>0X00ffff,
+  19=>0X000060,
+  20=>0X000000,
+  21=>0X7f007f,
+  22=>0X7f007f,
+  23=>0X7f007f,
+  24=>0X7f007f,
+  26=>0X00ffff,
+  27=>0X000000,
+  28=>0X000000,
+  34=>0Xff0000,
+  35=>0X0000ff
+}.each do |n, c|
+  style_set_color n, c, nil
+end
+
+@indent_pattern = /^\s*
+  (?:def|class|if|elsif|else|case|while|for)\b.*
+  |
+  .*(?:\bdo|\{)(?:\s*\|[^\|]*?\|)?
+  \s*$/x
+
+@unindent_pattern = %r"^\s*(?:end|\})\s*$"

data/lib/cici/list.rb

@@ -0,0 +1,22 @@
+# Coding: utf-8
+module Cici
+  module ListBase
+    def items= args
+      args.each do |e|
+        self.append e
+      end
+      @items = args
+    end
+    def items
+      @items
+    end
+  end
+
+  class ListBox
+    include ListBase
+  end
+
+  class DropList
+    include ListBase
+  end
+end

data/lib/cici/misc.rb

@@ -0,0 +1,33 @@
+# Coding: utf-8
+module Cici
+  # the menu part
+  class Menu
+    def build hash
+      hash.each do |key, val| # key.toString called in C
+        sz = self.size
+        if val.is_a? Proc
+          self.insert sz, key, val
+        elsif val.is_a? Hash
+          self.insert_menu sz, key, Menu.popup(@parent).build(val)
+        elsif val.nil?
+          self.insert_line sz
+        else
+          raise 'Menu item processor should be a proc or hash or nil(separate line)'
+        end
+      end
+      return self
+    end
+  end
+
+  class Canvas
+    def menu hash
+      Menu.sys(self).build(hash).draw
+    end
+  end
+
+  class ElementBase
+    def menu hash
+      self.menu = Menu.popup(@parent).build hash
+    end
+  end
+end

data/lib/cici/scintilla.rb

@@ -0,0 +1,45 @@
+module Cici
+  class Scintilla
+    def lexer= l
+      l.downcase!
+      self._lexer = l
+      eval File.read(File.dirname(__FILE__) + '\\lexers\\' + l)
+      l
+    end
+    alias lexer _lexer
+
+    # set all font to f
+    def font= f
+      33.times{ |i| style_set_font i, f }
+      @font = f
+    end
+    attr_reader :font
+
+    attr_accessor :onchar
+
+    # called when an indentation is needed
+    # lineno: current line number
+    def onindentneeded lineno
+      return nil unless (@indent_pattern and @unindent_pattern)
+      i = nil # indent
+
+      # fuck in prev line
+      prev = self[lineno - 1]
+      if (lineno > 1) and (prev =~ @unindent_pattern)
+        i = self.get_line_indent lineno - 2
+        prev_prev = self[lineno - 2]
+        unless prev_prev =~ @indent_pattern
+          i = i - self.indent
+        end
+        self.set_line_indent lineno - 1, i
+      end
+
+      # fuck out current line
+      i = self.get_line_indent lineno - 1
+      if prev =~ @indent_pattern
+        i += self.indent
+      end
+      self.set_line_indent lineno, i
+    end
+  end # class Scintilla
+end

data/lib/cici/support.rb

@@ -0,0 +1,69 @@
+# Coding: utf-8
+class Object
+  def toString
+    self.to_s.encode Encoding.default_external
+  end
+end
+
+class String
+  def toString
+    self.encode Encoding.default_external
+  end
+end
+
+# TODO not used yet
+class Fixnum
+  def percent
+    @percent = true
+  end
+end
+
+Size = Object.new
+def Size.[] x, y
+  [x, y]
+end
+Position = Size
+
+RGB = Object.new
+RGB.instance_variable_set "@mem", {}
+def RGB.[] r, g = nil, b = nil
+  res = @mem[[r, g, b]]
+  if res
+    res
+  else
+    @mem[[r, g, b]] =
+      (g and b) ?
+        ((b << 16) | (g << 8) | r) :
+        (((r & 0xff) << 16) | (r & 0xff00) | ((r & 0xff0000) >> 16))
+  end
+end
+
+Font = Object.new
+Font.instance_variable_set "@mem", {}
+def Font.[] face, sz, style = '', charset = 0 
+  if style.is_a? Fixnum
+    sz, style = style, sz
+  elsif not (sz.is_a? Fixnum)
+    raise 'the second or third param should be size'
+  end
+  res = @mem[[face, sz, style, charset]]
+  if res
+    res
+  else
+    @mem[[face, sz, style, charset]] =
+      Cici::FontClass.create face.toString,
+      sz, (style ? style.downcase : ''), charset
+  end
+end
+
+Stroke = Object.new
+class << Stroke
+  Styles = { solid:0, dash:1, dot:2, dashdot:3, dashdotdot:4, insideframe:5 }
+  def [] color, opts = {}
+    # example ---   solid: 5
+    raise 'option should be like :solid => 5' unless opts.first
+    style = Styles[opts.first[0]]
+    thick = opts.first[1]
+    Cici::StrokeClass.create style, thick.to_i, color.to_i
+  end
+end

data/lib/cici/view.rb

@@ -0,0 +1,130 @@
+# coding: utf-8
+module Cici
+  module View
+    def choose_file filter = nil
+      arg = "All (*.*)\0*.*\0"
+      if filter.is_a? Hash
+        arg = filter.map do |(k, v)|
+          "#{k} (#{v})\0#{v}\0"
+        end.join
+      end
+      Cici.choose_file "#{arg}\0"
+    end
+
+    def save_file filter = nil
+      arg = "All (*.*)\0*.*\0"
+      if filter.is_a? Hash
+        arg = filter.map do |(k, v)|
+          "#{k} (#{v})\0#{v}\0"
+        end.join
+      end
+      Cici.save_file "#{arg}\0"
+    end
+
+    def popup_menu hash
+      Menu.popup(Canvas.current).build hash
+    end
+
+    def button txt, sz=nil, &block
+      b = Button.create nil, txt.toString, 0
+      b.onclick = block if block
+      b.size = sz if sz.is_a? Array
+      b
+    end
+
+    # BS_AUTOCHECKBOX
+    def checkbox &block
+      b = Button.create nil, '', 3
+      b.onclick = block if block
+      b
+    end
+
+    # BS_AUTORADIOBUTTON
+=begin
+  def radio txt, sz=nil, &block
+    b = Button.create nil, txt.toString, 9
+    b.onclick = block if block
+    b.size = sz if sz.is_a? Array
+    b
+  end
+=end
+
+    def text txt, font = nil
+      font = nil unless font.is_a? FontClass
+      Text.create nil, txt.toString, font
+    end
+
+    def image path, sz = nil
+      x, y = nil, nil
+      if sz.is_a? Array
+        x, y = *sz
+      end
+      Image.create nil, path, x, y
+    end
+
+    def edit sz = nil
+      sz = [200, 28] unless (sz.is_a? Array)
+      Edit.create nil, sz[0], sz[1], nil
+    end
+
+    def listbox sz
+      ListBox.create(nil, sz[0].to_i, sz[1].to_i)
+    end
+
+    def droplist sz = nil
+      sz = [200, 28] unless (sz.is_a? Array)
+      DropList.create(nil, sz[0].to_i, sz[1].to_i)
+    end
+
+    # new canvas
+    def paint sz, opts = {}, &block
+      mod = {
+        flow: Canvas::Flow,
+        zoom: Canvas::Zoom,
+        tab:  Canvas::Tab
+      }[opts[:layout]]
+      mod ||= Canvas::Fixed  # default
+      Canvas.paint nil, sz[0], sz[1], mod, &block
+    end
+
+    def scintilla sz
+      Scintilla.create nil, sz[0], sz[1]
+    end
+
+    # main
+    def view sz = nil, opts = {}, &block
+      Config[:external_font_paths].each do |p|
+        Cici.load_external_font p
+      end
+      raise 'Config[:default_font] should be a Font' unless Config[:default_font].is_a? Cici::FontClass
+      Cici.set_default_font Config[:default_font]
+
+      Cici.app (opts[:title] || 'Cici') do
+        paint sz, opts, &block
+      end
+    end
+
+    def br space = 5
+      Canvas.current.br space
+    end
+
+    def keymap char, *mods, &block
+      modnum = 0
+      mods.each do |mod|
+        modnum |= 1 if mod == :shift
+        modnum |= 2 if mod == :ctrl
+        modnum |= 4 if mod == :alt
+      end
+      charnum = nil
+      if char.is_a? Fixnum
+        charnum = char.to_i
+      else
+        charnum = Cici::KEYMAP[char]
+        charnum ||= char.upcase.ord
+      end
+      raise 'char not valid' unless charnum
+      Cici.register_key charnum, modnum, block
+    end
+
+  end
+end

metadata

@@ -0,0 +1,70 @@
+--- !ruby/object:Gem::Specification 
+name: luikore-cici
+version: !ruby/object:Gem::Version 
+  version: 0.0.9
+platform: ruby
+authors: 
+- luikore
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2009-05-16 00:00:00 -07:00
+default_executable: 
+dependencies: []
+
+description: 
+email: usurffx@gmail.com
+executables: []
+
+extensions: []
+
+extra_rdoc_files: 
+- README.rdoc
+files: 
+- README.rdoc
+- lib
+- lib/cici
+- lib/cici/canvas.rb
+- lib/cici/config.rb
+- lib/cici/countlines.rb
+- lib/cici/element_base.rb
+- lib/cici/ext.so
+- lib/cici/lexers
+- lib/cici/lexers/ruby
+- lib/cici/list.rb
+- lib/cici/misc.rb
+- lib/cici/SciLexer.dll
+- lib/cici/scintilla.rb
+- lib/cici/support.rb
+- lib/cici/view.rb
+- lib/cici.rb
+has_rdoc: false
+homepage: http://wiki.github.com/luikore/cici
+licenses: 
+post_install_message: 
+rdoc_options: []
+
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: 1.9.1
+  version: 
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.3.5
+signing_key: 
+specification_version: 2
+summary: Mini Ruby GUI for Windows
+test_files: []
+