381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
|
psmenu::psmenu $w {
"&File" {
"&Save" -cmd "saveMerge $top"
----
"&Close" -cmd "closeMerge $top"
}
"&Select" {
_Radio -var ::ruleset($top,curMergeSel) -cmd "selectMerge $top" {
"Left+Right" -value 12
"&Left" -value 1
"&Right" -value 2
"Right+Left" -value 21
}
---
"All Left" -cmd "selectMergeAll $top 1"
|
|
|
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
|
psmenu::psmenu $w {
"&File" {
"&Save" -cmd "saveMerge $top"
----
"&Close" -cmd "closeMerge $top"
}
"&Select" {
_Radio -var ::eskil($top,curMergeSel) -cmd "selectMerge $top" {
"Left+Right" -value 12
"&Left" -value 1
"&Right" -value 2
"Right+Left" -value 21
}
---
"All Left" -cmd "selectMergeAll $top 1"
|