Path: news.daimi.aau.dk!news-feed.inet.tele.dk!nntp.uio.no!Cabal.CESspool!bofh.vszbr.cz!howland.erols.net!woodstock.news.demon.net!demon!bullseye.news.demon.net!demon!newsfeed.xs4all.nl!xs4all!gate.news.unisource.nl!news.unisource.nl!news.bart.net!not-for-mail
From: wimb@gld.bart.nl (Wim Boot)
Newsgroups: comp.lang.beta
Subject: character input problem
Date: Wed, 11 Feb 1998 17:04:08 GMT
Organization: bART Internet Services
Message-ID: <34e48219.4902058@news.bart.nl>
NNTP-Posting-Host: s56.arnhem.bart.nl
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
X-Newsreader: Forte Agent 1.5/32.451
X-No-Archive: yes
Lines: 76
Xref: news.daimi.aau.dk comp.lang.beta:11389

Hi,

I just started with BETA (r4.1) and now I'm trying to run the tutorial
program "WindowWithStdMenubar".
Everything seems to work except for character input. I have modified
the code a little to see what is happening and it appears that
ch is always character zero. Shift state isn't recognized either.

Someone got a clue what's wrong?

I am using Windows NT 4.0 (sp2) with the gnu SDK.

Thanks,

Wim Boot

--------------------- program code follows -----------------------

ORIGIN '~beta/guienv/v1.6/guienv';
(* This demo shows how to create a simple window with a
 * standardMenubar where the file menu only has one menuitem. It also
 * illustrates how to further bind the onMouseDown, onMouseUp,
 * onKeyDown event patterns.
 *)
--- program: descriptor ---
guienv
(# theWindow: @window
     (# menubarType:: standardMenubar
          (# fileMenu::
               (# quitItem: @menuitem
                    (# open::
                         (# do 'Quit' -> name #);
                      eventHandler::
                         (# onSelect::
                              (# do terminate #)
                         #)
                    #);
                  open::
                    (# 
                    do 'File' -> name;
                       quitItem.open; quitItem[] -> append
                    #)
               #)
          #);
        eventHandler::
          (# onAboutToClose:: (# do terminate #);
             onMouseDown::
               (# 
               do 'MouseDown: ' -> puttext;
                  buttonState -> putint;
                  (if doubleClick then
                      ' doubleclick' -> puttext
                  if);
                  newLine
               #);
             onMouseUp::
               (# 
               do 'onMouseUp ' -> puttext;
                  buttonState -> putint;
                  (if doubleClick then
                      ' doubleclick' -> puttext
                  if);
                  newLine
               #);
             onKeyDown::
               (# 
               do 'onKeyDown: ' -> puttext;
		  (if shiftKey then ' (uc) ' -> puttext else ' (lc) ' -> puttext if);
                  ch -> putint;
                  newLine
               #)
          #)
     #)
do theWindow.open
#)