# entry1.tcl --
#
# This demonstration script creates several entry widgets without
# scrollbars.
#
# RCS: @(#) $Id: entry1.tcl,v 1.1 1999/03/31 15:08:29 m-hirano Exp $

if {![info exists widgetDemo]} {
    error "This script should be run from the \"widget\" demo."
}

set w .entry1
catch {destroy $w}
toplevel $w
wm title $w "Entry Demonstration (no scrollbars)"
wm iconname $w "entry1"
positionWindow $w

label $w.msg -font $font -wraplength 5i -justify left -text [langSel \
"Three different entries are displayed below.  You can add characters by pointing, clicking and typing.  The normal Motif editing characters are supported, along with many Emacs bindings.  For example, Backspace and Control-h delete the character to the left of the insertion cursor and Delete and Control-d delete the chararacter to the right of the insertion cursor.  For entries that are too large to fit in the window all at once, you can scan through the entries by dragging with mouse button2 pressed." \
[concat "3種類の異なるエントリが表示されています。文字を入力するにはポインタを持って行き、クリックしてからタイプしてください。標準的な Motif の編集機能が、Emacs のキーバインドとともに、サポートされています。例えば、バックスペースとコントロール-H はカーソルの左の文字を削除し、デリートキーとコントロール-D はカーソルの右側の文字を削除します。長過ぎてウィンドウに入り切らないものは、マウスのボタン2 を押したままドラッグすることでスクロールさせることができます。" \
[jp&orig "UNIX 版では kinput プロトコル、または XIM プロトコルをサポートした仮名漢字変換フロントエンドプロセッサを用いて日本語を入力することができます。変換キーは X リソースデータベースで指定します。Windows版では IME を使ってその場変換で日本語を入力することができます。" ""]]]
pack $w.msg -side top

frame $w.buttons
pack $w.buttons -side bottom -fill x -pady 2m
button $w.buttons.dismiss -text [langSel Dismiss 了解] -command "destroy $w"
button $w.buttons.code -text [langSel "See Code" "コード参照"] -command "showCode $w"
pack $w.buttons.dismiss $w.buttons.code -side left -expand 1

entry $w.e1
entry $w.e2
entry $w.e3
pack $w.e1 $w.e2 $w.e3 -side top -pady 5 -padx 10 -fill x

langSwitch {
$w.e1 insert 0 "Initial value"
$w.e2 insert end "This entry contains a long value, much too long "
$w.e2 insert end "to fit in the window at one time, so long in fact "
$w.e2 insert end "that you'll have to scan or scroll to see the end."
} {
$w.e1 insert 0 "初期値"
$w.e2 insert end "このエントリには長い文字列が入っていて、"
$w.e2 insert end "長すぎてウィンドウには入り切らないので、"
$w.e2 insert end "実際の所終りまで見るにはスクロールさせなければ"
$w.e2 insert end "ならないでしょう。"
}
