diff options
Diffstat (limited to 'GradeBook_lib.tcl')
| -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 |