SF.net SVN: ledger-smb:[6185] addons/1.3/wxPOS/scripts

[..hidden..]

Revision: 6185
          http://sourceforge.net/p/ledger-smb/code/6185
Author:   einhverfr
Date:     2013-10-26 13:25:39 +0000 (Sat, 26 Oct 2013)
Log Message:
-----------
Added exit button on login screen

Modified Paths:
--------------
    addons/1.3/wxPOS/scripts/Console.pm
    addons/1.3/wxPOS/scripts/Login.pm

Modified: addons/1.3/wxPOS/scripts/Console.pm
===================================================================
--- addons/1.3/wxPOS/scripts/Console.pm	2013-10-26 13:15:20 UTC (rev 6184)
+++ addons/1.3/wxPOS/scripts/Console.pm	2013-10-26 13:25:39 UTC (rev 6185)
@@ -109,9 +109,8 @@
 }
 
 sub _process_char {
- my ($evt);
- warn 'key pressed
- ';
+ my ($evt) = @_;
+ warn 'key pressed';
 }
 
 ### About

Modified: addons/1.3/wxPOS/scripts/Login.pm
===================================================================
--- addons/1.3/wxPOS/scripts/Login.pm	2013-10-26 13:15:20 UTC (rev 6184)
+++ addons/1.3/wxPOS/scripts/Login.pm	2013-10-26 13:25:39 UTC (rev 6185)
@@ -55,6 +55,8 @@
  $self->{serv} = Wx::TextCtrl->new($self->{WxPanel}, -1, 'localhost', [130, 240], [120, 24]);
  my $button = Wx::Button->new($self->{WxPanel}, -1, 'Enter', [100, 280], [100, 24]);
  EVT_BUTTON($self, $button, \&Login);
+ my $exitbtn =  Wx::Button->new($self->{WxPanel}, -1, 'X', [250, 280], [20, 24]);
+ EVT_BUTTON($self, $exitbtn, \&AbortLogin);
  return $self;
 }
 
@@ -85,4 +87,9 @@
  }
  return $self;
 }
+
+sub AbortLogin {
+  die 'Login Aborted';
+}
+
 1;

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.


------------------------------------------------------------------------------
October Webinars: Code for Performance
Free Intel webinars can help you accelerate application performance.
Explore tips for MPI, OpenMP, advanced profiling, and more. Get the most from 
the latest Intel processors and coprocessors. See abstracts and register >
http://pubads.g.doubleclick.net/gampad/clk?id=60135991&iu=/4140/ostg.clktrk
_______________________________________________
Ledger-smb-commits mailing list
..hidden..
https://lists.sourceforge.net/lists/listinfo/ledger-smb-commits