Perl Tkx 多线程

li_yue_min

各位前辈：
    大家好！
    我是perl的新手。在写脚本的时候遇到一些问题，希望大家帮我解决或给些建议,不胜感激……
   
    我利用perl语言，并调用ActiveTcl中的Tkx包成功创建用户界面（GUI）。
    我的主要问题是：GUI和线程，想通过GUI上的button来创建线程（thread1）
    （1）期望结果：点击button，则button响应函数中创建thread1，然后thread1会调用自己的回调函数threadprocess1()，其中threadprocess1（）中有while(1){ print("enter threadprocess1 function");}的循环。button键会自动弹出（不是按下去的状态）；
    （2）实际结果：点击button，则button响应函数中创建thread1，然后thread1会调用自己的回调函数threadprocess1()，但是一直在线程中，GUI上的button按键一直处于被按下状态，表示button一直在响应，没有释放。所以GUI上的其它按键都无法操作。

    请问：GUI可以和线程结合用吗？如果可以，我上面出现的问题怎么解决？