Access to Parameters defined in a GUI

Altair Forum User

Hey guys,

 

I've got the following tcl code:

 hwt::CreateWindow lala \ -windowtitle 'title' \ -noGeometrySaving \ -cancelButton Cancel \ -acceptButton Okey \ -acceptFunc applyFunction \ -defaultButton Accept \ -minsize 470 100 \ -post;  set recess [::hwt::WindowRecess lala]; set section2 [label $recess.section2 \ -text 'entry: ' \ -justify left \ -anchor nw \ -font [hwt::AppFont]];  pack $section2 -side top -anchor nw -pady 5; hwt::AddPadding $recess -side top -height [hwt::DluHeight 4];  set valueToPrint [ AddEntry $recess.frame2  label       'value:'  labelWidth  40   entryWidth  20  anchor   nw  validate    real  text 200  withoutPacking];  pack $valueToPrint -side top -anchor nw -pady 5;            AddPadding $recess.frame2 width 22 -side left;  EntryInsert $valueToPrint 7000;  proc applyFunction {args} {  tk_messageBox -message 'I don't know how to print the value :-('; }

Now, I'd like to print the Value  'valueToPrint'.

I tried

puts $valueToPrint, but it doesn't work. How can I get access to the parameter defined in the GUI?

 

Thanks for your help.

Mike

tinh

Hi,

look like you a refer to global variable, please try 'puts $::valueToPrint'

Altair Forum User

Altair Forum User said:

Hi,

look like you a refer to global variable, please try 'puts $::valueToPrint'

 

Thanks tinh, but it doesn't work. Other ideas? Have you tried it? Does is work for you?

Cheers, Mike

tinh

Hi,

How's about the result?

 

what do you want to print?

Altair Forum User

I just want to print it on the command window.

but it says

 

<?xml version="1.0" encoding="UTF-8"?>

tinh

I copy your code and paste to command window, and then i type: puts $valueToPrint

it returns .lala.topFrame.recess.frame2

 

Do you want to return '7000' instead?

If so, give the entry a textvariable

 

set EntryWidget [ AddEntry $recess.frame2 textvariable valueToPrint   label       'value:'  labelWidth  40   entryWidth  20  anchor   nw  validate    real  text 200  withoutPacking]; 
pack $EntryWidget -side top -anchor nw -pady 5;           
AddPadding $recess.frame2 width 22 -side left; 
EntryInsert $EntryWidget 7000; #or set valueToPrint 7000

 

proc applyFunction args {tk_messageBox -message $::valueToPrint}

Altair Forum User

A late reply, but: THANK YOU!!

that was what I was looking for. You are awesome Tinh!

Altair Forum User

Привет товарищи!
Предлагаем Вашему вниманию изделия из стекла для дома и офиса.Наша организация ООО «СТЕКЛОЭЛИТ» работает 10 лет на рынке этой продукции в Беларуси.
Более подробная информация размещена https://drive.google.com/file/d/1M3yBV_X6avVPgF2FyJhEy5k9Xdyq9NUo/view?usp=sharing
Увидимся!

Altair Forum User

Добрый день товарищи!
Наша компания занимается свыше 10 лет продажей промышленных и фасадных красок в городе Минске.Основные направления и виды нашей деятельности:
https://drive.google.com/file/d/1Rjn-phsZoQftAlG7KZHhbxRAHyVUWC20/view?usp=sharing
Всегда рады помочь Вам! С уважением, BELYJMOST
http://www.badrgate.com/vb/member.php?u=23450
http://support.annke.com/forum/space-uid-31876.html
http://www.bojanas.info/sixtyone/forum/upload/member.php?u=1162477
http://dq.dianchu.net/home.php?mod=space&uid=227677
http://thetherapistdirectory.net/author/zelenafra/