Changeset 168 for trunk/MultiChannelUSB

Timestamp:

Oct 12, 2012, 3:41:14 PM (12 years ago)

Author:

demin

Message:

add "Read file" button to histogram and counter views

File:

• trunk/MultiChannelUSB/UserInterface.tcl (modified) (8 diffs)

trunk/MultiChannelUSB/UserInterface.tcl

@@ -7 +7 @@
 package require zlib
 
-wm minsize . 990 660
+wm minsize . 990 680
 
 namespace eval ::mca {
@@ -513 +513 @@
         frame ${config}.spc6 -width 170 -height 30
 
-
         button ${config}.register -text Register \
             -bg lightblue -activebackground lightblue -command [myproc register]
+
+        frame ${config}.spc7 -width 170 -height 30
+
+        button ${config}.recover -text {Read file} \
+            -bg lightblue -activebackground lightblue -command [myproc recover]
 
         grid ${config}.axis_check -sticky w
@@ -533 +537 @@
         grid ${config}.spc6
         grid ${config}.register -sticky ew -pady 3 -padx 5
+        grid ${config}.spc7
+        grid ${config}.recover -sticky ew -pady 3 -padx 5
 
         grid ${graph} -row 0 -column 0 -sticky news
@@ -871 +877 @@
 # -------------------------------------------------------------------------
 
+    HstDisplay instproc open_data {} {
+        set types {
+            {{Data Files}       {.dat}     }
+            {{All Files}        *             }
+        }
+
+        set fname [tk_getOpenFile -filetypes $types]
+        if {[string equal $fname {}]} {
+            return
+        }
+
+        set x [catch {
+            set fid [open $fname r+]
+            fconfigure $fid -translation binary -encoding binary
+            [myvar yvec] set [split [read $fid] \n]
+            close $fid
+        }]
+
+        if { $x || ![file exists $fname] || ![file isfile $fname] || ![file readable $fname] } {
+            tk_messageBox -icon error \
+                -message "An error occurred while reading \"$fname\""
+        } else {
+            tk_messageBox -icon info \
+                -message "File \"$fname\" read successfully"
+        }
+    }
+
+# -------------------------------------------------------------------------
+
     HstDisplay instproc register {} {
         my save_data [join [[myvar yvec] range 0 4095] \n]
+    }
+
+# -------------------------------------------------------------------------
+
+    HstDisplay instproc recover {} {
+        my open_data
     }
 
@@ -1001 +1042 @@
         button ${config}.register -text Register \
             -bg lightblue -activebackground lightblue -command [myproc register]
+
+        frame ${config}.spc8 -width 170 -height 30
+
+        button ${config}.recover -text {Read file} \
+            -bg lightblue -activebackground lightblue -command [myproc recover]
 
         grid ${config}.axis_check -sticky w
@@ -1019 +1065 @@
         grid ${config}.spc7
         grid ${config}.register -sticky ew -pady 3 -padx 5
+        grid ${config}.spc8
+        grid ${config}.recover -sticky ew -pady 3 -padx 5
 
         grid ${graph} -row 0 -column 0 -sticky news
@@ -1331 +1379 @@
 # -------------------------------------------------------------------------
 
+    CntDisplay instproc open_data {} {
+        set types {
+            {{Data Files}       {.dat}     }
+            {{All Files}        *             }
+        }
+
+        set fname [tk_getOpenFile -filetypes $types]
+        if {[string equal $fname {}]} {
+            return
+        }
+
+        set x [catch {
+            set fid [open $fname r+]
+            fconfigure $fid -translation binary -encoding binary
+            [myvar yvec] set [split [read $fid] \n]
+            close $fid
+        }]
+
+        if { $x || ![file exists $fname] || ![file isfile $fname] || ![file readable $fname] } {
+            tk_messageBox -icon error \
+                -message "An error occurred while reading \"$fname\""
+        } else {
+            tk_messageBox -icon info \
+                -message "File \"$fname\" read successfully"
+        }
+    }
+
+# -------------------------------------------------------------------------
+
     CntDisplay instproc register {} {
         my save_data [join [[myvar yvec] range 0 9999] \n]
+    }
+
+# -------------------------------------------------------------------------
+
+    CntDisplay instproc recover {} {
+        my open_data
     }
 
@@ -1464 +1547 @@
             -bg yellow -activebackground yellow
 
-        frame ${config}.spc6 -width 170 -height 10
+        frame ${config}.spc6 -width 170 -height 30
 
         button ${config}.recover -text {Read file} \