Author Topic: RaspberryBASIC.org Forum (Read 99908 times)

John · « **Reply #240 on:** December 27, 2019, 08:16:28 AM »

Response from Antonio.

Quote

Hi,

PASSWORD (creation only) [Windows and GTK Only] (non inheritable): Hide the typed character using an "*". Default: "NO".

creation only means it can not be changed after the native element is created.

My suggestion is for you to use a zbox with two IupText, then switch between them when the password is necessary.

Best,

Scuri

jalih · « **Reply #241 on:** December 27, 2019, 01:56:27 PM »

Here is my login gui updated to match recent entries:

Code: [Select]

requires gui

var gui

{ guest: "pa$$w0rd!" } constant passwords

: authenticate
  "edit1" g:child g:text? passwords swap m:@ nip null? if
    drop
    "lbl0" g:child 
    "User not found!" g:text drop
  else
    swap
    "edit2" g:child g:text? rot s:= if
     "Authenticated!" . cr
     bye
    else
      "lbl0" g:child 
      "Username and password don't match!" g:text drop
    then
  then ;

{
  kind: "win",
  buttons: 0,
  native-title-bar: false,
  title: "Login",
  wide: 520,
  high: 200,
  resizable: false,
  center: true,
  init: ( gui ! ),
  children:
  [
    {
      kind: "box",
      name: "frame",
      bounds: "0, 0, parent.width, parent.height",
      bg: "gray",
      children:
      [
        {
          kind: "image",
          bounds: "parent.left+10, parent.top+10, left+128, top+128",
          img: "8thlogo.png",
          name: "logo"      
        },
        {
          kind: "label",
          fg: "blue",
          font: 20,
          label: "",
          bounds: "logo.right+20, parent.top+10, parent.width-10, top+24 ",
          justify: ["hcenter"],
          name: "lbl0"
	},
        {
          kind: "label",
          label: "Username:",
          bounds: "logo.right+20, lbl0.bottom+20, left+80, top+24 ",
          name: "lbl1"
	},
        {
          kind: "edit",
          bounds: "lbl1.right+10, lbl1.top, parent.width-20, top+24",
          name: "edit1",
          max-text: 32
        },
        {
          kind: "label",
          label: "Password:",
          bounds: "lbl1.left, lbl1.bottom+10, left+80, top+24",
          name: "lbl2"
	},
        {
          kind: "edit",
          bounds: "edit1.left, lbl2.top, parent.width-20, top+24",
          name: "edit2",
          max-text: 32,
          password-char: "*"
        },
        {
          kind: "btn",
          label: "Login",
          bg: "darkgray",
          bounds: "lbl2.left, lbl2.bottom+20, edit2.right, top+30",
          name: "button",
          tooltip: "Login to account",
          click: ' authenticate
        }
      ]
    }
  ]
} var, gui-desc

: app:main
  gui-desc @ g:new ;

AIR · « **Reply #242 on:** December 27, 2019, 03:56:01 PM »

Quote from: John on December 27, 2019, 08:16:28 AM

Response from Antonio.

Quote
Hi,

PASSWORD (creation only) [Windows and GTK Only] (non inheritable): Hide the typed character using an "*". Default: "NO".

creation only means it can not be changed after the native element is created.

My suggestion is for you to use a zbox with two IupText, then switch between them when the password is necessary.

Best,

Scuri

That's an implementation choice, at least as far as GTK is concerned.

Consider:

Code: C

#include <gtk/gtk.h>
 
GtkWidget *mainwin, *txtEntry, *chkBox, *layout;
 
void toggled_cb (GtkToggleButton *toggle_button, gpointer  user_data) {
      if (gtk_toggle_button_get_active (toggle_button)) {
          g_object_set(user_data,"visibility",TRUE,NULL);
      }else{
          g_object_set(user_data,"visibility",FALSE,NULL);
      }
    
}
 
int main(int argc, char **argv) {
    
    gtk_init(&argc, &argv);
    
    mainwin = gtk_window_new(GTK_WINDOW_TOPLEVEL);
    layout = gtk_layout_new(NULL, NULL);
    g_object_set(mainwin,
                "title","Visible Password Toggle",
                "default-width",660,
                "default-height",370,
                "resizable",FALSE,
                "window-position",GTK_WIN_POS_CENTER,
                "child",layout,
                NULL);
 
    txtEntry = gtk_entry_new();
    g_object_set(txtEntry,"text","mypassword","visibility",FALSE,NULL);
    
    chkBox = gtk_check_button_new_with_label("Show Password");
    g_object_set(layout,"child",txtEntry,"margin",10,NULL);
 
    gtk_layout_put(GTK_LAYOUT(layout), chkBox, 0, 40);
    
    gtk_widget_show_all(mainwin);
 
    g_signal_connect (mainwin, "destroy", G_CALLBACK (gtk_main_quit), NULL);
    g_signal_connect (chkBox, "toggled", G_CALLBACK (toggled_cb), txtEntry);
    
    gtk_main();
 
    return 0;
}
 
 

In your interface, you should be able to grab the native GTK widget and toggle it's visibility flag...IUP remains as Antonio et al coded it, and you "extend" it in your interface in order to achieve the desired functionality...

Of course, if he's running his own event loop and hooking it into GTK's event loop, this may not work depending on how he hooks into GTK's event loop...

AIR.

John · « **Reply #243 on:** December 27, 2019, 06:43:26 PM »

The zbox.c example demonstrates what I'm trying to accomplish.

Let's see if I can make Antonio's concept work.

AIR · « **Reply #244 on:** December 27, 2019, 08:09:22 PM »

Did this one on my Mac, using BlitzMax (there's no arm64 version available yet)

Code: Text

Strict 
 
Import MaxGUI.Drivers
 
Local window:    TGadget    =     CreateWindow("Logon",40,40,440,150,Null,WINDOW_TITLEBAR | WINDOW_CENTER)
Local logo:        TGadget    =    CreatePanel(6,6,119,100, window)
Local image:    TPixmap    =    LoadPixmap("login.png")
Local lblUser:    TGadget    =     CreateLabel("Username:",110,16,90,22,window)
Local txtUser:    TGadget    =    CreateTextField(190,16,240,22,window)
Local lblPass:    TGadget    =     CreateLabel("Password:",110,48,90,22,window)
Local txtPass:    TGadget    =    CreateTextField(190,48,240,22,window,TEXTFIELD_PASSWORD)
Local btnLogin:    TGadget    =     CreateButton("Login",190,80,240,22,window)
Local lblErr:    TGadget    =     CreateLabel("",126,100,260,60,window)
 
SetPanelPixmap logo,image
SetGadgetFont(lblErr,LookupGuiFont(GUIFONT_SYSTEM,18,FONT_BOLD))
SetGadgetColor(lblErr,255,0,0,False)
 
While True
   WaitEvent 
   Select EventID()
       Case EVENT_WINDOWCLOSE,EVENT_APPTERMINATE
           End
       Case EVENT_GADGETACTION
           Select EventSource()
            Case btnLogin
                Local user_password:String = GadgetText(txtPass)
                Local stupid_password:String = "pa$$w0rd!"
                
                If user_password = stupid_password
                    End
                Else
                    SetGadgetText(lblErr,"** Invalid Password **")
                EndIf 
                
            Case txtPass
                SetGadgetText(lblErr,"")                
 
           EndSelect
   End Select
Wend

If you enter the wrong password, when you go to re-enter it, the warning message goes away....

AIR.

John · « **Reply #245 on:** December 27, 2019, 08:36:50 PM »

I was able to get the show/hide password working correctly.

If you want to give this a try, I attached everything you need to do so.

Code: ScriptBasic

' ScriptBasic / IUP - Login - JRS
 
IMPORT iup.bas
 
SUB login_clicked
  uid = Iup::GetAttribute(uidtxt,"VALUE")
  IF Iup::GetAttribute(showpwd, "VALUE") = "OFF" THEN
    pwd = Iup::GetAttribute(pwdtxt1,"VALUE")
  ELSE
    pwd = Iup::GetAttribute(pwdtxt2,"VALUE")
  END IF
  IF uid = "John" AND pwd = "Spikowski" THEN
    Iup::Hide(errlbl)
    Iup::Message("Login",  "Login Successful")
    Iup::ExitLoop = TRUE
  ELSE
    Iup::Show(errlbl)
    Iup::SetFocus(uidtxt)
  END IF
END SUB
 
SUB show_password
  showcb = Iup::GetAttribute(showpwd, "VALUE")
  IF showcb = "OFF" THEN
    pwd2 = Iup::GetAttribute(pwdtxt2,"VALUE") 
    Iup::SetAttribute(pwdtxt1, "VALUE", pwd2)
    Iup::SetAttribute(zbtxt, "VALUE", "pwdtxt1")
  ELSE
    pwd1 = Iup::GetAttribute(pwdtxt1,"VALUE") 
    Iup::SetAttribute(pwdtxt2, "VALUE", pwd1)
    Iup::SetAttribute(zbtxt, "VALUE", "pwdtxt2")
  END IF
END SUB
 
SUB Win_exit
  Iup::ExitLoop = TRUE
END SUB
 
Iup::Open()
dlg = Iup::Create("dialog")
Iup::SetAttributes(dlg, "TITLE=\"Login\", SIZE=200x200")
 
vb = Iup::Create("vbox")
hb1 = Iup::Create("hbox")
piclbl = Iup::Create("label")
Iup::SetAttribute(piclbl, "IMAGE", "./login.png")
Iup::SetAttribute(piclbl, "EXPAND", "HORIZONTAL")
Iup::SetAttribute(piclbl, "ALIGNMENT", "ACENTER:ATOP")
Iup::Append(hb1, piclbl)
Iup::Append(vb, hb1)
 
hb2 = Iup::Create("hbox")
errlbl = Iup::Create("label")
Iup::SetAttribute(errlbl, "TITLE", "User ID / Password Incorrect")
Iup::SetAttribute(errlbl, "FGCOLOR", "#ff0000")
Iup::SetAttribute(errlbl, "EXPAND", "HORIZONTAL")
Iup::SetAttribute(errlbl, "ALIGNMENT", "ACENTER")
Iup::Hide(errlbl)
Iup::Append(hb2, errlbl)
Iup::Append(vb, hb2)
 
hb3 = Iup::Create("hbox")
Iup::SetAttribute(hb3, "MARGIN", "20x10")
Iup::SetAttribute(hb3, "GAP", "5")
vb1 = Iup::Create("vbox")
Iup::SetAttribute(vb1, "GAP", "15")
uidlbl = Iup::Create("label")
Iup::SetAttribute(uidlbl, "TITLE", "User ID")
Iup::Append(vb1, uidlbl)
pwdlbl = Iup::Create("label")
Iup::SetAttribute(pwdlbl, "TITLE", "Password")
Iup::Append(vb1, pwdlbl)
Iup::Append(hb3, vb1)
vb2 = Iup::Create("vbox")
uidtxt = Iup::Create("text")
Iup::SetAttribute(uidtxt, "SIZE", "85x")
Iup::Append(vb2, uidtxt)
pwdtxt1 = Iup::Create("text")
Iup::SetAttribute(pwdtxt1, "PASSWORD", "YES")
Iup::SetAttribute(pwdtxt1, "SIZE", "85x")
pwdtxt2 = Iup::Create("text")
Iup::SetAttribute(pwdtxt2, "SIZE", "85x")
Iup::SetHandle ("pwdtxt1", pwdtxt1)
Iup::SetHandle ("pwdtxt2", pwdtxt2)
zbtxt = Iup::Zbox(pwdtxt1, pwdtxt2)
Iup::SetHandle("zbtxt", zbtxt)
Iup::Append(vb2, zbtxt)
Iup::Append(hb3, vb2)
Iup::Append(vb, hb3)
 
hb4 = Iup::Create("hbox")
Iup::SetAttribute(hb4, "MARGIN", "35x")
showpwd = Iup::Create("toggle")
Iup::SetAttribute(showpwd, "TITLE", "Show Password?")
Iup::SetAttribute(showpwd, "CANFOCUS", "NO")
Iup::Append(hb4, showpwd)
Iup::Append(vb, hb4)
 
hb5 = Iup::Create("hbox")
Iup::SetAttribute(hb5, "MARGIN", "40x10")
loginbut = Iup::Create("button")
Iup::SetAttribute(loginbut, "TITLE", "Login")
Iup::SetAttribute(loginbut, "EXPAND", "HORIZONTAL")
iup::Append(hb5, loginbut)
iup::Append(vb, hb5)
 
iup::Append(dlg, vb)
 
Iup::SetCallback(dlg,"CLOSE_CB",ADDRESS(Win_exit()))
Iup::SetCallback(loginbut, "ACTION", ADDRESS(login_clicked()))
Iup::SetCallback(showpwd, "ACTION", ADDRESS(show_password()))
 
Iup::Show(dlg)
Iup::MainLoop()
Iup::Close()
 

John · « **Reply #246 on:** December 27, 2019, 09:50:39 PM »

It would be great to make the password hide/show as part of the challenge requirements. It's an interesting twist.

John · « **Reply #247 on:** December 28, 2019, 06:36:46 PM »

AIR,

Do you know how to make Nim variables global?

It says it can find uidtxt in the callback.

Code: Text

import niup
import niupext
 
proc login_clicked(ih:PIhandle):cint {.cdecl.}=
  let uid = GetAttribute(uidtxt,"VALUE")
  if GetAttribute(showpwd, "VALUE") == "OFF":
    let pwd = GetAttribute(pwdtxt1,"VALUE")
  else:
    let pwd = GetAttribute(pwdtxt2,"VALUE")
  
  if uid == "John" and pwd == "Spikowski":
    Hide(errlbl)
    Message("Login",  "Login Successful")
    return IUP_CLOSE
  else:
    Show(errlbl)
    SetFocus(uidtxt)
 
Open()
 
# *** DIALOG ***
let dlg = Create("dialog")
SetAttributes(dlg, 
  "TITLE=\"Login\", " &
  "SIZE=200x200, " &
  "MAXBOX=NO, " &
  "MINBOX=NO, " &
  "RESIZE=NO")
 
# *** CONTAINER ***
let vb = Create("vbox")
 
# *** IMAGE ***
let hb1 = Create("hbox")
let piclbl = Create("label")
SetAttributes(piclbl,  
  "IMAGE=\"login.png\", " &
  "EXPAND=HORIZONTAL, " &
  "ALIGNMENT=ACENTER:ATOP")
discard Append(hb1, piclbl)
discard Append(vb, hb1)
 
# *** ERROR ***
let hb2 = Create("hbox")
let errlbl = Create("label")
SetAttributes(errlbl,
  "TITLE=\"User ID / Password Incorrect\", " &
  "FGCOLOR=\"#ff0000\", " &
  "EXPAND=HORIZONTAL, " &
  "ALIGNMENT=ACENTER")
# Hide(errlbl)
discard Append(hb2, errlbl)
discard Append(vb, hb2)
 
# *** ENTRY ***
let hb3 = Create("hbox")
SetAttributes(hb3, 
  "MARGIN=20x10, " &
  "GAP=5")
let vb1 = Create("vbox")
SetAttribute(vb1, "GAP", "15")
let uidlbl = Create("label")
SetAttribute(uidlbl, "TITLE", "User ID")
discard Append(vb1, uidlbl)
let pwdlbl = Create("label")
SetAttribute(pwdlbl, "TITLE", "Password")
discard Append(vb1, pwdlbl)
discard Append(hb3, vb1)
let vb2 = Create("vbox")
let uidtxt = Create("text")
SetAttribute(uidtxt, "SIZE", "85x")
discard Append(vb2, uidtxt)
let pwdtxt1 = Create("text")
SetAttributes(pwdtxt1,
  "PASSWORD=YES, " &
  "SIZE=85x")
let pwdtxt2 = Create("text")
SetAttribute(pwdtxt2, "SIZE", "85x")
SetHandle("pwdtxt1", pwdtxt1)
SetHandle("pwdtxt2", pwdtxt2)
let zbtxt = Zbox(pwdtxt1, pwdtxt2, nil)
SetHandle("zbtxt", zbtxt)
discard Append(vb2, zbtxt)
discard Append(hb3, vb2)
discard Append(vb, hb3)
 
# *** SHOW/HIDE ***
let hb4 = Create("hbox")
SetAttribute(hb4, "MARGIN", "35x")
let showpwd = Create("toggle")
SetAttributes(showpwd,
  "TITLE=\"Show Password?\", " &
  "CANFOCUS=NO")
discard Append(hb4, showpwd)
discard Append(vb, hb4)
 
# *** LOGIN ***
let hb5 = Create("hbox")
SetAttribute(hb5, "MARGIN", "40x10")
let loginbut = Create("button")
SetAttributes(loginbut,
  "TITLE=\"Login\", " &
  "EXPAND=HORIZONTAL")
discard Append(hb5, loginbut)
discard Append(vb, hb5)
 
# *** ATTACH CONTAINER ***
discard Append(dlg, vb)
 
' *** CALLBACKS ***
SetCallback(loginbut, "ACTION", login_clicked)
SetCallback(showpwd, "ACTION", show_password)
 
# *** PROCESS ***
Show(dlg)
MainLoop()
Close()
 

AIR · « **Reply #248 on:** December 28, 2019, 06:37:54 PM »

If we're going to add toggling the visibility of the password as a 'requirement', we should also add the password box reacting to the "Enter/Return" key.

Code: C

/* logon2.c
 * 
 * version 1.2
 * 
 * GUI Logon Screen Challenge Submission
 * C version, using GTK+-3.0
 * 
 * Written by Armando I. Rivera (AIR)
 * 
 * Compile:  gcc logon2.c $(pkg-config --libs --cflags gtk+-3.0) -o logon2
*/
 
#include <gtk/gtk.h>
 
GtkWidget *err_label;
 
void chkBox_cb (GtkToggleButton *toggle_button, gpointer data) {
      if (gtk_toggle_button_get_active (toggle_button)) {
          g_object_set(data,"visibility",TRUE,NULL);
      }else{
          g_object_set(data,"visibility",FALSE,NULL);
      }
}
 
void txtPass_cb( GtkWidget *widget, gpointer data ) {
    g_object_set(data,"label","",NULL);
}
 
void onClick( GtkWidget *widget, gpointer data ) {
    gchar *stupid_password = "pa$$w0rd!";
    gchar *user_password;
    g_object_get(data,"text",&user_password,NULL);
 
    if (g_strcmp0 (stupid_password,user_password) == 0) {
        g_print("Your are now logged in!\n");
        gtk_main_quit();
    }else{
        gtk_label_set_markup(GTK_LABEL(err_label), "<span color=\"red\" font_desc=\"16.0\">** Invalid Password **</span>");
        g_print("Username or Password is Incorrect!\n");
 
    }
}
 
int main( int argc, char *argv[])
{
    GtkWidget *window, *layout, *image, *btnLogin, *chkBox;
    GtkWidget *lblUser, *lblPass, *txtUser, *txtPass;
 
    gtk_init(&argc, &argv);
    
    layout = gtk_layout_new(NULL, NULL);
 
    window = gtk_window_new(GTK_WINDOW_TOPLEVEL);
    g_object_set(window,
                "title","Login",
                "default-width",660,
                "default-height",370,
                "resizable",FALSE,
                "window-position",GTK_WIN_POS_CENTER,
                "child",layout,
                "decorated",0,
                NULL);
 
 
    image = gtk_image_new_from_file("logon.png");
    g_object_set(layout,"child",image,"margin",10,NULL);
    
    lblUser = gtk_label_new("");
    lblPass = gtk_label_new("");
    err_label = gtk_label_new("");
    g_object_set(err_label,"width-request",270,NULL);
    
    gtk_label_set_markup(GTK_LABEL(lblUser), "<span font_desc=\"16.0\">Username:</span>");
    gtk_label_set_markup(GTK_LABEL(lblPass), "<span font_desc=\"16.0\">Password:</span>");
    
    txtUser = gtk_entry_new();
    txtPass = gtk_entry_new();    
    g_object_set(txtPass,"visibility", FALSE,NULL);
    
    chkBox = gtk_check_button_new_with_label("Show Password");
 
    btnLogin = gtk_button_new_with_label("Login");
    g_object_set(btnLogin,"width-request",170,NULL);
 
 
    gtk_layout_put(GTK_LAYOUT(layout), lblUser, 330, 112-30);
    gtk_layout_put(GTK_LAYOUT(layout), lblPass, 330, 162-30);
    gtk_layout_put(GTK_LAYOUT(layout), txtUser, 460, 110-30);
    gtk_layout_put(GTK_LAYOUT(layout), txtPass, 460, 160-30);
    gtk_layout_put(GTK_LAYOUT(layout), chkBox, 460, 210-30);
    gtk_layout_put(GTK_LAYOUT(layout), btnLogin, 460, 250-30);
    gtk_layout_put(GTK_LAYOUT(layout), err_label, 300, 16);
 
    g_signal_connect (window, "destroy", G_CALLBACK (gtk_main_quit), NULL);
    g_signal_connect (btnLogin, "clicked", G_CALLBACK (onClick), txtPass);
    g_signal_connect (chkBox, "toggled", G_CALLBACK (chkBox_cb), txtPass);
    g_signal_connect (txtPass, "changed", G_CALLBACK (txtPass_cb), err_label);
    g_signal_connect (txtPass, "activate", G_CALLBACK (onClick), txtPass);
    
    gtk_widget_show_all(window);
 
    gtk_main();
 
    return 0;
}
 
 
 

AIR.

AIR · « **Reply #249 on:** December 28, 2019, 07:44:51 PM »

Quote from: John on December 28, 2019, 06:36:46 PM

AIR,

Do you know how to make Nim variables global?

It says it can find uidtxt in the callback.

You have to declare them before the call to Open(), removing the 'let' from the declared variables. You can either declare them before the callback, or forward declare the callback and move it to the end of the code.

Something like:

Code: Text

import niup
import niupext
 
var uidtxt,showpwd,pwdtxt1,pwdtxt2,errlbl:PIhandle
proc login_clicked(ih:PIhandle):cint {.cdecl.}
 
Open()
 
# *** DIALOG ***
let dlg = Create("dialog")
SetAttributes(dlg, 
  "TITLE=\"Login\", " &
  "SIZE=200x200, " &
  "MAXBOX=NO, " &
  "MINBOX=NO, " &
  "RESIZE=NO")
 
# *** CONTAINER ***
let vb = Create("vbox")
 
# *** IMAGE ***
let hb1 = Create("hbox")
let piclbl = Create("label")
SetAttributes(piclbl,  
  "IMAGE=\"login.png\", " &
  "EXPAND=HORIZONTAL, " &
  "ALIGNMENT=ACENTER:ATOP")
discard Append(hb1, piclbl)
discard Append(vb, hb1)
 
# *** ERROR ***
let hb2 = Create("hbox")
errlbl = Create("label")
SetAttributes(errlbl,
  "TITLE=\"User ID / Password Incorrect\", " &
  "FGCOLOR=\"#ff0000\", " &
  "EXPAND=HORIZONTAL, " &
  "ALIGNMENT=ACENTER")
# Hide(errlbl)
discard Append(hb2, errlbl)
discard Append(vb, hb2)
 
# *** ENTRY ***
let hb3 = Create("hbox")
SetAttributes(hb3, 
  "MARGIN=20x10, " &
  "GAP=5")
let vb1 = Create("vbox")
SetAttribute(vb1, "GAP", "15")
let uidlbl = Create("label")
SetAttribute(uidlbl, "TITLE", "User ID")
discard Append(vb1, uidlbl)
let pwdlbl = Create("label")
SetAttribute(pwdlbl, "TITLE", "Password")
discard Append(vb1, pwdlbl)
discard Append(hb3, vb1)
let vb2 = Create("vbox")
uidtxt = Create("text")
SetAttribute(uidtxt, "SIZE", "85x")
discard Append(vb2, uidtxt)
pwdtxt1 = Create("text")
SetAttributes(pwdtxt1,
  "PASSWORD=YES, " &
  "SIZE=85x")
pwdtxt2 = Create("text")
SetAttribute(pwdtxt2, "SIZE", "85x")
SetHandle("pwdtxt1", pwdtxt1)
SetHandle("pwdtxt2", pwdtxt2)
let zbtxt = Zbox(pwdtxt1, pwdtxt2, nil)
SetHandle("zbtxt", zbtxt)
discard Append(vb2, zbtxt)
discard Append(hb3, vb2)
discard Append(vb, hb3)
 
# *** SHOW/HIDE ***
let hb4 = Create("hbox")
SetAttribute(hb4, "MARGIN", "35x")
showpwd = Create("toggle")
SetAttributes(showpwd,
  "TITLE=\"Show Password?\", " &
  "CANFOCUS=NO")
discard Append(hb4, showpwd)
discard Append(vb, hb4)
 
# *** LOGIN ***
let hb5 = Create("hbox")
SetAttribute(hb5, "MARGIN", "40x10")
let loginbut = Create("button")
SetAttributes(loginbut,
  "TITLE=\"Login\", " &
  "EXPAND=HORIZONTAL")
discard Append(hb5, loginbut)
discard Append(vb, hb5)
 
# *** ATTACH CONTAINER ***
discard Append(dlg, vb)
 
# *** CALLBACKS ***
SetCallback(loginbut, "ACTION", login_clicked)
#~ SetCallback(showpwd, "ACTION", show_password)
 
# *** PROCESS ***
Show(dlg)
MainLoop()
Close()
 
proc login_clicked(ih:PIhandle):cint {.cdecl.} =
  var pwd:cstring
  let uid = GetAttribute(uidtxt,"VALUE")
  if GetAttribute(showpwd, "VALUE") == "OFF":
    pwd = GetAttribute(pwdtxt1,"VALUE")
  else:
    pwd = GetAttribute(pwdtxt2,"VALUE")
  
  if uid == "John" and pwd == "Spikowski":
    Hide(errlbl)
    Message("Login",  "Login Successful")
    return IUP_CLOSE
  else:
    Show(errlbl)
    SetFocus(uidtxt)
 
 

Nim has a '{.global.}' pragma, but it essentially functions like the 'static' keyword does in C. Won't work in this case, because it looks like the call to 'Open' sets up a proc so the variables are local to that but 'static' as in C.

John · « **Reply #250 on:** December 28, 2019, 08:18:56 PM »

That worked.

Thanks.

I'm spoiled by SB not having to declare anything.

John · « **Reply #251 on:** December 29, 2019, 05:03:15 AM »

I agree that one should be able to hit the return key to tab from User ID to Password and to the login button.

John · « **Reply #252 on:** December 29, 2019, 02:45:32 PM »

Nim Changes

I'm using the state argument returned from the toggle callback rather than using GetAttribute to obtain it. The ENTER key now defaults to clicking the Login button if pressed.

ScriptBasic Changes

The ENTER key now defaults to clicking the Login button if pressed.

I think I'm going to give Nim a try on Windows 10. My hope is to get IUP and COM / OLE working on that platform.

AIR · « **Reply #253 on:** December 29, 2019, 04:52:52 PM »

C CHANGES
Switched from using gtk_*_new for each object type, to g_object_new, which eliminates the need for g_object_set() for setting the widget properties.

Pressing "Enter" in the "Username" text box will move the focus to the "Password" text box, which in turn will execute the "onClick" callback when enter is pressed in the "Password" text box.

Code: C

/* logon2.c
 * 
 * version 1.3
 * 
 * GUI Logon Screen Challenge Submission
 * C version, using GTK+-3.0
 * 
 * Written by Armando I. Rivera (AIR)
 * 
 * Compile:  gcc logon2.c $(pkg-config --libs --cflags gtk+-3.0) -o logon2
*/
 
#include <gtk/gtk.h>
 
 
GtkWidget *err_label;
 
void chkBox_cb (GtkToggleButton *toggle_button, gpointer data) {
      if (gtk_toggle_button_get_active (toggle_button)) {
          g_object_set(data,"visibility",TRUE,NULL);
      }else{
          g_object_set(data,"visibility",FALSE,NULL);
      }
}
 
void txtPass_cb( GtkWidget *widget, gpointer data ) {
    g_object_set(data,"label","",NULL);
}
 
void txtUser_cb( GtkWidget *widget, gpointer data ) {
    gtk_widget_grab_focus(data);
}
 
void onClick( GtkWidget *widget, gpointer data ) {
    gchar *stupid_password = "pa$$w0rd!";
    gchar *user_password;
    g_object_get(data,"text",&user_password,NULL);
 
    if (g_strcmp0 (stupid_password,user_password) == 0) {
        g_print("You are now logged in!\n");
        gtk_main_quit();
    }else{
        gtk_label_set_markup(GTK_LABEL(err_label), "<span color=\"red\" font_desc=\"16.0\">** Invalid Password **</span>");
        g_print("Username or Password is Incorrect!\n");
 
    }
}
 
int main( int argc, char *argv[])
{
    GtkWidget *window, *layout, *image, *btnLogin, *chkBox;
    GtkWidget *lblUser, *lblPass, *txtUser, *txtPass;
 
    gtk_init(&argc, &argv);
    
    layout = gtk_layout_new(NULL, NULL);
 
    window = g_object_new(GTK_TYPE_WINDOW,
                        "type",GTK_WINDOW_TOPLEVEL,
                        "title","Login",
                        "default-width",660,
                        "default-height",370,
                        "resizable",FALSE,
                        "window-position",GTK_WIN_POS_CENTER,
                        "child",layout,
                        "decorated",0,
                        NULL);
 
    image = g_object_new(GTK_TYPE_IMAGE,"file","logon.png",NULL);
    g_object_set(layout,"child",image,"margin",10,NULL);
    
    lblUser = g_object_new(GTK_TYPE_LABEL,"use-markup",TRUE,"label","<span font_desc=\"16.0\">Username:</span>",NULL);
    lblPass = g_object_new(GTK_TYPE_LABEL,"use-markup",TRUE,"label","<span font_desc=\"16.0\">Password:</span>",NULL); 
    err_label = g_object_new(GTK_TYPE_LABEL, "width-request", 270,NULL);
 
    txtUser = g_object_new(GTK_TYPE_ENTRY,NULL); 
    txtPass = g_object_new(GTK_TYPE_ENTRY,"visibility",FALSE,NULL);     
    
    chkBox = g_object_new(GTK_TYPE_CHECK_BUTTON,"label","Show Password",NULL); 
 
    btnLogin = g_object_new(GTK_TYPE_BUTTON,"label","Login","width-request",170,NULL);
 
    gtk_layout_put(GTK_LAYOUT(layout), lblUser, 330, 112-30);
    gtk_layout_put(GTK_LAYOUT(layout), lblPass, 330, 162-30);
    gtk_layout_put(GTK_LAYOUT(layout), txtUser, 460, 110-30);
    gtk_layout_put(GTK_LAYOUT(layout), txtPass, 460, 160-30);
    gtk_layout_put(GTK_LAYOUT(layout), chkBox, 460, 210-30);
    gtk_layout_put(GTK_LAYOUT(layout), btnLogin, 460, 250-30);
    gtk_layout_put(GTK_LAYOUT(layout), err_label, 300, 16);
 
    g_signal_connect (window, "destroy", G_CALLBACK (gtk_main_quit), NULL);
    g_signal_connect (btnLogin, "clicked", G_CALLBACK (onClick), txtPass);
    g_signal_connect (chkBox, "toggled", G_CALLBACK (chkBox_cb), txtPass);
    g_signal_connect (txtPass, "changed", G_CALLBACK (txtPass_cb), err_label);
    g_signal_connect (txtPass, "activate", G_CALLBACK (onClick), txtPass);
    g_signal_connect (txtUser, "activate", G_CALLBACK (txtUser_cb), txtPass);
    
    gtk_widget_show_all(window);
 
    gtk_main();
 
    return 0;
}
 
 
 

AIR.

John · « **Reply #254 on:** December 29, 2019, 06:31:36 PM »

I'm going to be happy with return clicking the login button. In the day, the accounting software I worked on allowed enter as well as tab with the added ability to move around the form with the arrow keys.

AllBASIC Forum / ScriptBasic Blog

News:

Author Topic: RaspberryBASIC.org Forum (Read 99908 times)

John

Re: RaspberryBASIC.org Forum

jalih

Re: RaspberryBASIC.org Forum

AIR

Re: RaspberryBASIC.org Forum

John

Re: RaspberryBASIC.org Forum

AIR

Re: RaspberryBASIC.org Forum

John

Re: RaspberryBASIC.org Forum

John

Re: RaspberryBASIC.org Forum

John

Re: RaspberryBASIC.org Forum

AIR

Re: RaspberryBASIC.org Forum

AIR

Re: RaspberryBASIC.org Forum

John

Re: RaspberryBASIC.org Forum

John

Re: RaspberryBASIC.org Forum

John

Re: RaspberryBASIC.org Forum

AIR

Re: RaspberryBASIC.org Forum

John

Re: RaspberryBASIC.org Forum