mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
75362fbd47
versions of Tck/Tk * (bug fix) initialize error of instance variable on TkComposite * (bug fix) initialize error on encoding-system on MultiTkIp * (bug fix) trouble on destroying widgets * (new) add JP and EN version of Ruby/Tk widget demos git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@4249 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
102 lines
3.5 KiB
Ruby
102 lines
3.5 KiB
Ruby
# text.rb
|
||
#
|
||
# This demonstration script creates a text widget that describes
|
||
# the basic editing functions.
|
||
#
|
||
# text (basic facilities) widget demo (called by 'widget')
|
||
#
|
||
|
||
# toplevel widget
|
||
if defined?($text_demo) && $text_demo
|
||
$text_demo.destroy
|
||
$text_demo = nil
|
||
end
|
||
|
||
# demo toplevel widget
|
||
$text_demo = TkToplevel.new {|w|
|
||
title("Text Demonstration - Basic Facilities")
|
||
iconname("text")
|
||
positionWindow(w)
|
||
}
|
||
|
||
# frame
|
||
TkFrame.new($text_demo) {|frame|
|
||
TkButton.new(frame) {
|
||
text 'Dismiss'
|
||
command proc{
|
||
tmppath = $text_demo
|
||
$text_demo = nil
|
||
tmppath.destroy
|
||
}
|
||
}.pack('side'=>'left', 'expand'=>'yes')
|
||
|
||
TkButton.new(frame) {
|
||
text 'Show Code'
|
||
command proc{showCode 'text'}
|
||
}.pack('side'=>'left', 'expand'=>'yes')
|
||
}.pack('side'=>'bottom', 'fill'=>'x', 'pady'=>'2m')
|
||
|
||
# text <20><><EFBFBD><EFBFBD>
|
||
TkText.new($text_demo){|t|
|
||
# <20><><EFBFBD><EFBFBD>
|
||
relief 'sunken'
|
||
bd 2
|
||
setgrid 1
|
||
height 30
|
||
TkScrollbar.new($text_demo) {|s|
|
||
pack('side'=>'right', 'fill'=>'y')
|
||
command proc{|*args| t.yview(*args)}
|
||
t.yscrollcommand proc{|first,last| s.set first,last}
|
||
}
|
||
pack('expand'=>'yes', 'fill'=>'both')
|
||
|
||
#
|
||
insert('0.0', %q|This window is a text widget. It displays one or more lines of text
|
||
and allows you to edit the text. Here is a summary of the things you
|
||
can do to a text widget:
|
||
|
||
1. Scrolling. Use the scrollbar to adjust the view in the text window.
|
||
|
||
2. Scanning. Press mouse button 2 in the text window and drag up or down.
|
||
This will drag the text at high speed to allow you to scan its contents.
|
||
|
||
3. Insert text. Press mouse button 1 to set the insertion cursor, then
|
||
type text. What you type will be added to the widget.
|
||
|
||
4. Select. Press mouse button 1 and drag to select a range of characters.
|
||
Once you've released the button, you can adjust the selection by pressing
|
||
button 1 with the shift key down. This will reset the end of the
|
||
selection nearest the mouse cursor and you can drag that end of the
|
||
selection by dragging the mouse before releasing the mouse button.
|
||
You can double-click to select whole words or triple-click to select
|
||
whole lines.
|
||
|
||
5. Delete and replace. To delete text, select the characters you'd like
|
||
to delete and type Backspace or Delete. Alternatively, you can type new
|
||
text, in which case it will replace the selected text.
|
||
|
||
6. Copy the selection. To copy the selection into this window, select
|
||
what you want to copy (either here or in another application), then
|
||
click button 2 to copy the selection to the point of the mouse cursor.
|
||
|
||
7. Edit. Text widgets support the standard Motif editing characters
|
||
plus many Emacs editing characters. Backspace and Control-h erase the
|
||
character to the left of the insertion cursor. Delete and Control-d
|
||
erase the character to the right of the insertion cursor. Meta-backspace
|
||
deletes the word to the left of the insertion cursor, and Meta-d deletes
|
||
the word to the right of the insertion cursor. Control-k deletes from
|
||
the insertion cursor to the end of the line, or it deletes the newline
|
||
character if that is the only thing left on the line. Control-o opens
|
||
a new line by inserting a newline character to the right of the insertion
|
||
cursor. Control-t transposes the two characters on either side of the
|
||
insertion cursor.
|
||
|
||
7. Resize the window. This widget has been configured with the "setGrid"
|
||
option on, so that if you resize the window it will always resize to an
|
||
even number of characters high and wide. Also, if you make the window
|
||
narrow you can see that long lines automatically wrap around onto
|
||
additional lines so that all the information is always visible.|)
|
||
|
||
set_insert('0.0')
|
||
}
|
||
|