Rexx - Giao diện người dùng đồ họa

Để sử dụng các giao diện người dùng đồ họa có sẵn trong Rexx, người ta cần sử dụng 2 gói, một gói được gọi là ActiveTcl và cái kia là Rexxtkgói hàng. Cùng với 2 gói này, người ta có thể thiết kế các biểu mẫu bình thường có thể có các nút và các điều khiển khác trên các biểu mẫu.

Thiết lập môi trường

Điều đầu tiên cần làm là thiết lập môi trường. Chúng ta hãy thực hiện các bước sau để có môi trường như ý.

Step 1 - Tải xuống gói Activetcl từ trang web sau - https://www.activestate.com/activetcl

Step 2- Bước tiếp theo là bắt đầu cài đặt ActiveTCl. Nhấp vào nút Tiếp theo trên màn hình để tiếp tục.

Step 3 - Chấp nhận Thỏa thuận cấp phép và nhấp vào nút Tiếp theo.

Step 4 - Chọn một vị trí để cài đặt và nhấp vào nút tiếp theo.

Step 5 - Chọn một vị trí để cài đặt bản trình diễn và nhấp vào nút Tiếp theo.

Step 6 - Nhấn vào nút Next để tiến hành cài đặt.

Step 7 - Bấm vào nút Finish để hoàn tất cài đặt.

Step 8 - Bước tiếp theo là tải phần mềm Rexxtk từ liên kết sau - https://sourceforge.net/projects/rexxtk/

Step 9- Nhấp đúp vào tệp trình cài đặt từ liên kết ở bước trước để bắt đầu cài đặt. Bấm vào nút tiếp theo để tiếp tục.

Step 10 - Trong màn hình tiếp theo, nhấp vào nút Có để đồng ý với Thỏa thuận cấp phép.

Step 11 - Trong màn hình tiếp theo, chọn vị trí cài đặt và nhấp vào nút Tiếp theo.

Step 12 - Chọn vị trí thư mục Chương trình và nhấp vào nút tiếp theo.

Khi quá trình cài đặt hoàn tất, bây giờ chúng ta có thể bắt đầu lập trình GUI trong Rexx.

Chương trình cơ bản

Hãy xem cách chúng ta có thể thiết kế một chương trình cơ bản đơn giản với Rexx ở định dạng giao diện người dùng đồ họa.

Thí dụ

/* Main program */ 
call RxFuncAdd 'TkLoadFuncs','rexxtk','TkLoadFuncs' 
call TkLoadFuncs 
do forever 
   interpret 'Call' TkWait() 
end 
call TkDropFuncs 
exit 0

Những điều sau đây cần được lưu ý về chương trình trên:

Thư viện Rexxtk và tất cả các chức năng của nó được tải bằng lệnh RxFuncAdd.
Vòng lặp do forever sẽ giữ cho cửa sổ mở và sẽ đợi người dùng nhập.
Khi đầu vào của người dùng được phát hiện, chương trình sẽ thoát.

Khi chương trình trên được thực thi, bạn sẽ nhận được kết quả sau.

Tạo menu

Các menu được tạo với sự trợ giúp của các chức năng TkMenu và TkAdd. Cú pháp của các hàm này được đưa ra dưới đây.

Cú pháp

TkMenu(widgetname,options,0)

Thông số

Widgetname - Một cái tên để đặt cho menu.

Các tùy chọn có thể là bất kỳ ai sau đây -

selectcolor - nếu hộp kiểm hoặc nút radio được sử dụng làm tùy chọn menu, thì tùy chọn này chỉ định màu để chọn khi bất kỳ tùy chọn menu nào được chọn.
tearoff - Tùy chọn này được sử dụng để thêm menu phụ vào menu chính.
title - Chuỗi cần được sử dụng để tạo tiêu đề cho cửa sổ.

Giá trị trả lại

Đã tạo một tay cầm cho menu.

Thí dụ

/* Main program */ 
call RxFuncAdd 'TkLoadFuncs','rexxtk','TkLoadFuncs' 
call TkLoadFuncs 

menubar = TkMenu('.m1') 
filemenu = TkMenu('.m1.file','-tearoff', 0) 
call TkAdd menubar, 'cascade', '-label', 'File', '-menu', filemenu 
call TkAdd filemenu, 'command', '-label', 'Open...', '-rexx', 'getfile' 
call TkConfig '.', '-menu', menubar 

do forever 
   interpret 'Call' TkWait() 
end 
call TkDropFuncs 
exit 0

Những điều sau đây cần được lưu ý về chương trình trên:

Thanh menu được tạo bằng cách sử dụng hàm TkMenu. Tham số 'tearoff' có nghĩa là chúng ta cần tạo các menu phụ sẽ được đính kèm vào menu chính.
Sau đó chúng ta thêm 2 tùy chọn menu có tên là Tệp và Mở bằng chức năng TkAdd.

Khi chương trình trên được thực thi, bạn sẽ nhận được kết quả sau.