BrainModular

Re: Any way to know when Enter key is pressed on text fader?

2024-12-24T11:44:28+02:00

thanks+++

Statistics: Posted by senso — 24 Dec 2024, 10:44

Re: Any way to know when Enter key is pressed on text fader?

2024-12-09T08:39:35+02:00

Here's the script, in case it's useful to someone. It only does capital letters so far. I'm not sure what to do about that--I am not checking the shift key, so I would expect all lower case letters. I will look into it more, but this will work okay for now.

CODE:

////////////////////////////////////////////   //  SWITCH AS TEXT FADER  //  if you are tired of those tiny windows 95 text entry popups, try this.  It uses the text of//  the button, so you can make it as large as you like.  If the text will end up as the//  title of the button, you can also know whether it will fit...////  off text is typically the title.  when the user presses the switch//  the text shown is either what was last entered, or an empty string, depending //  on the state of 'clear existing'.//  'text to switch' is typically wired to the switch on caption, but could be wired//  to the switch off caption as well, to show the value even when it's off.//  since we don't have a cursor, a backspace will clear all the text.  Actually more convenient//  for short text, I think.//                     ////////////////////////////////////////////const ENTER = 13;const BACKSPACE = 8;const ESCAPE = 27;                          // Globally enable/disable logging const DTAG = 'TextButton: ';const DBUG_ON = TRUE;procedure debug(s: string); begin if DBUG_ON then strace(DTAG + s); end;procedure iDebug(s: string; num : integer); begin debug(s + '= ' + intToStr(num)); end;// parameters declaration                                            var switchIN, switchTextIN, keyNumIN, keyDownIN, offEntersIN, clearTextIN: tParameter;var textOUT, switchOffOUT, switchTextOUT: tParameter;var gText, gRevertText, gKeyin: string;var gKeynum: integer;var gLive,gSwitchedOff: boolean; // initialisation : create parametersprocedure init;var i : integer;                   begin                               SetModuleColor($804080+600000);      switchIN := CreateParam('switch in', ptSwitch, pioInput);    //if we start with existing text    switchTextIN := CreateParam('switch text', ptTextfield, pioInput);    keyNumIN := CreateParam('key num', ptDatafield, pioInput);         clearTextIN := CreateParam('clear existing', ptSwitch, pioInput);    switchOffOUT := CreateParam('set switch off', ptButton, pioOutput);    switchTextOUT := CreateParam('text to switch', ptTextfield, pioOutput);    //text to send on    textOUT := CreateParam('text out', ptTextfield, pioOutput);    gLive := FALSE;    gSwitchedOff := TRUE;    end;procedure processSwitch(state: integer);begin    if state = 0 then    //switch turned off    begin        gLive := FALSE;    end    else if (state = 1) then    //switch turned on    begin        if clearTextIN.asInteger = 0 then            gText := switchTextIN.asString            else gText := '';        switchTextOUT.asString(gText);        gRevertText := switchTextIN.asString;; //save this in case the user cancels.        gLive := TRUE;    endend;procedure processKey(keynum: integer);begin    //if the key is backspace, clear everything. We have no cursor, so this is how we do it    if keynum = BACKSPACE then    begin        gText := '';        switchTextOUT.asString(gText);    end    //if the key is enter, send the text to the output and turn off the button    else if keynum = ENTER then    begin        //button text will not need to be changed.... oh I guess it does.        textOUT.asString(gText);        switchTextOUT.asString(gText);        switchOffOUT.asInteger(1);        gSwitchedOff := TRUE;    end    //if the key is esc, clear the text and turn off the button    else if keynum = ESCAPE then    begin        //gText := '';        switchOffOUT.asInteger(1);        switchTextOUT.asString(gRevertText);        gSwitchedOff := TRUE;    end    //otherwise, add the key to buttonText and send it out.    else    begin          Debug('key ' + Chr(keynum));        gText := gText + Chr(keynum);        switchTextOUT.asString(gText);        gSwitchedOff := TRUE;    end;    //end;procedure Callback(n:integer);    begin    if n = switchIN then processSwitch(switchIN.asInteger)       else if (n =  keyNumIN) and (keyNumIN.asInteger > 0) and gLive then    begin       //we could store, and wait for zero (key up)       idebug('process key num',keyNumIN.asInteger);       processKey(keyNumIN.asInteger);    endend;// no process blocprocedure processIdle();begin    if gSwitchedOff then    begin        gSwitchedOff := FALSE;        switchOffOUT.asInteger(0);        textOUT.length(-1);        switchTextOUT.length(-1);    end;end;

Statistics: Posted by woodslanding — 09 Dec 2024, 07:39

Re: Any way to know when Enter key is pressed on text fader?

2024-12-09T07:43:33+02:00

Went searching through the forums, and tracked down Chr(keynum) command. Working great! I'll post my patch when I get it a little more debugged.... would be nice to put that in the string part of the scripts page of the manual.

Statistics: Posted by woodslanding — 09 Dec 2024, 06:43

Re: Any way to know when Enter key is pressed on text fader?

2024-12-09T03:48:48+02:00

I am working on a script that would turn a switch into a text fader, because the entry popup in a text fader is so small. I am running into a problem trying to convert keycodes to text. Is there a usine method for turning keycodes into strings or chars? I am not having luck tracking that down. I know usine just does it internally, by mis-cabling, and I will use that feature for now, but I'd like to include it in the script. I'm not sure how to use char's in usine, I can't find any documentation on it. And I'm not sure what text encoding usine uses, and I'm not very encoding-savvy to begin with.

Also, Is there somewhere in the documentation where it is noted what actual version of pascal Usine uses? That would be nice information to know. I am always trying commands I find on the web, but they don't work in usine....

thanks!!!
-eric

Statistics: Posted by woodslanding — 09 Dec 2024, 02:48

Re: Any way to know when Enter key is pressed on text fader?

2024-12-08T18:38:38+02:00

Well, there is a problem with this. If I escape from the textfield, because I changed my mind, that leaves the mouse value hot, and if I press enter from some other textfield, or for any other reason, it fires, and sends the data.

Trying to figure this out...

Would sure be nice to have an 'is editing' output on the textfield....

Statistics: Posted by woodslanding — 08 Dec 2024, 17:38

Re: Any way to know when Enter key is pressed on text fader?

2024-12-08T08:04:06+02:00

Coming back to this years later.

This patch makes me unreasonably happy. A text fader that triggers on enter, even if the text is unchanged. So great!

Mouse in makes sure enter key doesn't have an effect unless the text is open for editing...

cheers!

EnterText.usine-subpatch

Statistics: Posted by woodslanding — 08 Dec 2024, 07:04

Re: Any way to know when Enter key is pressed on text fader?

2022-11-25T11:18:45+02:00

this solution seems to work as expected:

Statistics: Posted by senso — 25 Nov 2022, 10:18

Re: Any way to know when Enter key is pressed on text fader?

2022-11-25T08:03:35+02:00

I thought I had the solution. It seemed like the problem was that the key out never changed...

But this still has the problem that I cannot change the value of text 2, even when 'pass' is off. The pass output shows [-1], but the value still won't change.

Statistics: Posted by woodslanding — 25 Nov 2022, 07:03

Re: Any way to know when Enter key is pressed on text fader?

2022-11-25T07:52:42+02:00

Okay, this seems to work pretty well...

(for some reason, the 'key' output on the keyboard module is always zero.)

The problem here, which I never know how to solve, is that if I put a PIC module before the text 2 fader, then change the text 2 fader value, and want to update it back to the old text 1 value, the PIC module doesn't see a change, and nothing happens. If I don't add a PIC, then I can't change the value of text2 at all.

I encounter this kind of issue a lot, and I am trying to figure out a way around it.....

Statistics: Posted by woodslanding — 25 Nov 2022, 06:52

Any way to know when Enter key is pressed on text fader?

2022-11-25T07:33:38+02:00

Sometimes PIC module isn't perfect. For regular faders, I can check mousedown. But the mouse is not down when I'm typing into a text fader. The important thing is when I press Enter, and I'd like to use that as a trigger....

Thoughts?

Thanks!!!!

Statistics: Posted by woodslanding — 25 Nov 2022, 06:33

Re: Any way to know when Enter key is pressed on text fader?

2024-12-24T11:44:28+02:00

thanks+++

Statistics: Posted by senso — 24 Dec 2024, 10:44

Re: Any way to know when Enter key is pressed on text fader?

2024-12-09T08:39:35+02:00

CODE:

////////////////////////////////////////////   //  SWITCH AS TEXT FADER  //  if you are tired of those tiny windows 95 text entry popups, try this.  It uses the text of//  the button, so you can make it as large as you like.  If the text will end up as the//  title of the button, you can also know whether it will fit...////  off text is typically the title.  when the user presses the switch//  the text shown is either what was last entered, or an empty string, depending //  on the state of 'clear existing'.//  'text to switch' is typically wired to the switch on caption, but could be wired//  to the switch off caption as well, to show the value even when it's off.//  since we don't have a cursor, a backspace will clear all the text.  Actually more convenient//  for short text, I think.//                     ////////////////////////////////////////////const ENTER = 13;const BACKSPACE = 8;const ESCAPE = 27;                          // Globally enable/disable logging const DTAG = 'TextButton: ';const DBUG_ON = TRUE;procedure debug(s: string); begin if DBUG_ON then strace(DTAG + s); end;procedure iDebug(s: string; num : integer); begin debug(s + '= ' + intToStr(num)); end;// parameters declaration                                            var switchIN, switchTextIN, keyNumIN, keyDownIN, offEntersIN, clearTextIN: tParameter;var textOUT, switchOffOUT, switchTextOUT: tParameter;var gText, gRevertText, gKeyin: string;var gKeynum: integer;var gLive,gSwitchedOff: boolean; // initialisation : create parametersprocedure init;var i : integer;                   begin                               SetModuleColor($804080+600000);      switchIN := CreateParam('switch in', ptSwitch, pioInput);    //if we start with existing text    switchTextIN := CreateParam('switch text', ptTextfield, pioInput);    keyNumIN := CreateParam('key num', ptDatafield, pioInput);         clearTextIN := CreateParam('clear existing', ptSwitch, pioInput);    switchOffOUT := CreateParam('set switch off', ptButton, pioOutput);    switchTextOUT := CreateParam('text to switch', ptTextfield, pioOutput);    //text to send on    textOUT := CreateParam('text out', ptTextfield, pioOutput);    gLive := FALSE;    gSwitchedOff := TRUE;    end;procedure processSwitch(state: integer);begin    if state = 0 then    //switch turned off    begin        gLive := FALSE;    end    else if (state = 1) then    //switch turned on    begin        if clearTextIN.asInteger = 0 then            gText := switchTextIN.asString            else gText := '';        switchTextOUT.asString(gText);        gRevertText := switchTextIN.asString;; //save this in case the user cancels.        gLive := TRUE;    endend;procedure processKey(keynum: integer);begin    //if the key is backspace, clear everything. We have no cursor, so this is how we do it    if keynum = BACKSPACE then    begin        gText := '';        switchTextOUT.asString(gText);    end    //if the key is enter, send the text to the output and turn off the button    else if keynum = ENTER then    begin        //button text will not need to be changed.... oh I guess it does.        textOUT.asString(gText);        switchTextOUT.asString(gText);        switchOffOUT.asInteger(1);        gSwitchedOff := TRUE;    end    //if the key is esc, clear the text and turn off the button    else if keynum = ESCAPE then    begin        //gText := '';        switchOffOUT.asInteger(1);        switchTextOUT.asString(gRevertText);        gSwitchedOff := TRUE;    end    //otherwise, add the key to buttonText and send it out.    else    begin          Debug('key ' + Chr(keynum));        gText := gText + Chr(keynum);        switchTextOUT.asString(gText);        gSwitchedOff := TRUE;    end;    //end;procedure Callback(n:integer);    begin    if n = switchIN then processSwitch(switchIN.asInteger)       else if (n =  keyNumIN) and (keyNumIN.asInteger > 0) and gLive then    begin       //we could store, and wait for zero (key up)       idebug('process key num',keyNumIN.asInteger);       processKey(keyNumIN.asInteger);    endend;// no process blocprocedure processIdle();begin    if gSwitchedOff then    begin        gSwitchedOff := FALSE;        switchOffOUT.asInteger(0);        textOUT.length(-1);        switchTextOUT.length(-1);    end;end;

Statistics: Posted by woodslanding — 09 Dec 2024, 07:39

Re: Any way to know when Enter key is pressed on text fader?

2024-12-09T07:43:33+02:00

Statistics: Posted by woodslanding — 09 Dec 2024, 06:43

Re: Any way to know when Enter key is pressed on text fader?

2024-12-09T03:48:48+02:00

Statistics: Posted by woodslanding — 09 Dec 2024, 02:48

Re: Any way to know when Enter key is pressed on text fader?

2024-12-08T18:38:38+02:00

Statistics: Posted by woodslanding — 08 Dec 2024, 17:38

Re: Any way to know when Enter key is pressed on text fader?

2024-12-08T08:04:06+02:00

EnterText.usine-subpatch

Statistics: Posted by woodslanding — 08 Dec 2024, 07:04

Re: Any way to know when Enter key is pressed on text fader?

2022-11-25T11:18:45+02:00

this solution seems to work as expected:

Statistics: Posted by senso — 25 Nov 2022, 10:18

Re: Any way to know when Enter key is pressed on text fader?

2022-11-25T08:03:35+02:00

I thought I had the solution. It seemed like the problem was that the key out never changed...

But this still has the problem that I cannot change the value of text 2, even when 'pass' is off. The pass output shows [-1], but the value still won't change.

Statistics: Posted by woodslanding — 25 Nov 2022, 07:03

Re: Any way to know when Enter key is pressed on text fader?

2022-11-25T07:52:42+02:00

Okay, this seems to work pretty well...

Statistics: Posted by woodslanding — 25 Nov 2022, 06:52

Any way to know when Enter key is pressed on text fader?

2022-11-25T07:33:38+02:00

Statistics: Posted by woodslanding — 25 Nov 2022, 06:33