[q-lang-cvs] graph/src graphed.tcl,1.1.1.1,1.2
Brought to you by:
agraef
Menu
▾
▴
[q-lang-cvs] graph/src graphed.tcl,1.1.1.1,1.2
|
From: Albert G. <ag...@us...> - 2006-02-27 17:49:29
|
Update of /cvsroot/q-lang/graph/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3382/src Modified Files: graphed.tcl Log Message: facelift using gtk stock icons Index: graphed.tcl =================================================================== RCS file: /cvsroot/q-lang/graph/src/graphed.tcl,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** graphed.tcl 15 Dec 2003 10:50:52 -0000 1.1.1.1 --- graphed.tcl 27 Feb 2006 17:49:26 -0000 1.2 *************** *** 72,83 **** ## Please read their license agreements for details. - global vTcl env - # Does the image already exist? ! if {[info exists vTcl(images,files)]} { ! if {[lsearch -exact $vTcl(images,files) $filename] > -1} { return } } ! if {![info exists vTcl(sourcing)] && [string length $data] > 0} { set object [image create [vTcl:image:get_creation_type $filename] -data $data] } else { --- 72,81 ---- ## Please read their license agreements for details. # Does the image already exist? ! if {[info exists ::vTcl(images,files)]} { ! if {[lsearch -exact $::vTcl(images,files) $filename] > -1} { return } } ! if {![info exists ::vTcl(sourcing)] && [string length $data] > 0} { set object [image create [vTcl:image:get_creation_type $filename] -data $data] } else { *************** *** 91,95 **** if {![file exists $filename]} { set description "file not found!" ! set object [image create photo -data [vTcl:image:broken_image] ] } else { set object [image create [vTcl:image:get_creation_type $filename] -file $filename] --- 89,94 ---- if {![file exists $filename]} { set description "file not found!" ! ## will add 'broken image' again when img is fixed, for now create empty ! set object [image create photo -width 1 -height 1] } else { set object [image create [vTcl:image:get_creation_type $filename] -file $filename] *************** *** 98,109 **** set reference [vTcl:rename $filename] ! set vTcl(images,$reference,image) $object ! set vTcl(images,$reference,description) $description ! set vTcl(images,$reference,type) $type ! set vTcl(images,filename,$object) $filename ! ! lappend vTcl(images,files) $filename ! lappend vTcl(images,$type) $object # return image name in case caller might want it --- 97,107 ---- set reference [vTcl:rename $filename] + set ::vTcl(images,$reference,image) $object + set ::vTcl(images,$reference,description) $description + set ::vTcl(images,$reference,type) $type + set ::vTcl(images,filename,$object) $filename ! lappend ::vTcl(images,files) $filename ! lappend ::vTcl(images,$type) $object # return image name in case caller might want it *************** *** 158,195 **** } - ############################################################################# - ## Procedure: vTcl:image:broken_image - - proc ::vTcl:image:broken_image {} { - ## This procedure may be used free of restrictions. - ## Exception added by Christian Gavin on 08/08/02. - ## Other packages and widget toolkits have different licensing requirements. - ## Please read their license agreements for details. - - return { - R0lGODdhFAAUAPcAAAAAAIAAAACAAICAAAAAgIAAgACAgMDAwICAgP8AAAD/ - AP//AAAA//8A/wD//////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAACwAAAAAFAAUAAAIhAAPCBxIsKDBgwgPAljIUOBC - BAkBPJg4UeBEBBAVPkCI4EHGghIHChAwsKNHgyEPCFBA0mFDkBtVjiz4AADK - mAds0tRJMCVBBkAl8hwYMsFPBwyE3jzQwKhAoASUwmTagCjDmksbVDWIderC - g1174gQ71CHFigfOhrXKUGfbrwnjyp0bEAA7 - } - } - foreach img { --- 156,159 ---- *************** *** 209,266 **** foreach img { ! {{[file join / home ag src q graph images open.gif]} {user image} user { ! R0lGODlhEAAPAPIEAAAAAICAAP//AICAgP///////wAAAAAAACH5BAEAAAUA ! LAAAAAAQAA8AAAONWFVVhVVVVVhVVYVVVVVYAFCFVVVVWFUFhVVQUFgFAIVV ! VVVYAFWAQgIACAAFgFAFJEhCQoJQVVU4ICSEQkJQWFU1gCQkAAgAAIBQA0Io ! EBGBERFQOEACgRERERhQNYACEQAYEQGFVQMQGBERgQFVVTgAAIAAAFBYVTWD ! MzMzOFVVhVVVVVhVVYVVVVUJADs=}} ! {{[file join / home ag src q graph images save.gif]} {user image} user { ! R0lGODlhEAAPAPIDAAAAAICAAICAgP///////wAAAAAAAAAAACH5BAEAAAQA ! LAAAAAAQAA8AAAONSEREhEREREhERIQAAAAIAACAQEQQCDQ0hENAQEgEAYM0 ! NDQIAESEEEBDODQEgUBEEAhDQ4M0EEBIBAGEQ0NDCAFEhBABAAgAEIFARBAY ! ERGBERFASAQRgAAAAAgBRIQQASAIQASBQEQQGCAggEQQQEgEEYAgAEQIAUSE ! BAAACAAAgEBEREhERIREREQJADs=}} ! {{[file join / home ag src q graph images cut.gif]} {user image} user { ! R0lGODlhEAAPAPEDAAAAAAAAgICAgP///yH5BAEAAAMALAAAAAAQAA8AAAKI ! 3Lhx4saJGzdu3Lhx4saJGzdu3Lhx4caFGzdu3LhxoUaFGzdu3LhxYcaEGzdu ! 3LhxYsaIGzdu3LhxY8KMGzdu3Lhxo0KNGzdu3LhxY8KMGzdu3LhxY8aEGTdu ! 3LgxYcaMCjdu3LhQY8aMCzdu3LhwY8aICzdu3LhwYsaFGTdu3Lgx4caNGzdu ! BQA7}} ! {{[file join / home ag src q graph images copy.gif]} {user image} user { ! R0lGODlhEAAPAPIDAAAAAAAAgICAgP///////wAAAAAAAAAAACH5BAEAAAQA ! LAAAAAAQAA8AAAONSBERgUFEREhEJIEzMxFIRESERBIzOBMDhERERCgxAIMR ! EREYRCSBMzMSODMTgEQSAwgAMYMzMUAoMTODEgMwGBEhgQMAEDgzM4MTEjM4 ! IzGAAAATKBERgREzMzgzIYIiIhI4AACAE0RESCQxgzMzE0hERIQSEREYEUGE ! REQiKCIigkREREhERIREREQJADs=}} ! {{[file join / home ag src q graph images paste.gif]} {user image} user { ! R0lGODlhEAAPAPIFAAAAAAAAgICAAP//AICAgP///////wAAACH5BAEAAAYA ! LAAAAAAQAA8AAAONaGZmhgAAZmhmZoYAADA4AACAZgZiKDAAg2BiYEhgBIVV ! VQVIAkaAQgAACABAhmAEJmhiFoEREWBIICaGQlFVWBFGgCYmRhhVVYEVBGIo ! JhSFABURSGBigkZRVVhVQYBiYkIYBQCAFUYACAAQhVVVFWhGRIREEREYEWGG ! ZmZGSEREhGZmZmhmZoZmZmYJADs=}} ! {{[file join / home ag src q graph images cancel.gif]} {user image} user { ! R0lGODlhEQAPAPECAAAAAIAAAP///wAAACH5BAEAAAIALAAAAAARAA8AAAKQ ! lChRokSJEiVKlChRokSJEiVKlChRYUSJEiUmlChRYsKIEiUmjChRosSEESUm ! jChRokSJCSMmjChRokSJEhMmjChRokSJEiUmjChRokSJEiUmTBhRokSJEiUm ! jJgwokSJEiUmjCgxYUSJEiUmjChRYsKIEiUqjChRosSEEiVKlChRokSJEiVK ! lChRokSJEiWqADs=}} ! {{[file join / home ag src q graph images ok.gif]} {user image} user { ! R0lGODlhEQAPAPECAAAAAACAAP///wAAACH5BAEAAAIALAAAAAARAA8AAAKQ ! lChRokSJEiVKlChRokSJEiVKlChRokSJEiUmlChRokSJEiUqjChRokSJEiUq ! jChRokSJEiVKTChRokSJCSVKTChRokSJCiNKVBhRokSJEhVGVBhRokSJEiUm ! lJhQokSJEiVKTJhQokSJEiVKVJgwokSJEiVKlKgwokSJEiVKlChRokSJEiVK ! lChRokSJEiWqADs=}} ! {{[file join / home ag src q graph images new.gif]} {user image} user { ! R0lGODlhEAAPAPECAAAAAICAgP///////yH5BAEAAAMALAAAAAAQAA8AAAKI ! 3Lhx48aNGzdu3DgQIECAGzdu3DhQokSBGDdu3BhQokSBAjdu3BhQokSBADFu ! 3BhQokSJGzFu3BhQokSJEjFu3BhQokSJEjFu3BhQokSJEjFu3BhQokSJEjFu ! 3BhQokSJEjFu3BhQokSJEjFu3BgQIECAADFu3JgwYcKEGTdu3Lhx48aNGzdu ! BQA7}} ! {{[file join / home ag src q graph images print.gif]} {user image} user { ! R0lGODlhEAAPAPIEAAAAAIAAAICAAICAgP///////wAAAAAAACH5BAEAAAUA ! LAAAAAAQAA8AAAONWFVVhVVVVVhVVYVVBQAIAACAVVVVCEREhEQEVVhVBYQA ! AEAIVVWFBURESEQEhVVVBUgAAIAEAFBYBUSEREQEODBQgAAAAAgAA4MAICVY ! UlKCBQMDCAAAgAAAAAgzAIIlJTUYUQKDAFBSKCUlhVIAAAgAAIAAAAAIAFWA ! AAAACAAAgFVVVVhVVYVVVVUJADs=}} } { --- 173,285 ---- foreach img { ! {{[file join / home ag cvs q pics gtk stock_new_16.png]} {user image} user { ! iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGP ! C/xhBQAAAAZiS0dEAP8A/wD/oL2nkwAAAAlwSFlzAAALEgAACxIB0t1+/AAA ! AAd0SU1FB9IBBRUsIm8ghdcAAADaSURBVHjatVMxCoQwEJwEe19j5Reu8wvX ! 3cd8hIUiFj7gtBVEbI4DsQzJXnFEcnGjNrcwEHYzs7MbAnwjA0AXcEMgyBjD ! QmtNwzBQVVVWJAsKLMvCoq5rUkpRnuc7J8IRwLqurL2iKNC2LeZ5xjiOKMty ! 40qcBBEhSRLEcYz3+4Wu637qOwfGmKAQAPR9jzRNN27kXnLJluDX/XzkEjiS ! 7yIowF2wZzfnj7gbQWt96uLQgZSS7czlWAehV7i8AyHEYef/LbFpGiilTmee ! pgkAnv54j4vf2eJuiR9djwVEDOt+AgAAAABJRU5ErkJggg==}} ! {{[file join / home ag cvs q pics gtk stock_open_16.png]} {user image} user { ! iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABmJLR0QA/wD/ ! AP+gvaeTAAABdUlEQVR42s2TSy8DURiGn06nKpFK2LCwEL/DD6Bdi1iQCMJC ! hI2ERGJvI7ERicTlN7BkhcQlLtERZmhFh2hGVbU6c9rOWNBxq2LnS76ck5O8 ! z3nzvefAf6og4Hzq4J/EMT3ihJUdRznZdpaX538F8byuTuYpyezcFD6fF9t2 ! 8Ff6UcIqM9OLpXQhYPUDIG6oLCwsIftsvF4ZIXJUBwKYloXfX4FlCRobm3i4 ! T9HVOehq5SIyUNVAwTbRTq7Q9RskycNjKoMkSS9WPVCwHfK5PC2tzRwdnjnX ! 1/GQC9jf36KQL7C+tsXu7jZG4gJLpMmaD1/8C5Hj8OCUgd7JFfn9NFQ1Sk9P ! N0bigmRK/3Zw0YjOfSIJgFQ8PD3T2NzYo7+/D0uky0aWzZqMjU4DhFzAZfSS ! keEh0hmjpO33pcdui9tVF1BXX0t7RxvxO7WsOHysMTE+U4zyLYXIeQwhTGRP ! DXEjWlJ8rl2hKJp7+0/PuFwH/88PfAbSm7Sf3btFiwAAAABJRU5ErkJggg== ! }} ! {{[file join / home ag cvs q pics gtk stock_save_16.png]} {user image} user { ! iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGP ! C/xhBQAAAAZiS0dEAP8A/wD/oL2nkwAAAAlwSFlzAAALEgAACxIB0t1+/AAA ! AAd0SU1FB9IBBRUxHSYqxPYAAAHQSURBVHjanZNPaxNBGIef3fwxS3qIaew2 ! JEuLl4jm7LmC0KsiOXgVPPkRxG/gTQoevIsHr4ogNRStEIsgLcVgoLXEJCQh ! S9zV3c1kdjxEYpImOfiDOQzD8/DjZV6AbUD95ylpgPL8AUc/+siXOxixKHOj ! jRBd1+nevAfAjWvrRAHqtsfewSFXZYjq1EGpGVoBGpquEUul+Xx0zMfyLsBI ! 4AZDADZv3aVQKLAsQgheP3+LEME/wWSq1epCWClFLpdDDgIGQzlfMNsgDEN8 ! 38fzvLnSpQ2klPT7/an3YrG4WGCaJqlUCgDXdQmCANM0pwAp5WJB+csJeTON ! DAT+cDi38lmnt1hw0u7zrWnz2/2JPgNKpVChIhrRFwuUUmwkNayNUW3DMLAs ! i263y4f9fZ68eMPtretomctjZkrn+z5WJgHAnQePuP/wMZ1Oh16vh5XPU282 ! +Np0WUvq5wWBEMjB6HMkEgnWVi9SKFzBtm0A4vE4oQjQIzrxid46wLOnO1Nw ! NpvFcX4RMy6MJ+84DkRj52pHgONP79+V1jMZzhotVo0RsHlphexKlFqtRqVS ! od1u02rYCOGRThq82i3jtE7HotLfjTkEakvW9xT4PnHf/gPybdqwW8ZgpgAA ! AABJRU5ErkJggg==}} ! {{[file join / home ag cvs q pics gtk stock_cut_16.png]} {user image} user { ! iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGP ! C/xhBQAAAAZiS0dEAIMApgB/Eko8QgAAAAlwSFlzAAALEQAACxEBf2RfkQAA ! AAd0SU1FB9ICAQgBFSuLp5MAAAFtSURBVHjapZO9S8NQFMV/EbFLxzbESgR3 ! p/YvUOfSUWqLi7tQ/wQRrAhO4iB0UEEXQU07KH7hBwiiok4tVASfSgh1qjba ! JS6pJGliBd/yHufcd969590rGbrgP6vLC8iKavkFBuFdnqCkvRMgkuyUgVYp ! 3wNY3tfvbs4ANK94WwmhnhB+WZiNjz95sFurvXF2evCThayo1ot4oFypAux0 ! ElianskTjURdWYinKqXSHkDhVwFDF0VN0wiHwxSWFwGs26sTzMYnm1tFMunR ! oleg2wsYupBkRbUuzvcBaH41Gc1MvIqnxz61fwBv30h+jSQrahbIybIcN83G ! c73+PhuL9S7d3ly2u2jooqWatI2zgGtgxQ5ZALYdXLZ1x9CFywMtkYinpnKT ! g0Ac2LTxYyDl4NZ8S5AV1TJ0odhnHZAccS7O0IXka2J+bj4SNDSBnMODrKNO ! b8+7OKcHrl84PDomPTYOwMb6KiPDQx3H+Ru9NKWmqslDvQAAAABJRU5ErkJg ! gg==}} ! {{[file join / home ag cvs q pics gtk stock_copy_16.png]} {user image} user { ! iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGP ! C/xhBQAAAAZiS0dEAP8A/wD/oL2nkwAAAAlwSFlzAAALEgAACxIB0t1+/AAA ! AAd0SU1FB9ICAQsoGWQ9ygoAAADSSURBVHjatZI9ioRAEIW/Xjf3YgaCRoqh ! iGZ7hImM9QhewMC7tAfQxFO8SdZhGO2en2UfFBR08ar6qwK4AHoSFzzSNE1y ! yVq7m5zKAJLka4AxZq896HtPyrJk2zaCIGAcR5qmIQxD2rb1m/91An4NFMex ! oii65e+APYB7F6yWZVGWZUqSRF3X6cz0rImTgTEGSV6w91xkrT24vzoBrkt8 ! BDsMg+q6vrG5/4JrMy+t9stVsK4reZ6Tpil93wNQFAVVVR0O6X8mmOeZT968 ! YB/iB+AKav0v6n68jzkAAAAASUVORK5CYII=}} ! {{[file join / home ag cvs q pics gtk stock_paste_16.png]} {user image} user { ! iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGP ! C/xhBQAAAAZiS0dEAP8A/wD/oL2nkwAAAAlwSFlzAAALEQAACxEBf2RfkQAA ! AAd0SU1FB9ICBhMuIgyOTtkAAAGwSURBVHjalZO/S1tRFMc/Lz6RCo9AQV5M ! U0chEDLkP6imDx0sZoi6+AYpSOZ2Mg2ISzFDpm4O3SQQEtAxi0OmQvsECRYK ! VTQaHo0ElTYvPyS3g335UV+b+IUznHvvOXzu954r4azvgAtwA08ZoGVA9EYq ! lRKlUknEYjHx996f8x1JgLi5PqPV+InkGuHFTITFxQVOT8+pWRaGccjK0ium ! nj/j1+0lbzc+2HUAyABN65bjL/u8SXwkEd8gHJ4B4OCgwKSqks3miK3NU72q ! PsCXASSXC4DXqy9JJt8Tj79jfHyMWq2BojxhbjaEOuGm8uNhAwkQFbPI8ec9 ! AFRfkM2tJOlcgSG0IgO0220Avn67ACCdKyCEGFgtSVJa7l3wT/tQfcFOns/n ! MU0Tj8eDpmlkMhksyyIUChEIBLoe3L9Ol8CWpml9eTQadTbRbvA/Aq/XS7lc ! xjRNdF3vb2Bf9/yiAhz9k8DGdiC415RvwpEA6PPB7/f3ezA6OjYUgZMPMsBd ! y+oQ9KpYLGIYBgC6rndeQVEUIpFId5C2t9apmCdY9TrNepOd3U/DzoHzb3xE ! LP8Gigu+LhnO8TMAAAAASUVORK5CYII=}} ! {{[file join / home ag cvs q pics gtk stock_apply_20.png]} {user image} user { ! iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABmJLR0QAvQC9 ! AL1pQtWoAAAA6UlEQVR42mNgGAVEgv9QjAGYyDFs86HlDAU9ETCDKTaQ4dLt ! Uwyf3n+ljlenr277X9ATQbKXcWp49+k1w7MHr0lzxaK98/5XTC9BN/R/69xC ! vK7D6cJn758xCIgKILuWgYGBgeH1++cEXYfNQMaKkBoGBgYGhorpJXBD48q8 ! GBgYGBhWTdnLwMDAwEiSC2FAQFSAIbM1jYGBgYGBX4ibqLBjxCP3v2NNCwMD ! AwPDg2tnGf79+88wq2EDIT14XQj3Ois7K8PLx+8Iuo6gl2FAWlmPYePcQwRd ! Ryz4n9mahjepkGUoNQ0bZgAAcsFUSbDR8Q0AAABFelRYdFNvZnR3YXJlAAB4 ! 2nPQUNb0zE1MT/VNTM9MzlYw0TPQM1GwtNA3MNE3MFRILsosLql0KK7MLUgs ! yUzO18svSgcAfGoP+Xj2FMIAAAAzelRYdFNpZ25hdHVyZQAAeNozTzGzMLY0 ! SzQxMbNIs0gyNTMytkgzM04xNDBOSTZOSwUAhYUIdy/+b0EAAAAASUVORK5C ! YII=}} ! {{[file join / home ag cvs q pics gtk stock_cancel_20.png]} {user image} user { ! iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABmJLR0QAvQC9 ! AL1pQtWoAAAA60lEQVR42u2UPQ6CMBzFX42DcTIO3sHdkZGNxAOwyc7GFdy8 ! g3cgcStb48TmQMIBTGyIkYV0qws0SGkbXPUlHZq2v77/6wfwV0+ybbZxTTPT ! ZBYnOHu+aaG8+PvRMRMQdVFis1iObpaFkdG2CUgCmgLA0KXMwgiCV7g+7pOA ! Sj2XCla8njjecgAgmhMHr8tKiYsGB0aNa50Oh7LBXEAt/DZXa1UzG0zwamoB ! o8CP8AOads5w2nmA/bJrQMniRMGSnKkSuWiwXa2nO6yLUoMBIO1h2F4PAGA+ ! 6JOApt1kLXwuGtPr+VquD+MX9QYG2GaAbdiF1AAAAEV6VFh0U29mdHdhcmUA ! AHjac9BQ1vTMTUxP9U1Mz0zOVjDRM9AzUbC00Dcw0TcwVEguyiwuqXQorswt ! SCzJTM7Xyy9KBwB8ag/5ePYUwgAAADN6VFh0U2lnbmF0dXJlAAB42jNITDE2 ! sDQzSDIzM0q2NDNKSzQ0N7ZINTdKNjZINDJIAQCIJAhRFJTPOwAAAABJRU5E ! rkJggg==}} ! {{[file join / home ag cvs q pics gtk stock_print_16.png]} {user image} user { ! iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABmJLR0QA/wD/ ! AP+gvaeTAAABrElEQVR42qWTTW9SQRSGn5l7u7IaQ6D3kibChtikrvkBGFcs ! jAtZuSL8EP8K0ZgaUdYEXYgbdM2uXdXQJnyFhCqXGWaOGykSaUSdZDLJmXPe ! j3kz8J9LbanJ38zpbbcisnWPRqPfevVNFMVikV6vh1KKdDpNt9tlOBzuZmHF ! 5r1fM2nNdDqlUCj82QJAtVoliiK01mdRFNFqtXZ/xJv87qLgOoFKpQJAvV4n ! k8nQaDS29v2qQN6328TZmOPjBwwGg62SLy8v6PcvKJfLG/PS6XTEWisiIsaY ! 69NaK9ZaMcZIkiRydTWT0Wgo796+EUBWCGKMwTnHZDLm5OQ1tVqNZrNJqVRi ! Pv/OXhjixbO0htPTM7LxAY+fPCX4CfA8G0fcvXMbRLh/dEQyn5PP53DLJV4E ! EMR7QNFut1ksEl68fEW48pBKpeh+/sKnjx+Yzb6BAuccSim8czjv0VqjdUDp ! 4SOWSwewBtjfv0UcH3B4+AyzMHgE7zwKWHqHMZa9MCAIApTSWGs2UpB87h75 ! fI4wDFF6HY5zDu88IoK1BhEhSRLG4wnnX/ubMf7Lb/4BM3n1o2xqPPwAAAAA ! SUVORK5CYII=}} } { *************** *** 285,291 **** global vTcl ! set cmd [lindex $args 0] ! set name [lindex $args 1] ! set newname [lindex $args 2] set rest [lrange $args 3 end] if {$name == "" || $cmd == ""} { return } --- 304,308 ---- global vTcl ! foreach {cmd name newname} [lrange $args 0 2] {} set rest [lrange $args 3 end] if {$name == "" || $cmd == ""} { return } *************** *** 405,412 **** set command [lindex $args 0] set args [lrange $args 1 end] ! switch -- $command { "setvar" { ! set varname [lindex $args 0] ! set value [lindex $args 1] if {$value == ""} { return [set ::${w}::${varname}] --- 422,428 ---- set command [lindex $args 0] set args [lrange $args 1 end] ! switch -- [string tolower $command] { "setvar" { ! foreach {varname value} $args {} if {$value == ""} { return [set ::${w}::${varname}] *************** *** 415,427 **** } } ! "hide" - "Hide" - "show" - "Show" { Window [string tolower $command] $w } ! "ShowModal" { ! Window show $w ! raise $w ! grab $w ! tkwait window $w ! grab release $w } default { --- 431,452 ---- } } ! "hide" - "show" { Window [string tolower $command] $w } ! "showmodal" { ! ## modal dialog ends when window is destroyed ! Window show $w; raise $w ! grab $w; tkwait window $w; grab release $w ! } ! "startmodal" { ! ## ends when endmodal called ! Window show $w; raise $w ! set ::${w}::_modal 1 ! grab $w; tkwait variable ::${w}::_modal; grab release $w ! } ! "endmodal" { ! ## ends modal dialog started with startmodal, argument is var name ! set ::${w}::_modal 0 ! Window hide $w } default { *************** *** 443,457 **** return $w } ! ## The first argument is a switch, they must be doing a configure. ! if {[string index $args 0] == "-"} { ! set command configure ! ## There's only one argument, must be a cget. ! if {[llength $args] == 1} { ! set command cget ! } ! } else { ! set command [lindex $args 0] ! set args [lrange $args 1 end] ! } uplevel $w $command $args } --- 468,474 ---- return $w } ! ! set command [lindex $args 0] ! set args [lrange $args 1 end] uplevel $w $command $args } *************** *** 467,471 **** uplevel #0 eval toplevel $args set target [lindex $args 0] ! namespace eval ::$target {} } } --- 484,488 ---- uplevel #0 eval toplevel $args set target [lindex $args 0] ! namespace eval ::$target {set _modal 0} } } *************** *** 882,885 **** --- 899,903 ---- set compounds { } + set projectType single } } *************** *** 938,947 **** wm focusmodel $top passive wm geometry $top 1x1+0+0; update ! wm maxsize $top 1137 834 wm minsize $top 1 1 wm overrideredirect $top 0 wm resizable $top 1 1 wm withdraw $top ! wm title $top "vtcl.tcl" bindtags $top "$top Vtcl.tcl all" vTcl:FireEvent $top <<Create>> --- 956,965 ---- wm focusmodel $top passive wm geometry $top 1x1+0+0; update ! wm maxsize $top 2545 994 wm minsize $top 1 1 wm overrideredirect $top 0 wm resizable $top 1 1 wm withdraw $top ! wm title $top "vtcl.tcl #2" bindtags $top "$top Vtcl.tcl all" vTcl:FireEvent $top <<Create>> *************** *** 969,973 **** -menu "$top.m82" -highlightcolor black wm focusmodel $top passive ! wm geometry $top 609x422; update wm maxsize $top 1137 834 wm minsize $top 1 1 --- 987,991 ---- -menu "$top.m82" -highlightcolor black wm focusmodel $top passive ! wm geometry $top 600x420; update wm maxsize $top 1137 834 wm minsize $top 1 1 *************** *** 1083,1087 **** button $site_4_0.but83 \ -command {q [graphed]::new_cb} \ ! -image [vTcl:image:get_image [file join / home ag src q graph images new.gif]] \ -overrelief raised -relief flat -text button vTcl:DefineAlias "$site_4_0.but83" "NewButton" vTcl:WidgetProc "Toplevel1" 1 --- 1101,1105 ---- button $site_4_0.but83 \ -command {q [graphed]::new_cb} \ ! -image [vTcl:image:get_image [file join / home ag cvs q pics gtk stock_new_16.png]] \ -overrelief raised -relief flat -text button vTcl:DefineAlias "$site_4_0.but83" "NewButton" vTcl:WidgetProc "Toplevel1" 1 *************** *** 1092,1096 **** button $site_4_0.but84 \ -command {q [graphed]::open_cb} \ ! -image [vTcl:image:get_image [file join / home ag src q graph images open.gif]] \ -overrelief raised -relief flat -text button vTcl:DefineAlias "$site_4_0.but84" "OpenButton" vTcl:WidgetProc "Toplevel1" 1 --- 1110,1114 ---- button $site_4_0.but84 \ -command {q [graphed]::open_cb} \ ! -image [vTcl:image:get_image [file join / home ag cvs q pics gtk stock_open_16.png]] \ -overrelief raised -relief flat -text button vTcl:DefineAlias "$site_4_0.but84" "OpenButton" vTcl:WidgetProc "Toplevel1" 1 *************** *** 1101,1105 **** button $site_4_0.but85 \ -command {q [graphed]::save_cb} \ ! -image [vTcl:image:get_image [file join / home ag src q graph images save.gif]] \ -overrelief raised -relief flat -text button vTcl:DefineAlias "$site_4_0.but85" "SaveButton" vTcl:WidgetProc "Toplevel1" 1 --- 1119,1123 ---- button $site_4_0.but85 \ -command {q [graphed]::save_cb} \ ! -image [vTcl:image:get_image [file join / home ag cvs q pics gtk stock_save_16.png]] \ -overrelief raised -relief flat -text button vTcl:DefineAlias "$site_4_0.but85" "SaveButton" vTcl:WidgetProc "Toplevel1" 1 *************** *** 1110,1114 **** button $site_4_0.but86 \ -command {q [graphed]::print_cb} \ ! -image [vTcl:image:get_image [file join / home ag src q graph images print.gif]] \ -overrelief raised -relief flat -text button vTcl:DefineAlias "$site_4_0.but86" "PrintButton" vTcl:WidgetProc "Toplevel1" 1 --- 1128,1132 ---- button $site_4_0.but86 \ -command {q [graphed]::print_cb} \ ! -image [vTcl:image:get_image [file join / home ag cvs q pics gtk stock_print_16.png]] \ -overrelief raised -relief flat -text button vTcl:DefineAlias "$site_4_0.but86" "PrintButton" vTcl:WidgetProc "Toplevel1" 1 *************** *** 1118,1128 **** } pack $site_4_0.but83 \ ! -in $site_4_0 -anchor center -expand 0 -fill none -side left pack $site_4_0.but84 \ ! -in $site_4_0 -anchor center -expand 0 -fill none -side left pack $site_4_0.but85 \ ! -in $site_4_0 -anchor center -expand 0 -fill none -side left pack $site_4_0.but86 \ ! -in $site_4_0 -anchor center -expand 0 -fill none -side left frame $site_3_0.fra87 \ -borderwidth 2 -height 75 -width 125 --- 1136,1150 ---- } pack $site_4_0.but83 \ ! -in $site_4_0 -anchor center -expand 0 -fill none -ipadx 2 -ipady 2 \ ! -side left pack $site_4_0.but84 \ ! -in $site_4_0 -anchor center -expand 0 -fill none -ipadx 2 -ipady 2 \ ! -side left pack $site_4_0.but85 \ ! -in $site_4_0 -anchor center -expand 0 -fill none -ipadx 2 -ipady 2 \ ! -side left pack $site_4_0.but86 \ ! -in $site_4_0 -anchor center -expand 0 -fill none -ipadx 2 -ipady 2 \ ! -side left frame $site_3_0.fra87 \ -borderwidth 2 -height 75 -width 125 *************** *** 1131,1135 **** button $site_4_0.but88 \ -command {q [graphed]::cut_cb} \ ! -image [vTcl:image:get_image [file join / home ag src q graph images cut.gif]] \ -overrelief raised -relief flat -text button vTcl:DefineAlias "$site_4_0.but88" "CutButton" vTcl:WidgetProc "Toplevel1" 1 --- 1153,1157 ---- button $site_4_0.but88 \ -command {q [graphed]::cut_cb} \ ! -image [vTcl:image:get_image [file join / home ag cvs q pics gtk stock_cut_16.png]] \ -overrelief raised -relief flat -text button vTcl:DefineAlias "$site_4_0.but88" "CutButton" vTcl:WidgetProc "Toplevel1" 1 *************** *** 1140,1144 **** button $site_4_0.but89 \ -command {q [graphed]::copy_cb} \ ! -image [vTcl:image:get_image [file join / home ag src q graph images copy.gif]] \ -overrelief raised -relief flat -text button vTcl:DefineAlias "$site_4_0.but89" "CopyButton" vTcl:WidgetProc "Toplevel1" 1 --- 1162,1166 ---- button $site_4_0.but89 \ -command {q [graphed]::copy_cb} \ ! -image [vTcl:image:get_image [file join / home ag cvs q pics gtk stock_copy_16.png]] \ -overrelief raised -relief flat -text button vTcl:DefineAlias "$site_4_0.but89" "CopyButton" vTcl:WidgetProc "Toplevel1" 1 *************** *** 1149,1153 **** button $site_4_0.but90 \ -command {q [graphed]::paste_cb} \ ! -image [vTcl:image:get_image [file join / home ag src q graph images paste.gif]] \ -overrelief raised -relief flat -text button vTcl:DefineAlias "$site_4_0.but90" "PasteButton" vTcl:WidgetProc "Toplevel1" 1 --- 1171,1175 ---- button $site_4_0.but90 \ -command {q [graphed]::paste_cb} \ ! -image [vTcl:image:get_image [file join / home ag cvs q pics gtk stock_paste_16.png]] \ -overrelief raised -relief flat -text button vTcl:DefineAlias "$site_4_0.but90" "PasteButton" vTcl:WidgetProc "Toplevel1" 1 *************** *** 1157,1165 **** } pack $site_4_0.but88 \ ! -in $site_4_0 -anchor center -expand 0 -fill none -side left pack $site_4_0.but89 \ ! -in $site_4_0 -anchor center -expand 0 -fill none -side left pack $site_4_0.but90 \ ! -in $site_4_0 -anchor center -expand 0 -fill none -side left ComboBox $site_3_0.com82 \ -command {q [graphed]::zoom_entry_cb} -entrybg white -height 10 \ --- 1179,1190 ---- } pack $site_4_0.but88 \ ! -in $site_4_0 -anchor center -expand 0 -fill none -ipadx 2 -ipady 2 \ ! -side left pack $site_4_0.but89 \ ! -in $site_4_0 -anchor center -expand 0 -fill none -ipadx 2 -ipady 2 \ ! -side left pack $site_4_0.but90 \ ! -in $site_4_0 -anchor center -expand 0 -fill none -ipadx 2 -ipady 2 \ ! -side left ComboBox $site_3_0.com82 \ -command {q [graphed]::zoom_entry_cb} -entrybg white -height 10 \ *************** *** 1181,1185 **** button $site_3_0.but82 \ -command {q [graphed]::enter_cb} \ ! -image [vTcl:image:get_image [file join / home ag src q graph images ok.gif]] \ -overrelief raised -relief flat -text button vTcl:DefineAlias "$site_3_0.but82" "OkButton" vTcl:WidgetProc "Toplevel1" 1 --- 1206,1210 ---- button $site_3_0.but82 \ -command {q [graphed]::enter_cb} \ ! -image [vTcl:image:get_image [file join / home ag cvs q pics gtk stock_apply_20.png]] \ -overrelief raised -relief flat -text button vTcl:DefineAlias "$site_3_0.but82" "OkButton" vTcl:WidgetProc "Toplevel1" 1 *************** *** 1190,1194 **** button $site_3_0.but81 \ -command {q [graphed]::cancel_cb} \ ! -image [vTcl:image:get_image [file join / home ag src q graph images cancel.gif]] \ -overrelief raised -relief flat -text button vTcl:DefineAlias "$site_3_0.but81" "CancelButton" vTcl:WidgetProc "Toplevel1" 1 --- 1215,1219 ---- button $site_3_0.but81 \ -command {q [graphed]::cancel_cb} \ ! -image [vTcl:image:get_image [file join / home ag cvs q pics gtk stock_cancel_20.png]] \ -overrelief raised -relief flat -text button vTcl:DefineAlias "$site_3_0.but81" "CancelButton" vTcl:WidgetProc "Toplevel1" 1 *************** *** 1876,1884 **** vTcl:DefineAlias "$top" "Toplevel2" vTcl:Toplevel:WidgetProc "" 1 bindtags $top "$top Toplevel all _TopLevel" - bind $top <Alt-Key-l> { - # TODO: your event handler here - tk::ButtonInvoke $widget(LandscapeButton) - focus $widget(LandscapeButton) - } bind $top <Alt-Key-c> { # TODO: your event handler here --- 1901,1904 ---- *************** *** 1894,1897 **** --- 1914,1922 ---- focus $widget(PrintCropmarksButton) } + bind $top <Alt-Key-l> { + # TODO: your event handler here + tk::ButtonInvoke $widget(LandscapeButton) + focus $widget(LandscapeButton) + } bind $top <Alt-Key-m> { # TODO: your event handler here *************** *** 2142,2146 **** } bind "_TopLevel" <<DeleteWindow>> { ! destroy %W; if {$_topcount == 0} {exit} } bind "_TopLevel" <Destroy> { --- 2167,2175 ---- } bind "_TopLevel" <<DeleteWindow>> { ! if {[set ::%W::_modal]} { ! vTcl:Toplevel:WidgetProc %W endmodal ! } else { ! destroy %W; if {$_topcount == 0} {exit} ! } } bind "_TopLevel" <Destroy> { |