/usr/share/oce-0.18/src/DrawResources/Move.tcl is in oce-draw 0.18.2-2build1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 | # Copyright (c) 1999-2014 OPEN CASCADE SAS
#
# This file is part of Open CASCADE Technology software library.
#
# This library is free software; you can redistribute it and/or modify it under
# the terms of the GNU Lesser General Public License version 2.1 as published
# by the Free Software Foundation, with special exception defined in the file
# OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
# distribution for complete text of the license and disclaimer of any warranty.
#
# Alternatively, this file may be used under the terms of Open CASCADE
# commercial license or contractual agreement.
#
# 02/02/1996 : pbo : creation
# 25/10/1996 : pbo : add 2d view
#
# rotation/panning/zoom with buttons
#
frame .move -relief groove -borderwidth 1
pack .move -pady 1 -padx 1 -anchor w -side left
#toplevel .move
frame .move.rotate -borderwidth 1
label .move.rotate.title -text " Rotation "
button .move.rotate.l -text " < " -command {l ; repaint}
button .move.rotate.r -text " > " -command {r ; repaint}
button .move.rotate.u -text " ^ " -command {u ; repaint}
button .move.rotate.d -text " v " -command {d ; repaint}
pack .move.rotate.title -side top
pack .move.rotate.l -side left
pack .move.rotate.r -side right
pack .move.rotate.u -side top
pack .move.rotate.d -side bottom
pack .move.rotate
frame .move.panning -borderwidth 1
label .move.panning.title -text " Panning "
button .move.panning.l -text " < " -command {pl ; 2dpl ; repaint}
button .move.panning.r -text " > " -command {pr ; 2dpr ; repaint}
button .move.panning.u -text " ^ " -command {pu ; 2dpu ; repaint}
button .move.panning.d -text " v " -command {pd ; 2dpd ; repaint}
pack .move.panning.title -side top
pack .move.panning.l -side left
pack .move.panning.r -side right
pack .move.panning.u -side top
pack .move.panning.d -side bottom
pack .move.panning
frame .move.zoom -borderwidth 1
label .move.zoom.title -text " Zoom "
button .move.zoom.mu -text " + " -command {mu ; 2dmu ; repaint}
button .move.zoom.md -text " - " -command {md ; 2dmd ; repaint}
button .move.zoom.fit -text "max" -command {fit ; 2dfit; repaint}
button .move.zoom.w -text "win" -command {wzoom ; repaint}
pack .move.zoom.title -side top
pack .move.zoom.w -side left
pack .move.zoom.fit -side right
pack .move.zoom.mu -side top
pack .move.zoom.md -side bottom
pack .move.zoom
|