Hi all: I try to understand how to

[stewang]

Hi all:
I try to understand how to use uplevel.
In my program, I create a button in a frame first,
then I add a notifier to the button, if I click on the
button, it will bring up a new window with a listbox,
and a text in the right side of the listbox. But when
I click on the button, I can not see new window come out.

Would anyone help me, please.

button .b -text "button" -bg white -command { }
pack .b -side top
proc check {} {

toplevel .w

listbox .w.g -text "test"
pack .w.g -side right

}

 

[Bong]

You have 2 problems (neither, by the way has anything to do with "uplevel"; I think you meant "toplevel&quot.
1. In your button creation, you have "-command {}". Basically, you've said the button has no action. Change it to "-command check".
2. The "-text" option is not valid for a listbox. Either change .w.g to a textbox, or change the option to -listvariable and specify a valid list, "listbox .w.g -textvariable tlist; set tlist {test test test test}".

I think for the purposes of this example, you want a textbox anyway.

Bob Rashkin
rrashkin@csc.com

 

[stewang]

Hi Bong:
I try to use your idea to write the code again, but it failed, it complains that the textbox, -textvarible are invaild name, and I could not find the textbox in tcl/tk menu. I also try use label and -text, it work, but that is not what I want, I want a textbox, Please help me fix the problem.

I write four methods as follow, but three of them do not work, just method of two work.

1> I let .w.g go to label, and use option -textvarible.
when I click on the button, it come up a window without
text. please tell me why.

button .b -text "button" -bg white -command check
pack .b -side top

proc check {} {

toplevel .w
label .w.label -textvariable tv; set tv { test test test }
pack .w.label -side top

}


2> I let .w.g go to label, and use option of -text, then it work, it come up a window with a text, when I click the button.it works, but this is not what I want.

button .b -text "button" -bg white    -command check 
pack .b -side top

proc check {} {

  toplevel .w
  label .w.label -text "test" 
  pack .w.label -side top

}

3> when I put .w.t go to textbox, it complains that the textbox is invaild name, and I could not find the textbox in tcl/tk menu. But this purpose is what I want to use, please tell me what's wrong with my code in here.

button .b -text "button" -bg white    -command check 
pack .b -side top

proc check {} {

  toplevel .w
  textbox .w.t -listvariable listV; set listV { test test } 
  pack .w.label -side top

}

4> I use listbox and -textvariable in here, but it complains
that the -textvarible is invalid name.

button .b -text "button" -bg white    -command check 
pack .b -side top

proc check {} {

  toplevel .w
  listbox .w.g -textvariable tlist; set tlist {test test test test} 
  pack .w.label -side top

}

 

[Bong]

Sorry, my mistake.

1. use a textbox, which is the "text" widget:
text .w.g -text test

or

2. use a listbox (I erroneously told you to use "textvariable" when I meant "listvariable&quot:
listbox .w.g -listvariable tlist
set tlist {test1 test2 test3}

Bob Rashkin
rrashkin@csc.com

 

[stewang]

Hi Bong:
I add use your idea again into my code, but it still not work, would you find out why for me?
The problem as follow;

1> It complains that the -text is unknown option, but I checked the format and the space already, they looks ok, but why it still complains?

button .b -text "button" -bg white    -command check
pack .b -side top

proc check {} {

  toplevel .w
  text .w.t -text "text"   pack .w.t -side top

}

2> I use listbox in here, but it just come uo a farme without any text.

button .b -text "button" -bg white    -command check
pack .b -side top

proc check {} {

  toplevel .w
  listbox .w.l -listvariable listV 
  set listV { test test }
  pack .w.l 

}

 

[Bong]

OK. My mistake again. For the text widget, indeed, -text is not an option. You need to use ".w.t insert end "text"".
For the listbox, the variable, listV, is local to the procedure, check. You need to declare listV in the main program, or set it as global in the proc ("global listV&quot, or use the global scope explicitly :listV).

Bob Rashkin
rrashkin@csc.com