1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
# $XConsortium: TextFWcs2.scr /main/5 1995/07/17 20:42:38 drk $
#
# Motif
#
# Copyright (c) 1987-2012, The Open Group. All rights reserved.
#
# These libraries and programs are free software; you can
# redistribute them and/or modify them under the terms of the GNU
# Lesser General Public License as published by the Free Software
# Foundation; either version 2 of the License, or (at your option)
# any later version.
#
# These libraries and programs are distributed in the hope that
# they will be useful, but WITHOUT ANY WARRANTY; without even the
# implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
# PURPOSE. See the GNU Lesser General Public License for more
# details.
#
# You should have received a copy of the GNU Lesser General Public
# License along with these librararies and programs; if not, write
# to the Free Software Foundation, Inc., 51 Franklin Street, Fifth
# Floor, Boston, MA 02110-1301 USA
#
#
# HISTORY
#
# @) A Text Field widget with the string 'Sample Text' will appear in
# the test window. The text is red on a white background.
# #) Move the pointer into the Text Field and press ANY key. No matter
# what key was pressed, a 'A' will appear.
LocatePointer Text1 RTextChar Max
ClickMB Btn1
ClickKey Kf
# #) Press another key. This time a 'B' will appear in the text widget.
ClickKey Ky
CompareVisual Text1
# #) Repeat this cycle and you will print out the entire alphabet.
InputString "this string has how many"
CompareVisual Text1
# E)
Exit
|
