foreach b $all_branches {
$m add radiobutton \
-label $b \
- -command [list do_switch_branch $b] \
+ -command [list switch_branch $b] \
-variable current_branch \
-value $b \
-font font_ui
}
}
+proc switch_branch {b} {
+ error "NOT IMPLEMENTED"
+}
+
######################################################################
##
## remote management