Changeset 47cbb8f in tol for tolbase


Ignore:
Timestamp:
Oct 31, 2008, 12:08:36 PM (18 years ago)
Author:
Liván Ramírez Dorta <livanr68@…>
Branches:
1941-docker-image-to-test, devel, master
Children:
912bd1b
Parents:
5930b07
Message:

changing call to TclInfoRef in function GetAliasOpen

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

File:
1 edited

Legend:

Unmodified
Added
Removed

  • tolbase/lib/byswidget/bodbc/bodbc.tcl

    r5930b07 r47cbb8f  
    925925    set inx 1
    926926    while {!($result) && ([expr $inx <= $lenAry])} {
    927       array set infoReg [TclInfoRef $op $inx 1]
     927      array set infoReg [TclInfoRef [list Set $op $inx 1]]
    928928      set aliasConn [lindex $infoReg(CONTENT) 0]
    929929      if {[string equal $alias $aliasConn]} {
Note: See TracChangeset for help on using the changeset viewer.