Changeset 87b1c46 in tol for tolbase/lib/toltk/bysgraph.tcl

Timestamp:

Nov 15, 2016, 9:03:42 AM (10 years ago)

Author:

Pedro Gea <pgea@…>

Branches:

1941-docker-image-to-test, devel, master

Children:

4592f76

Parents:

06f7d3d

Message:

Refs #1933
Se sustituye BLT por RBC.
Se prescinde de otros widgets no usados, dependientes de BLT. (Véanse loadByswidget.tcl y pkgIndex.tcl)

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@7340 be4846ae-f051-483a-831f-b64e7d08527f

File:

• tolbase/lib/toltk/bysgraph.tcl (modified) (11 diffs)

tolbase/lib/toltk/bysgraph.tcl

@@ -16 +16 @@
   package require Tk
   package require BWidget
-  package require BLT  
+  package require RBC  
   Bitmap::use
   set toltk_script_path [file dirname [info script]]
@@ -37 +37 @@
 #   tmpOpt  -> temporary array used to store the widgets and variables of the
 #              options dialog. 
-#   instance -> asociative array of blt graph widget's path with the instance
+#   instance -> asociative array of rbc graph widget's path with the instance
 #              of bayesGraph.
 #
@@ -138 +138 @@
   set i 0
   foreach fr $panel {
-    set widgets(gr,$i) [blt::graph $fr.gr]
+    set widgets(gr,$i) [rbc::graph $fr.gr]
     set instance($fr.gr) $Instance
     pack $widgets(gr,$i) -fill both -expand yes
@@ -686 +686 @@
   proc ::bayesGraph::ZoomFrame { this } {
 #
-# PURPOSE: Sets zoom-frame mode for the blt graph
+# PURPOSE: Sets zoom-frame mode for the rbc graph
 #      
 # PARAMETERS:
@@ -699 +699 @@
   proc ::bayesGraph::ZoomIn { this } {
 #
-# PURPOSE: Sets zoom-in mode for the blt graph
+# PURPOSE: Sets zoom-in mode for the rbc graph
 #      
 # PARAMETERS:
@@ -713 +713 @@
   proc ::bayesGraph::ZoomOut { this } {
 #
-# PURPOSE: Sets zoom-out mode for the blt graph
+# PURPOSE: Sets zoom-out mode for the rbc graph
 #      
 # PARAMETERS:
@@ -727 +727 @@
   proc ::bayesGraph::ScrollView { this } {
 #
-# PURPOSE: Sets scroll mode for the blt graph
+# PURPOSE: Sets scroll mode for the rbc graph
 #      
 # PARAMETERS:
@@ -741 +741 @@
   proc ::bayesGraph::SetViewMode { this mode } {
 #
-# PURPOSE: Sets zoom (or scroll) mode for the blt graph. It also enables and
+# PURPOSE: Sets zoom (or scroll) mode for the rbc graph. It also enables and
 #          disables toolbar buttons and sets cursors types acording to the
 #          mode choosen.
@@ -747 +747 @@
 # PARAMETERS:
 #   this -> bayesgraph instance
-#   mode -> mode for the blt graph
+#   mode -> mode for the rbc graph
 #
 #/////////////////////////////////////////////////////////////////////////////
@@ -766 +766 @@
     set item $widgets(gr,$gr)
     $item configure -cursor $widgets(cursor,$active)
-    Blt_ViewMode $item $active
+    Rbc_ViewMode $item $active
   }
 
@@ -837 +837 @@
     for  {set i 0} {$i<$data(gr,numGraph)} {incr i 1} {
       set item $widgets(gr,$i)
-      blt::Crosshairs $item
+      rbc::Crosshairs $item
     }    
   } else {
     for  {set i 0} {$i<$data(gr,numGraph)} {incr i 1} {
       set item $widgets(gr,$i)
-      blt::ClearCrosshairs $item
+      rbc::ClearCrosshairs $item
     }
   }