这句话该怎么写？

chgmzchgmz

请教，要达到图片中的要求，这PML应该怎么写呢？

admin

$(H

------------------------------------------------------------------------
Copyright www.3d-sharp.com

Macro:   tubitool.PMLFRM                  
Revision: 1.0
Author:  xiaoxin

First edit on Date:2015-8-10

------------------------------------------------------------------------

$)
setup form !!tubitool
      title |tubitool  by 3d-sharp.com|

      frame .frame1 |Tubi List| at x0 ymax

         button .add   at x1 ymax |Add CE inst|  tooltip |Add ce to list| callback |!this.add()|
         button .remove |Remove| tooltip |Remove selection in list| callback |!this.remove()|
         button .removeall |Remove All| tooltip |Empty list| callback |!this.removeall()|

         list .list at x1 ymax+0.2  callback |!this.listpipe()| width 40 height 10


      exit



exit

---------------------------------------------------------------------------------------
------------------------------listselect--------------------------------------------


define method .listpipe()
   !pipe = !this.list.selection(|dtext|)
   $!pipe
   handle any
   endhandle
endmethod
---add by luozhiping end

---------------------------------------------------------------------------------------
------------------------------add()--------------------------------------------
---------------------------------------------------------------------------------------
define method .add()
   !branchs = !this.list.dtext
   !Index = !this.list.val

   ----add
   var !tubis coll all tubi for ce
     do !tubi value !tubis
       $!tubi

   !bname = name
      if !Index gt 0  then
     !branchs.insert(!Index + 1,!bname)
   else
     !branchs.append(!bname)
   endif

     enddo

   !branchs.unique()  
   !this.list.dtext = !branchs
   !this.list.val = !Index + 1
   handle any
   endhandle
endmethod
-------------------------
---------------------------------------------------------------------------------------
------------------------------remove()--------------------------------------------
---------------------------------------------------------------------------------------
define method .remove()
   !select = !this.list.val
   !branchs = !this.list.dtext
   !branchs[!select].delete()
   !this.list.dtext = !branchs
endmethod

---------------------------------------------------------------------------------------
------------------------------removeall()--------------------------------------------
---------------------------------------------------------------------------------------
define method .removeall()
   !this.list.clear()
endmethod

chgmzchgmz

admin 发表于 2015-8-10 18:37
$(H

------------------------------------------------------------------------

谢谢小新，只是用TOGGLE的方法该怎么做呢？

即如果用户选中指定的TOGGLE, 将会在前方的文本框中自动填入指定值。。。

还望指教，谢谢

admin

稍等
直接写这句话不就行了？


toggle .tubit  'TUBI' callback |!this.add()|

过控103班

1111