;allows user to change titlebar for each Procomm session
;written by Gary Abbott
proc main
   string NewTitleStr                ; New title for Procomm Plus.
   #define TRUE 1	   ;set true to 1 for while loop
   integer EventID     ; event id from the main dialog box
   
   dialogbox 0 8 24 210 79 7 "Titlebar Script" 
      text 1 12 2 117 11 "Enter new titlebar:" left
      editbox 2 12 18 162 11 NewTitleStr 
      pushbutton 3 28 51 40 13 "&OK" 
      pushbutton 4 85 51 40 13 "&Cancel" 
   enddialog 
   while TRUE                 ; Loop forever.
            dlgevent 0 EventID ; Get dialog EventID.
            switch EventID       ; Evaluate the EventID.
               case 0            ; No EventID occurred.
               endcase
               case 3           ; The OK button was depressed
                  exitwhile      ; exit dialog box if ok button depresed
               endcase
               case 4            ;The Cancel button was depressed
                  halt	      ; stop script for cancel button
               endcase
            endswitch
         endwhile
      dlgdestroy 0 CANCEL     ; Destroy dialog box.
   pwtitlebar NewTitleStr PERMANENT           ; Change Procomm Plus's title.
   
endproc