Hello Guys(sorry
)...I have a problem with this code. Well actually the problem occurs when I delete a word form the top of the list. The list doesn't reshapes but a blank line stays at the top. Please help me to make it work properly 10x
Text ReplaceR:/txtr
-
}
alias txtr /dialog -m txt txt
dialog txt {
title "Text Replacer"
icon "replacer.ico"
size -1 -1 150 148
option dbu
text "Text ReplaceR", 1, 28 6 91 9, center
button "Ok", 2, 9 134 21 9
button "Close", 3, 114 133 21 9, cancel
list 8, 9 19 128 63, sort extsel
edit "", 9, 67 84 70 10, autohs
edit "", 10, 67 97 70 10, autohs
text "Insert Word", 12, 9 86 33 8
text "Insert Replacing Word", 13, 9 99 55 8
button "Add", 15, 40 115 24 8, ok
button "Delete", 16, 83 115 24 8
}
on 1:dialog:txt:sclick:2: dialog -c txt txt
on 1:dialog:txt:sclick:15:{ /if ($did(txt,8).sel == $null) {
/if ($did(txt,9) == $null) || ($did(txt,10) == $null) { /halt }
/inc %ttall | /set % [ $+ tekst $+ [ %ttall ] ] $did(txt,9)
/set % [ $+ bytt $+ [ %ttall ] ] $did(txt,10)
.timer 1 0 .txtr
}
/else {
/set % [ $+ tekst $+ [ $did(txt,8).sel ] ] $did(txt,9)
/set % [ $+ bytt $+ [ $did(txt,8).sel ] ] $did(txt,10)
.timer 1 0 .txtr
}
}
on 1:dialog:txt:init:0:{
/set %utall 1 | /while (%utall <= %ttall) {
/did -a txt 8 [ % [ $+ tekst $+ [ %utall ] ] ]
/inc %utall
}
/unset %utall
}
on 1:dialog:txt:sclick:16: {
/unset % [ $+ tekst $+ [ $did(txt,8).sel ] ] $did(txt,9)
/unset % [ $+ bytt $+ [ $did(txt,8).sel ] ] $did(txt,10)
dialog -c txt txt | .timer 1 0 .txtr
}
on 1:dialog:txt:sclick:8:/did -r txt 9 | /did -r txt 10 | /did -a txt 9 [ % [ $+ tekst $+ [ $did(txt,8).sel ] ] ] | /did -a txt 10 [ % [ $+ bytt $+ [ $did(txt,8).sel ] ] ]
on 1:input:?:{ /if ($left($1,1) == / ) { /return }
/set %utall 1 | /while (%utall <= %ttall) {
/if ($1- == [ % [ $+ tekst $+ [ %utall ] ] ] ) { /say [ % [ $+ bytt $+ [ %utall ] ] ] | /unset %utall | /halt }
/inc %utall }
/unset %utall }}
}
on 1:input:#:{ /if ($left($1,1) == / ) { /return }
/set %utall 1 | /while (%utall <= %ttall) {
/if ($1- == [ % [ $+ tekst $+ [ %utall ] ] ] ) { /say [ % [ $+ bytt $+ [ %utall ] ] ] | /unset %utall | /halt }
/inc %utall }
/unset %utall }}
}
