At 22:14 2009-08-04, Sytze de Boer <[email protected]> wrote:
>Gene, care to share your details in this file ?
There is really nothing all that special in it, just settings
that I like. One thing that I do is assign the function keys to some
commonly-performed operations that I have implemented with short
programs. For example, ucomp compiles my system. The only one you
might care for unmodified is uflist.prg which I have included
here. It displays the function key assignments.
***** Start of uprog.prg *****
* uprog
* Setup Command Level for Programmer Use
* Last Modification: 2008-07-22
set talk off
* Set _screen.caption based on version.
local ver, i
ver=version()
i=1
do while i<=len(ver) and val(substr(ver,i))=0
i=i+1
enddo
if i>len(ver)
vernum="?"
else
vernum=alltrim(str(val(substr(ver,i))))
endif
_screen.caption=vernum+" - "+version()
* Set Font
_screen.fontsize=10
_screen.fontname="Courier"
* Function Key Setup
on key label f2 keyboard "do ureset{enter}"
on key label f3 keyboard "do uun{enter}"
on key label f4 keyboard "do ucomp{enter}"
on key label f5;
keyboard "{f4}{f6}"
on key label f6;
keyboard "do cbs2{enter}{tab}r{enter}{enter}"
on key label f7
on key label f8
on key label f9;
keyboard "{f4}{f10}"
on key label f10;
* ***** redacted for security reasons *****
on key label f12;
keyboard "do uflist{enter}"
*
set escape on
set talk on
set status bar off
return
***** End of uprog.prg *****
***** Start of uflist.prg *****
* uflist
* Print Function Key Assignments
* Last Modification: 2008-07-22
local svtalk, svexact
svtalk=set("talk")
set talk off
svexact=set("exact")
set exact on
local i, keyname, keystrokes
? "Active Function Key Assignments:"
for i=1 to 12
keyname="F"+transform(i)
keystrokes=on("key",keyname)
if keystrokes>""
? padl(keyname,9)+": "+keystrokes
endif
endfor
for i=1 to 12
keyname="Shift+F"+transform(i)
keystrokes=on("key",keyname)
if keystrokes>""
? padl(keyname,9)+": "+keystrokes
endif
endfor
for i=1 to 12
keyname="Ctrl+F"+transform(i)
keystrokes=on("key",keyname)
if keystrokes>""
? padl(keyname,9)+": "+keystrokes
endif
endfor
for i=1 to 12
keyname="Alt+F"+transform(i)
keystrokes=on("key",keyname)
if keystrokes>""
? padl(keyname,9)+": "+keystrokes
endif
endfor
set exact &svexact
set talk &svtalk
return
***** End of uflist.prg *****
[snip]
Sincerely,
Gene Wirchenko
_______________________________________________
Post Messages to: [email protected]
Subscription Maintenance: http://leafe.com/mailman/listinfo/profox
OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech
Searchable Archive: http://leafe.com/archives/search/profox
This message:
http://leafe.com/archives/byMID/profox/[email protected]
** All postings, unless explicitly stated otherwise, are the opinions of the
author, and do not constitute legal or medical advice. This statement is added
to the messages for those lawyers who are too stupid to see the obvious.
