public
Rubygem
Description: High-level game framework based on rubygame
Homepage:
Clone URL: git://github.com/singpolyma/xgame.git
trying to highlight
singpolyma (author)
Sun Jan 04 10:49:50 -0800 2009
commit  859da8947d9ebdadd4df9e6a5e5de66ab81e1171
tree    27909d961a29f526dec27789dab49015ca7c6c97
parent  c1ecb9bbae9346643ea0efe2a0d65bf5d148a0b0
...
3
4
5
6
 
7
8
9
...
35
36
37
38
39
40
41
 
 
 
 
 
 
42
43
44
...
3
4
5
 
6
7
8
9
...
35
36
37
 
 
 
 
38
39
40
41
42
43
44
45
46
0
@@ -3,7 +3,7 @@ catch {package require tile}
0
 if [catch {ttk::setTheme tilegtk}] {
0
   catch {ttk::setTheme tileqt}
0
 }
0
-catch {namespace import -force ttk::*}
0
+#catch {namespace import -force ttk::*}
0
 source scrollable.tcl
0
 
0
 # Get the main scrollable canvas
0
@@ -35,10 +35,12 @@ set pkgs [split [exec search/search ""] "\n"]
0
 set i 0
0
 foreach {item} $pkgs {
0
   regexp {^(.)\s+(.+?)\s+(.+?)\s+(.+)$} $item matches status name version desc
0
-  set cb [checkbutton ${canvas}.frame.check$i]
0
-  set icon [canvas $canvas.frame.icon$i -height 24 -width 24 -background blue]
0
-  set name [label ${canvas}.frame.desc$i -text $name]
0
-  set desc [label ${canvas}.frame.longer$i -text $desc]
0
+  frame ${canvas}.frame.row$i -highlightbackground "#abc" -highlightthickness 2 -background blue
0
+  pack ${canvas}.frame.row$i -side top -fill x
0
+  set cb [checkbutton ${canvas}.frame.row$i.check]
0
+  set icon [canvas $canvas.frame.row$i.icon -height 24 -width 24 -background blue]
0
+  set name [label ${canvas}.frame.row$i.desc -text $name]
0
+  set desc [label ${canvas}.frame.row$i.longer -text $desc]
0
   # Invoke may be ttk only... may need to catch that
0
   if {$status == "U" || $status == "I"} {$cb invoke}
0
   grid $cb -column 0 -rowspan 2 -padx 5 -row $i

Comments