|  |  | @ -208,6 +208,8 @@ sub init | 
			
		
	
		
		
			
				
					
					|  |  |  |     $self->{bottom}->bind("<Control-Return>", [sub { $self->{bottom}->insert('insert', "\r\n")}, $self]); |  |  |  |     $self->{bottom}->bind("<Control-Return>", [sub { $self->{bottom}->insert('insert', "\r\n")}, $self]); | 
			
		
	
		
		
			
				
					
					|  |  |  |     $self->{bottom}->bind("<KeyPress>", [$self, "on_key"]); |  |  |  |     $self->{bottom}->bind("<KeyPress>", [$self, "on_key"]); | 
			
		
	
		
		
			
				
					
					|  |  |  |     $self->bind("<F2>", [$self, "toggle_stamps"]); |  |  |  |     $self->bind("<F2>", [$self, "toggle_stamps"]); | 
			
		
	
		
		
			
				
					
					|  |  |  |  |  |  |  |     $self->{bottom}->bind("<F2>", [$self, "toggle_stamps"]); | 
			
		
	
		
		
			
				
					
					|  |  |  |  |  |  |  |     $self->{top}->bind("<F2>", [$self, "toggle_stamps"]); | 
			
		
	
		
		
			
				
					
					|  |  |  | 
 |  |  |  | 
 | 
			
		
	
		
		
			
				
					
					|  |  |  |     hook("tk_bindwheel", -window => $self->{bottom}); |  |  |  |     hook("tk_bindwheel", -window => $self->{bottom}); | 
			
		
	
		
		
			
				
					
					|  |  |  |     hook("tk_bindwheel", -window => $self->{top}); |  |  |  |     hook("tk_bindwheel", -window => $self->{top}); | 
			
		
	
	
		
		
			
				
					|  |  | 
 |