#wm withdraw .; wm withdraw .output; kons_font 13
  # tylko pod konsola2c
#lappend auto_path ~/tcl/tclws ~/tcl/tcllib
  # niepotrzebne, jesli uruchamiac przez tclkit_2 

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 

::WS::Client::CreateStubs qqq
  #% 
	::qqq::met2 liczbaElem
	::qqq::met2a {}
	::qqq::razyDwa par1


::qqq::razyDwa {1 2 3 4}
  #% razyDwaResult {2 4 6 8}

::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::met2a
  #% met2aResult {a 1 nast {a 2 nast {a 3}}}
  # met2a zwraca liste, ktora staja sie zagniezdzona lista Tcl-a !!!

exit