if 0 {[Richard Suchenwirth] 2004-12-12 - Not as exciting as Baywatch, but still I had some fun... Some editors (e.g. PFE, MS Visual Studio) pop up an alert dialog when a file was changed on disk while being edited - that might lead to edit conflicts. Emacs shows a more subtle warning at the first attempt to change a file that has changed on disk. In this fun project I try to emulate this feature. It is oversimplified because it does not update the mtime (file modification time) to check, once you saved it from the editor itself. So make sure to call text'watch'file again after saving. Using the global variable ::_twf it is at least possible to avoid false alarms - for a more serious implementation one might use a namespaced array of watchers, indexed by file name, in case you want multiple edit windows. } proc text'watch'file {w file {mtime -}} { set checkinterval 1000 ;# modify as needed if {$mtime eq "-"} { if [info exists ::_twf] {after cancel $::_twf} set file [file join [pwd] $file] text'watch'file $w $file [file mtime $file] } else { set newtime [file mtime $file] if {$newtime != $mtime} { set answer [tk_messageBox -type yesno -message \ "The file\n$file\nhas changed on disk. Reload it?"] if {$answer eq "yes"} {text'read'file $w $file} text'watch'file $w $file } else {set ::_twf [after $checkinterval [info level 0]]} } } proc text'read'file {w file} { set f [open $file] $w delete 1.0 end $w insert end [read $f] close $f } #-- Testing: pack [text .t -wrap word] -fill both -expand 1 set file textwatch.tcl text'read'file .t $file text'watch'file .t $file if 0 {The dialog should come up when you change the file externally, say by ''touch''-ing it in pure Tcl, which might be done with file mtime $filename [clock seconds] or editing it with another editor. ---- See also [http://mini.net/tcl/10866] for watching ''directory''-changes in a similar way.... ---- [Arts and crafts of Tcl-Tk programming] } [http://shanghailvshi.shop263.com 上海律师] [http://bianhulvshi.shop263.com 辩护律师] [http://pinqinglvshi.shop263.com 聘请律师] [http://hunyinfalvshi.shop263.com 婚姻法律师] [http://pinganrenshou.shop263.com 平安人寿] [http://renshoubaoxian.shop263.com 人寿保险] [http:/www.88558888.com/lipin042/001.htm 斜面玻璃珠] [http:/www.88558888.com/lipin042/002.htm 斜塔旋转手机座] [http:/www.88558888.com/lipin042/003.htm 斜纹玻璃] [http:/www.88558888.com/lipin042/004.htm 斜纹绸印花方巾] [http:/www.88558888.com/lipin042/005.htm 斜鞋] [http:/www.88558888.com/lipin042/006.htm 鞋扒] [http:/www.88558888.com/lipin042/007.htm 鞋材] [http:/www.88558888.com/lipin042/008.htm 鞋带] [http:/www.88558888.com/lipin042/009.htm 鞋花] [http:/www.88558888.com/lipin042/010.htm 鞋花鞋] [http:/www.88558888.com/lipin042/011.htm 鞋架] [http:/www.88558888.com/lipin042/012.htm 鞋扣] [http:/www.88558888.com/lipin042/013.htm 鞋篮] [http:/www.88558888.com/lipin042/014.htm 鞋类] [http:/www.88558888.com/lipin042/015.htm 鞋类饰品] [http:/www.88558888.com/lipin042/016.htm 鞋链] [http:/www.88558888.com/lipin042/017.htm 鞋帽] [http:/www.88558888.com/lipin042/018.htm 鞋帽配件] [http:/www.88558888.com/lipin042/019.htm 鞋帽箱包] [http:/www.88558888.com/lipin042/020.htm 鞋模] [http:/www.88558888.com/lipin042/021.htm 鞋饰] [http:/www.88558888.com/lipin042/022.htm 鞋眼] [http:/www.88558888.com/lipin042/022.htm 鞋子] [http:/www.88558888.com/lipin042/023.htm 鞋子工艺饰品盒] [http:/www.88558888.com/lipin042/024.htm 写生风景] [http:/www.88558888.com/lipin042/025.htm 写字闪光笔] [http:/www.88558888.com/lipin042/026.htm 写字台] [http:/www.88558888.com/lipin042/027.htm 心非洲情侣蜡烛] [http:/www.88558888.com/lipin042/028.htm 心盒] [http:/www.88558888.com/lipin042/029.htm 心经球] [http:/www.88558888.com/lipin042/030.htm 心牌项链] [http:/www.88558888.com/lipin042/031.htm 心情戒指] [http:/www.88558888.com/lipin042/032.htm 心相印戒指] [http:/www.88558888.com/lipin042/033.htm 心心相印] [http:/www.88558888.com/lipin042/034.htm 心形] [http:/www.88558888.com/lipin042/035.htm 心形雕字] [http:/www.88558888.com/lipin042/036.htm 心形吊牌] [http:/www.88558888.com/lipin042/037.htm 心形浮水蜡烛] [http:/www.88558888.com/lipin042/038.htm 心形挂件] [http:/www.88558888.com/lipin042/039.htm 心形海绵] [http:/www.88558888.com/lipin042/040.htm 心形盒] [http:/www.88558888.com/lipin042/041.htm 心形盒套装] [http:/www.88558888.com/lipin042/042.htm 心形蜡烛罐] [http:/www.88558888.com/lipin042/043.htm 心形闪光磁力扣] [http:/www.88558888.com/lipin042/044.htm 心形闪光吊坠] [http:/www.88558888.com/lipin042/045.htm 心形手链] [http:/www.88558888.com/lipin042/046.htm 心形梳镜] [http:/www.88558888.com/lipin042/047.htm 心形陶瓷香座香插] [http:/www.88558888.com/lipin042/048.htm 心形套链] [http:/www.88558888.com/lipin042/049.htm 心形铁丝蓝] [http:/www.88558888.com/lipin042/050.htm 心型电子匙扣表] [http:/www.88558888.com/lipin042/051.htm 心型挂件] [http:/www.88558888.com/lipin042/052.htm 心型怀表] [http:/www.88558888.com/lipin042/053.htm 心型气球] [http:/www.88558888.com/lipin042/054.htm 心型水晶干花] [http:/www.88558888.com/lipin042/055.htm 心型钟表] [http:/www.88558888.com/lipin042/056.htm 心依恋耳环] [http:/www.88558888.com/lipin042/057.htm 心语项链] [http:/www.88558888.com/lipin042/058.htm 心字水果蓝工艺品] [http:/www.88558888.com/lipin042/059.htm 心钻项链] [http:/www.88558888.com/lipin042/060.htm 欣赏石] [http:/www.88558888.com/lipin042/061.htm 锌合金材料] [http:/www.88558888.com/lipin042/062.htm 锌合金] [http:/www.88558888.com/lipin042/063.htm 锌合金匙扣] [http:/www.88558888.com/lipin042/064.htm 锌合金大牌] [http:/www.88558888.com/lipin042/065.htm 锌合金飞机] [http:/www.88558888.com/lipin042/066.htm 锌合金风铃] [http:/www.88558888.com/lipin042/067.htm 锌合金功能匙扣] [http:/www.88558888.com/lipin042/068.htm 锌合金徽章] [http:/www.88558888.com/lipin042/069.htm 锌合金皮包配件] [http:/www.88558888.com/lipin042/070.htm 锌合金饰品] [http:/www.88558888.com/lipin042/071.htm 锌合金手挽] [http:/www.88558888.com/lipin042/072.htm 锌合金锁匙扣] [http:/www.88558888.com/lipin042/073.htm 锌合金托盘] [http:/www.88558888.com/lipin042/074.htm 锌合金相框] [http:/www.88558888.com/lipin042/075.htm 锌合金象棋] [http:/www.88558888.com/lipin042/076.htm 锌合金压铸] [http:/www.88558888.com/lipin042/077.htm 锌合金压铸件] [http:/www.88558888.com/lipin042/078.htm 锌合金烟灰缸] [http:/www.88558888.com/lipin042/079.htm 锌合金钥匙扣] [http:/www.88558888.com/lipin042/080.htm 锌合金钥匙扣] [http:/www.88558888.com/lipin042/081.htm 锌铝合金] [http:/www.88558888.com/lipin042/082.htm 新版年画] [http:/www.88558888.com/lipin042/083.htm 新潮组合文具] [http:/www.88558888.com/lipin042/084.htm 新春吉祥物] [http:/www.88558888.com/lipin042/085.htm 新骨瓷] [http:/www.88558888.com/lipin042/086.htm 新疆百石缘] [http:/www.88558888.com/lipin042/087.htm 新疆和田籽料--童子拜观音] [http:/www.88558888.com/lipin042/088.htm 新疆特色工艺美术葫芦] [http:/www.88558888.com/lipin042/089.htm 新疆特色铜花瓶] [http:/www.88558888.com/lipin042/090.htm 新疆英吉沙手工艺小刀] [http:/www.88558888.com/lipin042/091.htm 新旧字画] [http:/www.88558888.com/lipin042/092.htm 新款护腕表] [http:/www.88558888.com/lipin042/093.htm 新款火机盒] [http:/www.88558888.com/lipin042/094.htm 新款神奇亮字棒笔] [http:/www.88558888.com/lipin042/095.htm 新浪琴表] [http:/www.88558888.com/lipin042/096.htm 新礼品包装纸] [http:/www.88558888.com/lipin042/097.htm 新力小手电筒] [http:/www.88558888.com/lipin042/098.htm 新旅游纪念品] [http:/www.88558888.com/lipin042/099.htm 新年贺卡] [http:/www.88558888.com/lipin042/100.htm 新年庆典蜡烛] [http:/www.88558888.com/lipin042/101.htm 新年饰物] [http:/www.88558888.com/lipin042/102.htm 新娘发束] [http:/www.88558888.com/lipin042/103.htm 新娘花] [http:/www.88558888.com/lipin042/104.htm 新娘礼花] [http:/www.88558888.com/lipin042/105.htm 新娘礼品] [http:/www.88558888.com/lipin042/106.htm 新娘胸花] [http:/www.88558888.com/lipin042/107.htm 新品泥画] [http:/www.88558888.com/lipin042/108.htm 新品太阳] [http:/www.88558888.com/lipin042/109.htm 新奇光纤花] [http:/www.88558888.com/lipin042/110.htm 新奇特香品] [http:/www.88558888.com/lipin042/111.htm 新推特价金属钥匙扣] [http:/www.88558888.com/lipin042/112.htm 新型宠物玩具] [http:/www.88558888.com/lipin042/113.htm 新型大号老虎扣] [http:/www.88558888.com/lipin042/114.htm 新型铝箔画] [http:/www.88558888.com/lipin042/115.htm 新型亚麻围巾] [http:/www.88558888.com/lipin042/116.htm 新颖吊带] [http:/www.88558888.com/lipin042/117.htm 信拆] [http:/www.88558888.com/lipin042/118.htm 信封贺卡] [http:/www.88558888.com/lipin042/119.htm 信架] [http:/www.88558888.com/lipin042/120.htm 信息] [http:/www.88558888.com/lipin042/121.htm 信用户籍标牌] [http:/www.88558888.com/lipin042/122.htm 信纸] [http:/www.88558888.com/lipin042/123.htm 星光宝石] [http:/www.88558888.com/lipin042/124.htm 星星花] [http:/www.88558888.com/lipin042/125.htm 星形脐饰] [http:/www.88558888.com/lipin042/126.htm 星月旗吊坠] [http:/www.88558888.com/lipin042/127.htm 星云杯垫] [http:/www.88558888.com/lipin042/128.htm 星座CD合] [http:/www.88558888.com/lipin042/129.htm 星座宝石饰品] [http:/www.88558888.com/lipin042/130.htm 星座传奇] [http:/www.88558888.com/lipin042/131.htm 星座打火机烟盒] [http:/www.88558888.com/lipin042/132.htm 星座精品礼物] [http:/www.88558888.com/lipin042/133.htm 星座饰品] [http:/www.88558888.com/lipin042/134.htm 星座手表] [http:/www.88558888.com/lipin042/135.htm 星座手机挂饰] [http:/www.88558888.com/lipin042/136.htm 星座水晶饰品] [http:/www.88558888.com/lipin042/137.htm 星座相框] [http:/www.88558888.com/lipin042/138.htm 星座相框匙扣] [http:/www.88558888.com/lipin042/139.htm 星座项链] [http:/www.88558888.com/lipin042/140.htm 猩猩钥匙扣] [http:/www.88558888.com/lipin042/141.htm 行李吊牌] [http:/www.88558888.com/lipin042/142.htm 行李牌] [http:/www.88558888.com/lipin042/143.htm 行书唐诗] [http:/www.88558888.com/lipin042/144.htm 行运流水招财盆] [http:/www.88558888.com/lipin042/145.htm 形玻璃珠] [http:/www.88558888.com/lipin042/146.htm 形象文件夹] [http:/www.88558888.com/lipin042/147.htm 形型手链] [http:/www.88558888.com/lipin042/148.htm 型水族画] [http:/www.88558888.com/lipin042/149.htm 姓名挂件] [http:/www.88558888.com/lipin042/150.htm 姓名链] [http:/www.88558888.com/lipin042/151.htm 姓名小挂件] [http:/www.88558888.com/lipin042/152.htm 幸运草] [http:/www.88558888.com/lipin042/153.htm 幸运草精品] [http:/www.88558888.com/lipin042/154.htm 幸运草饰品] [http:/www.88558888.com/lipin042/155.htm 幸运草手表带] [http:/www.88558888.com/lipin042/156.htm 幸运鼓] [http:/www.88558888.com/lipin042/157.htm 幸运花耳钉] [http:/www.88558888.com/lipin042/158.htm 幸运桃核饰品] [http:/www.88558888.com/lipin042/159.htm 幸运星] [http:/www.88558888.com/lipin042/160.htm 胸花] [http:/www.88558888.com/lipin042/161.htm 胸花类] [http:/www.88558888.com/lipin042/162.htm 胸花五金饰品] [http:/www.88558888.com/lipin042/163.htm 胸徽] [http:/www.88558888.com/lipin042/164.htm 胸卡] [http:/www.88558888.com/lipin042/165.htm 胸卡带] [http:/www.88558888.com/lipin042/166.htm 胸卡吊带] [http:/www.88558888.com/lipin042/167.htm 胸牌] [http:/www.88558888.com/lipin042/168.htm 胸牌别针] [http:/www.88558888.com/lipin042/169.htm 胸饰] [http:/www.88558888.com/lipin042/170.htm 胸章] [http:/www.88558888.com/lipin042/171.htm 胸章磁力扣] [http:/www.88558888.com/lipin042/172.htm 胸章机] [http:/www.88558888.com/lipin042/173.htm 胸针] [http:/www.88558888.com/lipin042/174.htm 胸针磁力扣] [http:/www.88558888.com/lipin042/175.htm 胸针乐器] [http:/www.88558888.com/lipin042/176.htm 雄鸡] [http:/www.88558888.com/lipin042/177.htm 雄鸡报晓] [http:/www.88558888.com/lipin042/178.htm 雄鸡报晓工艺品] [http:/www.88558888.com/lipin042/179.htm 雄鹰展翅] [http:/www.88558888.com/lipin042/180.htm 雄鹰展翅] [http:/www.88558888.com/lipin042/181.htm 熊猫贵金属纪念币] [http:/www.88558888.com/lipin042/182.htm 熊猫玫瑰花] [http:/www.88558888.com/lipin042/183.htm 熊猫头笔套] [http:/www.88558888.com/lipin042/184.htm 熊兔艺术礼品钟] [http:/www.88558888.com/lipin042/185.htm 休闲表] [http:/www.88558888.com/lipin042/186.htm 休闲布腰带] [http:/www.88558888.com/lipin042/187.htm 休闲灯具] [http:/www.88558888.com/lipin042/188.htm 休闲购物袋] [http:/www.88558888.com/lipin042/189.htm 休闲礼品] [http:/www.88558888.com/lipin042/190.htm 休闲太阳镜] [http:/www.88558888.com/lipin042/191.htm 休闲套表] [http:/www.88558888.com/lipin042/192.htm 休闲围巾] [http:/www.88558888.com/lipin042/193.htm 休闲腰带] [http:/www.88558888.com/lipin042/194.htm 休闲椅] [http:/www.88558888.com/lipin042/195.htm 休闲用品] [http:/www.88558888.com/lipin042/196.htm 休闲运动表] [http:/www.88558888.com/lipin042/197.htm 修边机] [http:/www.88558888.com/lipin042/198.htm 修甲套装] [http:/www.88558888.com/lipin042/199.htm 修剪假指甲] [http:/www.88558888.com/lipin042/200.htm 修剪树] [http:/www.88558888.com/lipin042/201.htm 修坯刀] [http:/www.88558888.com/lipin042/202.htm 秀色可餐耳环] [http:/www.88558888.com/lipin042/203.htm 秀色指环] [http:/www.88558888.com/lipin042/204.htm 岫玉壁画] [http:/www.88558888.com/lipin042/205.htm 岫玉佛珠项链] [http:/www.88558888.com/lipin042/206.htm 岫玉片枕] [http:/www.88558888.com/lipin042/207.htm 岫玉手镯] [http:/www.88558888.com/lipin042/208.htm 岫玉玉雕] [http:/www.88558888.com/lipin042/209.htm 岫玉玉石珠子项链] [http:/www.88558888.com/lipin042/210.htm 绣布] [http:/www.88558888.com/lipin042/211.htm 绣花] [http:/www.88558888.com/lipin042/212.htm 绣花包] [http:/www.88558888.com/lipin042/213.htm 绣花包边章] [http:/www.88558888.com/lipin042/214.htm 绣花标] [http:/www.88558888.com/lipin042/215.htm 绣花窗纱] [http:/www.88558888.com/lipin042/216.htm 绣花床上用品] [http:/www.88558888.com/lipin042/217.htm 绣花大方巾] [http:/www.88558888.com/lipin042/218.htm 绣花耳枕] [http:/www.88558888.com/lipin042/219.htm 绣花工艺] [http:/www.88558888.com/lipin042/220.htm 绣花购物袋] [http:/www.88558888.com/lipin042/221.htm 绣花骷髅饰物] [http:/www.88558888.com/lipin042/222.htm 绣花旗] [http:/www.88558888.com/lipin042/223.htm 绣花饰品] [http:/www.88558888.com/lipin042/224.htm 绣花书签] [http:/www.88558888.com/lipin042/225.htm 绣花提包项链] [http:/www.88558888.com/lipin042/226.htm 绣花童毯] [http:/www.88558888.com/lipin042/227.htm 绣花拖鞋布老虎] [http:/www.88558888.com/lipin042/228.htm 绣花镶嵌披巾] [http:/www.88558888.com/lipin042/229.htm 绣花鞋袋] [http:/www.88558888.com/lipin042/230.htm 绣花鞋垫] [http:/www.88558888.com/lipin042/231.htm 绣花章加包边] [http:/www.88558888.com/lipin042/232.htm 绣画] [http:/www.88558888.com/lipin042/233.htm 绣片] [http:/www.88558888.com/lipin042/234.htm 绣品] [http:/www.88558888.com/lipin042/235.htm 绣屏] [http:/www.88558888.com/lipin042/236.htm 绣什品] [http:/www.88558888.com/lipin042/237.htm 绣手工艺包] [http:/www.88558888.com/lipin042/238.htm 绣线] [http:/www.88558888.com/lipin042/239.htm 绣章] [http:/www.88558888.com/lipin042/240.htm 袖口唛] [http:/www.88558888.com/lipin042/241.htm 袖口纽] [http:/www.88558888.com/lipin042/242.htm 袖扣] [http:/www.88558888.com/lipin042/243.htm 袖扣领夹] [http:/www.88558888.com/lipin042/244.htm 袖套] [http:/www.88558888.com/lipin042/245.htm 袖珍剑] [http:/www.88558888.com/lipin042/246.htm 袖珍汽车挂灯] [http:/www.88558888.com/lipin042/247.htm 锈钢耳饰] [http:/www.88558888.com/lipin042/248.htm 虚扁绿茶具] [http:/www.88558888.com/lipin042/249.htm 宣传册] [http:/www.88558888.com/lipin042/250.htm 宣传画] [http:/www.88558888.com/lipin042/251.htm 宣传架台] [http:/www.88558888.com/lipin042/252.htm 宣传牌] [http:/www.88558888.com/lipin042/253.htm 宣传品] [http:/www.88558888.com/lipin042/254.htm 宣传用品] [http:/www.88558888.com/lipin042/255.htm 宣纸] [http:/www.88558888.com/lipin042/256.htm 悬浮地球仪] [http:/www.88558888.com/lipin042/257.htm 旋风环计时器] [http:/www.88558888.com/lipin042/258.htm 旋转地球] [http:/www.88558888.com/lipin042/259.htm 旋转雕刻黑陶激光雕刻机] [http:/www.88558888.com/lipin042/260.htm 旋转精品架] [http:/www.88558888.com/lipin042/261.htm 旋转球] [http:/www.88558888.com/lipin042/262.htm 旋转手机座] [http:/www.88558888.com/lipin042/263.htm 旋转书签笔] [http:/www.88558888.com/lipin042/264.htm 旋转双面锁匙扣] [http:/www.88558888.com/lipin042/265.htm 旋转水晶灯座] [http:/www.88558888.com/lipin042/266.htm 旋转锁匙扣] [http:/www.88558888.com/lipin042/267.htm 旋转台] [http:/www.88558888.com/lipin042/268.htm 旋转套管] [http:/www.88558888.com/lipin042/269.htm 旋转图文显示球] [http:/www.88558888.com/lipin042/270.htm 旋转音乐球] [http:/www.88558888.com/lipin042/271.htm 炫丽的五彩水晶石] [http:/www.88558888.com/lipin042/272.htm 眩彩壶] [http:/www.88558888.com/lipin042/273.htm 靴形陶] [http:/www.88558888.com/lipin042/274.htm 穴位按摩器] [http:/www.88558888.com/lipin042/275.htm 学具] [http:/www.88558888.com/lipin042/276.htm 学生包] [http:/www.88558888.com/lipin042/277.htm 学习画] [http:/www.88558888.com/lipin042/278.htm 学习机展架] [http:/www.88558888.com/lipin042/279.htm 雪车] [http:/www.88558888.com/lipin042/280.htm 雪纺长巾] [http:/www.88558888.com/lipin042/281.htm 雪纺长形丝巾] [http:/www.88558888.com/lipin042/282.htm 雪纺红皮长巾] [http:/www.88558888.com/lipin042/283.htm 雪纺烫金丝巾] [http:/www.88558888.com/lipin042/284.htm 雪纺围巾] [http:/www.88558888.com/lipin042/285.htm 雪纺扎染盘带绣花] [http:/www.88558888.com/lipin042/286.htm 雪弗板] [http:/www.88558888.com/lipin042/287.htm 雪花串] [http:/www.88558888.com/lipin042/288.htm 雪花粉] [http:/www.88558888.com/lipin042/289.htm 雪花片] [http:/www.88558888.com/lipin042/290.htm 雪花片铃] [http:/www.88558888.com/lipin042/291.htm 雪花珠穗围巾] [http:/www.88558888.com/lipin042/292.htm 雪尼尔披毯] [http:/www.88558888.com/lipin042/293.htm 雪尼尔葡萄巾] [http:/www.88558888.com/lipin042/294.htm 雪尼尔围巾] [http:/www.88558888.com/lipin042/295.htm 雪茄保湿器] [http:/www.88558888.com/lipin042/296.htm 雪茄刀] [http:/www.88558888.com/lipin042/297.htm 雪茄盒] [http:/www.88558888.com/lipin042/298.htm 雪茄盒保湿器] [http:/www.88558888.com/lipin042/299.htm 雪茄剪] [http:/www.88558888.com/lipin042/300.htm 雪茄盆] [http:/www.88558888.com/lipin042/301.htm 雪茄烟保湿盒] [http:/www.88558888.com/lipin042/302.htm 雪茄烟试管] [http:/www.88558888.com/lipin042/303.htm 雪茄用品] [http:/www.88558888.com/lipin042/304.htm 雪人蜡烛] [http:/www.88558888.com/lipin042/305.htm 雪人闪光贴] [http:/www.88558888.com/lipin042/306.htm 血玲珑耳钉] [http:/www.88558888.com/lipin042/307.htm 勋章] [http:/www.88558888.com/lipin042/308.htm 熏香] [http:/www.88558888.com/lipin042/309.htm 熏香及熏香炉] [http:/www.88558888.com/lipin042/310.htm 熏香炉] [http:/www.88558888.com/lipin042/311.htm 熏香台] [http:/www.88558888.com/lipin042/312.htm 熏香项链] [http:/www.88558888.com/lipin042/313.htm 熏香小夜灯] [http:/www.88558888.com/lipin042/314.htm 熏衣草]