arcadia 0.1.1 → 0.1.2

data/tcl/BWidget-1.8.0/xpm2image.tcl

@@ -0,0 +1,115 @@
+# ----------------------------------------------------------------------------
+#  xpm2image.tcl
+#  Slightly modified xpm-to-image command
+#  $Id: xpm2image.tcl,v 1.5 2004/09/09 22:17:03 hobbs Exp $
+# ------------------------------------------------------------------------------
+#
+#  Copyright 1996 by Roger E. Critchlow Jr., San Francisco, California
+#  All rights reserved, fair use permitted, caveat emptor.
+#  rec@elf.org
+# 
+# ----------------------------------------------------------------------------
+
+proc xpm-to-image { file } {
+    set f [open $file]
+    set string [read $f]
+    close $f
+
+    #
+    # parse the strings in the xpm data
+    #
+    set xpm {}
+    foreach line [split $string "\n"] {
+        if {[regexp {^"([^\"]*)"} $line all meat]} {
+            if {[string first XPMEXT $meat] == 0} {
+                break
+            }
+            lappend xpm $meat
+        }
+    }
+    #
+    # extract the sizes in the xpm data
+    #
+    set sizes  [lindex $xpm 0]
+    set nsizes [llength $sizes]
+    if { $nsizes == 4 || $nsizes == 6 || $nsizes == 7 } {
+        set data(width)   [lindex $sizes 0]
+        set data(height)  [lindex $sizes 1]
+        set data(ncolors) [lindex $sizes 2]
+        set data(chars_per_pixel) [lindex $sizes 3]
+        set data(x_hotspot) 0
+        set data(y_hotspot) 0
+        if {[llength $sizes] >= 6} {
+            set data(x_hotspot) [lindex $sizes 4]
+            set data(y_hotspot) [lindex $sizes 5]
+        }
+    } else {
+	    error "size line {$sizes} in $file did not compute"
+    }
+
+    #
+    # extract the color definitions in the xpm data
+    #
+    foreach line [lrange $xpm 1 $data(ncolors)] {
+        set colors [split $line \t]
+        set cname  [lindex $colors 0]
+        lappend data(cnames) $cname
+        if { [string length $cname] != $data(chars_per_pixel) } {
+            error "color definition {$line} in file $file has a bad size color name"
+        }
+        foreach record [lrange $colors 1 end] {
+            set key [lindex $record 0]
+            set color [string tolower [join [lrange $record 1 end] { }]]
+            set data(color-$key-$cname) $color
+            if { [string equal -nocase $color "none"] } {
+                set data(transparent) $cname
+            }
+        }
+        foreach key {c g g4 m} {
+            if {[info exists data(color-$key-$cname)]} {
+                set color $data(color-$key-$cname)
+                set data(color-$cname) $color
+                set data(cname-$color) $cname
+                lappend data(colors) $color
+                break
+            }
+        }
+        if { ![info exists data(color-$cname)] } {
+            error "color definition {$line} in $file failed to define a color"
+        }
+    }
+
+    #
+    # extract the image data in the xpm data
+    #
+    set image [image create photo -width $data(width) -height $data(height)]
+    set y 0
+    foreach line [lrange $xpm [expr {1+$data(ncolors)}] [expr {1+$data(ncolors)+$data(height)}]] {
+        set x 0
+        set pixels {}
+        while { [string length $line] > 0 } {
+            set pixel [string range $line 0 [expr {$data(chars_per_pixel)-1}]]
+            set c $data(color-$pixel)
+            if { [string equal $c none] } {
+                if { [string length $pixels] } {
+                    $image put [list $pixels] -to [expr {$x-[llength $pixels]}] $y
+                    set pixels {}
+                }
+            } else {
+                lappend pixels $c
+            }
+            set line [string range $line $data(chars_per_pixel) end]
+            incr x
+        }
+        if { [llength $pixels] } {
+            $image put [list $pixels] -to [expr {$x-[llength $pixels]}] $y
+        }
+        incr y
+    }
+
+    #
+    # return the image
+    #
+    return $image
+}
+

metadata

@@ -3,8 +3,8 @@ rubygems_version: 0.8.11
 specification_version: 1
 name: arcadia
 version: !ruby/object:Gem::Version 
-  version: 0.1.1
-date: 2007-03-31 00:00:00 +02:00
+  version: 0.1.2
+date: 2007-05-08 00:00:00 +02:00
 summary: An Ide for Ruby application building with ruby-tk.
 require_paths: 
 - lib
@@ -35,16 +35,19 @@ files:
 - conf/arcadia.conf
 - conf/arcadia.init.rb
 - conf/arcadia.res.rb
+- ext/ae-inspector
 - ext/ae-shell
 - ext/ae-complete-code
 - ext/ae-palette
 - ext/ae-debug
-- ext/ae-inspector
 - ext/ae-editor
 - ext/ae-output
 - ext/ae-event-log
 - ext/ae-output-event
 - ext/ae-file-history
+- ext/ae-doc-code
+- ext/ae-inspector/ae-inspector.rb
+- ext/ae-inspector/ae-inspector.conf
 - ext/ae-shell/ae-shell.conf
 - ext/ae-shell/ae-shell.rb
 - ext/ae-complete-code/ae-complete-code.conf
@@ -54,8 +57,6 @@ files:
 - ext/ae-debug/ae-debug.rb
 - ext/ae-debug/debug1.57.rb
 - ext/ae-debug/ae-debug.conf
-- ext/ae-inspector/ae-inspector.rb
-- ext/ae-inspector/ae-inspector.conf
 - ext/ae-editor/ae-editor.rb
 - ext/ae-editor/ae-editor.conf
 - ext/ae-output/ae-output.rb
@@ -65,6 +66,8 @@ files:
 - ext/ae-output-event/ae-output-event.conf
 - ext/ae-file-history/ae-file-history.rb
 - ext/ae-file-history/ae-file-history.conf
+- ext/ae-doc-code/ae-doc-code.rb
+- ext/ae-doc-code/ae-doc-code.conf
 - lib/tk
 - lib/tkext
 - lib/tk/al-tk.rb
@@ -75,6 +78,139 @@ files:
 - lib/tkext/al-iwidgets.rb
 - lib/tkext/al-tile.rb
 - lib/tkext/al-tktable.rb
+- tcl/BWidget-1.8.0
+- tcl/BWidget-1.8.0/BWman
+- tcl/BWidget-1.8.0/demo
+- tcl/BWidget-1.8.0/images
+- tcl/BWidget-1.8.0/lang
+- tcl/BWidget-1.8.0/tests
+- tcl/BWidget-1.8.0/arrow.tcl
+- tcl/BWidget-1.8.0/bitmap.tcl
+- tcl/BWidget-1.8.0/button.tcl
+- tcl/BWidget-1.8.0/buttonbox.tcl
+- tcl/BWidget-1.8.0/color.tcl
+- tcl/BWidget-1.8.0/combobox.tcl
+- tcl/BWidget-1.8.0/dialog.tcl
+- tcl/BWidget-1.8.0/dragsite.tcl
+- tcl/BWidget-1.8.0/dropsite.tcl
+- tcl/BWidget-1.8.0/dynhelp.tcl
+- tcl/BWidget-1.8.0/entry.tcl
+- tcl/BWidget-1.8.0/font.tcl
+- tcl/BWidget-1.8.0/init.tcl
+- tcl/BWidget-1.8.0/label.tcl
+- tcl/BWidget-1.8.0/labelentry.tcl
+- tcl/BWidget-1.8.0/labelframe.tcl
+- tcl/BWidget-1.8.0/listbox.tcl
+- tcl/BWidget-1.8.0/mainframe.tcl
+- tcl/BWidget-1.8.0/messagedlg.tcl
+- tcl/BWidget-1.8.0/notebook.tcl
+- tcl/BWidget-1.8.0/pagesmgr.tcl
+- tcl/BWidget-1.8.0/panedw.tcl
+- tcl/BWidget-1.8.0/panelframe.tcl
+- tcl/BWidget-1.8.0/passwddlg.tcl
+- tcl/BWidget-1.8.0/pkgIndex.tcl
+- tcl/BWidget-1.8.0/progressbar.tcl
+- tcl/BWidget-1.8.0/progressdlg.tcl
+- tcl/BWidget-1.8.0/scrollframe.tcl
+- tcl/BWidget-1.8.0/scrollview.tcl
+- tcl/BWidget-1.8.0/scrollw.tcl
+- tcl/BWidget-1.8.0/separator.tcl
+- tcl/BWidget-1.8.0/spinbox.tcl
+- tcl/BWidget-1.8.0/statusbar.tcl
+- tcl/BWidget-1.8.0/titleframe.tcl
+- tcl/BWidget-1.8.0/tree.tcl
+- tcl/BWidget-1.8.0/utils.tcl
+- tcl/BWidget-1.8.0/wizard.tcl
+- tcl/BWidget-1.8.0/xpm2image.tcl
+- tcl/BWidget-1.8.0/widget.tcl
+- tcl/BWidget-1.8.0/CHANGES.txt
+- tcl/BWidget-1.8.0/ChangeLog
+- tcl/BWidget-1.8.0/LICENSE.txt
+- tcl/BWidget-1.8.0/README.txt
+- tcl/BWidget-1.8.0/BWman/options.htm
+- tcl/BWidget-1.8.0/BWman/BWidget.html
+- tcl/BWidget-1.8.0/BWman/Button.html
+- tcl/BWidget-1.8.0/BWman/ButtonBox.html
+- tcl/BWidget-1.8.0/BWman/ComboBox.html
+- tcl/BWidget-1.8.0/BWman/Dialog.html
+- tcl/BWidget-1.8.0/BWman/DragSite.html
+- tcl/BWidget-1.8.0/BWman/DropSite.html
+- tcl/BWidget-1.8.0/BWman/DynamicHelp.html
+- tcl/BWidget-1.8.0/BWman/Entry.html
+- tcl/BWidget-1.8.0/BWman/Label.html
+- tcl/BWidget-1.8.0/BWman/LabelEntry.html
+- tcl/BWidget-1.8.0/BWman/LabelFrame.html
+- tcl/BWidget-1.8.0/BWman/ListBox.html
+- tcl/BWidget-1.8.0/BWman/MainFrame.html
+- tcl/BWidget-1.8.0/BWman/MessageDlg.html
+- tcl/BWidget-1.8.0/BWman/NoteBook.html
+- tcl/BWidget-1.8.0/BWman/PagesManager.html
+- tcl/BWidget-1.8.0/BWman/PanedWindow.html
+- tcl/BWidget-1.8.0/BWman/PanelFrame.html
+- tcl/BWidget-1.8.0/BWman/PasswdDlg.html
+- tcl/BWidget-1.8.0/BWman/ProgressBar.html
+- tcl/BWidget-1.8.0/BWman/ProgressDlg.html
+- tcl/BWidget-1.8.0/BWman/ScrollView.html
+- tcl/BWidget-1.8.0/BWman/ScrollableFrame.html
+- tcl/BWidget-1.8.0/BWman/ScrolledWindow.html
+- tcl/BWidget-1.8.0/BWman/SelectColor.html
+- tcl/BWidget-1.8.0/BWman/SelectFont.html
+- tcl/BWidget-1.8.0/BWman/Separator.html
+- tcl/BWidget-1.8.0/BWman/SpinBox.html
+- tcl/BWidget-1.8.0/BWman/StatusBar.html
+- tcl/BWidget-1.8.0/BWman/TitleFrame.html
+- tcl/BWidget-1.8.0/BWman/Tree.html
+- tcl/BWidget-1.8.0/BWman/Widget.html
+- tcl/BWidget-1.8.0/BWman/contents.html
+- tcl/BWidget-1.8.0/BWman/index.html
+- tcl/BWidget-1.8.0/BWman/navtree.html
+- tcl/BWidget-1.8.0/BWman/ArrowButton.html
+- tcl/BWidget-1.8.0/demo/x1.xbm
+- tcl/BWidget-1.8.0/demo/bwidget.xbm
+- tcl/BWidget-1.8.0/demo/demo.tcl
+- tcl/BWidget-1.8.0/demo/dnd.tcl
+- tcl/BWidget-1.8.0/demo/manager.tcl
+- tcl/BWidget-1.8.0/demo/select.tcl
+- tcl/BWidget-1.8.0/demo/tmpldlg.tcl
+- tcl/BWidget-1.8.0/demo/tree.tcl
+- tcl/BWidget-1.8.0/demo/basic.tcl
+- tcl/BWidget-1.8.0/images/warning.gif
+- tcl/BWidget-1.8.0/images/copy.gif
+- tcl/BWidget-1.8.0/images/cut.gif
+- tcl/BWidget-1.8.0/images/dragfile.gif
+- tcl/BWidget-1.8.0/images/dragicon.gif
+- tcl/BWidget-1.8.0/images/error.gif
+- tcl/BWidget-1.8.0/images/file.gif
+- tcl/BWidget-1.8.0/images/folder.gif
+- tcl/BWidget-1.8.0/images/hourglass.gif
+- tcl/BWidget-1.8.0/images/info.gif
+- tcl/BWidget-1.8.0/images/italic.gif
+- tcl/BWidget-1.8.0/images/minus.xbm
+- tcl/BWidget-1.8.0/images/new.gif
+- tcl/BWidget-1.8.0/images/opcopy.xbm
+- tcl/BWidget-1.8.0/images/open.gif
+- tcl/BWidget-1.8.0/images/openfold.gif
+- tcl/BWidget-1.8.0/images/oplink.xbm
+- tcl/BWidget-1.8.0/images/opmove.xbm
+- tcl/BWidget-1.8.0/images/overstrike.gif
+- tcl/BWidget-1.8.0/images/palette.gif
+- tcl/BWidget-1.8.0/images/passwd.gif
+- tcl/BWidget-1.8.0/images/paste.gif
+- tcl/BWidget-1.8.0/images/plus.xbm
+- tcl/BWidget-1.8.0/images/print.gif
+- tcl/BWidget-1.8.0/images/question.gif
+- tcl/BWidget-1.8.0/images/redo.gif
+- tcl/BWidget-1.8.0/images/save.gif
+- tcl/BWidget-1.8.0/images/target.xbm
+- tcl/BWidget-1.8.0/images/underline.gif
+- tcl/BWidget-1.8.0/images/undo.gif
+- tcl/BWidget-1.8.0/images/bold.gif
+- tcl/BWidget-1.8.0/lang/da.rc
+- tcl/BWidget-1.8.0/lang/de.rc
+- tcl/BWidget-1.8.0/lang/en.rc
+- tcl/BWidget-1.8.0/lang/es.rc
+- tcl/BWidget-1.8.0/lang/fr.rc
+- tcl/BWidget-1.8.0/tests/entry.test
 - arcadia.rb
 - README
 test_files: []