Advertisement
iful99

140 karakter

Nov 29th, 2016
341
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.44 KB | None | 0 0
  1. #140karakter
  2.  
  3. from appuifw import e32,app,Text
  4.  
  5. def exit():
  6.   global run
  7.   run = 0
  8.   lock.signal()
  9.  
  10. teks = Text()
  11. app.screen = 'normal'
  12. lock = e32.Ao_lock()
  13. app.body = teks
  14. app.exit_key_handler = exit
  15.  
  16. run = 1
  17. while run:
  18.   sisa = 140 - teks.len()
  19.   app.title = unicode(str(sisa)+'/140')
  20.   if teks.len()>140:
  21.     kt = teks.get()[0:140]
  22.     teks.clear()
  23.     e32.ao_sleep(0.1)
  24.     teks.add(kt)
  25.   e32.ao_sleep(0.1)
  26.  
  27. lock.wait()
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement