home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
windows
/
kpwdemo.zip
/
HYPEREX.SRC
< prev
next >
Wrap
Text File
|
1990-06-28
|
2KB
|
92 lines
:h1 is window (,1.285,1.125,80,25,'Hypertext in KnowledgePro',[popup,thickFrame,titleBar,showChildren,siblings]).
:font is create_font (?bigFont).
:font2 is create_font (?smallFont).
use_font (?font).
text (' KnowledgePro supports both full screen and defined hypertext').
button ('Return to the demo',return,35,21).
use_font (system_font).
:h2 is window (,4,3,35,17,'Full Screen Hypertext',[childwindow,thickFrame,titleBar,visible],?h1).
auto_hyper_on ().
text ('
In this window any of the text
can be selected as hypertext.
To select a word, point and
click. To select a phrase, point
and drag to highlight, then click.').
:h3 is window (,43,3,35,17,'Defined Hypertext',[childwindow,thickFrame,visible,titlebar],?h1 ).
text ('
This window contains explicitly
defined hypertext. Point and
click on the #mhighlighted phrases#m
to select the hypertext.
Select here for #msample code#m. ').
show_window (?h1).
topic mark (item).
r is ?item.
x is string_to_list (?item,[number_to_char (10),number_to_char (13)] ).
window (,1,1,50,50,,[child,showchildren,siblings,visible],?h2).
text ('
You selected the hypertext #fred
',#x3,?item,
'
#d To turn on full text hypertext
use the command:
auto_hyper_on ().').
button (Continue,done,13,13).
topic done.
close_window ().
end.
end.
topic 'highlighted phrases'.
window (,1,1,50,50,'Explicitly Defined Hypertext',[child,showchildren,siblings,visible],?h3 ).
text ('The color and font of hypertext
can be changed. This uses blue
hypertext on a color monitor:
if last (system_info ()) >2
then hyper_display (blue).
Here we set italic hypertext:
italic is create_font ([12,8,400,
t,f,f,0,1,34,System]).
hyper_display (black, ,?italic).').
button ('Continue',done,13,13).
topic done.
close_window ().
end.
end.
topic 'sample code'.
window (,1,1,50,50,'Explicitly Defined Hypertext',[child,showchildren,siblings,visible],?h3 ).
text ('text ('' Point and click on the
##highlighted phrases##m to
select the hypertext. ...'').
topic ''highlighted phrases''.
window ().
text ('' The color and font...'').
button (Continue,continue,13,13).
wait ().
close_window ().
end. ').
button (Continue,done,13,13).
topic done.
close_window ().
end.
end.
topic return.
close_window (?h1).
continue ().
end.