diff options
author | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-04-21 22:25:25 -0400 |
---|---|---|
committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-04-21 22:25:25 -0400 |
commit | 23a959a2b262749f64d957ea424612b736dc18b1 (patch) | |
tree | 1da27dd299ddf22e14cbe0181a68795a7b76329b | |
parent | 032d52333ca6c3c3df432718d5dcc5fbc346793c (diff) | |
download | GradeBook-23a959a2b262749f64d957ea424612b736dc18b1.tar.gz GradeBook-23a959a2b262749f64d957ea424612b736dc18b1.zip |
added actual icions instead of to be done icon
Ignore-this: e5d3615016332db82d3115bb827bdc2
darcs-hash:20110422022525-067c0-28b3a0bc67d1c6d88142d583108b46318fb52434.gz
-rwxr-xr-x | GradeBook_lib.tcl | 16 |
1 files changed, 7 insertions, 9 deletions
diff --git a/GradeBook_lib.tcl b/GradeBook_lib.tcl index a30b7d3..c4e0128 100755 --- a/GradeBook_lib.tcl +++ b/GradeBook_lib.tcl @@ -606,16 +606,14 @@ proc action2atributes { action_name } { global icon_dir case $action_name { userhidecolumn { set attrib [list $action_name "hide" $icon_dir/hide.png ]} - changefirstname { set attrib [list $action_name "change first name" $icon_dir/tbd.png ]} - changelastname { set attrib [list $action_name "change last name" $icon_dir/tbd.png ]} - changeusername { set attrib [list $action_name "change user name" $icon_dir/tbd.png ]} - hidecolfromstudents { set attrib [list $action_name "hide from students" $icon_dir/students_hide.png ]} - unhidecolfromstudents { set attrib [list $action_name "show to students" $icon_dir/students_unhide.png ]} - changegrades { set attrib [list $action_name "change grades" $icon_dir/tbd.png ]} + changefirstname { set attrib [list $action_name "change first name" $icon_dir/edit.png ]} + changelastname { set attrib [list $action_name "change last name" $icon_dir/edit.png ]} + changeusername { set attrib [list $action_name "change user name" $icon_dir/edit.png ]} + hidecolfromstudents { set attrib [list $action_name "hide from students" $icon_dir/students_unhide.png ]} + unhidecolfromstudents { set attrib [list $action_name "show to students" $icon_dir/students_hide.png ]} + changegrades { set attrib [list $action_name "change grades" $icon_dir/edit.png ]} deletecolumn { set attrib [list $action_name "delete" $icon_dir/delete_column.png ]} - changecolumn { set attrib [list $action_name "change column" $icon_dir/tbd.png ]} - hidecolfromstudents { set attrib [list $action_name "hide from students" $icon_dir/tbd.png ]} - unhidecolfromstudents { set attrib [list $action_name "show to students" $icon_dir/tbd.png ]} + changecolumn { set attrib [list $action_name "change column" $icon_dir/tune.png ]} default { set attrib [list $action_name "unknown" $icon_dir/tbd.png ]} } return $attrib |