wm withdraw .; wm withdraw .output; wm geom .konsola 759x525+75+75; kons_font 15
kons_font 13

package re WS::Client
  #% 2.3.7

set w1 [::WS::Client::GetAndParseWsdl http://localhost:30000/service/qqq/wsdl]
dict get $w1 name
  #% qqq
  # odczytujemy nazwe webserwisu 

# tworzymy stuby dla operacji na tym webserwisie...
::WS::Client::CreateStubs qqq
  #% 
	::qqq::met2 liczbaElem
	::qqq::razyDwa par1


::qqq::met2 3
  #% met2Result {{a {a ku ku (0)} b 0} {a {a ku ku (1)} b 1} {a {a ku ku (2)} b 2}}
::qqq::met2 2
  #% met2Result {{a {a ku ku (0)} b 0} {a {a ku ku (1)} b 1}}


exit