Changeset 5658

Timestamp:

06/27/09 01:08:23 (3 years ago)

Author:

submersible_toaster

Message:

w00t! - swarm chat 0.1 functional.

File:

• trunk/Padre-Plugin-Swarm/lib/Padre/Wx/Swarm/Chat.pm (modified) (4 diffs)

trunk/Padre-Plugin-Swarm/lib/Padre/Wx/Swarm/Chat.pm

@@ -8 +8 @@
 
 our $VERSION = '0.37';
-our @ISA     = 'Wx::TextCtrl';
+our @ISA     = 'Wx::Panel';
 
 #our $EVT_Chat = Wx::NewEventType();
-
+use Class::XSAccessor
+    accessors => {
+        textinput => 'textinput',
+        chatframe => 'chatframe',
+    };
+    
 sub new {
     my $class = shift;
@@ -17 +22 @@
     my $self = $class->SUPER::new(
         $main->bottom,-1,
-        '',
+        #'',
         Wx::wxDefaultPosition,
         Wx::wxDefaultSize,
         Wx::wxLC_REPORT | Wx::wxLC_SINGLE_SEL
     );
+    
+    my $sizer = Wx::BoxSizer->new(Wx::wxVERTICAL);
+    
+    my $text = Wx::TextCtrl->new($self,-1,'',
+        Wx::wxDefaultPosition,
+        Wx::wxDefaultSize,
+        Wx::wxTE_PROCESS_ENTER
+    );
+    my $chat = Wx::TextCtrl->new($self,-1,'',
+        Wx::wxDefaultPosition,
+        Wx::wxDefaultSize,
+        Wx::wxTE_READONLY|Wx::wxTE_MULTILINE|Wx::wxNO_FULL_REPAINT_ON_RESIZE
+    );
+    $sizer->Add($chat,1, Wx::wxGROW );
+    $sizer->Add($text,0, Wx::wxGROW );
+    
+    $self->textinput( $text );
+    $self->chatframe( $chat );
+    $self->SetSizer($sizer);
+    
+    Wx::Event::EVT_TEXT_ENTER(
+                $self, $text,
+                \&on_text_enter
+        );
+
     
     return $self;
@@ -102 +132 @@
             $user, $ip, $content
         );
-        $self->AppendText( $output );
+        $self->chatframe->AppendText( $output );
     }
 }
@@ -114 +144 @@
     
 }
+
+sub on_text_enter {
+    my ($self,$event) = @_;
+    my $message = $self->textinput->GetValue;
+    $self->tell_service( $message );
+    $self->textinput->SetValue('');
+    
+}
 1;