From 5985fbb95af6ab7366eefbda8c6fc74fc155ad16 Mon Sep 17 00:00:00 2001
From: psteinhoff <psteinhoff@eonerc.rwth-aachen.de>
Date: Thu, 15 May 2014 09:50:28 +0200
Subject: [PATCH 1/2] added scrollbars to tcl-window in calibration-parameters

---
 3dptv_vc2010/3dptv_vc2010.suo                 | Bin 20992 -> 21504 bytes
 .../3dptv_vc2010/3dptv_vc2010.vcxproj.user    |   4 ++--
 ptv.tcl                                       |   2 +-
 src_tcl/calpar.tcl                            |  22 +++++++++++++++---
 4 files changed, 22 insertions(+), 6 deletions(-)

diff --git a/3dptv_vc2010/3dptv_vc2010.suo b/3dptv_vc2010/3dptv_vc2010.suo
index 2d8c44ce3e51565ffe961370c799f84e4b8a9184..593665c875f683e948eb2f72fd4f5f947781ea00 100644
GIT binary patch
delta 210
zcmZoz!q~8aaYF|aqsHV;HtEevm`*UVD;&RfL!jXN=3<s!W`VoA7u?yl?UUbHN8`6m
z5*PC)9~3m$?7+do%woX6z%coszs}|o?llIioj_jK<cT)cn-gpnFpFflFjz6fF!(bR
zFr+f%F$6G#FoaG1F5#>a1mq_&q%imbX+4G#h6*6=GuvH|@_klePm7PBa_14V$rtrR
yCNJ<--n_}dPjHf(5~Jm0MHbn~2lz}_JAl^oPZkXHo_ya-X|h6K915MlAq4<`wntC^

delta 113
zcmZoz!Pu~baYF}_;J^R>|En-CFsK5t8W5{bo@kT2F@c3~5=#y{L*H`s&^Ko{7qj#-
z3k16Du=f+~aoSM-;Hv&auQQVm@)~S*;9y~%d_>M*a|!nvgUK^&95yG|EMT7e(#wj4
Roxx@0WPk6H&6^zj1OfYTDK-EA

diff --git a/3dptv_vc2010/3dptv_vc2010/3dptv_vc2010.vcxproj.user b/3dptv_vc2010/3dptv_vc2010/3dptv_vc2010.vcxproj.user
index fe50502..944054f 100644
--- a/3dptv_vc2010/3dptv_vc2010/3dptv_vc2010.vcxproj.user
+++ b/3dptv_vc2010/3dptv_vc2010/3dptv_vc2010.vcxproj.user
@@ -1,9 +1,9 @@
 <?xml version="1.0" encoding="utf-8"?>
 <Project ToolsVersion="4.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
   <PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">
-    <LocalDebuggerCommandArguments>c:\ptv\ptv.tcl</LocalDebuggerCommandArguments>
+    <LocalDebuggerCommandArguments>D:\OpenPTV\3dptv\ptv.tcl</LocalDebuggerCommandArguments>
     <DebuggerFlavor>WindowsLocalDebugger</DebuggerFlavor>
-    <LocalDebuggerWorkingDirectory>c:\ptv\test</LocalDebuggerWorkingDirectory>
+    <LocalDebuggerWorkingDirectory>D:\OpenPTV\3dptv\test</LocalDebuggerWorkingDirectory>
   </PropertyGroup>
   <PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">
     <LocalDebuggerCommandArguments>c:\ptv\ptv.tcl</LocalDebuggerCommandArguments>
diff --git a/ptv.tcl b/ptv.tcl
index f2e92d1..df2293c 100644
--- a/ptv.tcl
+++ b/ptv.tcl
@@ -1,4 +1,4 @@
-
+package require BWidget
 package require tooltip
 
 lappend auto_path [file dirname [info script]]
diff --git a/src_tcl/calpar.tcl b/src_tcl/calpar.tcl
index db92a50..72800dc 100644
--- a/src_tcl/calpar.tcl
+++ b/src_tcl/calpar.tcl
@@ -2,10 +2,26 @@
 ########################################
 
 proc calpar { } {
-set w .changecalib
+set p .changecalib
 catch {destroy $w}
-toplevel .changecalib
-wm title $w "Changing Parameters"
+catch {destroy $p}
+# Create new Window & adjustment of initial size and position
+toplevel $p
+wm title $p "Changing Parameters"
+wm geometry $p 550x550+150+150
+
+
+# Editet by: P.Steinhoff 24.01.2012
+# Put everything in a ScrolledWindow, bwidget1.9.4 (included in TCL 8.4.19) is required in folder: ..svn-ptv/lib/!!
+set sw [ScrolledWindow $p.sw]
+pack $p.sw -fill both -expand true
+
+set sf [ScrollableFrame $p.sw.sf]
+
+$p.sw setwidget $sf
+#
+set q [$sf getframe]
+set w $q
 
 global cp
 

From 31f6acfdda1d8101481cb59ebd5909b4b7e4de25 Mon Sep 17 00:00:00 2001
From: psteinhoff <psteinhoff@eonerc.rwth-aachen.de>
Date: Thu, 15 May 2014 09:54:13 +0200
Subject: [PATCH 2/2] added scrollbars in tcl-GUI for main-parameters and
 tracking-parameters if necessary

---
 src_tcl/mainpar.tcl  | 28 +++++++++++++++++++++++-----
 src_tcl/trackpar.tcl | 23 +++++++++++++++++++----
 2 files changed, 42 insertions(+), 9 deletions(-)

diff --git a/src_tcl/mainpar.tcl b/src_tcl/mainpar.tcl
index 2644a41..df78de2 100644
--- a/src_tcl/mainpar.tcl
+++ b/src_tcl/mainpar.tcl
@@ -2,12 +2,30 @@
 # Changing of mainparameters
 
 proc mainpar {} {
-
-set w .changemain
+set p .changemain
 catch {destroy $w}
-toplevel .changemain
-wm title $w "Changing Parameters"
-
+catch {destroy $p}
+# Create new Window & adjustment of initial size and position
+toplevel $p
+wm title $p "Changing Parameters"
+wm geometry $p 550x650+150+150
+
+
+# Editet by: P.Steinhoff 24.01.2012
+# Put everything in a ScrolledWindow, bwidget1.9.4 (included in TCL 8.4.19) is required
+set sw [ScrolledWindow $p.sw]
+pack $p.sw -fill both -expand true
+
+set sf [ScrollableFrame $p.sw.sf]
+
+$p.sw setwidget $sf
+#
+set q [$sf getframe]
+set w $q
+# Panning via right mouse button: (does not work at the moment)
+#	bind .changemain <ButtonPress-3> {%W scan mark   %x %y}
+#   bind .changemain <B3-Motion>     {%W scan dragto %x %y}
+#
 global mp
 
 label $w.title -text "Main Parameters" -font {Helvetica 12 bold} -width 20 -anchor center
diff --git a/src_tcl/trackpar.tcl b/src_tcl/trackpar.tcl
index ee3b12f..33197fb 100644
--- a/src_tcl/trackpar.tcl
+++ b/src_tcl/trackpar.tcl
@@ -2,11 +2,26 @@
 ########################################
 
 proc trackpar { } {
-set w .changetrack
+set p .changetrack
 catch {destroy $w}
-toplevel .changetrack
-wm title $w "Changing Parameters"
-
+catch {destroy $p}
+# Create new Window & adjustment of initial size and position
+toplevel $p
+wm title $p "Changing Parameters"
+wm geometry $p 550x550+150+150
+
+# Editet by: P.Steinhoff 24.01.2012
+# Put everything in a ScrolledWindow, bwidget1.9.4 (included in TCL 8.4.19) is required!!
+set sw [ScrolledWindow $p.sw]
+pack $p.sw -fill both -expand true
+
+set sf [ScrollableFrame $p.sw.sf]
+
+$p.sw setwidget $sf
+#
+set q [$sf getframe]
+set w $q
+#
 global tp
 
 label $w.title -text "Tracking Parameters"  -font {Helvetica 12 bold} -width 50 -anchor center