M taro-ctl.cr → taro-ctl.cr

@@ -64,7 +64,11 @@ end
     end
     
     def lifetime
-      return @lifetime
+      @lifetime
+    end
+    
+    def msg
+      @msg
     end
     
     def write_msg(msgtype : UInt8, data : Slice)
@@ -149,10 +153,21 @@ 
       @lsWin.write_msg(2_u8, list.to_slice)
     end
     
+    def mblaze
+      @mblaze
+    end
+    
     def mainWindow
       @lsWin
     end
-
+    
+    def readWins
+      @readWins
+    end
+    
+    def composeWins
+      @composeWins
+    end 
   end
 
 end
@@ -163,5 +178,7 @@ loop do
   select
   when taro.mainWindow.lifetime.receive?
     exit
+  when m = taro.mainWindow.msg.receive
+    # do something
   end
 end

M taro-ls.tal → taro-ls.tal

@@ -98,7 +98,7 @@ .decoding/processed LDZ2 .decoding/count LDZ2 EQU2
 JMP2r
 
 @on_mouse ( -> )
-  
+  #01 .wipe_fg STZ
   get_select_idx_by_mouse
 
   .resizing LDZ #00 EQU ,&resz_check JCN
@@ -120,10 +120,6 @@ 
   #01 .resizing STZ
   .Mouse/x DEI2 .resizing/x STZ2
   .Mouse/y DEI2 .resizing/y STZ2
-  BRK
-  
-  #01 .wipe_fg STZ
-  
   &done
 BRK
 
@@ -154,7 +150,7 @@ .Screen/height DEI2 #0008 ADD2 .Screen/height DEO2
   ,&chk_release JMP
   
   &chk_release
-  
+  #01 .list/update STZ
   .Screen/height DEI2 TOP_SECTION BOTTOM_SECTION ADD2 SUB2 #03 SFT2 NIP .list/height STZ
   .Mouse/state DEI