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