Commit f382a783 authored by Ivica Bukvic's avatar Ivica Bukvic
Browse files

disabled zoom inside K12 mode

parent 85e7ed03
......@@ -2956,8 +2956,10 @@ proc pdtk_canvas_new {name width height geometry editable} {
bind $name.c <Button-5> "pdtk_canvas_scroll $name.c y +1"
bind $name.c <Shift-Button-4> "pdtk_canvas_scroll $name.c x -1"
bind $name.c <Shift-Button-5> "pdtk_canvas_scroll $name.c x +1"
bind $name.c <Control-Button-4> "pdtk_zoom $name 1"
bind $name.c <Control-Button-5> "pdtk_zoom $name -1"
if { $k12_mode == 0 } {
bind $name.c <Control-Button-4> "pdtk_zoom $name 1"
bind $name.c <Control-Button-5> "pdtk_zoom $name -1"
}
} default {
bind $name.c <MouseWheel> \
"pdtk_canvas_scroll $name.c y \[expr -abs(%D)/%D\]"
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment