Find tweak()able keys
Posted: 14 Mar 2015 13:40
Whipped up a little script that tries it's best to find all keys that can be used with tweak() [for this http://www.xyplorer.com/xyfc/viewtopic. ... 15#p120052]
By "tries it's best" I mean it needs manual labour: you have to do some rapid fire ENTERing
[don't worry, leaked ENTERs are nullified.]
By "tries it's best" I mean it needs manual labour: you have to do some rapid fire ENTERing
[don't worry, leaked ENTERs are nullified.]
Code: Select all
"TweakScope"
if (<xyver> > getkey("LastVer", "General")) {if confirm("XYplorer.ini has not been saved since last XY upgrade - save now?") {savesettings 1;}}
focus "L"; sel ; //deselect all so leaked ENTERs will be ineffective
msg "Get ready to press the spring out of ENTER, beginning now.<crlf 2> Don't worry, I'll take care of leaked/extra ENTERs";
$sections = getsectionlist(); $keys = ""; $twks = "";
foreach ($section, $sections, <crlf>){$keys = $keys.<crlf>.trim( replace( getkey(,$section) , chr(0), <crlf>) , <crlf>);}
foreach ($key, $keys, <crlf>){
tweak($key, ""); if (strpos(<get status 3>, $key) != -1){$twks = $twks.<crlf>.$key;}
}
while (confirm("Iterated thru all keys. Quit mashing that ENTER. Press Esc for a change!") != 0){eval()}
//^ so that the ultimate text isn't ENTERed away :)
text $twks,,, "These keys were found to be supported by tweak()";