Changeset c61d3f9 in tol for tolbase/lib/toltk


Ignore:
Timestamp:
Jan 26, 2009, 10:15:38 AM (18 years ago)
Author:
Jorge Pérez <josp.jorge@…>
Branches:
1941-docker-image-to-test, devel, master
Children:
a64730a
Parents:
1286a3a
Message:

holdon in TclChartMatrix, TclChartSet

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

Location:
tolbase/lib/toltk
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • tolbase/lib/toltk/bysgropt.tcl

    r1286a3a rc61d3f9  
    1313
    1414#/////////////////////////////////////////////////////////////////////////////
    15   proc ::bayesGraph::ReadIni {this} {
     15proc ::bayesGraph::ReadIni {this {holdon 0}} {
    1616# PURPOSE: Reads general graph options from .ini file. The ini file is the
    1717#          active graphic configuration file.
    … …  
    2828 
    2929  #set rini ::iniFile::Read
    30   set rini ::iniFile::ReadGCF
    31   set key $data(namespace)
    32 
    33   set opt(PhotoLastDir)    [$rini $key PhotoLastDir {}]
    34   set opt(grid) [$rini $key grid 1]
     30  if {!$holdon} {
     31    set rini ::iniFile::ReadGCF
     32    set key $data(namespace)
     33
     34    set opt(PhotoLastDir)    [$rini $key PhotoLastDir {}]
     35    set opt(grid) [$rini $key grid 1]
     36  }
    3537  for  {set gr 0} {$gr<$data(gr,numGraph)} {incr gr} {
    3638    set g $widgets(gr,$gr)
    3739
    38     set opt(gr,$gr,yFormatNumber)   [$rini $key yFormatNumber  ""]
    39     set opt(gr,$gr,y2FormatNumber)  [$rini $key y2FormatNumber ""]
    40     set opt(gr,$gr,yFormatPercent)  [$rini $key yFormatPercent  0]
    41     set opt(gr,$gr,y2FormatPercent) [$rini $key y2FormatPercent 0]
    42     set opt(gr,$gr,xFormatNumber)   [$rini $key xFormatNumber  ""]
    43     set opt(gr,$gr,x2FormatNumber)  [$rini $key x2FormatNumber ""]
    44     set opt(gr,$gr,xFormatPercent)  [$rini $key xFormatPercent  0]
    45     set opt(gr,$gr,x2FormatPercent) [$rini $key x2FormatPercent 0]
    46 
    47     set opt(gr,$gr,yAxisAll)      [$rini $key yAxisAll  1]
    48     set opt(gr,$gr,xAxisAll)      [$rini $key xAxisAll  1]
    49     set opt(gr,$gr,x2AxisAll)     [$rini $key x2AxisAll 1]
    50     set opt(gr,$gr,y2AxisAll)     [$rini $key y2AxisAll 1]
    51 
    52     set opt(gr,$gr,xTicksWidth)   [$rini $key xTicksWidth 1]
    53     set opt(gr,$gr,yTicksWidth)   [$rini $key yTicksWidth 1]
    54     set opt(gr,$gr,xTicksShow)    [$rini $key xTicksShow  1]
    55     set opt(gr,$gr,yTicksShow)    [$rini $key yTicksShow  1]
    56     set opt(gr,$gr,xTicksType)    [$rini $key xTicksType  auto]
    57     set opt(gr,$gr,yTicksType)    [$rini $key yTicksType  total]
    58     set opt(gr,$gr,x2TicksType)   [$rini $key x2TicksType auto]
    59     set opt(gr,$gr,y2TicksType)   [$rini $key y2TicksType total]
    60 
    61     set opt(gr,$gr,xTicksTotal)   [$rini $key xTicksTotal 10]
    62     set opt(gr,$gr,yTicksTotal)   [$rini $key yTicksTotal 10]
    63     set opt(gr,$gr,x2TicksTotal)  [$rini $key x2TicksTotal 10]
    64     set opt(gr,$gr,y2TicksTotal)  [$rini $key y2TicksTotal 10]
    65 
    66     set opt(gr,$gr,xTicksStep)    [$rini $key xTicksStep  0]
    67     set opt(gr,$gr,yTicksStep)    [$rini $key yTicksStep  0]
    68     set opt(gr,$gr,xTicksFont)    [$rini $key xTicksFont   {{Lucida Console} 8}]
    69     set opt(gr,$gr,yTicksFont)    [$rini $key yTicksFont   {{Lucida Console} 8}]
    70     set opt(gr,$gr,xTicksRotate)  [$rini $key xTicksRotate 90]
    71     set opt(gr,$gr,yTicksRotate)  [$rini $key yTicksRotate [$g axis cget y -rotate]]
    72     set opt(gr,$gr,xTicksColor)   [$rini $key xTicksColor  [$g axis cget x -color]]
    73     set opt(gr,$gr,yTicksColor)   [$rini $key yTicksColor  [$g axis cget y -color]]
    74     set opt(gr,$gr,xTicksShadow)  [$rini $key xTicksShadow [lindex [$g axis cget x -tickshadow] 0]]
    75     set opt(gr,$gr,yTicksShadow)  [$rini $key yTicksShadow [lindex [$g axis cget y -tickshadow] 0]]
    76     set opt(gr,$gr,xTicksLength)  [$rini $key xTicksLength 4]
    77     set opt(gr,$gr,yTicksLength)  [$rini $key yTicksLength 4]
    78     set opt(gr,$gr,xTicksSubdivisions) [$rini $key xTicksSubdivisions 1]
    79     set opt(gr,$gr,yTicksSubdivisions) [$rini $key yTicksSubdivisions 1]
    80 
    81     set opt(gr,$gr,xAxisShow)     [$rini $key xAxisShow  1]
    82     set opt(gr,$gr,yAxisShow)     [$rini $key yAxisShow  1]
    83     set opt(gr,$gr,x2AxisShow)    [$rini $key x2AxisShow 0]
    84     set opt(gr,$gr,y2AxisShow)    [$rini $key y2AxisShow 0]
    85 
    86     set opt(gr,$gr,xAxisMin)      [$rini $key xAxisMin   0]
    87     set opt(gr,$gr,x2AxisMin)     [$rini $key x2AxisMin  0]
    88     set opt(gr,$gr,yAxisMin)      [$rini $key yAxisMin   0]
    89     set opt(gr,$gr,y2AxisMin)     [$rini $key y2AxisMin  0]
    90 
    91     set opt(gr,$gr,xAxisMax)      [$rini $key xAxisMax   100]
    92     set opt(gr,$gr,yAxisMax)      [$rini $key yAxisMax   100]
    93     set opt(gr,$gr,x2AxisMax)     [$rini $key x2AxisMax  100]
    94     set opt(gr,$gr,y2AxisMax)     [$rini $key y2AxisMax  100]
    95 
    96     set opt(gr,$gr,x2TicksWidth)  [$rini $key x2TicksWidth 1]
    97     set opt(gr,$gr,y2TicksWidth)  [$rini $key y2TicksWidth 1]
    98     set opt(gr,$gr,x2TicksShow)   [$rini $key x2TicksShow 1]
    99     set opt(gr,$gr,y2TicksShow)   [$rini $key y2TicksShow 1]
    100     set opt(gr,$gr,x2TicksStep)   [$rini $key x2TicksStep  10]
    101     set opt(gr,$gr,y2TicksStep)   [$rini $key y2TicksStep  10]
    102     set opt(gr,$gr,x2TicksFont)   [$rini $key x2TicksFont   {{Lucida Console} 8}]
    103     set opt(gr,$gr,y2TicksFont)   [$rini $key y2TicksFont   {{Lucida Console} 8}]
    104     set opt(gr,$gr,x2TicksRotate) [$rini $key x2TicksRotate [$g axis cget x2 -rotate]]
    105     set opt(gr,$gr,y2TicksRotate) [$rini $key y2TicksRotate [$g axis cget y2 -rotate]]
    106     set opt(gr,$gr,x2TicksColor)  [$rini $key x2TicksColor  [$g axis cget x2 -color]]
    107     set opt(gr,$gr,y2TicksColor)  [$rini $key y2TicksColor  [$g axis cget y2 -color]]
    108     set opt(gr,$gr,x2TicksShadow) [$rini $key x2TicksShadow [lindex [$g axis cget x2 -tickshadow] 0]]
    109     set opt(gr,$gr,y2TicksShadow) [$rini $key y2TicksShadow [lindex [$g axis cget y2 -tickshadow] 0]]
    110     set opt(gr,$gr,x2TicksLength) [$rini $key x2TicksLength 4]
    111     set opt(gr,$gr,y2TicksLength) [$rini $key y2TicksLength 4]
    112     set opt(gr,$gr,x2TicksSubdivisions) [$rini $key x2TicksSubdivisions 1]
    113     set opt(gr,$gr,y2TicksSubdivisions) [$rini $key y2TicksSubdivisions 1]
    114 
    115     set opt(gr,$gr,xAxisTitle)   [$rini $key xAxisTitle        ""]
    116     set opt(gr,$gr,xAxisColor)   [$rini $key xAxisTitleColor   [$g axis cget x -titlecolor]]
    117     set opt(gr,$gr,xAxisFont)    [$rini $key xAxisTitleFont    [$g axis cget x -titlefont]]
    118     set opt(gr,$gr,xAxisShadow)  [$rini $key xAxisTitleShadow  [lindex [$g axis cget x -titleshadow] 0]]
    119     set opt(gr,$gr,yAxisTitle)   [$rini $key yAxisTitle        ""]
    120     set opt(gr,$gr,yAxisColor)   [$rini $key yAxisTitleColor   [$g axis cget y -titlecolor]]
    121     set opt(gr,$gr,yAxisFont)    [$rini $key yAxisTitleFont    [$g axis cget y -titlefont]]
    122     set opt(gr,$gr,yAxisShadow)  [$rini $key yAxisTitleShadow  [lindex [$g axis cget y -titleshadow] 0]]
    123     set opt(gr,$gr,x2AxisTitle)  [$rini $key x2AxisTitle       ""]
    124     set opt(gr,$gr,x2AxisColor)  [$rini $key x2AxisTitleColor  [$g axis cget x2 -titlecolor]]
    125     set opt(gr,$gr,x2AxisFont)   [$rini $key x2AxisTitleFont   [$g axis cget x2 -titlefont]]
    126     set opt(gr,$gr,x2AxisShadow) [$rini $key x2AxisTitleShadow [lindex [$g axis cget x2 -titleshadow] 0]]
    127     set opt(gr,$gr,y2AxisTitle)  [$rini $key y2AxisTitle       ""]
    128     set opt(gr,$gr,y2AxisColor)  [$rini $key y2AxisTitleColor  [$g axis cget y2 -titlecolor]]
    129     set opt(gr,$gr,y2AxisFont)   [$rini $key y2AxisTitleFont   [$g axis cget y2 -titlefont]]
    130     set opt(gr,$gr,y2AxisShadow) [$rini $key y2AxisTitleShadow [lindex [$g axis cget y2 -titleshadow] 0]]
    131 
    132     set opt(gr,$gr,font)         [$rini $key font [$g cget -font]]
    133     set opt(gr,$gr,foreground)   [$rini $key foreground [$g cget -foreground]]
    134     set opt(gr,$gr,shadow)       [$rini $key shadow [lindex [$g cget -shadow] 0]]
    135 
    136     # options line
    137     set opt(gr,$gr,barmode)       [$rini $key barmode aligned]   
    138 
    139     set opt(gr,$gr,linehides)     [$rini $key linehides false]
    140     set opt(gr,$gr,linetypes)     [$rini $key linetypes LineElement]   
    141     set opt(gr,$gr,barwidth)      [$rini $key barwidth 0.6]
    142     set opt(gr,$gr,linewidth)     [$rini $key linewidth 2]
    143     set opt(gr,$gr,dashes)        [$rini $key dashes {}]
    144     set opt(gr,$gr,smooth)        [$rini $key smooth linear]
    145     set opt(gr,$gr,barrelief)     [$rini $key barrelief raised]   
    146     set opt(gr,$gr,borderwidth)   [$rini $key borderwidth 0]
    147     set opt(gr,$gr,colors)        [$rini $key colors {#00c600 blue red yellow orange #d14949 grey purple pink navyblue #356a6a #804000 #05eefa #009148 #ffffbb #29fb04}]
    148 
    149     set opt(gr,$gr,xyMappedAxis)     [$rini $key xyMappedAxis {{x y}}]
    150     set opt(gr,$gr,areaTypes)        [$rini $key areaTypes none]
    151     set opt(gr,$gr,areaTypesBar)     [$rini $key areaTypesBar none]   
    152     set opt(gr,$gr,areaTiles)        [$rini $key areaTiles {}]
    153     set opt(gr,$gr,areaForegrounds)  [$rini $key areaForegrounds defcolor]
    154     set opt(gr,$gr,areaBackgrounds)  [$rini $key areaBackgrounds white]
    155     set opt(gr,$gr,stippleimages)    [$rini $key stippleimages {}]
    156     set opt(gr,$gr,stippledegradeds) [$rini $key stippledegradeds 50]
    157 
    158     set opt(gr,$gr,showvalues)      [$rini $key showvalues   none]
    159     set opt(gr,$gr,valuefont)       [$rini $key valuefont   {Arial 8}]
    160     set opt(gr,$gr,valuerotate)     [$rini $key valuerotate 0]
    161     set opt(gr,$gr,valuecolor)      [$rini $key valuecolor  black]
    162     set opt(gr,$gr,valueformatdec)  [$rini $key valueformatdec 2]
    163     set opt(gr,$gr,valueshadow)     [$rini $key valueshadow    {}]
    164     set opt(gr,$gr,valueanchor)     [$rini $key valueanchor  center]
    165     set opt(gr,$gr,showsymbols)     [$rini $key showsymbols  0]
    166     set opt(gr,$gr,symbol)          [$rini $key symbol  triangle]
    167     set opt(gr,$gr,pixels)          [$rini $key pixels 4]
    168     set opt(gr,$gr,scalesymbols)    [$rini $key scalesymbols false]
    169     set opt(gr,$gr,fill)            [$rini $key fill  defcolor]
    170     set opt(gr,$gr,outline)         [$rini $key outline   defcolor]
    171     set opt(gr,$gr,outlinewidth)    [$rini $key outlinewidth 1]
    172    
    173     set opt(gr,$gr,selffit)         [$rini $key selffit 0]
    174 
    175     set opt(gr,$gr,xMarkers)        [$rini $key xMarkers {}]
    176     set opt(gr,$gr,yMarkers)        [$rini $key yMarkers {}]
    177     set opt(gr,$gr,xMarkersIn)      [$rini $key xMarkersIn {}]
    178     set opt(gr,$gr,yMarkersIn)      [$rini $key yMarkersIn {}]
    179 
    180     set opt(gr,$gr,x2Markers)       [$rini $key x2Markers {}]
    181     set opt(gr,$gr,y2Markers)       [$rini $key y2Markers {}]
    182     set opt(gr,$gr,x2MarkersIn)     [$rini $key x2MarkersIn {}]
    183     set opt(gr,$gr,y2MarkersIn)     [$rini $key y2MarkersIn {}]
    184 
    185     set opt(gr,$gr,xMarkersColorsInEach)   [$rini $key xMarkersColorsInEach  \
    186       {#356a6a #804000 #05eefa #009148 #ffffbb}]
    187     set opt(gr,$gr,x2MarkersColorsInEach)  [$rini $key x2MarkersColorsInEach \
    188       {#356a6a #804000 #05eefa #009148 #ffffbb}]
    189     set opt(gr,$gr,yMarkersColorsInEach)   [$rini $key yMarkersColorsInEach  \
    190       {#356a6a #804000 #05eefa #009148 #ffffbb}]
    191     set opt(gr,$gr,y2MarkersColorsInEach)  [$rini $key y2MarkersColorsInEach \
    192       {#356a6a #804000 #05eefa #009148 #ffffbb}]
    193 
    194     set opt(gr,$gr,xMarkersDashesInEach)  [$rini $key xMarkersDashesInEach  \
    195       {{1 1} {2 2} {3 3} {4 4} {5 5}}]
    196     set opt(gr,$gr,x2MarkersDashesInEach) [$rini $key x2MarkersDashesInEach \
    197       {{1 1} {2 2} {3 3} {4 4} {5 5}}]
    198     set opt(gr,$gr,yMarkersDashesInEach)  [$rini $key yMarkersDashesInEach  \
    199       {{1 1} {2 2} {3 3} {4 4} {5 5}}]
    200     set opt(gr,$gr,y2MarkersDashesInEach) [$rini $key y2MarkersDashesInEach \
    201       {{1 1} {2 2} {3 3} {4 4} {5 5}}]
    202 
    203     set opt(gr,$gr,xMarkersWidthsInEach)   [$rini $key xMarkersWidthsInEach  \
    204       {1 1 1 1 1}]
    205     set opt(gr,$gr,x2MarkersWidthsInEach)  [$rini $key x2MarkersWidthsInEach \
    206       {1 1 1 1 1}]
    207     set opt(gr,$gr,yMarkersWidthsInEach)   [$rini $key yMarkersWidthsInEach  \
    208       {1 1 1 1 1}]
    209     set opt(gr,$gr,y2MarkersWidthsInEach)  [$rini $key y2MarkersWidthsInEach \
    210       {1 1 1 1 1}]
    211 
    212     set opt(gr,$gr,xMarkersUndersInEach)   [$rini $key xMarkersUndersInEach  \
    213       {0 0 0 0 0}]
    214     set opt(gr,$gr,x2MarkersUndersInEach)  [$rini $key x2MarkersUndersInEach \
    215       {0 0 0 0 0}]
    216     set opt(gr,$gr,yMarkersUndersInEach)   [$rini $key yMarkersUndersInEach  \
    217       {0 0 0 0 0}]
    218     set opt(gr,$gr,y2MarkersUndersInEach)  [$rini $key y2MarkersUndersInEach \
    219       {0 0 0 0 0}]
    220 
    221     set opt(gr,$gr,legend,Hide)     [$rini $key legendHide      [$g legend cget -hide]]
    222     set opt(gr,$gr,legend,Bg)       [$rini $key legendBg        ""]
    223     set opt(gr,$gr,legend,Bd)       [$rini $key legendBd        [$g legend cget -bd]]
    224     set opt(gr,$gr,legend,Fg)       [$rini $key legendFg        [$g legend cget -fg]]
    225     set opt(gr,$gr,legend,Font)     [$rini $key legendFont      [$g legend cget -font]]
    226     set opt(gr,$gr,legend,Shadow)   [$rini $key legendShadow    [$g legend cget -shadow]]
    227     set opt(gr,$gr,legend,Position) [$rini $key legendPosition  "bottom"]
    228     set opt(gr,$gr,legend,Anchor)   [$rini $key legendAnchor    [$g legend cget -anchor]]
    229     set opt(gr,$gr,legend,Relief)   [$rini $key legendRelief    [$g legend cget -relief]]
    230     set opt(gr,$gr,legend,Raised)   [$rini $key legendRaised    [$g legend cget -raised]]
    231     set opt(gr,$gr,legend,IPadXl)   [$rini $key legendIPadXl    [lindex [$g legend cget -ipadx] 0]]
    232     set opt(gr,$gr,legend,IPadXr)   [$rini $key legendIPadXr    [lindex [$g legend cget -ipadx] 1]]
    233     set opt(gr,$gr,legend,IPadYt)   [$rini $key legendIPadYt    [lindex [$g legend cget -ipady] 0]]
    234     set opt(gr,$gr,legend,IPadYb)   [$rini $key legendIPadYb    [lindex [$g legend cget -ipady] 1]]
    235     set opt(gr,$gr,legend,PadXl)    [$rini $key legendPadXl     [lindex [$g legend cget -padx] 0]]
    236     set opt(gr,$gr,legend,PadXr)    [$rini $key legendPadXr     [lindex [$g legend cget -padx] 1]]
    237     set opt(gr,$gr,legend,PadYt)    [$rini $key legendPadYt     [lindex [$g legend cget -pady] 0]]
    238     set opt(gr,$gr,legend,PadYb)    [$rini $key legendPadYb     [lindex [$g legend cget -pady] 1]]
    239     set opt(gr,$gr,legend,Rows)     [$rini $key legendRows      [$g legend cget -rows]]
    240     set opt(gr,$gr,legend,Columns)  [$rini $key legendColumns   [$g legend cget -columns]]
    241 
    242     set opt(gr,$gr,grid,Color)     [$rini $key gridColor     #e8e8e8]
    243     set opt(gr,$gr,grid,Dashes)    [$rini $key gridDashes    {3 1}]
    244     set opt(gr,$gr,grid,LineWidth) [$rini $key gridLineWidth [$g grid cget -linewidth]]
    245     set opt(gr,$gr,grid,Minor)     [$rini $key gridMinor     0]
    246     set opt(gr,$gr,grid,MapX)      [$rini $key gridMapX      x]
    247     set opt(gr,$gr,grid,MapY)      [$rini $key gridMapY      y]
    248 
    249     set opt(gr,$gr,background)      [$rini $key background  #ffffff]
    250     set opt(gr,$gr,relief)          [$rini $key relief      flat]
    251     set opt(gr,$gr,areaborderwidth) [$rini $key areaborderwidth 0]
    252    
    253     set opt(gr,$gr,lm)             [$rini $key lm          [$g cget -lm]]
    254     set opt(gr,$gr,rm)             [$rini $key rm          [$g cget -rm]]
    255     set opt(gr,$gr,tm)             [$rini $key tm          [$g cget -tm]]
    256     set opt(gr,$gr,bm)             [$rini $key bm          [$g cget -bm]]
    257     set opt(gr,$gr,plotbackground)  [$rini $key plotbackground  white]
    258     set opt(gr,$gr,plotrelief)      [$rini $key plotrelief      flat]
    259     set opt(gr,$gr,plotborderwidth) [$rini $key plotborderwidth 0]
    260     set opt(gr,$gr,plotpadxl)  [$rini $key plotpadxl 0]
    261     set opt(gr,$gr,plotpadxr)  [$rini $key plotpadxr 0]
    262     set opt(gr,$gr,plotpadyt)  [$rini $key plotpadyt 0]
    263     set opt(gr,$gr,plotpadyb)  [$rini $key plotpadyb 0]
    264     set opt(gr,$gr,invertxy)   [$rini $key invertxy 0]
    265    
     40    if {!$holdon} {
     41      set opt(gr,$gr,yFormatNumber)   [$rini $key yFormatNumber  ""]
     42      set opt(gr,$gr,y2FormatNumber)  [$rini $key y2FormatNumber ""]
     43      set opt(gr,$gr,yFormatPercent)  [$rini $key yFormatPercent  0]
     44      set opt(gr,$gr,y2FormatPercent) [$rini $key y2FormatPercent 0]
     45      set opt(gr,$gr,xFormatNumber)   [$rini $key xFormatNumber  ""]
     46      set opt(gr,$gr,x2FormatNumber)  [$rini $key x2FormatNumber ""]
     47      set opt(gr,$gr,xFormatPercent)  [$rini $key xFormatPercent  0]
     48      set opt(gr,$gr,x2FormatPercent) [$rini $key x2FormatPercent 0]
     49     
     50      set opt(gr,$gr,yAxisAll)      [$rini $key yAxisAll  1]
     51      set opt(gr,$gr,xAxisAll)      [$rini $key xAxisAll  1]
     52      set opt(gr,$gr,x2AxisAll)     [$rini $key x2AxisAll 1]
     53      set opt(gr,$gr,y2AxisAll)     [$rini $key y2AxisAll 1]
     54     
     55      set opt(gr,$gr,xTicksWidth)   [$rini $key xTicksWidth 1]
     56      set opt(gr,$gr,yTicksWidth)   [$rini $key yTicksWidth 1]
     57      set opt(gr,$gr,xTicksShow)    [$rini $key xTicksShow  1]
     58      set opt(gr,$gr,yTicksShow)    [$rini $key yTicksShow  1]
     59      set opt(gr,$gr,xTicksType)    [$rini $key xTicksType  auto]
     60      set opt(gr,$gr,yTicksType)    [$rini $key yTicksType  total]
     61      set opt(gr,$gr,x2TicksType)   [$rini $key x2TicksType auto]
     62      set opt(gr,$gr,y2TicksType)   [$rini $key y2TicksType total]
     63     
     64      set opt(gr,$gr,xTicksTotal)   [$rini $key xTicksTotal 10]
     65      set opt(gr,$gr,yTicksTotal)   [$rini $key yTicksTotal 10]
     66      set opt(gr,$gr,x2TicksTotal)  [$rini $key x2TicksTotal 10]
     67      set opt(gr,$gr,y2TicksTotal)  [$rini $key y2TicksTotal 10]
     68     
     69      set opt(gr,$gr,xTicksStep)    [$rini $key xTicksStep  0]
     70      set opt(gr,$gr,yTicksStep)    [$rini $key yTicksStep  0]
     71      set opt(gr,$gr,xTicksFont)    [$rini $key xTicksFont   {{Lucida Console} 8}]
     72      set opt(gr,$gr,yTicksFont)    [$rini $key yTicksFont   {{Lucida Console} 8}]
     73      set opt(gr,$gr,xTicksRotate)  [$rini $key xTicksRotate 90]
     74      set opt(gr,$gr,yTicksRotate)  [$rini $key yTicksRotate [$g axis cget y -rotate]]
     75      set opt(gr,$gr,xTicksColor)   [$rini $key xTicksColor  [$g axis cget x -color]]
     76      set opt(gr,$gr,yTicksColor)   [$rini $key yTicksColor  [$g axis cget y -color]]
     77      set opt(gr,$gr,xTicksShadow)  [$rini $key xTicksShadow [lindex [$g axis cget x -tickshadow] 0]]
     78      set opt(gr,$gr,yTicksShadow)  [$rini $key yTicksShadow [lindex [$g axis cget y -tickshadow] 0]]
     79      set opt(gr,$gr,xTicksLength)  [$rini $key xTicksLength 4]
     80      set opt(gr,$gr,yTicksLength)  [$rini $key yTicksLength 4]
     81      set opt(gr,$gr,xTicksSubdivisions) [$rini $key xTicksSubdivisions 1]
     82      set opt(gr,$gr,yTicksSubdivisions) [$rini $key yTicksSubdivisions 1]
     83     
     84      set opt(gr,$gr,xAxisShow)     [$rini $key xAxisShow  1]
     85      set opt(gr,$gr,yAxisShow)     [$rini $key yAxisShow  1]
     86      set opt(gr,$gr,x2AxisShow)    [$rini $key x2AxisShow 0]
     87      set opt(gr,$gr,y2AxisShow)    [$rini $key y2AxisShow 0]
     88     
     89      set opt(gr,$gr,xAxisMin)      [$rini $key xAxisMin   0]
     90      set opt(gr,$gr,x2AxisMin)     [$rini $key x2AxisMin  0]
     91      set opt(gr,$gr,yAxisMin)      [$rini $key yAxisMin   0]
     92      set opt(gr,$gr,y2AxisMin)     [$rini $key y2AxisMin  0]
     93     
     94      set opt(gr,$gr,xAxisMax)      [$rini $key xAxisMax   100]
     95      set opt(gr,$gr,yAxisMax)      [$rini $key yAxisMax   100]
     96      set opt(gr,$gr,x2AxisMax)     [$rini $key x2AxisMax  100]
     97      set opt(gr,$gr,y2AxisMax)     [$rini $key y2AxisMax  100]
     98     
     99      set opt(gr,$gr,x2TicksWidth)  [$rini $key x2TicksWidth 1]
     100      set opt(gr,$gr,y2TicksWidth)  [$rini $key y2TicksWidth 1]
     101      set opt(gr,$gr,x2TicksShow)   [$rini $key x2TicksShow 1]
     102      set opt(gr,$gr,y2TicksShow)   [$rini $key y2TicksShow 1]
     103      set opt(gr,$gr,x2TicksStep)   [$rini $key x2TicksStep  10]
     104      set opt(gr,$gr,y2TicksStep)   [$rini $key y2TicksStep  10]
     105      set opt(gr,$gr,x2TicksFont)   [$rini $key x2TicksFont   {{Lucida Console} 8}]
     106      set opt(gr,$gr,y2TicksFont)   [$rini $key y2TicksFont   {{Lucida Console} 8}]
     107      set opt(gr,$gr,x2TicksRotate) [$rini $key x2TicksRotate [$g axis cget x2 -rotate]]
     108      set opt(gr,$gr,y2TicksRotate) [$rini $key y2TicksRotate [$g axis cget y2 -rotate]]
     109      set opt(gr,$gr,x2TicksColor)  [$rini $key x2TicksColor  [$g axis cget x2 -color]]
     110      set opt(gr,$gr,y2TicksColor)  [$rini $key y2TicksColor  [$g axis cget y2 -color]]
     111      set opt(gr,$gr,x2TicksShadow) [$rini $key x2TicksShadow [lindex [$g axis cget x2 -tickshadow] 0]]
     112      set opt(gr,$gr,y2TicksShadow) [$rini $key y2TicksShadow [lindex [$g axis cget y2 -tickshadow] 0]]
     113      set opt(gr,$gr,x2TicksLength) [$rini $key x2TicksLength 4]
     114      set opt(gr,$gr,y2TicksLength) [$rini $key y2TicksLength 4]
     115      set opt(gr,$gr,x2TicksSubdivisions) [$rini $key x2TicksSubdivisions 1]
     116      set opt(gr,$gr,y2TicksSubdivisions) [$rini $key y2TicksSubdivisions 1]
     117     
     118      set opt(gr,$gr,xAxisTitle)   [$rini $key xAxisTitle        ""]
     119      set opt(gr,$gr,xAxisColor)   [$rini $key xAxisTitleColor   [$g axis cget x -titlecolor]]
     120      set opt(gr,$gr,xAxisFont)    [$rini $key xAxisTitleFont    [$g axis cget x -titlefont]]
     121      set opt(gr,$gr,xAxisShadow)  [$rini $key xAxisTitleShadow  [lindex [$g axis cget x -titleshadow] 0]]
     122      set opt(gr,$gr,yAxisTitle)   [$rini $key yAxisTitle        ""]
     123      set opt(gr,$gr,yAxisColor)   [$rini $key yAxisTitleColor   [$g axis cget y -titlecolor]]
     124      set opt(gr,$gr,yAxisFont)    [$rini $key yAxisTitleFont    [$g axis cget y -titlefont]]
     125      set opt(gr,$gr,yAxisShadow)  [$rini $key yAxisTitleShadow  [lindex [$g axis cget y -titleshadow] 0]]
     126      set opt(gr,$gr,x2AxisTitle)  [$rini $key x2AxisTitle       ""]
     127      set opt(gr,$gr,x2AxisColor)  [$rini $key x2AxisTitleColor  [$g axis cget x2 -titlecolor]]
     128      set opt(gr,$gr,x2AxisFont)   [$rini $key x2AxisTitleFont   [$g axis cget x2 -titlefont]]
     129      set opt(gr,$gr,x2AxisShadow) [$rini $key x2AxisTitleShadow [lindex [$g axis cget x2 -titleshadow] 0]]
     130      set opt(gr,$gr,y2AxisTitle)  [$rini $key y2AxisTitle       ""]
     131      set opt(gr,$gr,y2AxisColor)  [$rini $key y2AxisTitleColor  [$g axis cget y2 -titlecolor]]
     132      set opt(gr,$gr,y2AxisFont)   [$rini $key y2AxisTitleFont   [$g axis cget y2 -titlefont]]
     133      set opt(gr,$gr,y2AxisShadow) [$rini $key y2AxisTitleShadow [lindex [$g axis cget y2 -titleshadow] 0]]
     134     
     135      set opt(gr,$gr,font)         [$rini $key font [$g cget -font]]
     136      set opt(gr,$gr,foreground)   [$rini $key foreground [$g cget -foreground]]
     137      set opt(gr,$gr,shadow)       [$rini $key shadow [lindex [$g cget -shadow] 0]]
     138     
     139      # options line
     140      set opt(gr,$gr,barmode)       [$rini $key barmode aligned]   
     141     
     142      set opt(gr,$gr,linehides)     [$rini $key linehides false]
     143      set opt(gr,$gr,linetypes)     [$rini $key linetypes LineElement]   
     144      set opt(gr,$gr,barwidth)      [$rini $key barwidth 0.6]
     145      set opt(gr,$gr,linewidth)     [$rini $key linewidth 2]
     146      set opt(gr,$gr,dashes)        [$rini $key dashes {}]
     147      set opt(gr,$gr,smooth)        [$rini $key smooth linear]
     148      set opt(gr,$gr,barrelief)     [$rini $key barrelief raised]   
     149      set opt(gr,$gr,borderwidth)   [$rini $key borderwidth 0]
     150      set opt(gr,$gr,colors)        [$rini $key colors {#00c600 blue red yellow orange #d14949 grey purple pink navyblue #356a6a #804000 #05eefa #009148 #ffffbb #29fb04}]
     151     
     152      set opt(gr,$gr,xyMappedAxis)     [$rini $key xyMappedAxis {{x y}}]
     153      set opt(gr,$gr,areaTypes)        [$rini $key areaTypes none]
     154      set opt(gr,$gr,areaTypesBar)     [$rini $key areaTypesBar none]   
     155      set opt(gr,$gr,areaTiles)        [$rini $key areaTiles {}]
     156      set opt(gr,$gr,areaForegrounds)  [$rini $key areaForegrounds defcolor]
     157      set opt(gr,$gr,areaBackgrounds)  [$rini $key areaBackgrounds white]
     158      set opt(gr,$gr,stippleimages)    [$rini $key stippleimages {}]
     159      set opt(gr,$gr,stippledegradeds) [$rini $key stippledegradeds 50]
     160     
     161      set opt(gr,$gr,showvalues)      [$rini $key showvalues   none]
     162      set opt(gr,$gr,valuefont)       [$rini $key valuefont   {Arial 8}]
     163      set opt(gr,$gr,valuerotate)     [$rini $key valuerotate 0]
     164      set opt(gr,$gr,valuecolor)      [$rini $key valuecolor  black]
     165      set opt(gr,$gr,valueformatdec)  [$rini $key valueformatdec 2]
     166      set opt(gr,$gr,valueshadow)     [$rini $key valueshadow    {}]
     167      set opt(gr,$gr,valueanchor)     [$rini $key valueanchor  center]
     168      set opt(gr,$gr,showsymbols)     [$rini $key showsymbols  0]
     169      set opt(gr,$gr,symbol)          [$rini $key symbol  triangle]
     170      set opt(gr,$gr,pixels)          [$rini $key pixels 4]
     171      set opt(gr,$gr,scalesymbols)    [$rini $key scalesymbols false]
     172      set opt(gr,$gr,fill)            [$rini $key fill  defcolor]
     173      set opt(gr,$gr,outline)         [$rini $key outline   defcolor]
     174      set opt(gr,$gr,outlinewidth)    [$rini $key outlinewidth 1]
     175     
     176      set opt(gr,$gr,selffit)         [$rini $key selffit 0]
     177     
     178      set opt(gr,$gr,xMarkers)        [$rini $key xMarkers {}]
     179      set opt(gr,$gr,yMarkers)        [$rini $key yMarkers {}]
     180      set opt(gr,$gr,xMarkersIn)      [$rini $key xMarkersIn {}]
     181      set opt(gr,$gr,yMarkersIn)      [$rini $key yMarkersIn {}]
     182     
     183      set opt(gr,$gr,x2Markers)       [$rini $key x2Markers {}]
     184      set opt(gr,$gr,y2Markers)       [$rini $key y2Markers {}]
     185      set opt(gr,$gr,x2MarkersIn)     [$rini $key x2MarkersIn {}]
     186      set opt(gr,$gr,y2MarkersIn)     [$rini $key y2MarkersIn {}]
     187     
     188      set opt(gr,$gr,xMarkersColorsInEach)   [$rini $key xMarkersColorsInEach  \
     189                                                  {#356a6a #804000 #05eefa #009148 #ffffbb}]
     190      set opt(gr,$gr,x2MarkersColorsInEach)  [$rini $key x2MarkersColorsInEach \
     191                                                  {#356a6a #804000 #05eefa #009148 #ffffbb}]
     192      set opt(gr,$gr,yMarkersColorsInEach)   [$rini $key yMarkersColorsInEach  \
     193                                                  {#356a6a #804000 #05eefa #009148 #ffffbb}]
     194      set opt(gr,$gr,y2MarkersColorsInEach)  [$rini $key y2MarkersColorsInEach \
     195                                                  {#356a6a #804000 #05eefa #009148 #ffffbb}]
     196
     197      set opt(gr,$gr,xMarkersDashesInEach)  [$rini $key xMarkersDashesInEach  \
     198                                                 {{1 1} {2 2} {3 3} {4 4} {5 5}}]
     199      set opt(gr,$gr,x2MarkersDashesInEach) [$rini $key x2MarkersDashesInEach \
     200                                                 {{1 1} {2 2} {3 3} {4 4} {5 5}}]
     201      set opt(gr,$gr,yMarkersDashesInEach)  [$rini $key yMarkersDashesInEach  \
     202                                                 {{1 1} {2 2} {3 3} {4 4} {5 5}}]
     203      set opt(gr,$gr,y2MarkersDashesInEach) [$rini $key y2MarkersDashesInEach \
     204                                                 {{1 1} {2 2} {3 3} {4 4} {5 5}}]
     205     
     206      set opt(gr,$gr,xMarkersWidthsInEach)   [$rini $key xMarkersWidthsInEach  \
     207                                                  {1 1 1 1 1}]
     208      set opt(gr,$gr,x2MarkersWidthsInEach)  [$rini $key x2MarkersWidthsInEach \
     209                                                  {1 1 1 1 1}]
     210      set opt(gr,$gr,yMarkersWidthsInEach)   [$rini $key yMarkersWidthsInEach  \
     211                                                  {1 1 1 1 1}]
     212      set opt(gr,$gr,y2MarkersWidthsInEach)  [$rini $key y2MarkersWidthsInEach \
     213                                                  {1 1 1 1 1}]
     214     
     215      set opt(gr,$gr,xMarkersUndersInEach)   [$rini $key xMarkersUndersInEach  \
     216                                                  {0 0 0 0 0}]
     217      set opt(gr,$gr,x2MarkersUndersInEach)  [$rini $key x2MarkersUndersInEach \
     218                                                  {0 0 0 0 0}]
     219      set opt(gr,$gr,yMarkersUndersInEach)   [$rini $key yMarkersUndersInEach  \
     220                                                  {0 0 0 0 0}]
     221      set opt(gr,$gr,y2MarkersUndersInEach)  [$rini $key y2MarkersUndersInEach \
     222                                                  {0 0 0 0 0}]
     223     
     224      set opt(gr,$gr,legend,Hide)     [$rini $key legendHide      [$g legend cget -hide]]
     225      set opt(gr,$gr,legend,Bg)       [$rini $key legendBg        ""]
     226      set opt(gr,$gr,legend,Bd)       [$rini $key legendBd        [$g legend cget -bd]]
     227      set opt(gr,$gr,legend,Fg)       [$rini $key legendFg        [$g legend cget -fg]]
     228      set opt(gr,$gr,legend,Font)     [$rini $key legendFont      [$g legend cget -font]]
     229      set opt(gr,$gr,legend,Shadow)   [$rini $key legendShadow    [$g legend cget -shadow]]
     230      set opt(gr,$gr,legend,Position) [$rini $key legendPosition  "bottom"]
     231      set opt(gr,$gr,legend,Anchor)   [$rini $key legendAnchor    [$g legend cget -anchor]]
     232      set opt(gr,$gr,legend,Relief)   [$rini $key legendRelief    [$g legend cget -relief]]
     233      set opt(gr,$gr,legend,Raised)   [$rini $key legendRaised    [$g legend cget -raised]]
     234      set opt(gr,$gr,legend,IPadXl)   [$rini $key legendIPadXl    [lindex [$g legend cget -ipadx] 0]]
     235      set opt(gr,$gr,legend,IPadXr)   [$rini $key legendIPadXr    [lindex [$g legend cget -ipadx] 1]]
     236      set opt(gr,$gr,legend,IPadYt)   [$rini $key legendIPadYt    [lindex [$g legend cget -ipady] 0]]
     237      set opt(gr,$gr,legend,IPadYb)   [$rini $key legendIPadYb    [lindex [$g legend cget -ipady] 1]]
     238      set opt(gr,$gr,legend,PadXl)    [$rini $key legendPadXl     [lindex [$g legend cget -padx] 0]]
     239      set opt(gr,$gr,legend,PadXr)    [$rini $key legendPadXr     [lindex [$g legend cget -padx] 1]]
     240      set opt(gr,$gr,legend,PadYt)    [$rini $key legendPadYt     [lindex [$g legend cget -pady] 0]]
     241      set opt(gr,$gr,legend,PadYb)    [$rini $key legendPadYb     [lindex [$g legend cget -pady] 1]]
     242      set opt(gr,$gr,legend,Rows)     [$rini $key legendRows      [$g legend cget -rows]]
     243      set opt(gr,$gr,legend,Columns)  [$rini $key legendColumns   [$g legend cget -columns]]
     244     
     245      set opt(gr,$gr,grid,Color)     [$rini $key gridColor     "#e8e8e8"]
     246      set opt(gr,$gr,grid,Dashes)    [$rini $key gridDashes    {3 1}]
     247      set opt(gr,$gr,grid,LineWidth) [$rini $key gridLineWidth [$g grid cget -linewidth]]
     248      set opt(gr,$gr,grid,Minor)     [$rini $key gridMinor     0]
     249      set opt(gr,$gr,grid,MapX)      [$rini $key gridMapX      x]
     250      set opt(gr,$gr,grid,MapY)      [$rini $key gridMapY      y]
     251     
     252      set opt(gr,$gr,background)      [$rini $key background  #ffffff]
     253      set opt(gr,$gr,relief)          [$rini $key relief      flat]
     254      set opt(gr,$gr,areaborderwidth) [$rini $key areaborderwidth 0]
     255     
     256      set opt(gr,$gr,lm)             [$rini $key lm          [$g cget -lm]]
     257      set opt(gr,$gr,rm)             [$rini $key rm          [$g cget -rm]]
     258      set opt(gr,$gr,tm)             [$rini $key tm          [$g cget -tm]]
     259      set opt(gr,$gr,bm)             [$rini $key bm          [$g cget -bm]]
     260      set opt(gr,$gr,plotbackground)  [$rini $key plotbackground  white]
     261      set opt(gr,$gr,plotrelief)      [$rini $key plotrelief      flat]
     262      set opt(gr,$gr,plotborderwidth) [$rini $key plotborderwidth 0]
     263      set opt(gr,$gr,plotpadxl)  [$rini $key plotpadxl 0]
     264      set opt(gr,$gr,plotpadxr)  [$rini $key plotpadxr 0]
     265      set opt(gr,$gr,plotpadyt)  [$rini $key plotpadyt 0]
     266      set opt(gr,$gr,plotpadyb)  [$rini $key plotpadyb 0]
     267      set opt(gr,$gr,invertxy)   [$rini $key invertxy 0]
     268    }
    266269    # Para el orden de las series, opt puede cambiar, pero no cambiamos data
    267270    # lstnames {id name caption label}
    … …  
    289292}
    290293
    291 
    292294#/////////////////////////////////////////////////////////////////////////////
    293295  proc ::bayesGraph::WriteIni {this { gcf 0 } } {
    … …  
    480482        set step $res
    481483      } else {
    482         #puts "BayesGraph.FixYAxisStep. $res"
    483         Tolcon_Trace "BayesGraph.FixYAxisStep. $res"
    484484        set step 0
    485485      }
    … …  
    32813281          set i 0
    32823282          set j 0
    3283           #Tolcon_Trace "lstXMarkers: $lstXMarkers"
    32843283          foreach it $lstMarkers {
    32853284            if {$j==5} { set j 0 }

  • tolbase/lib/toltk/setgraph.tcl

    r1286a3a rc61d3f9  
    1010
    1111#/////////////////////////////////////////////////////////////////////////////
    12   proc ::SetGraph::Create {path info set tableset {fileGCF {}} { title {}}} {
     12proc ::SetGraph::Create {path info set tableset {fileGCF {}} {title {}}} {
    1313#
    1414# PURPOSE: Creates an instance of a bayesGraph and inserts the graph lines
    … …  
    3030#
    3131#/////////////////////////////////////////////////////////////////////////////
    32   set Instance [::bayesGraph::Create $path g]
     32  if {[winfo exists $path] && [winfo class $path] eq "bayesGraph"} {
     33    set Instance "::bayesGraph::$path"
     34    set holdon 1
     35  } else {
     36    set Instance [::bayesGraph::Create $path g]
     37    set holdon 0
     38  }
    3339  upvar \#0 ${Instance}::widgets widgets
    3440  upvar \#0 ${Instance}::data data
    3541  upvar \#0 ${Instance}::options opt
    36   set data(namespace) SetGraph
    37   set data(proc,OnComputeStepX)  ::SetGraph::ComputeStepX
    38   set data(proc,OnEvalWindow)    ::SetGraph::EvalWindow
    39   set data(proc,OnToTable)       ::SetGraph::ToTable
    40   set data(proc,OnWriteIni)      ::SetGraph::WriteIni
    41   set data(proc,xAxisCommand)    [list ::SetGraph::GetTickLabel $Instance]
    42   set data(proc,x2AxisCommand)   [list ::SetGraph::GetTickLabel $Instance]
    43 
     42
     43  if {!$holdon} {
     44    set data(namespace) SetGraph
     45    set data(proc,OnComputeStepX)  ::SetGraph::ComputeStepX
     46    set data(proc,OnEvalWindow)    ::SetGraph::EvalWindow
     47    set data(proc,OnToTable)       ::SetGraph::ToTable
     48    set data(proc,OnWriteIni)      ::SetGraph::WriteIni
     49    set data(proc,xAxisCommand)    [list ::SetGraph::GetTickLabel $Instance]
     50    set data(proc,x2AxisCommand)   [list ::SetGraph::GetTickLabel $Instance]
     51  }
     52 
    4453  set gr 0
    4554  set grpath $widgets(gr,$gr)
    … …  
    5261
    5362  array set gInfo $info
    54   set data(xTicks) $gInfo(xTicks)
    55 
    56   set data(gr,$gr,set) $set
    57   set data(gr,$gr,tableset) $tableset
    58   set data(gr,$gr,OnGetXTicks)    ::SetGraph::GetXTicks 
    59   set data(gr,$gr,OnGetXValues)   ::SetGraph::GetXValues 
     63
     64  if {!$holdon} {
     65    set data(xTicks) $gInfo(xTicks)
     66   
     67    set data(gr,$gr,set) $set
     68    set data(gr,$gr,tableset) $tableset
     69    set data(gr,$gr,OnGetXTicks)    ::SetGraph::GetXTicks 
     70    set data(gr,$gr,OnGetXValues)   ::SetGraph::GetXValues 
     71  }
    6072  # insert the series into the graph
    61   set i  0
     73  if {$holdon} {
     74    set ii 0
     75    foreach item [$grpath element names] {
     76      regexp {l(\d+)-(\d+)} $item ==> i
     77      if {$i>$ii} {
     78        set ii $i
     79      }
     80      incr ii
     81    }
     82  } else {
     83    set ii  0
     84  }
     85  set i 0
    6286  foreach vec $gInfo(vectors) {
    6387    set j  0
    … …  
    6791    set ydata [lindex $vec 1]
    6892
    69     $grpath line create l$i-$j -xdata $xdata -ydata $ydata
    70     lappend segs l$i-$j
     93    $grpath line create l$ii-$j -xdata $xdata -ydata $ydata
     94    lappend segs l$ii-$j
    7195    if { $j } {
    7296      $grpath line configure l$i-$j -label ""
    7397    } else {
    74       $grpath line configure l$i-0 -label [lindex $gInfo(names) $i]
     98      set _label_ [lindex $gInfo(names) $i]
     99      foreach _it_ [$grpath element names] {
     100        if {$_label_ eq [$grpath element cget $_it_ -label]} {
     101          append _label_ "x"
     102        }
     103      }
     104      $grpath line configure l$ii-0 -label $_label_
    75105    }
    76106    incr i
     107    incr ii
    77108    lappend data(gr,$gr,elements) $segs
    78109  }
    79    
    80   # configurar grafico
    81 #  $grpath axis configure x  -command "::SetGraph::GetTickLabel $Instance"
    82110  ::bayesGraph::BindLegend $Instance
    83111
    84   #Establecer el fichero GCF del que se lee
    85   #Establecer el fichero GCF del que se lee
    86   if {[string length $fileGCF]} {
    87     ::bayesGraph::LoadGCF $Instance $fileGCF
    88   } else  {
    89     ::bayesGraph::LoadGCF $Instance
    90   }
    91   ReadIni $Instance
     112  if {!$holdon} {
     113    # configurar grafico
     114    #  $grpath axis configure x  -command "::SetGraph::GetTickLabel $Instance"
     115   
     116    #Establecer el fichero GCF del que se lee
     117    #Establecer el fichero GCF del que se lee
     118    if {[string length $fileGCF]} {
     119      ::bayesGraph::LoadGCF $Instance $fileGCF
     120    } else  {
     121      ::bayesGraph::LoadGCF $Instance
     122    }
     123  }
     124  ReadIni $Instance $holdon
     125   
    92126  Configure $Instance
    93 
    94   #set title chart
    95   if {[string length $-title]} {
    96     ::bayesGraph::SetMainTitle $Instance $title
    97   } 
    98   if {[string equal [winfo class [winfo parent $widgets(this)]] Toplevel]} {
    99     wm geometry [winfo parent $widgets(this)] $data(geometry)
    100     wm state    [winfo parent $widgets(this)] $data(wm,state)
    101   }
     127 
     128  if {!$holdon} {
     129    #set title chart
     130    if {[string length $title]} {
     131      ::bayesGraph::SetMainTitle $Instance $title
     132    } 
     133    if {[string equal [winfo class [winfo parent $widgets(this)]] Toplevel]} {
     134      wm geometry [winfo parent $widgets(this)] $data(geometry)
     135      wm state    [winfo parent $widgets(this)] $data(wm,state)
     136    }
     137  }
     138
    102139  return $Instance
    103140}
    … …  
    126163    set step [expr ($max-$min)/$total]
    127164  }
    128 #Tolcon_Trace "ComputeStepX. Devuelvo step=$step"
    129165  return $step
    130166}
    … …  
    277313
    278314#/////////////////////////////////////////////////////////////////////////////
    279   proc ::SetGraph::ReadIni {this} {
     315proc ::SetGraph::ReadIni {this {holdon 0}} {
    280316#
    281317# PURPOSE: Reads set graph specific options from .ini file. First of all,
    … …  
    289325  upvar \#0 ${this}::data data
    290326
    291   set rini ::iniFile::ReadGCF
    292   set data(geometry)   [$rini SetGraph geometry 800x600]
    293   set data(wm,state)   [::iniFile::ReadWMState $rini SetGraph]
    294   ::bayesGraph::ReadIni $this
     327  if {!$holdon} {
     328    set rini ::iniFile::ReadGCF
     329    set data(geometry)   [$rini SetGraph geometry 800x600]
     330    set data(wm,state)   [::iniFile::ReadWMState $rini SetGraph]
     331  }
     332  ::bayesGraph::ReadIni $this $holdon
    295333}
    296334
    … …  
    381419     
    382420#/////////////////////////////////////////////////////////////////////////////
    383   proc ::SetGraphDialog::DrawSet {path tableset set type {pairs {}} {names {}} {fileGCF {}} {title {}}} {
     421proc ::SetGraphDialog::DrawSet {path tableset set type {pairs {}} {names {}} {fileGCF {}} {title {}}} {
    384422#
    385423# PURPOSE: Checks if the set is graphicable and if so, draws and assistant
    … …  
    399437#   fileGcf  -> file configuration graph
    400438#   title    -> list of title of chart
     439#   holdon   -> tell if the new graph goes into a new context or an existing one
    401440#
    402441#/////////////////////////////////////////////////////////////////////////////
    … …  
    486525      if [llength $data(vectors)] {
    487526        set info [list vectors $data(vectors) names $data(names) xTicks $data(xTicks)]
    488         #Tolcon_Trace "info: $info"
    489527        set Instance [::SetGraph::Create $path $info $set $tableset]
    490528        bind $path <Destroy> +[list ::SetGraphDialog::OnDestroyGraph $data(nameVectors)]
    … …  
    854892    set colX [lindex [lindex $data(var,listY) $i] 0]
    855893    set colY [lindex $data(var,listY) [expr $i + 1]]
    856 Tolcon_Trace "colX: $colX   colY: $colY"
    857894    # control: uniqueXAxis
    858895    set ok [::SetGraphDialog::CheckAddSerie $colX]
    … …  
    921958    }
    922959  }
    923 Tolcon_Trace "CheckAddSerie $indexX: data(uniqueXAxis): $data(uniqueXAxis). ok: $ok"
    924960  return $ok
    925961}
    … …  
    10271063#
    10281064#/////////////////////////////////////////////////////////////////////////////
    1029 #Tolcon_Trace "AddLine colX: $colX  colY: $colY  name: $name  lstLines: $lstLines"
    10301065  variable tmpOpt
    10311066  variable data
    … …  
    11041139      set data(uniqueXAxis) ""
    11051140    }
    1106 #Tolcon_Trace "DelItem. Borramos elemento idx: $idx de la lista data(selected): $data(selected)"
    11071141  }
    11081142}
    … …  
    11621196    }
    11631197    set vecsY [$data(tableset) data column $colY]
    1164     #Tolcon_Trace "vecX: $vecX, vecsY: $vecsY"
    11651198    if {[llength $vecsY] > 1} {
    11661199      set i 0

  • tolbase/lib/toltk/tolmethods.tcl

    r1286a3a rc61d3f9  
    249249
    250250#/////////////////////////////////////////////////////////////////////////////
    251 proc Tol_SetChartMethod { title source gcfFile geometry filetosave lstNames type lstPairs } {
     251proc Tol_SetChartMethod { title source gcfFile geometry filetosave lstNames
     252                          type lstPairs {holdon ""}} {
    252253#
    253254# PURPOSE: Hook of Chart method
    … …  
    266267#   lstPairs -> when type is 0 pairs is the list of correspondence beetwen index
    267268#               columns to data columns (x-y pairs)
     269#   holdon   -> tell if the new graph goes into a new context or an existing one
    268270#
    269271#/////////////////////////////////////////////////////////////////////////////
    … …  
    281283  }
    282284  # MDI
    283   set tl [::project::CreateForm \
    284     -title $wTitle -type Graphs -iniconfig SetGraph -geometry $geometry]
    285   $tl setgeometry $geometry 
     285  if {$holdon ne "" && (![winfo exists $holdon] || [winfo class $holdon] ne "Mdidoc")} {
     286    Tol_HciWriter "<W>[mc {Graphic requested to be drawn on %s but that graphic context does not exist or is not a valid grafic windows} $holdon]</W>"
     287    set holdon ""
     288  }
     289  if {[winfo exists $holdon]} {
     290    set tl $holdon
     291  } else {
     292    puts "no existe '$holdon' por eso ... ::project::CreateForm"
     293
     294    set tl [::project::CreateForm \
     295                -title $wTitle -type Graphs -iniconfig SetGraph -geometry $geometry]
     296    $tl setgeometry $geometry
     297  }
    286298  set top [$tl getframe]
    287299  # if source is a list is interpreted as a set name and indexes accesing a element
    … …  
    303315  set Instance [::SetGraphDialog::DrawSet $top.g $cmd $source $type $lstPairs \
    304316    $lstNames $gcfFile [list $title]]
    305   bind $top.g <Destroy> +[list ::tol::tableset destroy $cmd]
    306   if { [llength $source] > 1} {
    307     bind $top.g <Destroy> +[list ::tol::stack release $source]
    308   }
    309   pack $top.g -fill both -expand yes
    310   update
    311   ::bayesGraph::GrapOptApplyAxisTicks $Instance ${Instance}::options gr,0
    312   if { [string length $filetosave] } {
    313     ::bayesGraph::TakePhoto $Instance $filetosave
    314     after idle "destroy $tl"
     317  if {$holdon ne ""} {
     318    ::tol::tableset destroy $cmd
     319    if { [llength $source] > 1} {
     320      ::tol::stack release $source
     321    }
     322  } else {
     323    bind $top.g <Destroy> +[list ::tol::tableset destroy $cmd]
     324    if { [llength $source] > 1} {
     325      bind $top.g <Destroy> +[list ::tol::stack release $source]
     326    }
     327    pack $top.g -fill both -expand yes
     328    update
     329    ::bayesGraph::GrapOptApplyAxisTicks $Instance ${Instance}::options gr,0
     330    if { [string length $filetosave] } {
     331      ::bayesGraph::TakePhoto $Instance $filetosave
     332      after idle "destroy $tl"
     333    }
    315334  }
    316335  return $tl
Note: See TracChangeset for help on using the changeset viewer.