File CGR101V114-settings.patch of Package syscomp-cgr

Overview Repositories Revisions Requests Users Attributes Meta

File CGR101V114-settings.patch of Package syscomp-cgr (Revision 68dc3240ca7d8d6959f6c57f096b8df8)

Currently displaying revision 68dc3240ca7d8d6959f6c57f096b8df8 , Show latest

--- CGR101V114/main.tcl.orig	2010-09-02 15:28:27.000000000 +0200
+++ CGR101V114/main.tcl	2010-09-07 23:09:52.000000000 +0200
@@ -178,6 +178,12 @@ menubutton .menubar.file	\
 	-text "File"		\
 	-menu .menubar.file.filemenu
 menu .menubar.file.filemenu -tearoff 0
+.menubar.file.filemenu add command 	\
+	-label "Load Settings" 		\
+	-command {settings::load}
+.menubar.file.filemenu add command 	\
+	-label "Save Settings" 		\
+	-command {settings::save}
 .menubar.file.filemenu add command	\
 	-label "Exit"	\
 	-command {destroy .}
@@ -363,6 +369,7 @@ source persist.tcl
 source math.tcl
 source updateCheck.tcl
 source wavemaker.tcl
+source settings.tcl
 
 # so that saved files are where the user expects them
 cd $saved_cwd	
--- CGR101V114/settings.tcl.orig	2010-09-07 23:10:33.000000000 +0200
+++ CGR101V114/settings.tcl	2010-09-07 23:10:33.000000000 +0200
@@ -0,0 +1,75 @@
+# settings.tcl
+#
+# Distribute under GPL version 2.
+#
+# 2010-09-07, jw@suse.de
+#
+
+package provide settings 1.0
+
+namespace eval settings {
+  global cfg_dir
+  set fn "$cfg_dir/settings.cfg"
+}
+
+proc settings::save {} {
+  global cfg_dir
+  puts "save $settings::fn ...\n"
+  set fd [open $settings::fn w]
+  puts $fd "# $scope::verticalValues"
+  puts $fd "set scope::verticalIndexA $scope::verticalIndexA"
+  puts $fd "set scope::verticalIndexB $scope::verticalIndexB"
+  puts $fd "set scope::enableB $scope::enableB"
+  puts $fd "set scope::enableA $scope::enableA"
+  puts $fd "set scope::invertB $scope::invertB"
+  puts $fd "set scope::invertA $scope::invertA"
+
+  puts $fd "# $scope::timebaseValues"
+  puts $fd "set scope::timebaseIndex $scope::timebaseIndex"
+  puts $fd "set scope::masterSampleRate $scope::masterSampleRate"
+  puts $fd "set scope::triggerMode \"$scope::triggerMode\""
+  puts $fd "set scope::triggerSlope \"$scope::triggerSlope\""
+  puts $fd "set scope::triggerSource \"$scope::triggerSource\""
+  puts $fd "set scope::triggerFilterDisable $scope::triggerFilterDisable"
+
+  puts $fd "cursor::markXStart timePosCursor $cursor::timePos"
+  puts $fd "cursor::markYStart trigLevelCursor $cursor::trigPos"
+
+  puts $fd "cursor::markYStart chAGnd $cursor::chAGndPos; cursor::moveChAGnd $cursor::chAGndPos"
+  puts $fd "cursor::markYStart chBGnd $cursor::chBGndPos; cursor::moveChBGnd $cursor::chBGndPos"
+
+  puts $fd "cursor::markXStart t1Cursor $cursor::t1Pos; cursor::moveTimeCursor t1Cursor $cursor::t1Pos"
+  puts $fd "cursor::markXStart t2Cursor $cursor::t2Pos; cursor::moveTimeCursor t2Cursor $cursor::t2Pos"
+
+  puts $fd "set cursor::timeCursorsEnable $cursor::timeCursorsEnable"
+  puts $fd "set cursor::chACursorEnable $cursor::chACursorEnable"
+  puts $fd "set cursor::chBCursorEnable $cursor::chBCursorEnable"
+
+  close $fd
+}
+
+proc settings::load {} {
+  global cfg_dir
+  puts "load $settings::fn ...\n"
+  if [catch { source $settings::fn } result ] {
+    puts "-------------------- load failed:  -----------------------"
+    puts $result
+  }
+  scope::adjustVertical all same
+  scope::adjustTimebase same
+  scope::selectTriggerMode	
+  #selectTriggerMode -> acquireWaveform -> updateScopeControlReg
+
+  set cursor::timeCursorsEnable [expr 1 - $cursor::timeCursorsEnable]
+  cursor::toggleTimeCursors
+
+  set cursor::chACursorEnable [expr 1 - $cursor::chACursorEnable]
+  cursor::toggleChACursor
+
+  set cursor::chBCursorEnable [expr 1 - $cursor::chBCursorEnable]
+  cursor::toggleChBCursor
+
+  cursor::measureVoltageCursors
+}
+
+

Places

File CGR101V114-settings.patch of Package syscomp-cgr (Revision 68dc3240ca7d8d6959f6c57f096b8df8)

Places