├── lib ├── checker │ ├── aclocal.m4 │ ├── DEPENDENCIES │ ├── doc │ │ ├── ko_reintegrate.sh │ │ ├── upgrade-8-3-3.tcl │ │ ├── tip_update.tcl │ │ ├── upgrade-8-3-1.tcl │ │ ├── upgrade-8-3-4.tcl │ │ └── upgrade-8-3-2.tcl │ ├── pkgIndex.tcl.in │ ├── tests │ │ ├── teapot.txt │ │ ├── pkgIndex.tcl │ │ ├── coreTk.test │ │ ├── tclX.test │ │ ├── incrTcl.test │ │ ├── blt.oldTest │ │ ├── blend.test │ │ ├── oratcl.test │ │ ├── tclCom.test │ │ ├── xmlAct.test │ │ ├── xmlGen.test │ │ ├── sybtcl.oldTest │ │ ├── tclDomPro.test │ │ ├── xmlServer.test │ │ └── coreTcl.test │ └── config │ │ ├── mkinstalldirs │ │ └── ChangeLog ├── debugger │ ├── aclocal.m4 │ ├── images │ │ ├── add.png │ │ ├── bug.png │ │ ├── cog.png │ │ ├── down.png │ │ ├── file.png │ │ ├── go.png │ │ ├── help.gif │ │ ├── logo.gif │ │ ├── proc.gif │ │ ├── star.png │ │ ├── up.png │ │ ├── about.gif │ │ ├── cancel.png │ │ ├── class.gif │ │ ├── cross.png │ │ ├── delete.png │ │ ├── script.png │ │ ├── stepin.gif │ │ ├── stepto.gif │ │ ├── var_d.gif │ │ ├── var_e.gif │ │ ├── var_s.gif │ │ ├── var_sx.png │ │ ├── wrench.png │ │ ├── arrow_up.png │ │ ├── break_d.gif │ │ ├── break_e.gif │ │ ├── break_m.gif │ │ ├── break_s.gif │ │ ├── break_sx.png │ │ ├── current.gif │ │ ├── current_d.gif │ │ ├── current_e.gif │ │ ├── current_m.gif │ │ ├── current_v.gif │ │ ├── flag_blue.png │ │ ├── history.gif │ │ ├── namespace.gif │ │ ├── package.png │ │ ├── restart.png │ │ ├── spawn_d.gif │ │ ├── spawn_e.gif │ │ ├── stepout.gif │ │ ├── stepover.gif │ │ ├── warning.png │ │ ├── win_break.gif │ │ ├── win_cover.gif │ │ ├── win_eval.gif │ │ ├── win_proc.gif │ │ ├── win_watch.gif │ │ ├── combo_arrow.gif │ │ ├── current_spd.gif │ │ ├── current_spe.gif │ │ ├── debug_break.png │ │ ├── history_spd.gif │ │ ├── history_spe.gif │ │ ├── link_break.png │ │ ├── stepresult.gif │ │ ├── syn_error_s.gif │ │ ├── breakspawn_dd.gif │ │ ├── breakspawn_de.gif │ │ ├── breakspawn_ed.gif │ │ ├── breakspawn_ee.gif │ │ ├── current_bs_dd.gif │ │ ├── current_bs_de.gif │ │ ├── current_bs_ed.gif │ │ ├── current_bs_ee.gif │ │ ├── debugUnixIcon.gif │ │ ├── history_bs_dd.gif │ │ ├── history_bs_de.gif │ │ ├── history_bs_ed.gif │ │ ├── history_bs_ee.gif │ │ ├── history_enable.gif │ │ ├── history_mixed.gif │ │ ├── page_refresh.png │ │ ├── syn_error_sx.png │ │ ├── history_disable.gif │ │ ├── sort_decreasing.gif │ │ └── sort_increasing.gif │ ├── DEPENDENCIES │ ├── test.tcl │ ├── tests │ │ ├── teapot.txt │ │ └── pkgIndex.tcl │ └── config │ │ ├── mkinstalldirs │ │ └── ChangeLog ├── tclcompiler │ ├── aclocal.m4 │ ├── config │ │ ├── mkinstalldirs │ │ └── ChangeLog │ ├── tclconfig │ │ └── README.txt │ └── tests │ │ └── test_jump_rewrite.tcl ├── tclparser │ ├── DEPENDENCIES │ ├── README │ ├── aclocal.m4 │ ├── tools │ │ └── check_manifest │ ├── config │ │ ├── mkinstalldirs │ │ └── ChangeLog │ └── tclconfig │ │ └── README.txt ├── appframe │ ├── images │ │ └── help.gif │ ├── pkgIndex.tcl │ └── teapot.txt ├── help │ ├── teapot.txt │ └── pkgIndex.tcl ├── splash │ ├── teapot.txt │ └── pkgIndex.tcl ├── wub84 │ ├── Makefile │ ├── pkgIndex.tcl │ ├── Timer.tcl │ └── teapot.txt ├── dbg_nub │ ├── standard │ │ ├── teapot.txt │ │ └── pkgIndex.tcl │ └── pkgIndex.tcl ├── cmatch │ └── pkgIndex.tcl ├── oomk │ └── pkgIndex.tcl ├── appwidgets │ └── pkgIndex.tcl ├── selfile │ ├── pkgIndex.tcl │ └── selfile.tm ├── tapscan │ └── pkgIndex.tcl ├── tlocate │ └── pkgIndex.tcl ├── toolbar │ └── pkgIndex.tcl ├── syscolor │ ├── pkgIndex.tcl │ └── syscolor.tm ├── prefdk │ └── pkgIndex.tcl ├── preftp │ └── pkgIndex.tcl ├── projectInfo │ └── pkgIndex.tcl ├── osx │ └── pkgIndex.tcl ├── teapot │ └── pkgIndex.tcl ├── image │ ├── pkgIndex.tcl │ └── teapot.txt ├── platform │ ├── pkgIndex.tcl │ └── teapot.txt ├── stringfileinfo │ └── pkgIndex.tcl ├── afs │ └── pkgIndex.tcl ├── ico │ ├── pkgIndex.tcl │ └── teapot.txt ├── tcldebugger_attach │ ├── tcldebugger_attach.tap │ ├── pkgIndex.tcl │ └── teapot.txt ├── log │ └── pkgIndex.tcl ├── listentry │ └── pkgIndex.tcl ├── preferences │ └── pkgIndex.tcl ├── teapotlink │ └── pkgIndex.tcl ├── gvwidgets │ ├── pkgIndex.tcl │ └── teapot.txt ├── dbg_engine │ ├── sybtcl.pdx │ ├── tclCom.pdx │ ├── oratcl.pdx │ └── xmlGen.pdx ├── misc │ ├── req.tm │ ├── mafter.tm │ ├── as-cache-sync.tm │ └── pkgIndex.tcl ├── pfile │ └── pkgIndex.tcl ├── tap │ └── pkgIndex.tcl ├── gview │ └── pkgIndex.tcl ├── pkggen │ └── pkgIndex.tcl └── teapotbase │ └── pkgIndex.tcl ├── artwork └── splash.png ├── data └── images │ ├── file.gif │ ├── glob.gif │ ├── about.gif │ ├── package.gif │ ├── pkg_app.gif │ ├── startup.gif │ ├── directory.gif │ └── directory_rec.gif ├── app ├── tclapp │ ├── data │ │ └── empty.kit │ └── lib │ │ ├── tclapp-ui │ │ └── images │ │ │ ├── up.png │ │ │ ├── add.png │ │ │ ├── down.png │ │ │ ├── file.png │ │ │ ├── font.png │ │ │ ├── glob.png │ │ │ ├── note.png │ │ │ ├── delete.png │ │ │ ├── right.png │ │ │ ├── server.png │ │ │ ├── startup.png │ │ │ ├── comments.png │ │ │ ├── directory.png │ │ │ ├── feed_edit.png │ │ │ ├── package_add.png │ │ │ ├── package_go.png │ │ │ ├── directory_rec.png │ │ │ ├── package_delete.png │ │ │ ├── package_go_all.png │ │ │ ├── package_green.png │ │ │ ├── pkg_pot_profile.png │ │ │ ├── pkg_pot_regular.png │ │ │ ├── pkg_tap_profile.png │ │ │ ├── pkg_tap_regular.png │ │ │ ├── pkg_pot_profile_sel.png │ │ │ ├── pkg_pot_regular_sel.png │ │ │ ├── pkg_tap_profile_sel.png │ │ │ ├── pkg_tap_regular_sel.png │ │ │ └── arrow_rotate_clockwise.png │ │ └── app-tclapp │ │ └── pkgIndex.tcl ├── tclsvc │ ├── images │ │ ├── new.gif │ │ ├── run.gif │ │ ├── delete.gif │ │ ├── gear.gif │ │ ├── help.gif │ │ ├── open.gif │ │ ├── pause.gif │ │ ├── stop.gif │ │ ├── continue.gif │ │ └── refresh.gif │ └── main.tcl ├── inspector │ ├── images │ │ ├── Menus.gif │ │ ├── Procs.gif │ │ ├── find.gif │ │ ├── help.gif │ │ ├── Afters.gif │ │ ├── Canvases.gif │ │ ├── Classes.gif │ │ ├── Images.gif │ │ ├── Objects.gif │ │ ├── Windows.gif │ │ ├── delete.gif │ │ ├── refresh.gif │ │ ├── Namespaces.gif │ │ └── Variables.gif │ ├── README.txt │ ├── lib │ │ ├── procs_list.tcl │ │ └── canvas_list.tcl │ └── main.tcl ├── xref │ └── lib │ │ └── xref │ │ ├── images │ │ ├── cmd.gif │ │ ├── file.gif │ │ ├── find.gif │ │ ├── help.gif │ │ ├── loc.gif │ │ ├── open.gif │ │ ├── pkg.gif │ │ ├── var.gif │ │ ├── nspace.gif │ │ ├── origin.gif │ │ ├── directory.gif │ │ └── originl.gif │ │ ├── xref_lfile.tcl │ │ ├── xref_lcall.tcl │ │ ├── xref_lns.tcl │ │ ├── xref_lcmd.tcl │ │ ├── xref_ldefined.tcl │ │ ├── xref_lpkg.tcl │ │ ├── xref_llocfl.tcl │ │ ├── xref_lvar.tcl │ │ ├── xref_lvarcmd.tcl │ │ ├── xref_lloc.tcl │ │ ├── xref_llocvardef.tcl │ │ ├── xref_lloccmddef.tcl │ │ └── arrows.tcl ├── comp │ └── lib │ │ ├── comp-ui │ │ ├── images │ │ │ ├── add.png │ │ │ ├── delete.png │ │ │ └── file.png │ │ └── pkgIndex.tcl │ │ └── app-comp │ │ └── pkgIndex.tcl ├── tape │ └── lib │ │ ├── tape-ui │ │ └── images │ │ │ ├── add.png │ │ │ ├── up.png │ │ │ ├── alias.gif │ │ │ ├── delete.png │ │ │ ├── down.png │ │ │ ├── file.png │ │ │ ├── exclude.gif │ │ │ ├── include.gif │ │ │ ├── package.gif │ │ │ ├── arrow_out.png │ │ │ ├── directory.png │ │ │ ├── package_add.png │ │ │ ├── package_go.png │ │ │ ├── package_pot.png │ │ │ ├── package_tap.png │ │ │ ├── teabag_none.png │ │ │ ├── teabag_pot.png │ │ │ ├── teabag_tm.png │ │ │ ├── teabag_zip.png │ │ │ ├── arrow_refresh.png │ │ │ └── directory_rec.png │ │ └── app-tape │ │ └── pkgIndex.tcl ├── vfse │ ├── lib │ │ ├── tool │ │ │ ├── images │ │ │ │ ├── delete.gif │ │ │ │ ├── big-dll.gif │ │ │ │ ├── big-exe.gif │ │ │ │ ├── big-file.gif │ │ │ │ ├── big-txt.gif │ │ │ │ ├── diskdrive.gif │ │ │ │ ├── small-dll.gif │ │ │ │ ├── small-exe.gif │ │ │ │ ├── small-txt.gif │ │ │ │ ├── big-folder.gif │ │ │ │ ├── folder-open.gif │ │ │ │ ├── small-file.gif │ │ │ │ ├── folder-closed.gif │ │ │ │ └── small-folder.gif │ │ │ └── pkgIndex.tcl │ │ └── app-vfse │ │ │ ├── images │ │ │ ├── back.gif │ │ │ ├── help.gif │ │ │ ├── forward.gif │ │ │ ├── refresh.gif │ │ │ ├── folder-up.gif │ │ │ ├── directories.gif │ │ │ └── folder-type.gif │ │ │ └── defaults.tcl │ └── main.tcl ├── lsmfs │ ├── main.tcl │ └── lib │ │ └── app-listmfs │ │ └── pkgIndex.tcl ├── debug │ └── lib │ │ └── app-debug │ │ └── pkgIndex.tcl ├── launch │ ├── main.tcl │ └── lib │ │ └── app-launch │ │ └── pkgIndex.tcl ├── dump_stack.tcl ├── debug_source.tcl ├── debug_require.tcl ├── check │ └── lib │ │ └── app-check │ │ └── pkgIndex.tcl └── main_std.tcl ├── pkg-src └── win32 │ ├── ChangeLog │ ├── aclocal.m4 │ └── tclconfig │ └── README.txt ├── docs ├── official-help-files │ ├── TclDevKit.chm │ ├── images │ │ ├── plus.gif │ │ ├── top.gif │ │ ├── AS_logo.gif │ │ ├── minus.gif │ │ ├── Checker-1.gif │ │ ├── Checker-2.gif │ │ ├── TclDevKit.gif │ │ ├── beta_vfse.gif │ │ ├── beta_xref.gif │ │ ├── inspector.gif │ │ ├── spawn_run.gif │ │ ├── tut_csv_1.gif │ │ ├── tut_csv_2.gif │ │ ├── tut_csv_3.gif │ │ ├── xref_menu.gif │ │ ├── Compiler-1.gif │ │ ├── Compiler-2.gif │ │ ├── Compiler-3.gif │ │ ├── Debugger-1.gif │ │ ├── Debugger-10.gif │ │ ├── Debugger-11.gif │ │ ├── Debugger-12.gif │ │ ├── Debugger-13.gif │ │ ├── Debugger-14.gif │ │ ├── Debugger-15.gif │ │ ├── Debugger-16.gif │ │ ├── Debugger-17.gif │ │ ├── Debugger-18.gif │ │ ├── Debugger-19.gif │ │ ├── Debugger-2.gif │ │ ├── Debugger-3.gif │ │ ├── Debugger-4.gif │ │ ├── Debugger-5.gif │ │ ├── Debugger-6.gif │ │ ├── Debugger-7.gif │ │ ├── Debugger-8.gif │ │ ├── Debugger-9.gif │ │ ├── beta_debug.gif │ │ ├── beta_tclapp.gif │ │ ├── comp_options.gif │ │ ├── debug_cover.gif │ │ ├── nav_sel_left.gif │ │ ├── package_add.png │ │ ├── spawn_kill.gif │ │ ├── spawn_modify.gif │ │ ├── spawn_stepin.gif │ │ ├── syntax_error.gif │ │ ├── tap_pkg_desc.png │ │ ├── tclsvc_main.gif │ │ ├── tclsvc_new.gif │ │ ├── tea_pkg_desc.png │ │ ├── tut_mult_1.gif │ │ ├── tut_mult_2.gif │ │ ├── tut_mult_3.gif │ │ ├── tut_mult_4.gif │ │ ├── tut_mult_5.gif │ │ ├── beta_debug_pro.gif │ │ ├── edit_repo_list.png │ │ ├── nav_sel_right.gif │ │ ├── nav_unsel_left.gif │ │ ├── package_delete.png │ │ ├── scan_req_pkgs.png │ │ ├── search_button.gif │ │ ├── tap_pkg_files.png │ │ ├── tclapp_run_tab.png │ │ ├── xref_files_tab.gif │ │ ├── Debugger_Cov_Prof.gif │ │ ├── checker_example2.gif │ │ ├── checker_example3.gif │ │ ├── debug_cover_butt.gif │ │ ├── greysmallbullet.gif │ │ ├── inspect_del_butt.gif │ │ ├── inspect_find_butt.gif │ │ ├── inspect_ref_butt.gif │ │ ├── nav_unsel_right.gif │ │ ├── spawn_spawnpoints.gif │ │ ├── tclapp_basic_tab.png │ │ ├── tclapp_files_tab.png │ │ ├── xref_commands_tab.gif │ │ ├── xref_files_filter.gif │ │ ├── xref_files_icon.gif │ │ ├── xref_packages_tab.gif │ │ ├── Debugger_Start_Exit.gif │ │ ├── tclapp_advanced_tab.png │ │ ├── tclapp_arch_button.png │ │ ├── tclapp_packages_tab.png │ │ ├── tclapp_prefs_dialog.png │ │ ├── xref_commands_icon.gif │ │ ├── xref_left_red_arrow.gif │ │ ├── xref_namespaces_tab.gif │ │ ├── xref_open_explorer1.gif │ │ ├── xref_packages_icon.gif │ │ ├── xref_variables_icon.gif │ │ ├── xref_variables_tab.gif │ │ ├── scan_depend_recommend.png │ │ ├── tclapp_metadata_button.png │ │ ├── xref_commands_filter.gif │ │ ├── xref_component_filter1.gif │ │ ├── xref_namespaces_filter.gif │ │ ├── xref_namespaces_icon.gif │ │ ├── xref_packages_filter.gif │ │ ├── xref_right_red_arrow.gif │ │ ├── xref_variables_filter.gif │ │ ├── tclapp_encodings_button.png │ │ ├── tclapp_stringres_button.png │ │ ├── tclapp_prefix_pkgs_button.png │ │ ├── xref_main_explorer_screen1.gif │ │ ├── xref_commands_component_explorer.gif │ │ ├── xref_packages_component_explorer.gif │ │ ├── xref_component_source_code_viewer3.gif │ │ ├── xref_namespaces_component_explorer.gif │ │ └── xref_variables_component_explorer.gif │ ├── toc.js │ ├── zoom.zcfg │ ├── index.html │ ├── TclPro.hhp │ ├── Reference.html │ ├── Tutorials.html │ └── search.html ├── help.txt ├── 3.0 │ ├── TDK_3.0_Checker_PCXapi.txt │ ├── TDK_3.0_Debugger.txt │ └── TODO.txt ├── WrapAppOptionWidget_spec.txt ├── execWidget_spec.txt ├── WrapWrapOptionWidget_spec.txt └── CompFileWidget_spec.txt └── misc └── ashelp-hack-week-project ├── lib ├── images │ ├── home.png │ ├── left.png │ ├── print.png │ ├── right.png │ ├── stop.png │ ├── zoom.png │ ├── bookmark.png │ ├── delete.png │ └── refresh.png ├── ashelp │ ├── pkgIndex.tcl │ └── teapot.txt ├── hvglue │ ├── pkgIndex.tcl │ └── teapot.txt └── tocdisplay │ ├── pkgIndex.tcl │ └── teapot.txt ├── bin ├── clean.sh └── gettitle ├── hv └── main.tcl └── README.md /lib/checker/aclocal.m4: -------------------------------------------------------------------------------- 1 | builtin(include,config/tcl.m4) 2 | -------------------------------------------------------------------------------- /lib/debugger/aclocal.m4: -------------------------------------------------------------------------------- 1 | builtin(include,config/tcl.m4) 2 | -------------------------------------------------------------------------------- /lib/tclcompiler/aclocal.m4: -------------------------------------------------------------------------------- 1 | builtin(include,tclconfig/tcl.m4) 2 | -------------------------------------------------------------------------------- /artwork/splash.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/artwork/splash.png -------------------------------------------------------------------------------- /data/images/file.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/data/images/file.gif -------------------------------------------------------------------------------- /data/images/glob.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/data/images/glob.gif -------------------------------------------------------------------------------- /lib/tclparser/DEPENDENCIES: -------------------------------------------------------------------------------- 1 | # List each dependent module on a line by itself 2 | tcl 3 | -------------------------------------------------------------------------------- /data/images/about.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/data/images/about.gif -------------------------------------------------------------------------------- /data/images/package.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/data/images/package.gif -------------------------------------------------------------------------------- /data/images/pkg_app.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/data/images/pkg_app.gif -------------------------------------------------------------------------------- /data/images/startup.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/data/images/startup.gif -------------------------------------------------------------------------------- /app/tclapp/data/empty.kit: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/tclapp/data/empty.kit -------------------------------------------------------------------------------- /app/tclsvc/images/new.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/tclsvc/images/new.gif -------------------------------------------------------------------------------- /app/tclsvc/images/run.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/tclsvc/images/run.gif -------------------------------------------------------------------------------- /data/images/directory.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/data/images/directory.gif -------------------------------------------------------------------------------- /app/tclsvc/images/delete.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/tclsvc/images/delete.gif -------------------------------------------------------------------------------- /app/tclsvc/images/gear.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/tclsvc/images/gear.gif -------------------------------------------------------------------------------- /app/tclsvc/images/help.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/tclsvc/images/help.gif -------------------------------------------------------------------------------- /app/tclsvc/images/open.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/tclsvc/images/open.gif -------------------------------------------------------------------------------- /app/tclsvc/images/pause.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/tclsvc/images/pause.gif -------------------------------------------------------------------------------- /app/tclsvc/images/stop.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/tclsvc/images/stop.gif -------------------------------------------------------------------------------- /lib/appframe/images/help.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/appframe/images/help.gif -------------------------------------------------------------------------------- /lib/debugger/images/add.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/add.png -------------------------------------------------------------------------------- /lib/debugger/images/bug.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/bug.png -------------------------------------------------------------------------------- /lib/debugger/images/cog.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/cog.png -------------------------------------------------------------------------------- /lib/debugger/images/down.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/down.png -------------------------------------------------------------------------------- /lib/debugger/images/file.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/file.png -------------------------------------------------------------------------------- /lib/debugger/images/go.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/go.png -------------------------------------------------------------------------------- /lib/debugger/images/help.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/help.gif -------------------------------------------------------------------------------- /lib/debugger/images/logo.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/logo.gif -------------------------------------------------------------------------------- /lib/debugger/images/proc.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/proc.gif -------------------------------------------------------------------------------- /lib/debugger/images/star.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/star.png -------------------------------------------------------------------------------- /lib/debugger/images/up.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/up.png -------------------------------------------------------------------------------- /app/inspector/images/Menus.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/inspector/images/Menus.gif -------------------------------------------------------------------------------- /app/inspector/images/Procs.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/inspector/images/Procs.gif -------------------------------------------------------------------------------- /app/inspector/images/find.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/inspector/images/find.gif -------------------------------------------------------------------------------- /app/inspector/images/help.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/inspector/images/help.gif -------------------------------------------------------------------------------- /app/tclsvc/images/continue.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/tclsvc/images/continue.gif -------------------------------------------------------------------------------- /app/tclsvc/images/refresh.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/tclsvc/images/refresh.gif -------------------------------------------------------------------------------- /data/images/directory_rec.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/data/images/directory_rec.gif -------------------------------------------------------------------------------- /lib/debugger/images/about.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/about.gif -------------------------------------------------------------------------------- /lib/debugger/images/cancel.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/cancel.png -------------------------------------------------------------------------------- /lib/debugger/images/class.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/class.gif -------------------------------------------------------------------------------- /lib/debugger/images/cross.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/cross.png -------------------------------------------------------------------------------- /lib/debugger/images/delete.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/delete.png -------------------------------------------------------------------------------- /lib/debugger/images/script.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/script.png -------------------------------------------------------------------------------- /lib/debugger/images/stepin.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/stepin.gif -------------------------------------------------------------------------------- /lib/debugger/images/stepto.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/stepto.gif -------------------------------------------------------------------------------- /lib/debugger/images/var_d.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/var_d.gif -------------------------------------------------------------------------------- /lib/debugger/images/var_e.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/var_e.gif -------------------------------------------------------------------------------- /lib/debugger/images/var_s.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/var_s.gif -------------------------------------------------------------------------------- /lib/debugger/images/var_sx.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/var_sx.png -------------------------------------------------------------------------------- /lib/debugger/images/wrench.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/wrench.png -------------------------------------------------------------------------------- /pkg-src/win32/ChangeLog: -------------------------------------------------------------------------------- 1 | 2002-10-16 Jeff Hobbs 2 | 3 | * created ChangeLog 4 | -------------------------------------------------------------------------------- /app/inspector/images/Afters.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/inspector/images/Afters.gif -------------------------------------------------------------------------------- /app/inspector/images/Canvases.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/inspector/images/Canvases.gif -------------------------------------------------------------------------------- /app/inspector/images/Classes.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/inspector/images/Classes.gif -------------------------------------------------------------------------------- /app/inspector/images/Images.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/inspector/images/Images.gif -------------------------------------------------------------------------------- /app/inspector/images/Objects.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/inspector/images/Objects.gif -------------------------------------------------------------------------------- /app/inspector/images/Windows.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/inspector/images/Windows.gif -------------------------------------------------------------------------------- /app/inspector/images/delete.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/inspector/images/delete.gif -------------------------------------------------------------------------------- /app/inspector/images/refresh.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/inspector/images/refresh.gif -------------------------------------------------------------------------------- /app/xref/lib/xref/images/cmd.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/xref/lib/xref/images/cmd.gif -------------------------------------------------------------------------------- /app/xref/lib/xref/images/file.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/xref/lib/xref/images/file.gif -------------------------------------------------------------------------------- /app/xref/lib/xref/images/find.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/xref/lib/xref/images/find.gif -------------------------------------------------------------------------------- /app/xref/lib/xref/images/help.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/xref/lib/xref/images/help.gif -------------------------------------------------------------------------------- /app/xref/lib/xref/images/loc.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/xref/lib/xref/images/loc.gif -------------------------------------------------------------------------------- /app/xref/lib/xref/images/open.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/xref/lib/xref/images/open.gif -------------------------------------------------------------------------------- /app/xref/lib/xref/images/pkg.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/xref/lib/xref/images/pkg.gif -------------------------------------------------------------------------------- /app/xref/lib/xref/images/var.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/xref/lib/xref/images/var.gif -------------------------------------------------------------------------------- /lib/debugger/images/arrow_up.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/arrow_up.png -------------------------------------------------------------------------------- /lib/debugger/images/break_d.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/break_d.gif -------------------------------------------------------------------------------- /lib/debugger/images/break_e.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/break_e.gif -------------------------------------------------------------------------------- /lib/debugger/images/break_m.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/break_m.gif -------------------------------------------------------------------------------- /lib/debugger/images/break_s.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/break_s.gif -------------------------------------------------------------------------------- /lib/debugger/images/break_sx.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/break_sx.png -------------------------------------------------------------------------------- /lib/debugger/images/current.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/current.gif -------------------------------------------------------------------------------- /lib/debugger/images/current_d.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/current_d.gif -------------------------------------------------------------------------------- /lib/debugger/images/current_e.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/current_e.gif -------------------------------------------------------------------------------- /lib/debugger/images/current_m.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/current_m.gif -------------------------------------------------------------------------------- /lib/debugger/images/current_v.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/current_v.gif -------------------------------------------------------------------------------- /lib/debugger/images/flag_blue.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/flag_blue.png -------------------------------------------------------------------------------- /lib/debugger/images/history.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/history.gif -------------------------------------------------------------------------------- /lib/debugger/images/namespace.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/namespace.gif -------------------------------------------------------------------------------- /lib/debugger/images/package.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/package.png -------------------------------------------------------------------------------- /lib/debugger/images/restart.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/restart.png -------------------------------------------------------------------------------- /lib/debugger/images/spawn_d.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/spawn_d.gif -------------------------------------------------------------------------------- /lib/debugger/images/spawn_e.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/spawn_e.gif -------------------------------------------------------------------------------- /lib/debugger/images/stepout.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/stepout.gif -------------------------------------------------------------------------------- /lib/debugger/images/stepover.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/stepover.gif -------------------------------------------------------------------------------- /lib/debugger/images/warning.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/warning.png -------------------------------------------------------------------------------- /lib/debugger/images/win_break.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/win_break.gif -------------------------------------------------------------------------------- /lib/debugger/images/win_cover.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/win_cover.gif -------------------------------------------------------------------------------- /lib/debugger/images/win_eval.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/win_eval.gif -------------------------------------------------------------------------------- /lib/debugger/images/win_proc.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/win_proc.gif -------------------------------------------------------------------------------- /lib/debugger/images/win_watch.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/win_watch.gif -------------------------------------------------------------------------------- /app/comp/lib/comp-ui/images/add.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/comp/lib/comp-ui/images/add.png -------------------------------------------------------------------------------- /app/inspector/images/Namespaces.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/inspector/images/Namespaces.gif -------------------------------------------------------------------------------- /app/inspector/images/Variables.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/inspector/images/Variables.gif -------------------------------------------------------------------------------- /app/tape/lib/tape-ui/images/add.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/tape/lib/tape-ui/images/add.png -------------------------------------------------------------------------------- /app/tape/lib/tape-ui/images/up.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/tape/lib/tape-ui/images/up.png -------------------------------------------------------------------------------- /app/vfse/lib/tool/images/delete.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/vfse/lib/tool/images/delete.gif -------------------------------------------------------------------------------- /app/xref/lib/xref/images/nspace.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/xref/lib/xref/images/nspace.gif -------------------------------------------------------------------------------- /app/xref/lib/xref/images/origin.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/xref/lib/xref/images/origin.gif -------------------------------------------------------------------------------- /lib/debugger/images/combo_arrow.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/combo_arrow.gif -------------------------------------------------------------------------------- /lib/debugger/images/current_spd.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/current_spd.gif -------------------------------------------------------------------------------- /lib/debugger/images/current_spe.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/current_spe.gif -------------------------------------------------------------------------------- /lib/debugger/images/debug_break.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/debug_break.png -------------------------------------------------------------------------------- /lib/debugger/images/history_spd.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/history_spd.gif -------------------------------------------------------------------------------- /lib/debugger/images/history_spe.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/history_spe.gif -------------------------------------------------------------------------------- /lib/debugger/images/link_break.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/link_break.png -------------------------------------------------------------------------------- /lib/debugger/images/stepresult.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/stepresult.gif -------------------------------------------------------------------------------- /lib/debugger/images/syn_error_s.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/syn_error_s.gif -------------------------------------------------------------------------------- /app/comp/lib/comp-ui/images/delete.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/comp/lib/comp-ui/images/delete.png -------------------------------------------------------------------------------- /app/comp/lib/comp-ui/images/file.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/comp/lib/comp-ui/images/file.png -------------------------------------------------------------------------------- /app/tape/lib/tape-ui/images/alias.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/tape/lib/tape-ui/images/alias.gif -------------------------------------------------------------------------------- /app/tape/lib/tape-ui/images/delete.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/tape/lib/tape-ui/images/delete.png -------------------------------------------------------------------------------- /app/tape/lib/tape-ui/images/down.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/tape/lib/tape-ui/images/down.png -------------------------------------------------------------------------------- /app/tape/lib/tape-ui/images/file.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/tape/lib/tape-ui/images/file.png -------------------------------------------------------------------------------- /app/tclapp/lib/tclapp-ui/images/up.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/tclapp/lib/tclapp-ui/images/up.png -------------------------------------------------------------------------------- /app/vfse/lib/app-vfse/images/back.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/vfse/lib/app-vfse/images/back.gif -------------------------------------------------------------------------------- /app/vfse/lib/app-vfse/images/help.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/vfse/lib/app-vfse/images/help.gif -------------------------------------------------------------------------------- /app/vfse/lib/tool/images/big-dll.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/vfse/lib/tool/images/big-dll.gif -------------------------------------------------------------------------------- /app/vfse/lib/tool/images/big-exe.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/vfse/lib/tool/images/big-exe.gif -------------------------------------------------------------------------------- /app/vfse/lib/tool/images/big-file.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/vfse/lib/tool/images/big-file.gif -------------------------------------------------------------------------------- /app/vfse/lib/tool/images/big-txt.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/vfse/lib/tool/images/big-txt.gif -------------------------------------------------------------------------------- /app/vfse/lib/tool/images/diskdrive.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/vfse/lib/tool/images/diskdrive.gif -------------------------------------------------------------------------------- /app/vfse/lib/tool/images/small-dll.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/vfse/lib/tool/images/small-dll.gif -------------------------------------------------------------------------------- /app/vfse/lib/tool/images/small-exe.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/vfse/lib/tool/images/small-exe.gif -------------------------------------------------------------------------------- /app/vfse/lib/tool/images/small-txt.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/vfse/lib/tool/images/small-txt.gif -------------------------------------------------------------------------------- /app/xref/lib/xref/images/directory.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/xref/lib/xref/images/directory.gif -------------------------------------------------------------------------------- /app/xref/lib/xref/images/originl.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/xref/lib/xref/images/originl.gif -------------------------------------------------------------------------------- /docs/official-help-files/TclDevKit.chm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/TclDevKit.chm -------------------------------------------------------------------------------- /lib/debugger/images/breakspawn_dd.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/breakspawn_dd.gif -------------------------------------------------------------------------------- /lib/debugger/images/breakspawn_de.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/breakspawn_de.gif -------------------------------------------------------------------------------- /lib/debugger/images/breakspawn_ed.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/breakspawn_ed.gif -------------------------------------------------------------------------------- /lib/debugger/images/breakspawn_ee.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/breakspawn_ee.gif -------------------------------------------------------------------------------- /lib/debugger/images/current_bs_dd.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/current_bs_dd.gif -------------------------------------------------------------------------------- /lib/debugger/images/current_bs_de.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/current_bs_de.gif -------------------------------------------------------------------------------- /lib/debugger/images/current_bs_ed.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/current_bs_ed.gif -------------------------------------------------------------------------------- /lib/debugger/images/current_bs_ee.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/current_bs_ee.gif -------------------------------------------------------------------------------- /lib/debugger/images/debugUnixIcon.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/debugUnixIcon.gif -------------------------------------------------------------------------------- /lib/debugger/images/history_bs_dd.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/history_bs_dd.gif -------------------------------------------------------------------------------- /lib/debugger/images/history_bs_de.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/history_bs_de.gif -------------------------------------------------------------------------------- /lib/debugger/images/history_bs_ed.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/history_bs_ed.gif -------------------------------------------------------------------------------- /lib/debugger/images/history_bs_ee.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/history_bs_ee.gif -------------------------------------------------------------------------------- /lib/debugger/images/history_enable.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/history_enable.gif -------------------------------------------------------------------------------- /lib/debugger/images/history_mixed.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/history_mixed.gif -------------------------------------------------------------------------------- /lib/debugger/images/page_refresh.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/page_refresh.png -------------------------------------------------------------------------------- /lib/debugger/images/syn_error_sx.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/syn_error_sx.png -------------------------------------------------------------------------------- /app/tape/lib/tape-ui/images/exclude.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/tape/lib/tape-ui/images/exclude.gif -------------------------------------------------------------------------------- /app/tape/lib/tape-ui/images/include.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/tape/lib/tape-ui/images/include.gif -------------------------------------------------------------------------------- /app/tape/lib/tape-ui/images/package.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/tape/lib/tape-ui/images/package.gif -------------------------------------------------------------------------------- /app/tclapp/lib/tclapp-ui/images/add.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/tclapp/lib/tclapp-ui/images/add.png -------------------------------------------------------------------------------- /app/tclapp/lib/tclapp-ui/images/down.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/tclapp/lib/tclapp-ui/images/down.png -------------------------------------------------------------------------------- /app/tclapp/lib/tclapp-ui/images/file.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/tclapp/lib/tclapp-ui/images/file.png -------------------------------------------------------------------------------- /app/tclapp/lib/tclapp-ui/images/font.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/tclapp/lib/tclapp-ui/images/font.png -------------------------------------------------------------------------------- /app/tclapp/lib/tclapp-ui/images/glob.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/tclapp/lib/tclapp-ui/images/glob.png -------------------------------------------------------------------------------- /app/tclapp/lib/tclapp-ui/images/note.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/tclapp/lib/tclapp-ui/images/note.png -------------------------------------------------------------------------------- /app/vfse/lib/app-vfse/images/forward.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/vfse/lib/app-vfse/images/forward.gif -------------------------------------------------------------------------------- /app/vfse/lib/app-vfse/images/refresh.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/vfse/lib/app-vfse/images/refresh.gif -------------------------------------------------------------------------------- /app/vfse/lib/tool/images/big-folder.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/vfse/lib/tool/images/big-folder.gif -------------------------------------------------------------------------------- /app/vfse/lib/tool/images/folder-open.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/vfse/lib/tool/images/folder-open.gif -------------------------------------------------------------------------------- /app/vfse/lib/tool/images/small-file.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/vfse/lib/tool/images/small-file.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/plus.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/plus.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/top.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/top.gif -------------------------------------------------------------------------------- /lib/debugger/images/history_disable.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/history_disable.gif -------------------------------------------------------------------------------- /lib/debugger/images/sort_decreasing.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/sort_decreasing.gif -------------------------------------------------------------------------------- /lib/debugger/images/sort_increasing.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/lib/debugger/images/sort_increasing.gif -------------------------------------------------------------------------------- /app/tape/lib/tape-ui/images/arrow_out.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/tape/lib/tape-ui/images/arrow_out.png -------------------------------------------------------------------------------- /app/tape/lib/tape-ui/images/directory.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/tape/lib/tape-ui/images/directory.png -------------------------------------------------------------------------------- /app/tape/lib/tape-ui/images/package_add.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/tape/lib/tape-ui/images/package_add.png -------------------------------------------------------------------------------- /app/tape/lib/tape-ui/images/package_go.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/tape/lib/tape-ui/images/package_go.png -------------------------------------------------------------------------------- /app/tape/lib/tape-ui/images/package_pot.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/tape/lib/tape-ui/images/package_pot.png -------------------------------------------------------------------------------- /app/tape/lib/tape-ui/images/package_tap.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/tape/lib/tape-ui/images/package_tap.png -------------------------------------------------------------------------------- /app/tape/lib/tape-ui/images/teabag_none.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/tape/lib/tape-ui/images/teabag_none.png -------------------------------------------------------------------------------- /app/tape/lib/tape-ui/images/teabag_pot.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/tape/lib/tape-ui/images/teabag_pot.png -------------------------------------------------------------------------------- /app/tape/lib/tape-ui/images/teabag_tm.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/tape/lib/tape-ui/images/teabag_tm.png -------------------------------------------------------------------------------- /app/tape/lib/tape-ui/images/teabag_zip.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/tape/lib/tape-ui/images/teabag_zip.png -------------------------------------------------------------------------------- /app/tclapp/lib/tclapp-ui/images/delete.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/tclapp/lib/tclapp-ui/images/delete.png -------------------------------------------------------------------------------- /app/tclapp/lib/tclapp-ui/images/right.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/tclapp/lib/tclapp-ui/images/right.png -------------------------------------------------------------------------------- /app/tclapp/lib/tclapp-ui/images/server.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/tclapp/lib/tclapp-ui/images/server.png -------------------------------------------------------------------------------- /app/tclapp/lib/tclapp-ui/images/startup.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/tclapp/lib/tclapp-ui/images/startup.png -------------------------------------------------------------------------------- /app/vfse/lib/app-vfse/images/folder-up.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/vfse/lib/app-vfse/images/folder-up.gif -------------------------------------------------------------------------------- /app/vfse/lib/tool/images/folder-closed.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/vfse/lib/tool/images/folder-closed.gif -------------------------------------------------------------------------------- /app/vfse/lib/tool/images/small-folder.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/vfse/lib/tool/images/small-folder.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/AS_logo.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/AS_logo.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/minus.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/minus.gif -------------------------------------------------------------------------------- /app/tape/lib/tape-ui/images/arrow_refresh.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/tape/lib/tape-ui/images/arrow_refresh.png -------------------------------------------------------------------------------- /app/tape/lib/tape-ui/images/directory_rec.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/tape/lib/tape-ui/images/directory_rec.png -------------------------------------------------------------------------------- /app/tclapp/lib/tclapp-ui/images/comments.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/tclapp/lib/tclapp-ui/images/comments.png -------------------------------------------------------------------------------- /app/tclapp/lib/tclapp-ui/images/directory.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/tclapp/lib/tclapp-ui/images/directory.png -------------------------------------------------------------------------------- /app/tclapp/lib/tclapp-ui/images/feed_edit.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/tclapp/lib/tclapp-ui/images/feed_edit.png -------------------------------------------------------------------------------- /app/vfse/lib/app-vfse/images/directories.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/vfse/lib/app-vfse/images/directories.gif -------------------------------------------------------------------------------- /app/vfse/lib/app-vfse/images/folder-type.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/vfse/lib/app-vfse/images/folder-type.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/Checker-1.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/Checker-1.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/Checker-2.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/Checker-2.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/TclDevKit.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/TclDevKit.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/beta_vfse.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/beta_vfse.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/beta_xref.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/beta_xref.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/inspector.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/inspector.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/spawn_run.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/spawn_run.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/tut_csv_1.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/tut_csv_1.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/tut_csv_2.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/tut_csv_2.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/tut_csv_3.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/tut_csv_3.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/xref_menu.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/xref_menu.gif -------------------------------------------------------------------------------- /app/tclapp/lib/tclapp-ui/images/package_add.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/tclapp/lib/tclapp-ui/images/package_add.png -------------------------------------------------------------------------------- /app/tclapp/lib/tclapp-ui/images/package_go.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/tclapp/lib/tclapp-ui/images/package_go.png -------------------------------------------------------------------------------- /docs/official-help-files/images/Compiler-1.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/Compiler-1.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/Compiler-2.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/Compiler-2.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/Compiler-3.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/Compiler-3.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/Debugger-1.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/Debugger-1.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/Debugger-10.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/Debugger-10.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/Debugger-11.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/Debugger-11.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/Debugger-12.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/Debugger-12.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/Debugger-13.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/Debugger-13.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/Debugger-14.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/Debugger-14.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/Debugger-15.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/Debugger-15.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/Debugger-16.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/Debugger-16.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/Debugger-17.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/Debugger-17.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/Debugger-18.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/Debugger-18.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/Debugger-19.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/Debugger-19.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/Debugger-2.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/Debugger-2.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/Debugger-3.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/Debugger-3.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/Debugger-4.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/Debugger-4.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/Debugger-5.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/Debugger-5.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/Debugger-6.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/Debugger-6.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/Debugger-7.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/Debugger-7.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/Debugger-8.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/Debugger-8.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/Debugger-9.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/Debugger-9.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/beta_debug.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/beta_debug.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/beta_tclapp.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/beta_tclapp.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/comp_options.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/comp_options.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/debug_cover.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/debug_cover.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/nav_sel_left.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/nav_sel_left.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/package_add.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/package_add.png -------------------------------------------------------------------------------- /docs/official-help-files/images/spawn_kill.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/spawn_kill.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/spawn_modify.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/spawn_modify.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/spawn_stepin.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/spawn_stepin.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/syntax_error.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/syntax_error.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/tap_pkg_desc.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/tap_pkg_desc.png -------------------------------------------------------------------------------- /docs/official-help-files/images/tclsvc_main.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/tclsvc_main.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/tclsvc_new.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/tclsvc_new.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/tea_pkg_desc.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/tea_pkg_desc.png -------------------------------------------------------------------------------- /docs/official-help-files/images/tut_mult_1.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/tut_mult_1.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/tut_mult_2.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/tut_mult_2.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/tut_mult_3.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/tut_mult_3.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/tut_mult_4.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/tut_mult_4.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/tut_mult_5.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/tut_mult_5.gif -------------------------------------------------------------------------------- /app/tclapp/lib/tclapp-ui/images/directory_rec.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/tclapp/lib/tclapp-ui/images/directory_rec.png -------------------------------------------------------------------------------- /app/tclapp/lib/tclapp-ui/images/package_delete.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/tclapp/lib/tclapp-ui/images/package_delete.png -------------------------------------------------------------------------------- /app/tclapp/lib/tclapp-ui/images/package_go_all.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/tclapp/lib/tclapp-ui/images/package_go_all.png -------------------------------------------------------------------------------- /app/tclapp/lib/tclapp-ui/images/package_green.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/tclapp/lib/tclapp-ui/images/package_green.png -------------------------------------------------------------------------------- /docs/official-help-files/images/beta_debug_pro.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/beta_debug_pro.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/edit_repo_list.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/edit_repo_list.png -------------------------------------------------------------------------------- /docs/official-help-files/images/nav_sel_right.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/nav_sel_right.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/nav_unsel_left.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/nav_unsel_left.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/package_delete.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/package_delete.png -------------------------------------------------------------------------------- /docs/official-help-files/images/scan_req_pkgs.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/scan_req_pkgs.png -------------------------------------------------------------------------------- /docs/official-help-files/images/search_button.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/search_button.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/tap_pkg_files.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/tap_pkg_files.png -------------------------------------------------------------------------------- /docs/official-help-files/images/tclapp_run_tab.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/tclapp_run_tab.png -------------------------------------------------------------------------------- /docs/official-help-files/images/xref_files_tab.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/xref_files_tab.gif -------------------------------------------------------------------------------- /lib/checker/DEPENDENCIES: -------------------------------------------------------------------------------- 1 | # List each dependent module on a line by itself 2 | tcl 3 | prowrap 4 | procheckU 5 | tclparser_static 6 | procomp 7 | -------------------------------------------------------------------------------- /misc/ashelp-hack-week-project/lib/images/home.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/misc/ashelp-hack-week-project/lib/images/home.png -------------------------------------------------------------------------------- /misc/ashelp-hack-week-project/lib/images/left.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/misc/ashelp-hack-week-project/lib/images/left.png -------------------------------------------------------------------------------- /misc/ashelp-hack-week-project/lib/images/print.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/misc/ashelp-hack-week-project/lib/images/print.png -------------------------------------------------------------------------------- /misc/ashelp-hack-week-project/lib/images/right.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/misc/ashelp-hack-week-project/lib/images/right.png -------------------------------------------------------------------------------- /misc/ashelp-hack-week-project/lib/images/stop.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/misc/ashelp-hack-week-project/lib/images/stop.png -------------------------------------------------------------------------------- /misc/ashelp-hack-week-project/lib/images/zoom.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/misc/ashelp-hack-week-project/lib/images/zoom.png -------------------------------------------------------------------------------- /app/tclapp/lib/tclapp-ui/images/pkg_pot_profile.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/tclapp/lib/tclapp-ui/images/pkg_pot_profile.png -------------------------------------------------------------------------------- /app/tclapp/lib/tclapp-ui/images/pkg_pot_regular.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/tclapp/lib/tclapp-ui/images/pkg_pot_regular.png -------------------------------------------------------------------------------- /app/tclapp/lib/tclapp-ui/images/pkg_tap_profile.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/tclapp/lib/tclapp-ui/images/pkg_tap_profile.png -------------------------------------------------------------------------------- /app/tclapp/lib/tclapp-ui/images/pkg_tap_regular.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/tclapp/lib/tclapp-ui/images/pkg_tap_regular.png -------------------------------------------------------------------------------- /docs/official-help-files/images/Debugger_Cov_Prof.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/Debugger_Cov_Prof.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/checker_example2.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/checker_example2.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/checker_example3.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/checker_example3.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/debug_cover_butt.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/debug_cover_butt.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/greysmallbullet.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/greysmallbullet.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/inspect_del_butt.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/inspect_del_butt.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/inspect_find_butt.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/inspect_find_butt.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/inspect_ref_butt.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/inspect_ref_butt.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/nav_unsel_right.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/nav_unsel_right.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/spawn_spawnpoints.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/spawn_spawnpoints.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/tclapp_basic_tab.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/tclapp_basic_tab.png -------------------------------------------------------------------------------- /docs/official-help-files/images/tclapp_files_tab.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/tclapp_files_tab.png -------------------------------------------------------------------------------- /docs/official-help-files/images/xref_commands_tab.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/xref_commands_tab.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/xref_files_filter.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/xref_files_filter.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/xref_files_icon.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/xref_files_icon.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/xref_packages_tab.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/xref_packages_tab.gif -------------------------------------------------------------------------------- /lib/debugger/DEPENDENCIES: -------------------------------------------------------------------------------- 1 | # List each dependent module on a line by itself 2 | cmdline 3 | projectInfo 4 | tclparser 5 | tk 6 | winico 7 | winutil 8 | -------------------------------------------------------------------------------- /misc/ashelp-hack-week-project/bin/clean.sh: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | 3 | rm -rf AT* ActiveTcl8.4.15.0.279485-html 4 | rm -rf TDK* TclDevKit4.0.1.279485-html 5 | -------------------------------------------------------------------------------- /misc/ashelp-hack-week-project/lib/images/bookmark.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/misc/ashelp-hack-week-project/lib/images/bookmark.png -------------------------------------------------------------------------------- /misc/ashelp-hack-week-project/lib/images/delete.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/misc/ashelp-hack-week-project/lib/images/delete.png -------------------------------------------------------------------------------- /misc/ashelp-hack-week-project/lib/images/refresh.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/misc/ashelp-hack-week-project/lib/images/refresh.png -------------------------------------------------------------------------------- /app/tclapp/lib/tclapp-ui/images/pkg_pot_profile_sel.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/tclapp/lib/tclapp-ui/images/pkg_pot_profile_sel.png -------------------------------------------------------------------------------- /app/tclapp/lib/tclapp-ui/images/pkg_pot_regular_sel.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/tclapp/lib/tclapp-ui/images/pkg_pot_regular_sel.png -------------------------------------------------------------------------------- /app/tclapp/lib/tclapp-ui/images/pkg_tap_profile_sel.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/tclapp/lib/tclapp-ui/images/pkg_tap_profile_sel.png -------------------------------------------------------------------------------- /app/tclapp/lib/tclapp-ui/images/pkg_tap_regular_sel.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/tclapp/lib/tclapp-ui/images/pkg_tap_regular_sel.png -------------------------------------------------------------------------------- /docs/official-help-files/images/Debugger_Start_Exit.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/Debugger_Start_Exit.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/tclapp_advanced_tab.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/tclapp_advanced_tab.png -------------------------------------------------------------------------------- /docs/official-help-files/images/tclapp_arch_button.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/tclapp_arch_button.png -------------------------------------------------------------------------------- /docs/official-help-files/images/tclapp_packages_tab.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/tclapp_packages_tab.png -------------------------------------------------------------------------------- /docs/official-help-files/images/tclapp_prefs_dialog.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/tclapp_prefs_dialog.png -------------------------------------------------------------------------------- /docs/official-help-files/images/xref_commands_icon.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/xref_commands_icon.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/xref_left_red_arrow.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/xref_left_red_arrow.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/xref_namespaces_tab.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/xref_namespaces_tab.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/xref_open_explorer1.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/xref_open_explorer1.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/xref_packages_icon.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/xref_packages_icon.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/xref_variables_icon.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/xref_variables_icon.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/xref_variables_tab.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/xref_variables_tab.gif -------------------------------------------------------------------------------- /lib/help/teapot.txt: -------------------------------------------------------------------------------- 1 | Package help 0.4 2 | Meta entrysource help.tcl 3 | Meta included help.tcl 4 | Meta platform tcl 5 | Meta require Tk 6 | 7 | -------------------------------------------------------------------------------- /app/tclapp/lib/tclapp-ui/images/arrow_rotate_clockwise.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/app/tclapp/lib/tclapp-ui/images/arrow_rotate_clockwise.png -------------------------------------------------------------------------------- /docs/official-help-files/images/scan_depend_recommend.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/scan_depend_recommend.png -------------------------------------------------------------------------------- /docs/official-help-files/images/tclapp_metadata_button.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/tclapp_metadata_button.png -------------------------------------------------------------------------------- /docs/official-help-files/images/xref_commands_filter.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/xref_commands_filter.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/xref_component_filter1.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/xref_component_filter1.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/xref_namespaces_filter.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/xref_namespaces_filter.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/xref_namespaces_icon.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/xref_namespaces_icon.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/xref_packages_filter.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/xref_packages_filter.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/xref_right_red_arrow.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/xref_right_red_arrow.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/xref_variables_filter.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/xref_variables_filter.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/tclapp_encodings_button.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/tclapp_encodings_button.png -------------------------------------------------------------------------------- /docs/official-help-files/images/tclapp_stringres_button.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/tclapp_stringres_button.png -------------------------------------------------------------------------------- /lib/splash/teapot.txt: -------------------------------------------------------------------------------- 1 | Package splash 1.3 2 | Meta entrysource splash.tcl 3 | Meta included splash.tcl 4 | Meta platform tcl 5 | Meta require help 6 | 7 | -------------------------------------------------------------------------------- /docs/official-help-files/images/tclapp_prefix_pkgs_button.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/tclapp_prefix_pkgs_button.png -------------------------------------------------------------------------------- /docs/official-help-files/images/xref_main_explorer_screen1.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/xref_main_explorer_screen1.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/xref_commands_component_explorer.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/xref_commands_component_explorer.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/xref_packages_component_explorer.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/xref_packages_component_explorer.gif -------------------------------------------------------------------------------- /lib/wub84/Makefile: -------------------------------------------------------------------------------- 1 | backup: clean 2 | (cd ..; tar czv --exclude='Wub1/backup/*' --exclude='Wub1/trials/*' -f Wub1-`date +%F`.tar.gz Wub1) 3 | 4 | clean: 5 | -rm -r *.o *~ */*~ 6 | -------------------------------------------------------------------------------- /docs/official-help-files/images/xref_component_source_code_viewer3.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/xref_component_source_code_viewer3.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/xref_namespaces_component_explorer.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/xref_namespaces_component_explorer.gif -------------------------------------------------------------------------------- /docs/official-help-files/images/xref_variables_component_explorer.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tcltk/tdk/master/docs/official-help-files/images/xref_variables_component_explorer.gif -------------------------------------------------------------------------------- /lib/tclparser/README: -------------------------------------------------------------------------------- 1 | # Copyright (c) 1999-2000 Ajuba Solutions 2 | 3 | This is the Tcl parser component used by the checker to 4 | parse a Tcl script into commands, words and tokens. 5 | 6 | -------------------------------------------------------------------------------- /lib/dbg_nub/standard/teapot.txt: -------------------------------------------------------------------------------- 1 | Package nub 1.0 2 | Meta entrysource nubloader.tcl 3 | Meta included nub.tcl nubloader.tcl 4 | Meta platform tcl 5 | Meta description Standard Debugger Nub 6 | -------------------------------------------------------------------------------- /lib/debugger/test.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | source debugger.tcl 5 | debugger::init $argv 6 | -------------------------------------------------------------------------------- /lib/tclparser/aclocal.m4: -------------------------------------------------------------------------------- 1 | # 2 | # Include the TEA standard macro set 3 | # 4 | 5 | builtin(include,tclconfig/tcl.m4) 6 | 7 | # 8 | # Add here whatever m4 macros you want to define for your package 9 | # 10 | -------------------------------------------------------------------------------- /pkg-src/win32/aclocal.m4: -------------------------------------------------------------------------------- 1 | # 2 | # Include the TEA standard macro set 3 | # 4 | 5 | builtin(include,tclconfig/tcl.m4) 6 | 7 | # 8 | # Add here whatever m4 macros you want to define for your package 9 | # 10 | -------------------------------------------------------------------------------- /app/lsmfs/main.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | package require starkit 5 | starkit::startup 6 | package require app-listmfs 7 | -------------------------------------------------------------------------------- /app/debug/lib/app-debug/pkgIndex.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | package ifneeded app-debug 1.0 [list source [file join $dir startup.tcl]] 5 | -------------------------------------------------------------------------------- /app/lsmfs/lib/app-listmfs/pkgIndex.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | package ifneeded app-listmfs 1.0 [list source [file join $dir listmfs.tcl]] 5 | -------------------------------------------------------------------------------- /lib/checker/doc/ko_reintegrate.sh: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | # -*- sh -*- 3 | # Shell script to integrate the current state of the debugger into Komodo 4 | 5 | p4 integrate $HOME/shared/p4/ActiveTcl/checker/... $HOME/shared/p4/Komodo/src/tcl/lint/... 6 | exit 7 | -------------------------------------------------------------------------------- /misc/ashelp-hack-week-project/lib/ashelp/pkgIndex.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | package ifneeded ashelp 0.1 [list source [file join $dir ashelp.tcl]] 5 | -------------------------------------------------------------------------------- /lib/help/pkgIndex.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # Index for common help package ... 5 | 6 | package ifneeded help 0.4 [list source [file join $dir help.tcl]] 7 | -------------------------------------------------------------------------------- /misc/ashelp-hack-week-project/lib/hvglue/pkgIndex.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | package ifneeded hv3::ashelp 0.1 [list source [file join $dir hv3ashelp.tcl]] 5 | 6 | -------------------------------------------------------------------------------- /misc/ashelp-hack-week-project/lib/tocdisplay/pkgIndex.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | package ifneeded hv3::astoc 0.1 [list source [file join $dir hv3astoc.tcl]] 5 | -------------------------------------------------------------------------------- /lib/cmatch/pkgIndex.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # Package Index generated for Tcl Modules 5 | package ifneeded cmatch 0.1 "package provide cmatch 0.1;source [list [file join $dir cmatch.tm]]" 6 | -------------------------------------------------------------------------------- /lib/oomk/pkgIndex.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # Package Index generated for Tcl Modules 5 | package ifneeded oomk 0.3.1 "package provide oomk 0.3.1;source [list [file join $dir oomk.tm]]" 6 | -------------------------------------------------------------------------------- /lib/appwidgets/pkgIndex.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # Package Index generated for Tcl Modules 5 | package ifneeded hpane 0.1 "package provide hpane 0.1;source [list [file join $dir hpane.tm]]" 6 | -------------------------------------------------------------------------------- /lib/selfile/pkgIndex.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # Package Index generated for Tcl Modules 5 | package ifneeded selfile 0.1 "package provide selfile 0.1;source [list [file join $dir selfile.tm]]" 6 | -------------------------------------------------------------------------------- /lib/tapscan/pkgIndex.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # Package Index generated for Tcl Modules 5 | package ifneeded tapscan 0.1 "package provide tapscan 0.1;source [list [file join $dir tapscan.tm]]" 6 | -------------------------------------------------------------------------------- /lib/tlocate/pkgIndex.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # Package Index generated for Tcl Modules 5 | package ifneeded tlocate 0.1 "package provide tlocate 0.1;source [list [file join $dir tlocate.tm]]" 6 | -------------------------------------------------------------------------------- /lib/toolbar/pkgIndex.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # Package Index generated for Tcl Modules 5 | package ifneeded toolbar 0.2 "package provide toolbar 0.2;source [list [file join $dir toolbar.tm]]" 6 | -------------------------------------------------------------------------------- /lib/syscolor/pkgIndex.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # Package Index generated for Tcl Modules 5 | package ifneeded syscolor 0.1 "package provide syscolor 0.1;source [list [file join $dir syscolor.tm]]" 6 | -------------------------------------------------------------------------------- /lib/prefdk/pkgIndex.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # Package Index generated for Tcl Modules 5 | package ifneeded pref::devkit 1.0 "package provide pref::devkit 1.0;source [list [file join $dir pref-devkit.tm]]" 6 | -------------------------------------------------------------------------------- /lib/preftp/pkgIndex.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # Package Index generated for Tcl Modules 5 | package ifneeded pref::teapot 1.0 "package provide pref::teapot 1.0;source [list [file join $dir pref-teapot.tm]]" 6 | -------------------------------------------------------------------------------- /lib/projectInfo/pkgIndex.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # Package Index generated for Tcl Modules 5 | package ifneeded projectInfo 1.0 "package provide projectInfo 1.0;source [list [file join $dir projectInfo.tm]]" 6 | -------------------------------------------------------------------------------- /lib/osx/pkgIndex.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # Package Index generated for Tcl Modules 5 | package ifneeded osx::bundle::app 0.1 "package provide osx::bundle::app 0.1;source [list [file join $dir osx-bundle-app.tm]]" 6 | -------------------------------------------------------------------------------- /lib/teapot/pkgIndex.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # Package Index generated for Tcl Modules 5 | package ifneeded teapot::config 0.1 "package provide teapot::config 0.1;source [list [file join $dir teapot-config.tm]]" 6 | -------------------------------------------------------------------------------- /app/launch/main.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # TDK launcher - Windows only 5 | # Dispatches .tdk .tpj to the appropriate tools. 6 | 7 | package require starkit 8 | starkit::startup 9 | package require app-launch 10 | -------------------------------------------------------------------------------- /lib/image/pkgIndex.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # -*- tcl -*- 5 | 6 | package ifneeded image 0.3 [list source [file join $dir image.tcl]] 7 | package ifneeded image::tint 0.1 [list source [file join $dir tint.tcl]] 8 | -------------------------------------------------------------------------------- /lib/platform/pkgIndex.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | package ifneeded platform 1.0.13 [list source [file join $dir platform.tcl]] 5 | package ifneeded platform::shell 1.1.4 [list source [file join $dir shell.tcl]] 6 | 7 | -------------------------------------------------------------------------------- /lib/stringfileinfo/pkgIndex.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # Package Index generated for Tcl Modules 5 | package ifneeded stringfileinfo 0.2 "package provide stringfileinfo 0.2;source [list [file join $dir stringfileinfo.tm]]" 6 | -------------------------------------------------------------------------------- /app/dump_stack.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | 5 | proc dumpstack {} { 6 | set n [info level] 7 | puts "$n Levels" 8 | for {set i 0} {$n > 0} {incr i -1 ; incr n -1} { 9 | puts [info level $i] 10 | } 11 | exit 12 | } 13 | -------------------------------------------------------------------------------- /lib/platform/teapot.txt: -------------------------------------------------------------------------------- 1 | Package platform 1.0.9 2 | Meta entrysource platform.tcl 3 | Meta included platform.tcl 4 | Meta platform tcl 5 | Meta license BSD 6 | 7 | Package platform::shell 1.1.4 8 | Meta entrysource shell.tcl 9 | Meta included shell.tcl 10 | Meta platform tcl 11 | Meta require platform 12 | Meta license BSD 13 | -------------------------------------------------------------------------------- /app/debug_source.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # Debugging source invokations 5 | # ---------------------------- 6 | 7 | rename ::source ::__source 8 | proc ::source {args} { 9 | puts SOURCE\ [join $args] 10 | uplevel 1 ::__source $args 11 | } 12 | -------------------------------------------------------------------------------- /app/inspector/README.txt: -------------------------------------------------------------------------------- 1 | Tcl Dev Kit Inspector, release 1.0 2 | January 2003 3 | 4 | Inspector is based on Tkinspect, a Tk program browser originally written by 5 | Sam Shen at LBL. 6 | 7 | Inspector should be pretty intuitive ... 8 | 9 | The files in stl-lite are copyright 1995 Lawrence Berkeley Lab. See 10 | stl-lite/COPYRIGHT for the full copyright notice. 11 | -------------------------------------------------------------------------------- /lib/afs/pkgIndex.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # Package Index generated for Tcl Modules 5 | package ifneeded afs 0.1 "package provide afs 0.1;source [list [file join $dir afs.tm]]" 6 | package ifneeded afs::sig 0.1 "package provide afs::sig 0.1;source [list [file join $dir afs-sig.tm]]" 7 | -------------------------------------------------------------------------------- /lib/image/teapot.txt: -------------------------------------------------------------------------------- 1 | Package image 0.3 2 | Meta entrysource image.tcl 3 | Meta included image.tcl 4 | Meta platform tcl 5 | Meta require Tk 6 | 7 | Package image::tint 0.1 8 | Meta entrysource tint.tcl 9 | Meta included tint.tcl 10 | Meta platform tcl 11 | Meta require image 12 | Meta require syscolor 13 | Meta require Tk 14 | Meta require treectrl 15 | 16 | -------------------------------------------------------------------------------- /lib/checker/pkgIndex.tcl.in: -------------------------------------------------------------------------------- 1 | # Tcl package index file 2 | 3 | 4 | if {[file exists $dir/checker.tbc]} { 5 | package ifneeded @PACKAGE@ @VERSION@ [list tclPkgSetup $dir @PACKAGE@ @VERSION@ {{checker.tbc source {::checker::check}}}] 6 | } else { 7 | package ifneeded @PACKAGE@ @VERSION@ [list tclPkgSetup $dir @PACKAGE@ @VERSION@ {{checker.tcl source {::checker::check}}}] 8 | } 9 | 10 | 11 | -------------------------------------------------------------------------------- /lib/ico/pkgIndex.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # pkgIndex.tcl -- 5 | # 6 | # Copyright (c) 2003, 2007 ActiveState Corporation. 7 | # All rights reserved. 8 | # 9 | # RCS: @(#) $Id: pkgIndex.tcl,v 1.2 2004/07/27 00:19:44 hobbs Exp $ 10 | 11 | package ifneeded ico 0.3.1 [list source [file join $dir ico.tcl]] 12 | -------------------------------------------------------------------------------- /lib/ico/teapot.txt: -------------------------------------------------------------------------------- 1 | Package ico 0.3 2 | Meta category Windows ICO handling 3 | Meta description Reading and writing windows icons 4 | Meta entrysource ico.tcl 5 | Meta included ico.tcl 6 | Meta platform tcl 7 | Meta require BWidget 8 | Meta require {Tcl 8.4} 9 | Meta require Tk 10 | Meta subject dll icon exe entry ico 11 | Meta license BSD 12 | -------------------------------------------------------------------------------- /misc/ashelp-hack-week-project/hv/main.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | namespace eval hv3 {set {version($Id: main.tcl,v 1.7 2006/06/10 15:25:37 danielk1977 Exp $)} 1} 5 | 6 | package require starkit 7 | starkit::startup 8 | set ::HV3_STARKIT 1 9 | source [file join [file dirname [info script]] hv3_main.tcl] 10 | 11 | -------------------------------------------------------------------------------- /lib/tcldebugger_attach/tcldebugger_attach.tap: -------------------------------------------------------------------------------- 1 | format {TclDevKit Project File} 2 | fmtver 2.0 3 | fmttool {TclDevKit TclApp PackageDefinition} 2.6 4 | 5 | ######## 6 | ##### 7 | ### 8 | ## 9 | # 10 | 11 | Package {tcldebugger_attach 1.4} 12 | Base @TAP_DIR@ 13 | Path attach.tcl 14 | Path pkgIndex.tcl 15 | Platform * 16 | Desc {API for applications to use for attaching themselves to a "tcldebugger" instance} 17 | 18 | # 19 | ## 20 | ### 21 | ##### 22 | ######## 23 | -------------------------------------------------------------------------------- /app/debug_require.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # Debugging 'package require' invokations 5 | # --------------------------------------- 6 | 7 | rename ::package ::__package 8 | proc ::package {args} { 9 | if {[lindex $args 0] eq "require"} { 10 | puts ">>> [info script]" 11 | puts " package $args" 12 | puts "" 13 | } 14 | return [uplevel 1 [linsert $args 0 ::__package]] 15 | } 16 | -------------------------------------------------------------------------------- /lib/log/pkgIndex.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # Package Index generated for Tcl Modules 5 | package ifneeded log::window 1.0 "package provide log::window 1.0;source [list [file join $dir logwindow.tm]]" 6 | package ifneeded clogwindow 1.0 "package provide clogwindow 1.0;source [list [file join $dir clogwindow.tm]]" 7 | package ifneeded runwindow 1.0 "package provide runwindow 1.0;source [list [file join $dir runwindow.tm]]" 8 | -------------------------------------------------------------------------------- /lib/splash/pkgIndex.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # pkgIndex.tcl -- 5 | # 6 | # This file contains the package index for the Tcl Wrapper UI. 7 | # Assumes that all files, even shared code is in the same directory. 8 | # 9 | # Copyright (c) 2003-2009 ActiveState Software Inc. 10 | # All rights reserved. 11 | # 12 | # RCS: @(#) $Id: $ 13 | 14 | package ifneeded splash 1.3 [list source [file join $dir splash.tcl]] 15 | -------------------------------------------------------------------------------- /lib/listentry/pkgIndex.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # Package Index generated for Tcl Modules 5 | package ifneeded listentry 1.0 "package provide listentry 1.0;source [list [file join $dir listentry.tm]]" 6 | package ifneeded listentryb 1.0 "package provide listentryb 1.0;source [list [file join $dir listentryb.tm]]" 7 | package ifneeded dictentry 1.0 "package provide dictentry 1.0;source [list [file join $dir dictentry.tm]]" 8 | -------------------------------------------------------------------------------- /lib/preferences/pkgIndex.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # Package Index generated for Tcl Modules 5 | package ifneeded pref::stdsr 1.0 "package provide pref::stdsr 1.0;source [list [file join $dir pref-stdsr.tm]]" 6 | package ifneeded pref::stdsr::oo 1.0 "package provide pref::stdsr::oo 1.0;source [list [file join $dir pref-stdsr-oo.tm]]" 7 | package ifneeded pref 1.0 "package provide pref 1.0;source [list [file join $dir pref.tm]]" 8 | -------------------------------------------------------------------------------- /lib/checker/tests/teapot.txt: -------------------------------------------------------------------------------- 1 | Package protest 1.0 2 | Meta entrysource protest.tcl 3 | Meta included all.tcl defs.tcl protest.tcl startup.tcl 4 | Meta platform tcl 5 | Meta recommend {licdata -version 2.0} 6 | Meta require analyzer 7 | Meta require checker 8 | Meta require cmdline 9 | Meta require configure 10 | Meta require {lclient -version 1.0} 11 | Meta require {licgen -version 1.1} 12 | Meta require parser 13 | Meta require projectInfo 14 | Meta require protest 15 | Meta require tcltest 16 | 17 | -------------------------------------------------------------------------------- /lib/debugger/tests/teapot.txt: -------------------------------------------------------------------------------- 1 | Package protest 1.0 2 | Meta entrysource protest.tcl 3 | Meta included all.tcl dbgLaunch.tcl guiLaunch.tcl initProject.tcl 4 | Meta included protest.tcl startup.tcl 5 | Meta platform tcl 6 | Meta recommend {licdata -version 2.0} 7 | Meta require cmdline 8 | Meta require debugger 9 | Meta require {lclient -version 1.0} 10 | Meta require {licgen -version 1.1} 11 | Meta require projectInfo 12 | Meta require protest 13 | Meta require tcltest 14 | Meta require Winico 15 | 16 | -------------------------------------------------------------------------------- /lib/teapotlink/pkgIndex.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # Package Index generated for Tcl Modules 5 | package ifneeded teapot::plat 0.1 "package provide teapot::plat 0.1;source [list [file join $dir teapot-plat.tm]]" 6 | package ifneeded teapot::link 0.1 "package provide teapot::link 0.1;source [list [file join $dir teapot-link.tm]]" 7 | package ifneeded teapot::tmbackport 0.1 "package provide teapot::tmbackport 0.1;source [list [file join $dir teapot-tmbackport.tm]]" 8 | -------------------------------------------------------------------------------- /lib/appframe/pkgIndex.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # Copyright (c) 2002-2006 ActiveState Software Inc. 5 | # All rights reserved. 6 | # 7 | # RCS: @(#) $Id: pkgIndex.tcl.in,v 1.6 2000/07/26 04:51:40 welch Exp $ 8 | 9 | package ifneeded tcldevkit::tk 1.0 [list source [file join $dir check_tk.tcl]] 10 | package ifneeded tcldevkit::appframe 1.0 [list source [file join $dir appframe.tcl]] 11 | package ifneeded tcldevkit::config 2.0 [list source [file join $dir config.tcl]] 12 | -------------------------------------------------------------------------------- /misc/ashelp-hack-week-project/README.md: -------------------------------------------------------------------------------- 1 | # Overview 2 | 3 | In the `ashelp` project we used sqlite3 databases as container for 4 | HTML help files, sort of like an opensource CHM format and archive and 5 | the `ashelp` application itself was the viewer. The `Tkhtml` widget 6 | used for it (v3) made trouble on some platforms IIRC. 7 | 8 | There was the idea of possible storing these archives in the teapot, 9 | for installation alongside with their packages, and modifying the 10 | viewer to automatically look for them in a local repository. This was 11 | never followed up on nor completed. 12 | -------------------------------------------------------------------------------- /lib/tcldebugger_attach/pkgIndex.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # pkgIndex.tcl -- 5 | # 6 | # Package index for remote attachment to prodebug. 7 | # 8 | # Copyright (c) 2003-2006 ActiveState Software Inc. 9 | # All rights reserved. 10 | # 11 | # RCS: @(#) $Id: pkgIndex.tcl.in,v 1.6 2000/07/26 04:51:40 welch Exp $ 12 | 13 | # ### ######### ########################### 14 | 15 | package ifneeded tcldebugger_attach 1.4 [list source [file join $dir attach.tcl]] 16 | 17 | # ### ######### ########################### 18 | -------------------------------------------------------------------------------- /docs/official-help-files/toc.js: -------------------------------------------------------------------------------- 1 | function clickHandler() { 2 | var targetId, srcElement, targetElement; 3 | srcElement = window.event.srcElement; 4 | if (srcElement.className == "node") { 5 | targetId = srcElement.id + "d"; 6 | targetElement = document.all(targetId); 7 | if (targetElement.style.display == "none") { 8 | targetElement.style.display = ""; 9 | srcElement.src = "images/minus.gif"; 10 | } else { 11 | targetElement.style.display = "none"; 12 | srcElement.src = "images/plus.gif"; 13 | } 14 | } 15 | } 16 | 17 | document.onclick = clickHandler; 18 | 19 | -------------------------------------------------------------------------------- /lib/dbg_nub/standard/pkgIndex.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # pkgIndex.tcl -- 5 | # 6 | # This file contains the index for the nub package 7 | # 8 | # Copyright (c) 2003-2006 ActiveState Software Inc. 9 | # All rights reserved. 10 | # 11 | # RCS: @(#) $Id: pkgIndex.tcl.in,v 1.6 2000/07/26 04:51:40 welch Exp $ 12 | 13 | # ### ### ### ######### ######### ######### 14 | ## User visible packages 15 | 16 | package ifneeded nub 1.0 [list source [file join $dir nubloader.tcl]] 17 | 18 | # ### ### ### ######### ######### ######### 19 | -------------------------------------------------------------------------------- /misc/ashelp-hack-week-project/lib/tocdisplay/teapot.txt: -------------------------------------------------------------------------------- 1 | Package hv3::astoc 0.1 2 | Meta entrysource hv3astoc.tcl 3 | Meta included hv3astoc.tcl 4 | Meta platform tcl 5 | Meta category Megawidget 6 | Meta subject ashelp hv3 tree toc {table of contents} 7 | Meta summary Table Of Contents of AS Help-Viewer 8 | Meta description Provides a tree-based table of contents. 9 | Meta description Uses the hv <-> ashelp glue support package 10 | Meta description to get at the TOC to show. 11 | Meta require widget::scrolledwindow 12 | Meta require hv3::ashelp 13 | Meta require snit 14 | Meta require treectrl 15 | 16 | -------------------------------------------------------------------------------- /lib/tcldebugger_attach/teapot.txt: -------------------------------------------------------------------------------- 1 | Package tcldebugger_attach 1.4 2 | Meta entrysource attach.tcl 3 | Meta included attach.tcl 4 | Meta platform tcl 5 | Meta summary Remote and embedded debugging, attach running process 6 | Meta summary to debugger 7 | Meta description This package enables the debugging of remote and embedded 8 | Meta description processes. It provides commands to establish and 9 | Meta description maintain a connection with the Tcl Dev Kit tcldebugger 10 | Meta category Remote and embedded debugging 11 | Meta subject attach debugger process embedded remote 12 | -------------------------------------------------------------------------------- /docs/official-help-files/zoom.zcfg: -------------------------------------------------------------------------------- 1 | [STARTDIR] 2 | C:\perforce\TclPro 3 | [SPIDERURL] 4 | http://www.mywebsite.com/index.html 5 | [BASEURL] 6 | . 7 | [OUTDIR] 8 | C:\perforce\TclPro 9 | [OFFLINE-MODE] 10 | [OUTPUT_JSFILE] 11 | [NOMETADESC] 12 | [EXTENSIONS] 13 | .htm 14 | .html 15 | .php 16 | .asp 17 | .php3 18 | [OTHER_BASEURLS] 19 | [SKIPPAGES] 20 | toc 21 | index 22 | [SKIPWORDS] 23 | and 24 | or 25 | the 26 | it 27 | is 28 | an 29 | on 30 | we 31 | us 32 | to 33 | of 34 | has 35 | be 36 | all 37 | for 38 | in 39 | as 40 | so 41 | are 42 | that 43 | can 44 | you 45 | at 46 | its 47 | by 48 | have 49 | with 50 | into 51 | [CATEGORIES] 52 | Misc. 53 | -------------------------------------------------------------------------------- /lib/gvwidgets/pkgIndex.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # -*- tcl -*- 5 | # Package index. 6 | 7 | package ifneeded clabel 0.1 [list source [file join $dir clabel.tcl]] 8 | package ifneeded vlabel 0.1 [list source [file join $dir vlabel.tcl]] 9 | package ifneeded vtable 0.1 [list source [file join $dir vtable.tcl]] 10 | package ifneeded vtree 0.1 [list source [file join $dir vtree.tcl]] 11 | package ifneeded vpage 0.1 [list source [file join $dir vpage.tcl]] 12 | package ifneeded svtable 0.1 [list source [file join $dir svtable.tcl]] 13 | -------------------------------------------------------------------------------- /docs/official-help-files/index.html: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | TclDevKit User Guide 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | <h1>Sorry!</h1> 13 | <h3>This page must be viewed by a browser that is capable of viewing frames.</h3> 14 | 15 | 16 | 17 | -------------------------------------------------------------------------------- /docs/help.txt: -------------------------------------------------------------------------------- 1 | 2 | help::page string 3 | Set page containing the help, stem only 4 | system will add .html 5 | Search will in predefined paths relative 6 | to package and executable. 7 | 8 | help::appname string 9 | Set a string used in error messages. 10 | Defaults to 'my' for message which is 11 | not application specific 12 | 13 | help::helpfile path 14 | Set the name of the .chm file containing the help 15 | on windows. Defaults to 'TclDevKit.chm'. 16 | 17 | 18 | help::open 19 | Locate and open the help. 20 | win: Assumes that page is in .chm 21 | unix/mac: Open system browser with file url. 22 | 23 | help::openUrl url 24 | Opens an arbitrary url. 25 | -------------------------------------------------------------------------------- /lib/dbg_engine/sybtcl.pdx: -------------------------------------------------------------------------------- 1 | # sybtcl.pdx -- 2 | # 3 | # This file implements the TclPro Debugger extension for Sybtcl. 4 | # 5 | # Copyright (c) 1998-2000 Ajuba Solutions 6 | # Copyright (c) 2001-2006 ActiveState Software Inc. 7 | # 8 | # All rights reserved. 9 | # 10 | # RCS: @(#) $Id: sybtcl.pdx,v 1.2 2000/05/30 22:54:47 hershey Exp $ 11 | 12 | # Register the Sybtcl extension 13 | 14 | instrument::addExtension 2.0 {sybtcl} 15 | 16 | # Register handlers for each of the Sybtcl commands 17 | 18 | instrument::addCommand sybevent {parseSimpleArgs 1 2 { 19 | parseWord parseBody}} 20 | 21 | instrument::addCommand sybnext {parseSimpleArgs 1 -1 { 22 | parseWord parseBody parseWord}} 23 | -------------------------------------------------------------------------------- /app/inspector/lib/procs_list.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # 5 | # $Id: procs_list.tcl,v Exp $ 6 | # 7 | 8 | namespace eval procs {} 9 | proc procs::init {w args} { 10 | eval [list inspect_box $w \ 11 | -separator :: \ 12 | -updatecmd procs::update \ 13 | -retrievecmd procs::retrieve \ 14 | -filtercmd {}] $args 15 | return $w 16 | } 17 | 18 | proc procs::update {path target} { 19 | return [lsort -dictionary [names::procs $target]] 20 | } 21 | proc procs::retrieve {path target proc} { 22 | return [::names::prototype $target $proc 1]; # verbose 23 | } 24 | -------------------------------------------------------------------------------- /lib/checker/doc/upgrade-8-3-3.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # -*- tcl -*- 5 | 6 | # 7 | # Example script containing tcl code using features above and beyond 8 | # version 8.3.1 of the tcl core. This code is used to test the 9 | # extended tclpro checker. 10 | # 11 | 12 | # === 8.3.3 ============ ============ ============ ============ 13 | 14 | package require opt 0.4.2 15 | 16 | expr {![set a on]} 17 | scan [format %o -1] %o v 18 | scan [format %x -1] %x v 19 | 20 | wm iconbitmap . -default foo.ico 21 | wm iconbitmap . -def foo.ico 22 | wm iconbitmap . foo.ico 23 | 24 | 25 | 26 | 27 | -------------------------------------------------------------------------------- /lib/dbg_engine/tclCom.pdx: -------------------------------------------------------------------------------- 1 | # tclCom.pdx -- 2 | # 3 | # This file implements the TclPro Debugger extension for the Tcl 4 | # Com API. 5 | # 6 | # Copyright (c) 1998-2000 Ajuba Solutions 7 | # Copyright (c) 2001-2006 ActiveState Software Inc. 8 | # 9 | # All rights reserved. 10 | # 11 | # RCS: @(#) $Id: tclCom.pdx,v 1.4 2000/05/30 22:54:48 hershey Exp $ 12 | 13 | # Register the Tcl Com extension 14 | 15 | instrument::addExtension 2.0 {tclCom} 16 | 17 | # Register handlers for each of the XML Generation commands 18 | 19 | instrument::addCommand foreachitem {parseTail 3 { 20 | parseWord parseBody}} 21 | instrument::addCommand tclcom::foreachitem {parseTail 3 { 22 | parseWord parseBody}} 23 | -------------------------------------------------------------------------------- /lib/dbg_engine/oratcl.pdx: -------------------------------------------------------------------------------- 1 | # oratcl.pdx -- 2 | # 3 | # This file implements the Tcl Dev Kit Debugger extension for OraTcl. 4 | # 5 | # Copyright (c) 1998-2000 Ajuba Solutions 6 | # Copyright (c) 2001-2008 ActiveState Software Inc. 7 | # 8 | # All rights reserved. 9 | # 10 | # RCS: @(#) $Id: oratcl.pdx,v 1.3 2000/05/30 22:54:42 hershey Exp $ 11 | 12 | # Register the Oratcl extension 13 | 14 | instrument::addExtension 2.0 {OraTcl} 15 | 16 | # Register handlers for each of the Oratcl commands 17 | 18 | # oratcl v2.5 - outdated 19 | #instrument::addCommand orafetch {parseSimpleArgs 1 -1 {parseWord parseBody parseWord}} 20 | 21 | # oratcl v4.4 22 | # orafetch has nothing special requiring instrumentation. 23 | -------------------------------------------------------------------------------- /lib/wub84/pkgIndex.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | package ifneeded dictcompat 0.1 [list source [file join $dir dictcompat.tcl]] 5 | 6 | package ifneeded Timer 1.0 [list source [file join $dir Timer.tcl]] 7 | package ifneeded Pool 1.0 [list source [file join $dir Pool.tcl]] 8 | 9 | package ifneeded Listener 1.0 [list source [file join $dir Listener.tcl]] 10 | package ifneeded Httpd 1.0 [list source [file join $dir Httpd.tcl]] 11 | package ifneeded Entity 1.0 [list source [file join $dir Entity.tcl]] 12 | package ifneeded HttpUtils 1.0 [list source [file join $dir HttpUtils.tcl]] 13 | 14 | -------------------------------------------------------------------------------- /lib/misc/req.tm: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # -- Tcl Module 5 | 6 | # @@ Meta Begin 7 | # Package req 1.0 8 | # Meta platform tcl 9 | # Meta require snit 10 | # @@ Meta End 11 | 12 | # -*- tcl -*- 13 | 14 | package require snit 15 | 16 | snit::type req { 17 | constructor {cmd} { 18 | set _cmd $cmd 19 | return 20 | } 21 | method rq {} { 22 | if {$_ticked} return 23 | after idle [mymethod Tick] 24 | set _ticked 1 25 | return 26 | } 27 | variable _cmd {} 28 | variable _ticked 0 29 | method Tick {} { 30 | set _ticked 0 31 | uplevel \#0 $_cmd 32 | return 33 | } 34 | } 35 | 36 | return 37 | -------------------------------------------------------------------------------- /lib/checker/tests/pkgIndex.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # Tcl package index file, version 1.1 5 | # This file is generated by the "pkg_mkIndex -direct" command 6 | # and sourced either when an application starts up or 7 | # by a "package unknown" script. It invokes the 8 | # "package ifneeded" command to set up package-related 9 | # information so that packages will be loaded automatically 10 | # in response to "package require" commands. When this 11 | # script is sourced, the variable $dir must contain the 12 | # full path name of this file's directory. 13 | 14 | package ifneeded protest 1.0 [list source [file join $dir protest.tcl]] 15 | -------------------------------------------------------------------------------- /lib/debugger/tests/pkgIndex.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # Tcl package index file, version 1.1 5 | # This file is generated by the "pkg_mkIndex -direct" command 6 | # and sourced either when an application starts up or 7 | # by a "package unknown" script. It invokes the 8 | # "package ifneeded" command to set up package-related 9 | # information so that packages will be loaded automatically 10 | # in response to "package require" commands. When this 11 | # script is sourced, the variable $dir must contain the 12 | # full path name of this file's directory. 13 | 14 | package ifneeded protest 1.0 [list source [file join $dir protest.tcl]] 15 | -------------------------------------------------------------------------------- /lib/misc/mafter.tm: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # -- Tcl Module 5 | 6 | # @@ Meta Begin 7 | # Package mafter 0.1 8 | # Meta platform tcl 9 | # Meta require snit 10 | # @@ Meta End 11 | 12 | # -*- tcl -*- 13 | 14 | package require snit 15 | 16 | snit::type ::mafter { 17 | 18 | constructor {delay cmd} { 19 | set _delay $delay 20 | set _cmd $cmd 21 | return 22 | } 23 | 24 | method arm {} { 25 | #puts "$self ARM" 26 | catch {after cancel $_timer} 27 | set _timer [after $_delay $_cmd] 28 | return 29 | } 30 | 31 | variable _timer 32 | variable _delay 33 | variable _cmd 34 | } 35 | 36 | return 37 | -------------------------------------------------------------------------------- /docs/3.0/TDK_3.0_Checker_PCXapi.txt: -------------------------------------------------------------------------------- 1 | TDK 3.0 Checker pcx API Notes 2 | ============================= 3 | 4 | 1. More rigity (bracketing commands): 5 | 2. No direct hacking of analyzer internals, 6 | more API commands for that. 7 | 8 | ... Message interface ... 9 | 10 | 11 | On basic initialization ... 12 | = Start declarations (for package FOO) 13 | = Declare which versions of FOO need which version of tcl. 14 | = 15 | = Complete declarations. 16 | 17 | On loading 18 | = Begin checker/scan decls 19 | = Declare the checker and scan commands. 20 | (May remove commands used in one 21 | version, but not the next) 22 | = Declare exported commands. 23 | = Declare created (defined) namespaces. 24 | = Commit the declared commands. 25 | -------------------------------------------------------------------------------- /docs/official-help-files/TclPro.hhp: -------------------------------------------------------------------------------- 1 | [OPTIONS] 2 | Compatibility=1.1 or later 3 | Compiled file=TclDevKit.chm 4 | Contents file=TclProTOC.hhc 5 | Default topic=Welcome.html 6 | Display compile progress=No 7 | Full-text search=Yes 8 | Language=0x409 English (United States) 9 | Title=Tcl Dev Kit User Guide 10 | 11 | 12 | [FILES] 13 | Checker.html 14 | Cmd_Debugger.html 15 | Compiler.html 16 | Contact.html 17 | Debugger.html 18 | Demos.html 19 | FAQ.html 20 | Inspector.html 21 | Installation.html 22 | TEA_Apps.html 23 | Package.html 24 | README_csv.html 25 | README_mult.html 26 | README_spawn.html 27 | Release.html 28 | Resources.html 29 | ServMgr.html 30 | TclApp.html 31 | Xref.html 32 | Welcome.html 33 | tdk.index.html 34 | 35 | [INFOTYPES] 36 | 37 | -------------------------------------------------------------------------------- /lib/pfile/pkgIndex.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # Package Index generated for Tcl Modules 5 | package ifneeded tdk_tap_decoder 0.1 "package provide tdk_tap_decoder 0.1;source [list [file join $dir tdk_tap_decoder.tm]]" 6 | package ifneeded tdk_tclapp 0.1 "package provide tdk_tclapp 0.1;source [list [file join $dir tdk_tclapp.tm]]" 7 | package ifneeded tdk_prowrap 0.1 "package provide tdk_prowrap 0.1;source [list [file join $dir tdk_prowrap.tm]]" 8 | package ifneeded tdk_tap 0.1 "package provide tdk_tap 0.1;source [list [file join $dir tdk_tap.tm]]" 9 | package ifneeded tdk_pf 0.1 "package provide tdk_pf 0.1;source [list [file join $dir tdk_pf.tm]]" 10 | -------------------------------------------------------------------------------- /lib/dbg_engine/xmlGen.pdx: -------------------------------------------------------------------------------- 1 | # xmlGen.pdx -- 2 | # 3 | # This file implements the TclPro Debugger extension for the XML 4 | # Generation API. 5 | # 6 | # Copyright (c) 1998-2000 Ajuba Solutions 7 | # Copyright (c) 2001-2006 ActiveState Software Inc. 8 | # 9 | # All rights reserved. 10 | # 11 | # RCS: @(#) $Id: xmlGen.pdx,v 1.3 2000/05/30 22:54:55 hershey Exp $ 12 | 13 | # Register the XML Generation extension 14 | 15 | instrument::addExtension 2.0 {xmlGen} 16 | 17 | # Register handlers for each of the XML Generation commands 18 | 19 | instrument::addCommand element {parseSimpleArgs 2 4 { 20 | parseWord parseWord parseWord parseBody}} 21 | instrument::addCommand xmlgen::element {parseSimpleArgs 2 4 { 22 | parseWord parseWord parseWord parseBody}} 23 | -------------------------------------------------------------------------------- /app/comp/lib/app-comp/pkgIndex.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # pkgIndex.tcl -- 5 | # 6 | # This file contains the package index for the Tcl Compiler UI. 7 | # Assumes that all files, even shared code is in the same directory. 8 | # 9 | # Copyright (c) 2002-2006 ActiveState Software Inc. 10 | # All rights reserved. 11 | # 12 | # RCS: @(#) $Id: pkgIndex.tcl.in,v 1.6 2000/07/26 04:51:40 welch Exp $ 13 | 14 | package ifneeded app-comp 1.0 [list source [file join $dir comp_startup.tcl]] 15 | package ifneeded procomp 1.0 [list source [file join $dir procomp.tcl]] 16 | package ifneeded procomp::config 1.0 [list source [file join $dir procomp_config.tcl]] 17 | -------------------------------------------------------------------------------- /app/vfse/lib/tool/pkgIndex.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # -*- tcl -*- 5 | # 6 | # Index for all megawidgets used by the vfse 7 | # ==================================================== 8 | 9 | package ifneeded file::open 0.1 [list source [file join $dir fopen.tcl]] 10 | 11 | package ifneeded fproperty 0.2 [list source [file join $dir properties.tcl]] 12 | 13 | # Filesystem browser ... 14 | 15 | package ifneeded fsb 0.2 [list source [file join $dir fsb.tcl]] 16 | package ifneeded fsv 0.1 [list source [file join $dir fsv.tcl]] 17 | 18 | # Win32 exe/dll version info reader 19 | 20 | package ifneeded exe 0.1 [list source [file join $dir exe.tcl]] 21 | -------------------------------------------------------------------------------- /lib/tclparser/tools/check_manifest: -------------------------------------------------------------------------------- 1 | #!/usr/local/bin/tclsh 2 | # -*- tcl -*- 3 | # check the manifest against the current contents of the directory 4 | 5 | set manifest [lindex $argv 0] 6 | 7 | rename file ori_file 8 | proc file {name} { 9 | global files 10 | set files($name) 1 11 | if {! [ori_file exists $name]} { 12 | puts stdout "missing: $name" 13 | } 14 | } 15 | 16 | # read manifest and check existence of all listed files 17 | source $manifest 18 | 19 | 20 | # now backwards: find all files and check 21 | # for files not listed in the manifest 22 | 23 | set list [exec find . -print] 24 | regsub -all "\n" $list { } list 25 | 26 | foreach f $list { 27 | if {[catch {set files($f)}]} { 28 | puts stdout "new: $f" 29 | } 30 | } 31 | -------------------------------------------------------------------------------- /lib/tap/pkgIndex.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # Package Index generated for Tcl Modules 5 | package ifneeded tap::db::loader 0.1 "package provide tap::db::loader 0.1;source [list [file join $dir tap-db-loader.tm]]" 6 | package ifneeded tap::db 0.1 "package provide tap::db 0.1;source [list [file join $dir tap-db.tm]]" 7 | package ifneeded tap::cache 0.1 "package provide tap::cache 0.1;source [list [file join $dir tap-cache.tm]]" 8 | package ifneeded tap::db::files 0.1 "package provide tap::db::files 0.1;source [list [file join $dir tap-db-files.tm]]" 9 | package ifneeded tap::db::paths 0.1 "package provide tap::db::paths 0.1;source [list [file join $dir tap-db-paths.tm]]" 10 | -------------------------------------------------------------------------------- /misc/ashelp-hack-week-project/lib/ashelp/teapot.txt: -------------------------------------------------------------------------------- 1 | Package ashelp 0.1 2 | Meta entrysource ashelp.tcl 3 | Meta included ashelp.tcl 4 | Meta summary Helpfile access 5 | Meta category Helpfile access 6 | Meta subject helpfile access 7 | Meta description Provides the basic functions to access an AS help file, i.e. 8 | Meta description reading table of contents and file contents, adding files, 9 | Meta description adding table of contents, generating table of contents from 10 | Meta description toc.xml or directory structure. 11 | Meta platform tcl 12 | Meta require fileutil 13 | Meta require fileutil::traverse 14 | Meta require htmlparse 15 | Meta require snit 16 | Meta require sqlite3 17 | Meta require struct::list 18 | Meta require tdom 19 | 20 | -------------------------------------------------------------------------------- /app/comp/lib/comp-ui/pkgIndex.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # pkgIndex.tcl -- 5 | # 6 | # This file contains the package index for the Tcl Compiler UI. 7 | # Assumes that all files, even shared code is in the same directory. 8 | # 9 | # Copyright (c) 2002-2006 ActiveState Software Inc. 10 | # All rights reserved. 11 | # 12 | # RCS: @(#) $Id: pkgIndex.tcl.in,v 1.6 2000/07/26 04:51:40 welch Exp $ 13 | 14 | foreach {pkg version file} { 15 | tcldevkit::compiler::optionWidget 2.0 optionWidget 16 | tcldevkit::compiler::fileWidget 2.0 fileWidget 17 | tcldevkit::compiler 2.0 compiler 18 | } { 19 | package ifneeded $pkg $version [list source [file join $dir $file.tcl]] 20 | } 21 | -------------------------------------------------------------------------------- /app/launch/lib/app-launch/pkgIndex.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # pkgIndex.tcl -- 5 | # 6 | # This file contains the package index for the TclApp application 7 | # Assumes that all files, even shared code is in the same directory. 8 | # 9 | # Copyright (c) 2002-2006 ActiveState Software Inc. 10 | # All rights reserved. 11 | # 12 | # RCS: @(#) $Id: pkgIndex.tcl.in,v 1.6 2000/07/26 04:51:40 welch Exp $ 13 | 14 | #puts .................................................................................... 15 | 16 | foreach {pkg version stem comment} { 17 | app-launch 1.0 launch {Main / Application package} 18 | } { 19 | package ifneeded $pkg $version [list source [file join $dir $stem.tcl]] 20 | } 21 | -------------------------------------------------------------------------------- /misc/ashelp-hack-week-project/lib/hvglue/teapot.txt: -------------------------------------------------------------------------------- 1 | Package hv3::ashelp 0.1 2 | Meta entrysource hv3ashelp.tcl 3 | Meta included hv3ashelp.tcl 4 | Meta platform tcl 5 | Meta summary Glue between AS Help Viewer and AS Helpfile Accessor package 6 | Meta category Glue 7 | Meta subject ashelp toc glue merge 8 | Meta description The package manages the help viewer's database of help files 9 | Meta description currently shown. It translates from helpfile internal paths 10 | Meta description to the uri shown by the viewer, and back, for the table of 11 | Meta description contents, search results, and requested files. Integrates the 12 | Meta description data of multiple help files into a single TOC, unified 13 | Meta description searching, etc. 14 | Meta require ashelp 15 | Meta require fileutil 16 | 17 | -------------------------------------------------------------------------------- /app/check/lib/app-check/pkgIndex.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # pkgIndex.tcl -- 5 | # 6 | # This file contains the package index for the Tcl Compiler UI. 7 | # Assumes that all files, even shared code is in the same directory. 8 | # 9 | # Copyright (c) 2002-2006 ActiveState Software Inc. 10 | # All rights reserved. 11 | # 12 | # RCS: @(#) $Id: pkgIndex.tcl.in,v 1.6 2000/07/26 04:51:40 welch Exp $ 13 | 14 | 15 | #puts .................................................................................... 16 | 17 | foreach {pkg version stem comment} { 18 | app-check 1.0 check_startup {Main / UI / Application package} 19 | } { 20 | package ifneeded $pkg $version [list source [file join $dir $stem.tcl]] 21 | } 22 | -------------------------------------------------------------------------------- /docs/WrapAppOptionWidget_spec.txt: -------------------------------------------------------------------------------- 1 | 2 | Specification of option widget for compiler 3 | =========================================== 4 | 5 | Refs: WrapUI_spec.txt, ui_cto 6 | WrapCode_spec.txt, tclpro::wrapper::wrapOptsWidget 7 | 8 | API 9 | Options 10 | -variable Variable to store the information 11 | gathered by the UI into. 12 | -foreground (-fg) Forground color. 13 | -background (-bg) Backgrund color. 14 | -errorbackground 15 | Background color for error states. 16 | Default = "coral" 17 | -font Font for internal widgets 18 | 19 | Methods 20 | /NONE/ 21 | 22 | Keys used in linked variable (variable is accessed as array!) 23 | 24 | code (-code) String 25 | args (-arguments) List of strings. 26 | 27 | Internals 28 | Widgets 29 | 30 | Placement 31 | 32 | Other information 33 | -------------------------------------------------------------------------------- /docs/official-help-files/Reference.html: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | 6 | 7 | Tcl Dev Kit - Reference 8 | 9 | 10 | 11 | 12 | 13 | @header@ 14 | 15 |
16 | 17 | 18 | 19 |

Tcl Dev Kit Reference

20 | 21 | 26 | 27 | 28 | -------------------------------------------------------------------------------- /lib/appframe/teapot.txt: -------------------------------------------------------------------------------- 1 | Package tcldevkit::tk 1.0 2 | Meta platform tcl 3 | Meta summary Checking for Tk 4 | Meta description Check availability of Tk, for applications having GUI and command line modes of operation. 5 | Meta category Tk 6 | Meta subject Tk 7 | 8 | Package tcldevkit::appframe 1.0 9 | Meta platform tcl 10 | Meta summary Application framework 11 | Meta description A basic framework for the creation of application. 12 | Meta category Application 13 | Meta subject framework application 14 | 15 | Package tcldevkit::config 2.0 16 | Meta platform tcl 17 | Meta summary Read/write configuration files 18 | Meta description Commands to handle a standard configuration file format used by the TDK applications. 19 | Meta category Configuration 20 | Meta subject configuration preferences 21 | -------------------------------------------------------------------------------- /lib/wub84/Timer.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # timer - a timer object 5 | package provide Timer 1.0 6 | 7 | package require snit 8 | 9 | ::snit::type Timer { 10 | variable cancel "" ;# after timer 11 | 12 | # cancel any timers 13 | method cancel {} { 14 | upvar 1 self owner 15 | #Debug {Timer $self for '$owner' cancel $cancel} 16 | if {$cancel != ""} { 17 | after cancel $cancel 18 | set cancel "" 19 | } 20 | } 21 | 22 | # start a new timer 23 | method after {when what} { 24 | upvar 1 self owner 25 | 26 | uplevel 1 $self cancel 27 | set cancel [after $when $what] 28 | #Debug {Timer $self for '$owner' after $when '$what' -> $cancel} 29 | #Debug {Timer $self [info level -1]} 30 | } 31 | } 32 | -------------------------------------------------------------------------------- /lib/dbg_nub/pkgIndex.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # pkgIndex.tcl -- 5 | # 6 | # Helper index. For a debugger started directly out of the local 7 | # repository we use the standard nub. If a magical variable exists 8 | # this file routes to the mobius nub instead. This allows the mobius 9 | # debugger to be tested from inside the repository as well. 10 | # 11 | # Copyright (c) 2003-2006 ActiveState Software Inc. 12 | # All rights reserved. 13 | # RCS: @(#) $Id: pkgIndex.tcl.in,v 1.6 2000/07/26 04:51:40 welch Exp $ 14 | 15 | set maindir $dir 16 | 17 | if {[info exists ::mobius_magic_routing]} { 18 | set dir [file join $maindir mobius] 19 | } else { 20 | set dir [file join $maindir standard] 21 | } 22 | 23 | source [file join $dir pkgIndex.tcl] 24 | -------------------------------------------------------------------------------- /app/xref/lib/xref/xref_lfile.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # -*- tcl -*- 5 | # 6 | # xlfile - mklist /snit::widgetadaptor 7 | # Preconfigured file list. 8 | 9 | package require mklist 10 | package require snit 11 | 12 | snit::widgetadaptor ::xlfile { 13 | 14 | delegate method * to hull 15 | delegate option * to hull 16 | 17 | variable view 18 | 19 | constructor {view_ args} { 20 | # We take ownership of this view. 21 | if {$view_ == {}} { 22 | set view $view_ 23 | } else { 24 | [$view_ readonly] as view 25 | } 26 | 27 | installhull [mklist $win $view \ 28 | {where_str} \ 29 | {Files}] 30 | $win configurelist $args 31 | $hull adjust 0 left 32 | return 33 | } 34 | } 35 | 36 | package provide xlfile 0.1 37 | -------------------------------------------------------------------------------- /docs/official-help-files/Tutorials.html: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | 6 | 7 | Tcl Dev Kit - Tutorials 8 | 9 | 10 | 11 | 12 | 13 | @header@ 14 | 15 |
16 | 17 | 18 | 19 |

Tcl Dev Kit Tutorials

20 | 21 | 26 | 27 | 28 | 29 | -------------------------------------------------------------------------------- /app/xref/lib/xref/xref_lcall.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # -*- tcl -*- 5 | # 6 | # xlcall - mklist /snit::widgetadaptor 7 | # Preconfigured command list. 8 | 9 | package require mklist 10 | package require snit 11 | 12 | snit::widgetadaptor ::xlcall { 13 | 14 | delegate method * to hull 15 | delegate option * to hull 16 | 17 | variable view 18 | 19 | constructor {view_ args} { 20 | # We take ownership of this view. 21 | 22 | if {$view_ == {}} { 23 | set view $view_ 24 | } else { 25 | [$view_ readonly] as view 26 | } 27 | 28 | installhull [mklist $win $view \ 29 | {name} \ 30 | {Procedure}] 31 | 32 | $win configurelist $args 33 | $hull adjust 0 left 34 | return 35 | } 36 | } 37 | 38 | package provide xlcall 0.1 39 | -------------------------------------------------------------------------------- /app/xref/lib/xref/xref_lns.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # -*- tcl -*- 5 | # 6 | # xlns - mklist /snit::widgetadaptor 7 | # Preconfigured namespace list. 8 | 9 | package require mklist 10 | package require snit 11 | 12 | snit::widgetadaptor ::xlns { 13 | 14 | delegate method * to hull 15 | delegate option * to hull 16 | 17 | variable view 18 | 19 | constructor {view_ args} { 20 | # We take ownership of this view. 21 | if {$view_ == {}} { 22 | set view $view_ 23 | } else { 24 | $view_ as view 25 | } 26 | 27 | installhull [mklist $win $view \ 28 | {name defn usen} \ 29 | {Namespace #Definitions #Uses}] 30 | 31 | $win configurelist $args 32 | $hull adjust 0 left 33 | 34 | return 35 | } 36 | } 37 | 38 | package provide xlns 0.1 39 | -------------------------------------------------------------------------------- /app/xref/lib/xref/xref_lcmd.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # -*- tcl -*- 5 | # 6 | # xlcmd - mklist /snit::widgetadaptor 7 | # Preconfigured command list. 8 | 9 | package require mklist 10 | package require snit 11 | 12 | snit::widgetadaptor ::xlcmd { 13 | 14 | delegate method * to hull 15 | delegate option * to hull 16 | 17 | variable view 18 | 19 | constructor {view_ args} { 20 | # We take ownership of this view. 21 | if {$view_ == {}} { 22 | set view $view_ 23 | } else { 24 | [$view_ readonly] as view 25 | } 26 | 27 | installhull [mklist $win $view \ 28 | {name defn usen} \ 29 | {Name #Definitions #Uses}] 30 | 31 | $win configurelist $args 32 | $hull adjust 0 left 33 | return 34 | } 35 | } 36 | 37 | package provide xlcmd 0.1 38 | -------------------------------------------------------------------------------- /lib/checker/doc/tip_update.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | 5 | # Code to check the checker for the new stuff ... 6 | 7 | radiobutton .rb -offrelief foo 8 | radiobutton .rb -offrelief sunken 9 | 10 | checkbutton .cb -offrelief foo 11 | checkbutton .cb -offrelief sunken 12 | 13 | wm attributes . 14 | wm attributes . -topmost 15 | wm attributes . -topmox 16 | wm attributes . -topmost 1 17 | wm attributes . -topmost foo 18 | 19 | tk caret 20 | tk caret . 21 | tk caret . -x 22 | tk caret . -x 0 23 | tk caret . -x foo 24 | tk caret . -kaboom 0 25 | 26 | file link 27 | file link -foo 28 | file link -foo a 29 | file link -foo a b 30 | file link -hard a 31 | file link -hard a b 32 | file link -symbolic a 33 | file link -symbolic a b 34 | 35 | trace list command p 36 | trace info command p 37 | -------------------------------------------------------------------------------- /app/xref/lib/xref/xref_ldefined.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # -*- tcl -*- 5 | # 6 | # xldefined - mklist /snit::widgetadaptor 7 | # Preconfigured list of typed objects. 8 | 9 | package require mklist 10 | package require snit 11 | 12 | snit::widgetadaptor ::xldefined { 13 | 14 | delegate method * to hull 15 | delegate option * to hull 16 | 17 | variable view 18 | 19 | constructor {view_ args} { 20 | # We take ownership of this view. 21 | if {$view_ == {}} { 22 | set view $view_ 23 | } else { 24 | [$view_ readonly] as view 25 | } 26 | 27 | installhull [mklist $win $view \ 28 | {name} \ 29 | {Defined} \ 30 | -key id] 31 | $win configurelist $args 32 | $hull adjust 0 left 33 | return 34 | } 35 | } 36 | 37 | package provide xldefined 0.1 38 | -------------------------------------------------------------------------------- /app/xref/lib/xref/xref_lpkg.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # -*- tcl -*- 5 | # 6 | # xlpkg - mklist /snit::widgetadaptor 7 | # Preconfigured 'variable' list. 8 | 9 | package require mklist 10 | package require snit 11 | 12 | snit::widgetadaptor ::xlpkg { 13 | 14 | delegate method * to hull 15 | delegate option * to hull 16 | 17 | variable view 18 | 19 | constructor {view_ args} { 20 | # We take ownership of this view. 21 | if {$view_ == {}} { 22 | set view $view_ 23 | } else { 24 | $view_ as view 25 | } 26 | 27 | installhull [mklist $win $view \ 28 | {name defn usen} \ 29 | {Name #Provides #Requires}] 30 | 31 | $win configurelist $args 32 | $hull adjust 0 left 33 | $hull adjust 1 left 34 | return 35 | } 36 | } 37 | 38 | package provide xlpkg 0.1 39 | -------------------------------------------------------------------------------- /lib/gview/pkgIndex.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # Package Index generated for Tcl Modules 5 | package ifneeded dirview 1.0 "package provide dirview 1.0;source [list [file join $dir dirview.tm]]" 6 | package ifneeded ftype 1.0 "package provide ftype 1.0;source [list [file join $dir ftype.tm]]" 7 | package ifneeded rootview 1.0 "package provide rootview 1.0;source [list [file join $dir rootview.tm]]" 8 | package ifneeded dirtreeview 1.0 "package provide dirtreeview 1.0;source [list [file join $dir dirtreeview.tm]]" 9 | package ifneeded view 1.0 "package provide view 1.0;source [list [file join $dir view.tm]]" 10 | package ifneeded obman 1.0 "package provide obman 1.0;source [list [file join $dir obman.tm]]" 11 | package ifneeded action 1.0 "package provide action 1.0;source [list [file join $dir action.tm]]" 12 | -------------------------------------------------------------------------------- /app/xref/lib/xref/xref_llocfl.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # -*- tcl -*- 5 | # 6 | # xllocfl - mklist /snit::widgetadaptor 7 | # Preconfigured location list (file + line only). 8 | 9 | package require mklist 10 | package require snit 11 | 12 | snit::widgetadaptor ::xllocfl { 13 | 14 | delegate method * to hull 15 | delegate option * to hull 16 | 17 | variable view 18 | 19 | constructor {view_ args} { 20 | # We take ownership of this view. 21 | if {$view_ == {}} { 22 | set view $view_ 23 | } else { 24 | [$view_ readonly] as view 25 | } 26 | 27 | installhull [mklist $win $view \ 28 | {file_str line} \ 29 | {File Line} \ 30 | -key loc] 31 | $win configurelist $args 32 | $hull adjust 0 left 33 | return 34 | } 35 | } 36 | 37 | package provide xllocfl 0.1 38 | -------------------------------------------------------------------------------- /app/xref/lib/xref/xref_lvar.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # -*- tcl -*- 5 | # 6 | # xlvar - mklist /snit::widgetadaptor 7 | # Preconfigured 'variable' list. 8 | 9 | package require mklist 10 | package require snit 11 | 12 | snit::widgetadaptor ::xlvar { 13 | 14 | delegate method * to hull 15 | delegate option * to hull 16 | 17 | variable view 18 | 19 | constructor {view_ args} { 20 | # We take ownership of this view. 21 | if {$view_ == {}} { 22 | set view $view_ 23 | } else { 24 | $view_ as view 25 | } 26 | 27 | installhull [mklist $win $view \ 28 | {scope name defn usen} \ 29 | {Scope Name #Definitions #Uses}] 30 | 31 | $win configurelist $args 32 | $hull adjust 0 left 33 | $hull adjust 1 left 34 | return 35 | } 36 | } 37 | 38 | package provide xlvar 0.1 39 | -------------------------------------------------------------------------------- /app/xref/lib/xref/xref_lvarcmd.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # -*- tcl -*- 5 | # 6 | # xlvarcmd - mklist /snit::widgetadaptor 7 | # Preconfigured 'variable' list. 8 | 9 | package require mklist 10 | package require snit 11 | 12 | snit::widgetadaptor ::xlvarcmd { 13 | 14 | delegate method * to hull 15 | delegate option * to hull 16 | 17 | variable view 18 | 19 | constructor {view_ args} { 20 | # We take ownership of this view. 21 | if {$view_ == {}} { 22 | set view $view_ 23 | } else { 24 | $view_ as view 25 | } 26 | 27 | installhull [mklist $win $view \ 28 | {name defn usen} \ 29 | {Name #Definitions #Uses}] 30 | 31 | $win configurelist $args 32 | $hull adjust 0 left 33 | $hull adjust 1 left 34 | 35 | return 36 | } 37 | } 38 | 39 | package provide xlvarcmd 0.1 40 | -------------------------------------------------------------------------------- /lib/checker/config/mkinstalldirs: -------------------------------------------------------------------------------- 1 | #! /bin/sh 2 | # mkinstalldirs --- make directory hierarchy 3 | # Author: Noah Friedman 4 | # Created: 1993-05-16 5 | # Public domain 6 | 7 | # $Id: mkinstalldirs,v 1.3 2000/08/31 16:31:37 wart Exp $ 8 | 9 | errstatus=0 10 | 11 | for file 12 | do 13 | set fnord `echo ":$file" | sed -ne 's/^:\//#/;s/^://;s/\// /g;s/^#/\//;p'` 14 | shift 15 | 16 | pathcomp= 17 | for d 18 | do 19 | pathcomp="$pathcomp$d" 20 | case "$pathcomp" in 21 | -* ) pathcomp=./$pathcomp ;; 22 | esac 23 | 24 | if test ! -d "$pathcomp"; then 25 | echo "mkdir $pathcomp" 26 | 27 | mkdir "$pathcomp" || lasterr=$? 28 | 29 | if test ! -d "$pathcomp"; then 30 | errstatus=$lasterr 31 | fi 32 | fi 33 | 34 | pathcomp="$pathcomp/" 35 | done 36 | done 37 | 38 | exit $errstatus 39 | 40 | # mkinstalldirs ends here 41 | -------------------------------------------------------------------------------- /lib/debugger/config/mkinstalldirs: -------------------------------------------------------------------------------- 1 | #! /bin/sh 2 | # mkinstalldirs --- make directory hierarchy 3 | # Author: Noah Friedman 4 | # Created: 1993-05-16 5 | # Public domain 6 | 7 | # $Id: mkinstalldirs,v 1.3 2000/08/31 16:31:37 wart Exp $ 8 | 9 | errstatus=0 10 | 11 | for file 12 | do 13 | set fnord `echo ":$file" | sed -ne 's/^:\//#/;s/^://;s/\// /g;s/^#/\//;p'` 14 | shift 15 | 16 | pathcomp= 17 | for d 18 | do 19 | pathcomp="$pathcomp$d" 20 | case "$pathcomp" in 21 | -* ) pathcomp=./$pathcomp ;; 22 | esac 23 | 24 | if test ! -d "$pathcomp"; then 25 | echo "mkdir $pathcomp" 26 | 27 | mkdir "$pathcomp" || lasterr=$? 28 | 29 | if test ! -d "$pathcomp"; then 30 | errstatus=$lasterr 31 | fi 32 | fi 33 | 34 | pathcomp="$pathcomp/" 35 | done 36 | done 37 | 38 | exit $errstatus 39 | 40 | # mkinstalldirs ends here 41 | -------------------------------------------------------------------------------- /lib/tclparser/config/mkinstalldirs: -------------------------------------------------------------------------------- 1 | #! /bin/sh 2 | # mkinstalldirs --- make directory hierarchy 3 | # Author: Noah Friedman 4 | # Created: 1993-05-16 5 | # Public domain 6 | 7 | # $Id: mkinstalldirs,v 1.3 2000/08/31 16:31:37 wart Exp $ 8 | 9 | errstatus=0 10 | 11 | for file 12 | do 13 | set fnord `echo ":$file" | sed -ne 's/^:\//#/;s/^://;s/\// /g;s/^#/\//;p'` 14 | shift 15 | 16 | pathcomp= 17 | for d 18 | do 19 | pathcomp="$pathcomp$d" 20 | case "$pathcomp" in 21 | -* ) pathcomp=./$pathcomp ;; 22 | esac 23 | 24 | if test ! -d "$pathcomp"; then 25 | echo "mkdir $pathcomp" 26 | 27 | mkdir "$pathcomp" || lasterr=$? 28 | 29 | if test ! -d "$pathcomp"; then 30 | errstatus=$lasterr 31 | fi 32 | fi 33 | 34 | pathcomp="$pathcomp/" 35 | done 36 | done 37 | 38 | exit $errstatus 39 | 40 | # mkinstalldirs ends here 41 | -------------------------------------------------------------------------------- /lib/misc/as-cache-sync.tm: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # -- Tcl Module 5 | 6 | # @@ Meta Begin 7 | # Package as::cache::sync 0.1 8 | # Meta platform tcl 9 | # Meta require snit 10 | # @@ Meta End 11 | 12 | # -*- tcl -*- 13 | 14 | package require snit 15 | 16 | snit::type ::as::cache::sync { 17 | 18 | constructor {cmd} { 19 | set _cmd $cmd 20 | return 21 | } 22 | 23 | method get {key args} { 24 | if {![info exists _data($key)]} { 25 | set command [linsert $_cmd end $key] 26 | foreach a $args {lappend command $a} 27 | set _data($key) [uplevel \#0 $command] 28 | } 29 | return $_data($key) 30 | } 31 | 32 | method clear {{pattern *}} { 33 | array unset _data $pattern 34 | return 35 | } 36 | 37 | variable _cmd {} 38 | variable _data -array {} 39 | } 40 | 41 | return 42 | -------------------------------------------------------------------------------- /lib/tclcompiler/config/mkinstalldirs: -------------------------------------------------------------------------------- 1 | #! /bin/sh 2 | # mkinstalldirs --- make directory hierarchy 3 | # Author: Noah Friedman 4 | # Created: 1993-05-16 5 | # Public domain 6 | 7 | # $Id: mkinstalldirs,v 1.3 2000/08/31 16:31:37 wart Exp $ 8 | 9 | errstatus=0 10 | 11 | for file 12 | do 13 | set fnord `echo ":$file" | sed -ne 's/^:\//#/;s/^://;s/\// /g;s/^#/\//;p'` 14 | shift 15 | 16 | pathcomp= 17 | for d 18 | do 19 | pathcomp="$pathcomp$d" 20 | case "$pathcomp" in 21 | -* ) pathcomp=./$pathcomp ;; 22 | esac 23 | 24 | if test ! -d "$pathcomp"; then 25 | echo "mkdir $pathcomp" 26 | 27 | mkdir "$pathcomp" || lasterr=$? 28 | 29 | if test ! -d "$pathcomp"; then 30 | errstatus=$lasterr 31 | fi 32 | fi 33 | 34 | pathcomp="$pathcomp/" 35 | done 36 | done 37 | 38 | exit $errstatus 39 | 40 | # mkinstalldirs ends here 41 | -------------------------------------------------------------------------------- /lib/checker/doc/upgrade-8-3-1.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # -*- tcl -*- 5 | 6 | # 7 | # Example script containing tcl code using features above and beyond 8 | # version 8.3.1 of the tcl core. This code is used to test the 9 | # extended tclpro checker. 10 | # 11 | 12 | # === 8.3.1 ============ ============ ============ 13 | 14 | # ________________________________________________ 15 | # Changes in Tcl ... 16 | 17 | # ________________________________________________ 18 | # New and modified packages 19 | 20 | package require http 2.3 ; # This is a 8.3.1. feature 21 | package require http ; # Notify that newer version available 22 | 23 | # ________________________________________________ 24 | # Extended syntax 25 | 26 | set uim [tk useinputmethods] 27 | tk useinputmethods on 28 | tk useinputmethods off 29 | tk useinputmethods bar 30 | -------------------------------------------------------------------------------- /lib/tclcompiler/tclconfig/README.txt: -------------------------------------------------------------------------------- 1 | These files comprise the basic building blocks for a Tcl Extension 2 | Architecture (TEA) extension. For more information on TEA see: 3 | 4 | http://www.tcl.tk/doc/tea/ 5 | 6 | This package is part of the Tcl project at SourceForge, and latest 7 | sources should be available there: 8 | 9 | http://tcl.sourceforge.net/ 10 | 11 | This package is a freely available open source package. You can do 12 | virtually anything you like with it, such as modifying it, redistributing 13 | it, and selling it either in whole or in part. 14 | 15 | CONTENTS 16 | ======== 17 | The following is a short description of the files you will find in 18 | the sample extension. 19 | 20 | README.txt This file 21 | 22 | install-sh Program used for copying binaries and script files 23 | to their install locations. 24 | 25 | tcl.m4 Collection of Tcl autoconf macros. Included by a package's 26 | aclocal.m4 to define SC_* macros. 27 | -------------------------------------------------------------------------------- /lib/tclparser/tclconfig/README.txt: -------------------------------------------------------------------------------- 1 | These files comprise the basic building blocks for a Tcl Extension 2 | Architecture (TEA) extension. For more information on TEA see: 3 | 4 | http://www.tcl.tk/doc/tea/ 5 | 6 | This package is part of the Tcl project at SourceForge, and latest 7 | sources should be available there: 8 | 9 | http://tcl.sourceforge.net/ 10 | 11 | This package is a freely available open source package. You can do 12 | virtually anything you like with it, such as modifying it, redistributing 13 | it, and selling it either in whole or in part. 14 | 15 | CONTENTS 16 | ======== 17 | The following is a short description of the files you will find in 18 | the sample extension. 19 | 20 | README.txt This file 21 | 22 | install-sh Program used for copying binaries and script files 23 | to their install locations. 24 | 25 | tcl.m4 Collection of Tcl autoconf macros. Included by a package's 26 | aclocal.m4 to define SC_* macros. 27 | -------------------------------------------------------------------------------- /pkg-src/win32/tclconfig/README.txt: -------------------------------------------------------------------------------- 1 | These files comprise the basic building blocks for a Tcl Extension 2 | Architecture (TEA) extension. For more information on TEA see: 3 | 4 | http://www.tcl.tk/doc/tea/ 5 | 6 | This package is part of the Tcl project at SourceForge, and latest 7 | sources should be available there: 8 | 9 | http://tcl.sourceforge.net/ 10 | 11 | This package is a freely available open source package. You can do 12 | virtually anything you like with it, such as modifying it, redistributing 13 | it, and selling it either in whole or in part. 14 | 15 | CONTENTS 16 | ======== 17 | The following is a short description of the files you will find in 18 | the sample extension. 19 | 20 | README.txt This file 21 | 22 | install-sh Program used for copying binaries and script files 23 | to their install locations. 24 | 25 | tcl.m4 Collection of Tcl autoconf macros. Included by a package's 26 | aclocal.m4 to define SC_* macros. 27 | -------------------------------------------------------------------------------- /lib/pkggen/pkgIndex.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # Package Index generated for Tcl Modules 5 | package ifneeded teapot::package::gen::zip 0.1 "package provide teapot::package::gen::zip 0.1;source [list [file join $dir teapot-package-gen-zip.tm]]" 6 | package ifneeded teapot::package::gen::tm 0.1 "package provide teapot::package::gen::tm 0.1;source [list [file join $dir teapot-package-gen-tm.tm]]" 7 | package ifneeded teapot::package::gen::pkgIndex 0.1 "package provide teapot::package::gen::pkgIndex 0.1;source [list [file join $dir teapot-package-gen-pkgIndex.tm]]" 8 | package ifneeded teapot::package::gen 0.1 "package provide teapot::package::gen 0.1;source [list [file join $dir teapot-package-gen.tm]]" 9 | package ifneeded teapot::package::gen::auto 0.1 "package provide teapot::package::gen::auto 0.1;source [list [file join $dir teapot-package-gen-auto.tm]]" 10 | -------------------------------------------------------------------------------- /app/xref/lib/xref/xref_lloc.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # -*- tcl -*- 5 | # 6 | # xlloc - mklist /snit::widgetadaptor 7 | # Preconfigured location list. 8 | 9 | package require mklist 10 | package require snit 11 | 12 | snit::widgetadaptor ::xlloc { 13 | 14 | delegate method * to hull 15 | delegate option * to hull 16 | 17 | variable view 18 | 19 | constructor {view_ args} { 20 | # We take ownership of an independent copy of the incoming view. 21 | 22 | if {$view_ == {}} { 23 | set view $view_ 24 | } else { 25 | [$view_ readonly] as view 26 | } 27 | 28 | installhull [mklist $win $view \ 29 | {file_str line hasobj begin size} \ 30 | {File Line Objects? Begin Size} \ 31 | -key loc] 32 | $win configurelist $args 33 | $hull adjust 0 left 34 | return 35 | } 36 | } 37 | 38 | package provide xlloc 0.1 39 | -------------------------------------------------------------------------------- /docs/execWidget_spec.txt: -------------------------------------------------------------------------------- 1 | 2 | Specification of execution widget 3 | ================================= 4 | 5 | Refs: compiler/UI_spec.txt, ui_te 6 | wrapper/UI_spec.txt, ui_te 7 | compiler/Code_spec.txt, tclpro::ui::execution 8 | wrapper/Code_spec.txt, tclpro::ui::execution 9 | 10 | API 11 | Options 12 | -command Callback for internal start button. 13 | -background (-bg) Backgrund color. 14 | -foreground (-fg) Forground color. 15 | -font Font for internal text widget 16 | 17 | Methods 18 | enable \ en/disable start button 19 | disable / 20 | log level text Add log text to window. 21 | (level -: see tcllib/log) 22 | clear Clear log window 23 | 24 | Internals 25 | Widgets 26 | 27 | .run Tk Button (Start Button) 28 | .log BW ScrolledWindow (Manager for Trace window) 29 | .log.text Tk Text (Trace Window) 30 | 31 | Placement 32 | 33 | .run Top @ Left 34 | .log Below .run, fill height, width 35 | .log.text Managed by .log 36 | -------------------------------------------------------------------------------- /lib/checker/doc/upgrade-8-3-4.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # -*- tcl -*- 5 | 6 | # 7 | # Example script containing tcl code using features above and beyond 8 | # version 8.3.1 of the tcl core. This code is used to test the 9 | # extended tclpro checker. 10 | # 11 | 12 | # === 8.3.4 ============ ============ ============ ============ 13 | 14 | package require http 2.4 15 | package require msgcat 1.1.1 16 | package require opt 0.4.3 17 | package require tcltest 1.0.1 18 | 19 | set list {{a 1 e i} {b 2 3 f g} {c 4 5 6 d h}} 20 | # slist == {{c 4 5 6 d h} {a 1 e i} {b 2 3 f g}} 21 | 22 | set slist [lsort -index end-1 $list] 23 | 24 | auto_import ::foo::* ; # find definition of old behaviour 25 | namespace import ::foo::* 26 | 27 | # console ; # more subcommands ? which subcommands changed ? 28 | 29 | tkConsoleOutput file5 foo 30 | tkConsoleExit 31 | -------------------------------------------------------------------------------- /app/tclapp/lib/app-tclapp/pkgIndex.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # pkgIndex.tcl -- 5 | # 6 | # This file contains the package index for the TclApp application 7 | # Assumes that all files, even shared code is in the same directory. 8 | # 9 | # Copyright (c) 2002-2006 ActiveState Software Inc. 10 | # All rights reserved. 11 | # 12 | # RCS: @(#) $Id: pkgIndex.tcl.in,v 1.6 2000/07/26 04:51:40 welch Exp $ 13 | 14 | #puts .................................................................................... 15 | 16 | # Main / UI / Application package 17 | package ifneeded app-tclapp 1.0 [list source [file join $dir tclapp_startup.tcl]] 18 | 19 | package ifneeded tclapp::pkg::scan 1.0 [list source [file join $dir pscan.tcl]] 20 | 21 | # Starkit 2 Starpack converter, splitter, vacuum (genpak) 22 | package ifneeded tclapp::genpak 1.1 [list source [file join $dir genpak.tcl]] 23 | -------------------------------------------------------------------------------- /app/tape/lib/app-tape/pkgIndex.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # pkgIndex.tcl -- 5 | # 6 | # This file contains the package index for the Tape application 7 | # Assumes that all files, even shared code is in the same directory. 8 | # 9 | # Copyright (c) 2002-2007 ActiveState Software Inc. 10 | # All rights reserved. 11 | # 12 | # RCS: @(#) $Id: pkgIndex.tcl.in,v 1.6 2000/07/26 04:51:40 welch Exp $ 13 | 14 | #puts .................................................................................... 15 | 16 | # Main / UI / Application package 17 | package ifneeded app-tape 1.0 [list source [file join $dir tape_startup.tcl]] 18 | 19 | # UI state - TAP information 20 | package ifneeded tape::state 1.0 [list source [file join $dir tape_state.tcl]] 21 | 22 | # UI state - TEAPOT information 23 | package ifneeded tape::teapot 1.0 [list source [file join $dir tape_pot.tcl]] 24 | -------------------------------------------------------------------------------- /app/xref/lib/xref/xref_llocvardef.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # -*- tcl -*- 5 | # 6 | # xlloccmdef - mklist /snit::widgetadaptor 7 | # Preconfigured location list for cmd definitions. 8 | 9 | package require mklist 10 | package require snit 11 | 12 | snit::widgetadaptor ::xllocvardef { 13 | 14 | delegate method * to hull 15 | delegate option * to hull 16 | 17 | variable view 18 | 19 | constructor {view_ args} { 20 | # We take ownership of this view. 21 | if {$view_ == {}} { 22 | set view $view_ 23 | } else { 24 | [$view_ readonly] as view 25 | } 26 | 27 | installhull [mklist $win $view \ 28 | {file_str line type origin_str calln} \ 29 | {File Line Type Origin Callers?} \ 30 | -key loc] 31 | $win configurelist $args 32 | $hull adjust 0 left 33 | return 34 | } 35 | } 36 | 37 | package provide xllocvardef 0.1 38 | -------------------------------------------------------------------------------- /app/xref/lib/xref/xref_lloccmddef.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # -*- tcl -*- 5 | # 6 | # xlloccmdef - mklist /snit::widgetadaptor 7 | # Preconfigured location list for cmd definitions. 8 | 9 | package require mklist 10 | package require snit 11 | 12 | snit::widgetadaptor ::xlloccmddef { 13 | 14 | delegate method * to hull 15 | delegate option * to hull 16 | 17 | variable view 18 | 19 | constructor {view_ args} { 20 | # We take ownership of this view. 21 | if {$view_ == {}} { 22 | set view $view_ 23 | } else { 24 | [$view_ readonly] as view 25 | } 26 | 27 | installhull [mklist $win $view \ 28 | {file_str line type prot escope_str origin_str} \ 29 | {File Line Type Prot Scope Origin?} \ 30 | -key loc] 31 | $win configurelist $args 32 | $hull adjust 0 left 33 | return 34 | } 35 | } 36 | 37 | package provide xlloccmddef 0.1 38 | -------------------------------------------------------------------------------- /docs/3.0/TDK_3.0_Debugger.txt: -------------------------------------------------------------------------------- 1 | TDK 3.0 Debugger [prio 2] 2 | ========================= 3 | 4 | [OK] Added ability to handle connections to more than one backend 5 | (nub). This can be used to debug multiple processes, provided 6 | the additional processes are [spawn]ed from the main debugged 7 | application. 'spawn' is a tcl procedure for exec'ing tcl 8 | scripts using the same interpreter it is run on. 9 | 10 | Have to distribute definition of proc [spawn]. Have to 11 | distribute 'spawn.pdx' to extend nub with ability to handle 12 | spawn. 13 | 14 | ========================= 15 | 16 | - Port multiplexer ? 17 | 18 | - Handle the debugging of concurrently running scripts. 19 | 20 | [[ We need more information from Cisco about the intended 21 | configuration ]] 22 | 23 | This is not specified good enough by the customer to allow the 24 | definition of details. 25 | 26 | => See mail exchange. 27 | 28 | See also 29 | TDK_3.0_Profiler.txt 30 | 31 | -------------------------------------------------------------------------------- /docs/official-help-files/search.html: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | Tcl Dev Kit - Welcome 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | @header@ 16 | 17 |
18 | 19 | 20 | 21 | 22 |

Search the Tcl Dev Kit Documentation

23 | 24 |

Enter one or more keywords. The search is not case-sensitive. Wildcards 25 | ('*' and '?') are supported.

26 | 27 | 28 | 29 | 30 | 31 | 32 | -------------------------------------------------------------------------------- /misc/ashelp-hack-week-project/bin/gettitle: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | # -*- tcl -*- \ 3 | exec tclsh "$0" ${1+"$@"} 4 | lappend auto_path [file dirname [file dirname [info script]]]/lib 5 | 6 | # argv = file 7 | 8 | # ### ### ### ######### ######### ######### 9 | ## 10 | 11 | proc usage {} { 12 | global argv0 13 | puts stderr "usage: $argv0 file" 14 | exit 1 15 | } 16 | 17 | proc log {text} { 18 | puts stdout $text 19 | } 20 | 21 | proc ping {} { 22 | puts -nonewline . 23 | flush stdout 24 | } 25 | 26 | # ### ### ### ######### ######### ######### 27 | ## 28 | 29 | proc cmdline {} { 30 | global argc argv location 31 | 32 | if {$argc != 1} usage; 33 | 34 | set location [lindex $argv 0] 35 | return 36 | } 37 | 38 | # ### ### ### ######### ######### ######### 39 | ## 40 | 41 | proc main {} { 42 | global location 43 | cmdline 44 | package require ashelp 45 | puts [ashelp getTitle $location] 46 | return 47 | } 48 | 49 | # ### ### ### ######### ######### ######### 50 | ## 51 | 52 | main 53 | -------------------------------------------------------------------------------- /app/tclsvc/main.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # TclSvc. 5 | 6 | set self [file dirname [file dirname [file dirname [file normalize [info script]]]]] 7 | 8 | package require starkit 9 | if {"unwrapped" eq [starkit::startup]} { 10 | # Unwrapped calls are during development from within the local 11 | # perforce depot area. Slightly different location of lib dir. 12 | # Hence we use two stanza's to define an externa lib directory. 13 | 14 | lappend auto_path [file join $self lib] 15 | 16 | puts stderr unwrapped\n[join $auto_path \n\t] 17 | 18 | # External standard actions 19 | source [file join $self app main_std.tcl] 20 | 21 | package require splash 22 | splash::configure -message DEVEL 23 | splash::configure -imagefile [file join $self artwork/splash.png] 24 | } else { 25 | # Wrapped standard actions. 26 | source [file join $starkit::topdir ms.tcl] 27 | } 28 | 29 | go [file join $self tclsvc.tcl] 30 | -------------------------------------------------------------------------------- /lib/checker/tests/coreTk.test: -------------------------------------------------------------------------------- 1 | # coreTk.test -- 2 | # 3 | # This file contains regression tests for the coreTk checkers. 4 | # 5 | # Copyright (c) 1998-2000 by Ajuba Solutions 6 | # All rights reserved. 7 | # 8 | # RCS: @(#) $Id: coreTk.test,v 1.2 2000/05/30 22:24:47 wart Exp $ 9 | 10 | if {[string compare test [info procs resetAnalyzer]] == 1} { 11 | source [file join [pwd] [file dirname [info script]] defs.tcl] 12 | } 13 | 14 | analyzer::init 15 | renameMessageShow 16 | resetUProcData 17 | 18 | # Many of the tests expect that "a" is understood as a defined 19 | # procedure that takes any number of args. To keep from getting 20 | # warnUndefProc warnings, pretend we've already gotten the warning. 21 | 22 | lappend ::analyzer::unknownCmds a 23 | 24 | foreach tkVer $::protest::supportedVersions(Tk) { 25 | resetAnalyzer 26 | coreTcl::init $::protest::tclVersion(Tk$tkVer) 27 | coreTk::init $tkVer 28 | testVersion checkCoreTk $tkVer 29 | } 30 | 31 | resetMessageShow 32 | resetAnalyzer 33 | 34 | # cleanup 35 | cleanupTests 36 | -------------------------------------------------------------------------------- /lib/teapotbase/pkgIndex.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # Package Index generated for Tcl Modules 5 | package ifneeded teapot::reference 0.1 "package provide teapot::reference 0.1;source [list [file join $dir teapot-reference.tm]]" 6 | package ifneeded teapot::listspec 0.1 "package provide teapot::listspec 0.1;source [list [file join $dir teapot-listspec.tm]]" 7 | package ifneeded teapot::entity 0.1 "package provide teapot::entity 0.1;source [list [file join $dir teapot-entity.tm]]" 8 | package ifneeded teapot::query 0.1 "package provide teapot::query 0.1;source [list [file join $dir teapot-query.tm]]" 9 | package ifneeded teapot::instance 0.1 "package provide teapot::instance 0.1;source [list [file join $dir teapot-instance.tm]]" 10 | package ifneeded teapot::version 0.1 "package provide teapot::version 0.1;source [list [file join $dir teapot-version.tm]]" 11 | package ifneeded teapot::redirect 0.1 "package provide teapot::redirect 0.1;source [list [file join $dir teapot-redirect.tm]]" 12 | -------------------------------------------------------------------------------- /lib/checker/tests/tclX.test: -------------------------------------------------------------------------------- 1 | # tclX.test -- 2 | # 3 | # This file contains regression tests for the TclX checkers. 4 | # 5 | # Copyright (c) 1998-2000 by Ajuba Solutions 6 | # All rights reserved. 7 | # 8 | # RCS: @(#) $Id: tclX.test,v 1.2 2000/05/30 22:25:04 wart Exp $ 9 | 10 | if {[string compare test [info procs resetAnalyzer]] == 1} { 11 | source [file join [pwd] [file dirname [info script]] defs.tcl] 12 | } 13 | 14 | analyzer::init 15 | renameMessageShow 16 | resetUProcData 17 | addTestUserProc 18 | 19 | # Many of the tests expect that "a" is understood as a defined 20 | # procedure that takes any number of args. To keep from getting 21 | # warnUndefProc warnings, pretend we've already gotten the warning. 22 | 23 | lappend ::analyzer::unknownCmds a 24 | 25 | foreach tclXVer $::protest::supportedVersions(TclX) { 26 | resetAnalyzer 27 | coreTcl::init $::protest::tclVersion(TclX$tclXVer) 28 | tclX::init $tclXVer 29 | testVersion checkTclX $tclXVer 30 | } 31 | 32 | resetMessageShow 33 | resetAnalyzer 34 | resetUProcData 35 | 36 | # cleanup 37 | cleanupTests 38 | -------------------------------------------------------------------------------- /lib/checker/tests/incrTcl.test: -------------------------------------------------------------------------------- 1 | # incrTcl.test -- 2 | # 3 | # This file contains regression tests for the incrTcl checkers. 4 | # 5 | # Copyright (c) 1998-2000 by Ajuba Solutions 6 | # All rights reserved. 7 | # 8 | # RCS: @(#) $Id: incrTcl.test,v 1.2 2000/05/30 22:24:53 wart Exp $ 9 | 10 | if {[string compare test [info procs resetAnalyzer]] == 1} { 11 | source [file join [pwd] [file dirname [info script]] defs.tcl] 12 | } 13 | 14 | analyzer::init 15 | renameMessageShow 16 | resetUProcData 17 | addTestUserProc 18 | 19 | # Many of the tests expect that "a" is understood as a defined 20 | # procedure that takes any number of args. To keep from getting 21 | # warnUndefProc warnings, pretend we've already gotten the warning. 22 | 23 | lappend ::analyzer::unknownCmds a 24 | 25 | foreach incrVer $::protest::supportedVersions(Incr) { 26 | resetAnalyzer 27 | coreTcl::init $::protest::tclVersion(Incr$incrVer) 28 | incrTcl::init $incrVer 29 | testVersion checkIncrTcl $incrVer 30 | } 31 | 32 | resetMessageShow 33 | resetAnalyzer 34 | resetUProcData 35 | 36 | # cleanup 37 | cleanupTests 38 | -------------------------------------------------------------------------------- /docs/3.0/TODO.txt: -------------------------------------------------------------------------------- 1 | 2 | Xref 3 | -- Display of callgraph (tree) 4 | -- Test suite required for procheck xref data 5 | -- Incremental recomputation of database contents, merging 6 | 7 | Debugging 8 | -- Port multiplexing Only in /Komodo/ 9 | OK -- Coverage 2 profiler 10 | OK -- Collect timing information 11 | 12 | Checker 13 | -- Rethink usage of checker packages 14 | OK => Decouple loading and usage 15 | OK -- Loading immediately and after scan 16 | NO [x] -- Usage only in files which declare, and only after that 17 | NO [x] declaration (Scopes) 18 | 19 | OK -- New mode: Package listing 20 | OK -- Implies -onepass, lists all packages used. 21 | OK -- Package data of this mode also in Xref 22 | OK -- PD (s.a.) also above in handling of checker packages. 23 | 24 | -- New scan mode (implied -onepass) to generate checker 25 | rules for proc's. 26 | 27 | OK (3) -- Public rules API 28 | OK More work on that. Has already started. Something simple 29 | OK over the data structures used now. 30 | 31 | 32 | [x] To much of performance hit 33 | -------------------------------------------------------------------------------- /app/main_std.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # -*- tcl -*- 5 | 6 | # ------------------------------------------------------- 7 | # Standard actions taken by a TDK application on startup. 8 | 9 | # Note that checking for unwrapped needs a sensible result from 10 | # starkit::startup, this is true iff it is run from main.tcl, 11 | # therefore it cannot be done here. 12 | # ------------------------------------------------------- 13 | 14 | proc go {file} { 15 | # ### ### ### ######### ######### ######### 16 | ## Extend auto_path with the P-* directories in the 17 | ## tdkbase. Starpacks have that automatically done for them by 18 | ## TclApp, but the TDK tools are starkits and TclApp doesn't set 19 | ## them up for the stuff in their starpack interpreter. 20 | 21 | global auto_path 22 | foreach d $auto_path { 23 | foreach pd [glob -nocomplain -directory $d P-*] { 24 | lappend auto_path $pd 25 | } 26 | } 27 | 28 | # ### ### ### ######### 29 | 30 | uplevel \#0 [list source $file] 31 | return 32 | } 33 | -------------------------------------------------------------------------------- /lib/syscolor/syscolor.tm: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # -- Tcl Module 5 | 6 | # @@ Meta Begin 7 | # Package syscolor 0.1 8 | # Meta platform tcl 9 | # Meta description Mini database of system colors. Enables users to 10 | # Meta description visually match widgets with the system defaults. 11 | # Meta require Tk 12 | # @@ Meta End 13 | 14 | # -*- tcl -*- 15 | # -*- tcl -*- 16 | # 17 | # System colors 18 | 19 | package require Tk 20 | 21 | namespace eval ::syscolor { 22 | set w [listbox ._________w_] 23 | variable buttonFace [$w cget -highlightbackground] 24 | variable highlight [$w cget -selectbackground] 25 | variable highlightText [$w cget -selectforeground] 26 | destroy $w 27 | } 28 | 29 | #proc ::syscolor {} {} 30 | 31 | # Create accessor procedures for the colors. 32 | 33 | foreach c { 34 | buttonFace 35 | highlight 36 | highlightText 37 | } { 38 | proc ::syscolor::$c {} [list return [set ::syscolor::$c]] 39 | } 40 | 41 | # ### ######### ########################### 42 | ## Ready for use 43 | return 44 | -------------------------------------------------------------------------------- /lib/tclcompiler/tests/test_jump_rewrite.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | 5 | # This script tests the new jump rewrite code added to fix bug 87738. 6 | # Without the rewrite, compiler will emit code where the proc calls 7 | # are expanded to hold the tbcload::bcproc literal, yet the 'jump' 8 | # instruction for the 'if' segment is not updated and thus pointing to 9 | # the wrong instruction, or into the middle of one, with subsequent 10 | # crash. 11 | 12 | package require compiler 13 | 14 | set in procliteral.tcl 15 | set out procliteral.tbc 16 | set chan [open $in w] 17 | 18 | # Big set of literals 19 | for {set i 0} {$i < 500} {incr i} { 20 | puts $chan [list proc p$i {args} { puts nothing }] 21 | } 22 | 23 | # And a procedure defined conditional, to have jumps around its code. 24 | puts $chan { 25 | set x 0 26 | if {$x} { 27 | proc shifting {} { puts gone } 28 | } 29 | } 30 | close $chan 31 | 32 | # Generate the bytecode 33 | compiler::compile $in $out 34 | 35 | # Run it, must not crash. 36 | source $out 37 | file delete $in $out 38 | -------------------------------------------------------------------------------- /docs/WrapWrapOptionWidget_spec.txt: -------------------------------------------------------------------------------- 1 | 2 | Specification of option widget for compiler 3 | =========================================== 4 | 5 | Refs: WrapUI_spec.txt, ui_cto 6 | WrapCode_spec.txt, tclpro::wrapper::wrapOptsWidget 7 | 8 | API 9 | Options 10 | -variable Variable to store the information 11 | gathered by the UI into. 12 | -foreground (-fg) Forground color. 13 | -background (-bg) Backgrund color. 14 | -errorbackground 15 | Background color for error states. 16 | Default = "coral" 17 | -font Font for internal widgets 18 | 19 | Methods 20 | /NONE/ 21 | 22 | Keys used in linked variable (variable is accessed as array!) 23 | 24 | use (-use) Enum [path,builtin] 25 | use,path String, Path to use spec file 26 | use,spec String, Name of chosen builtin use spec. 27 | out (-out) String, Path to generated file 28 | exec (-executable) String, Path to base executable 29 | tcllib (-tcllibrary) String, Path to tcllibrary directory 30 | ok Boolean 31 | errmsg String Error message, set iff !ok 32 | 33 | Internals 34 | Widgets 35 | 36 | Placement 37 | 38 | Other information 39 | -------------------------------------------------------------------------------- /lib/wub84/teapot.txt: -------------------------------------------------------------------------------- 1 | Package dictcompat 0.1 2 | Meta entrysource dictcompat.tcl 3 | Meta included dictcompat.tcl 4 | Meta platform tcl 5 | 6 | Package Timer 1.0 7 | Meta entrysource Timer.tcl 8 | Meta included Timer.tcl 9 | Meta platform tcl 10 | Meta require snit 11 | 12 | Package Pool 1.0 13 | Meta entrysource Pool.tcl 14 | Meta included Pool.tcl 15 | Meta platform tcl 16 | Meta require snit 17 | Meta require struct::pool 18 | 19 | Package Listener 1.0 20 | Meta entrysource Listener.tcl 21 | Meta included Listener.tcl 22 | Meta platform tcl 23 | Meta require Httpd 24 | Meta require logger 25 | Meta require Pool 26 | Meta require snit 27 | 28 | Package Httpd 1.0 29 | Meta entrysource Httpd.tcl 30 | Meta included Httpd.tcl 31 | Meta platform tcl 32 | Meta require Entity 33 | Meta require HttpUtils 34 | Meta require Timer 35 | 36 | Package Entity 1.0 37 | Meta entrysource Entity.tcl 38 | Meta included Entity.tcl 39 | Meta platform tcl 40 | Meta require snit 41 | 42 | Package HttpUtils 1.0 43 | Meta entrysource HttpUtils.tcl 44 | Meta included HttpUtils.tcl 45 | Meta platform tcl 46 | 47 | -------------------------------------------------------------------------------- /docs/CompFileWidget_spec.txt: -------------------------------------------------------------------------------- 1 | 2 | Specification of file seelction widget for compiler 3 | =================================================== 4 | 5 | Refs: compiler/UI_spec.txt, ui_cto 6 | compiler/Code_spec.txt, tclpro::compiler::fileWidget 7 | 8 | API 9 | Options 10 | -variable Variable to store the information 11 | gathered by the UI into. 12 | -foreground (-fg) Forground color. 13 | -background (-bg) Backgrund color. 14 | -errorbackground 15 | Background color for error states. 16 | Default = "coral" 17 | -font Font for internal widgets 18 | 19 | Methods 20 | /NONE/ 21 | 22 | Linked variable is list 23 | 24 | Internals 25 | Widgets 26 | 27 | .add Button "+", Add entry to listbox 28 | .rem Button "-", Remove selected item from listbox. 29 | .browse Button "...", Invoke tk_getOpenFile, implies 'add'. 30 | .file Entry Path of file to add to list. 31 | .f ScrolledWindow Container for list 32 | .f.list Listbox List of files to compile. 33 | 34 | Placement (Grid) 35 | 36 | .browse .file 37 | .add .f 38 | .rem | 39 | 40 | Other information 41 | Entry ok iff (empty | (exists & file & readable) 42 | Entry useable iff !empty & ok 43 | -------------------------------------------------------------------------------- /lib/checker/tests/blt.oldTest: -------------------------------------------------------------------------------- 1 | # blt.test -- 2 | # 3 | # This file contains regression tests for the BLT checkers. 4 | # 5 | # Copyright (c) 1998-2000 by Ajuba Solutions 6 | # All rights reserved. 7 | # 8 | # RCS: @(#) $Id: blt.oldTest,v 1.2 2000/05/30 22:24:43 wart Exp $ 9 | 10 | # The test table for BLT is not complete and is broken. It was 11 | # putback so I could merge my diffs from the laptop. Once the 12 | # table is finished, remove this comment and the return command below. 13 | # -Surles 14 | 15 | return 16 | 17 | if {[string compare test [info procs resetAnalyzer]] == 1} { 18 | source [file join [pwd] [file dirname [info script]] defs.tcl] 19 | } 20 | 21 | if {![regexp parse [info command parse]]} { 22 | puts $::tcltest::outputChannel "blt.test: can't run this test without parse command" 23 | return 24 | } 25 | 26 | renameMessageShow 27 | resetUProcData 28 | addTestUserProc 29 | 30 | foreach bltVer $supportedVersions(BLT) { 31 | resetAnalyzer 32 | coreTcl::init $tclVersion(BLT$bltVer) 33 | blt::init $bltVer 34 | testVersion checkBLT $bltVer 35 | } 36 | 37 | resetMessageShow 38 | resetAnalyzer 39 | resetUProcData 40 | 41 | # cleanup 42 | cleanupTests 43 | -------------------------------------------------------------------------------- /lib/checker/tests/blend.test: -------------------------------------------------------------------------------- 1 | # blend.test -- 2 | # 3 | # This file contains regression tests for the blend checkers. 4 | # 5 | # Copyright (c) 1998-2000 by Ajuba Solutions 6 | # All rights reserved. 7 | # 8 | # RCS: @(#) $Id: blend.test,v 1.2 2000/05/30 22:24:42 wart Exp $ 9 | 10 | if {[string compare test [info procs resetAnalyzer]] == 1} { 11 | source [file join [pwd] [file dirname [info script]] defs.tcl] 12 | } 13 | 14 | analyzer::init 15 | renameMessageShow 16 | resetUProcData 17 | addTestUserProc 18 | sourcePcxFile blend 19 | 20 | # Many of the tests expect that "a" is understood as a defined 21 | # procedure that takes any number of args. To keep from getting 22 | # warnUndefProc warnings, pretend we've already gotten the warning. 23 | 24 | lappend ::analyzer::unknownCmds a 25 | 26 | foreach blendVer $::protest::supportedVersions(Blend) { 27 | resetAnalyzer 28 | 29 | # Pcx extensions work with the current Tcl version 30 | 31 | coreTcl::init $::protest::currentVersion(Tcl) 32 | blend::init $::protest::currentVersion(Blend) 33 | testVersion checkBlend $::protest::currentVersion(Blend) 34 | } 35 | 36 | resetMessageShow 37 | resetAnalyzer 38 | resetUProcData 39 | 40 | # cleanup 41 | cleanupTests 42 | -------------------------------------------------------------------------------- /lib/checker/tests/oratcl.test: -------------------------------------------------------------------------------- 1 | # oratcl.test -- 2 | # 3 | # This file contains regression tests for the oratcl checkers. 4 | # 5 | # Copyright (c) 1998-2000 by Ajuba Solutions 6 | # All rights reserved. 7 | # 8 | # RCS: @(#) $Id: oratcl.test,v 1.2 2000/05/30 22:24:55 wart Exp $ 9 | 10 | if {[string compare test [info procs resetAnalyzer]] == 1} { 11 | source [file join [pwd] [file dirname [info script]] defs.tcl] 12 | } 13 | 14 | analyzer::init 15 | renameMessageShow 16 | resetUProcData 17 | addTestUserProc 18 | sourcePcxFile oratcl 19 | 20 | # Many of the tests expect that "a" is understood as a defined 21 | # procedure that takes any number of args. To keep from getting 22 | # warnUndefProc warnings, pretend we've already gotten the warning. 23 | 24 | lappend ::analyzer::unknownCmds a 25 | 26 | foreach oratclVer $::protest::supportedVersions(Oratcl) { 27 | resetAnalyzer 28 | 29 | # Pcx extensions work with the current Tcl version 30 | 31 | coreTcl::init $::protest::currentVersion(Tcl) 32 | oratcl::init $::protest::currentVersion(Oratcl) 33 | testVersion checkOratcl $::protest::currentVersion(Oratcl) 34 | } 35 | 36 | resetMessageShow 37 | resetAnalyzer 38 | resetUProcData 39 | 40 | # cleanup 41 | cleanupTests 42 | -------------------------------------------------------------------------------- /lib/checker/tests/tclCom.test: -------------------------------------------------------------------------------- 1 | # tclCom.test -- 2 | # 3 | # This file contains regression tests for the tclCom checkers. 4 | # 5 | # Copyright (c) 1998-2000 by Ajuba Solutions 6 | # All rights reserved. 7 | # 8 | # RCS: @(#) $Id: tclCom.test,v 1.3 2000/05/30 22:25:00 wart Exp $ 9 | 10 | if {[string compare test [info procs resetAnalyzer]] == 1} { 11 | source [file join [pwd] [file dirname [info script]] defs.tcl] 12 | } 13 | 14 | analyzer::init 15 | renameMessageShow 16 | resetUProcData 17 | addTestUserProc 18 | sourcePcxFile tclCom 19 | 20 | # Many of the tests expect that "a" is understood as a defined 21 | # procedure that takes any number of args. To keep from getting 22 | # warnUndefProc warnings, pretend we've already gotten the warning. 23 | 24 | lappend ::analyzer::unknownCmds a 25 | 26 | foreach tclComVer $::protest::supportedVersions(TclCom) { 27 | resetAnalyzer 28 | 29 | # Pcx extensions work with the current Tcl version 30 | 31 | coreTcl::init $::protest::currentVersion(Tcl) 32 | tclCom::init $::protest::currentVersion(TclCom) 33 | testVersion checkTclCom $::protest::currentVersion(TclCom) 34 | } 35 | 36 | resetMessageShow 37 | resetAnalyzer 38 | resetUProcData 39 | 40 | # cleanup 41 | cleanupTests 42 | -------------------------------------------------------------------------------- /lib/checker/tests/xmlAct.test: -------------------------------------------------------------------------------- 1 | # xmlAct.test -- 2 | # 3 | # This file contains regression tests for the xmlAct checkers. 4 | # 5 | # Copyright (c) 1998-2000 by Ajuba Solutions 6 | # All rights reserved. 7 | # 8 | # RCS: @(#) $Id: xmlAct.test,v 1.2 2000/05/30 22:25:06 wart Exp $ 9 | 10 | if {[string compare test [info procs resetAnalyzer]] == 1} { 11 | source [file join [pwd] [file dirname [info script]] defs.tcl] 12 | } 13 | 14 | analyzer::init 15 | renameMessageShow 16 | resetUProcData 17 | addTestUserProc 18 | sourcePcxFile xmlAct 19 | 20 | # Many of the tests expect that "a" is understood as a defined 21 | # procedure that takes any number of args. To keep from getting 22 | # warnUndefProc warnings, pretend we've already gotten the warning. 23 | 24 | lappend ::analyzer::unknownCmds a 25 | 26 | foreach xmlActVer $::protest::supportedVersions(XmlAct) { 27 | resetAnalyzer 28 | 29 | # Pcx extensions work with the current Tcl version 30 | 31 | coreTcl::init $::protest::currentVersion(Tcl) 32 | xmlAct::init $::protest::currentVersion(XmlAct) 33 | testVersion checkXmlAct $::protest::currentVersion(XmlAct) 34 | } 35 | 36 | resetMessageShow 37 | resetAnalyzer 38 | resetUProcData 39 | 40 | # cleanup 41 | cleanupTests 42 | -------------------------------------------------------------------------------- /lib/checker/tests/xmlGen.test: -------------------------------------------------------------------------------- 1 | # xmlGen.test -- 2 | # 3 | # This file contains regression tests for the xmlGen checkers. 4 | # 5 | # Copyright (c) 1998-2000 by Ajuba Solutions 6 | # All rights reserved. 7 | # 8 | # RCS: @(#) $Id: xmlGen.test,v 1.2 2000/05/30 22:25:08 wart Exp $ 9 | 10 | if {[string compare test [info procs resetAnalyzer]] == 1} { 11 | source [file join [pwd] [file dirname [info script]] defs.tcl] 12 | } 13 | 14 | analyzer::init 15 | renameMessageShow 16 | resetUProcData 17 | addTestUserProc 18 | sourcePcxFile xmlGen 19 | 20 | # Many of the tests expect that "a" is understood as a defined 21 | # procedure that takes any number of args. To keep from getting 22 | # warnUndefProc warnings, pretend we've already gotten the warning. 23 | 24 | lappend ::analyzer::unknownCmds a 25 | 26 | foreach xmlGenVer $::protest::supportedVersions(XmlGen) { 27 | resetAnalyzer 28 | 29 | # Pcx extensions work with the current Tcl version 30 | 31 | coreTcl::init $::protest::currentVersion(Tcl) 32 | xmlGen::init $::protest::currentVersion(XmlGen) 33 | testVersion checkXmlGen $::protest::currentVersion(XmlGen) 34 | } 35 | 36 | resetMessageShow 37 | resetAnalyzer 38 | resetUProcData 39 | 40 | # cleanup 41 | cleanupTests 42 | -------------------------------------------------------------------------------- /lib/checker/tests/sybtcl.oldTest: -------------------------------------------------------------------------------- 1 | # sybtcl.test -- 2 | # 3 | # This file contains regression tests for the sybtcl checkers. 4 | # 5 | # Copyright (c) 1998-2000 by Ajuba Solutions 6 | # All rights reserved. 7 | # 8 | # RCS: @(#) $Id: sybtcl.oldTest,v 1.3 2000/05/30 22:24:58 wart Exp $ 9 | 10 | if {[string compare test [info procs resetAnalyzer]] == 1} { 11 | source [file join [pwd] [file dirname [info script]] defs.tcl] 12 | } 13 | 14 | analyzer::init 15 | renameMessageShow 16 | resetUProcData 17 | addTestUserProc 18 | sourcePcxFile sybtcl 19 | 20 | # Many of the tests expect that "a" is understood as a defined 21 | # procedure that takes any number of args. To keep from getting 22 | # warnUndefProc warnings, pretend we've already gotten the warning. 23 | 24 | lappend ::analyzer::unknownCmds a 25 | 26 | foreach sybtclVer $::protest::supportedVersions(Sybtcl) { 27 | resetAnalyzer 28 | 29 | # Pcx extensions work with the current Tcl version 30 | 31 | coreTcl::init $::protest::currentVersion(Tcl) 32 | sybtcl::init $::protest::currentVersion(Sybtcl) 33 | testVersion checkSybtcl $::protest::currentVersion(Sybtcl) 34 | } 35 | 36 | resetMessageShow 37 | resetAnalyzer 38 | resetUProcData 39 | 40 | # cleanup 41 | cleanupTests 42 | -------------------------------------------------------------------------------- /lib/checker/doc/upgrade-8-3-2.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # -*- tcl -*- 5 | 6 | # 7 | # Example script containing tcl code using features above and beyond 8 | # version 8.3.1 of the tcl core. This code is used to test the 9 | # extended tclpro checker. 10 | # 11 | 12 | # === 8.3.2 ============ ============ ============ 13 | 14 | # ________________________________________________ 15 | # Changes in Tcl ... 16 | 17 | # ________________________________________________ 18 | # New and modified packages 19 | 20 | package require msgcat 1.1 ; # This is a 8.3.1. feature 21 | package require msgcat ; # Notify that newer version available 22 | 23 | # ________________________________________________ 24 | # Changes in Tk ... 25 | 26 | # ________________________________________________ 27 | # Labels got a -state option (normal|active|disabled) ... 28 | 29 | label .l -text foo -state active 30 | label .l -text foo -state normal 31 | label .l -text foo -state disabled 32 | label .l -text foo -state ...invalid_state... 33 | 34 | .l configure -state active 35 | .l configure -state disabled 36 | .l configure -state normal 37 | .l configure -state ...invalid_state... 38 | 39 | 40 | -------------------------------------------------------------------------------- /lib/checker/tests/tclDomPro.test: -------------------------------------------------------------------------------- 1 | # tclDomPro.test -- 2 | # 3 | # This file contains regression tests for the tclDomPro checkers. 4 | # 5 | # Copyright (c) 1998-2000 by Ajuba Solutions 6 | # All rights reserved. 7 | # 8 | # RCS: @(#) $Id: tclDomPro.test,v 1.2 2000/05/30 22:25:02 wart Exp $ 9 | 10 | if {[string compare test [info procs resetAnalyzer]] == 1} { 11 | source [file join [pwd] [file dirname [info script]] defs.tcl] 12 | } 13 | 14 | analyzer::init 15 | renameMessageShow 16 | resetUProcData 17 | addTestUserProc 18 | sourcePcxFile tclDomPro 19 | 20 | # Many of the tests expect that "a" is understood as a defined 21 | # procedure that takes any number of args. To keep from getting 22 | # warnUndefProc warnings, pretend we've already gotten the warning. 23 | 24 | lappend ::analyzer::unknownCmds a 25 | 26 | foreach tclDomProVer $::protest::supportedVersions(TclDomPro) { 27 | resetAnalyzer 28 | 29 | # Pcx extensions work with the current Tcl version 30 | 31 | coreTcl::init $::protest::currentVersion(Tcl) 32 | tclDomPro::init $::protest::currentVersion(TclDomPro) 33 | testVersion checkTclDomPro $::protest::currentVersion(TclDomPro) 34 | } 35 | 36 | resetMessageShow 37 | resetAnalyzer 38 | resetUProcData 39 | 40 | # cleanup 41 | cleanupTests 42 | -------------------------------------------------------------------------------- /lib/checker/tests/xmlServer.test: -------------------------------------------------------------------------------- 1 | # xmlServer.test -- 2 | # 3 | # This file contains regression tests for the xmlServer checkers. 4 | # 5 | # Copyright (c) 1998-2000 by Ajuba Solutions 6 | # All rights reserved. 7 | # 8 | # RCS: @(#) $Id: xmlServer.test,v 1.2 2000/05/30 22:25:10 wart Exp $ 9 | 10 | if {[string compare test [info procs resetAnalyzer]] == 1} { 11 | source [file join [pwd] [file dirname [info script]] defs.tcl] 12 | } 13 | 14 | analyzer::init 15 | renameMessageShow 16 | resetUProcData 17 | addTestUserProc 18 | sourcePcxFile xmlServer 19 | 20 | # Many of the tests expect that "a" is understood as a defined 21 | # procedure that takes any number of args. To keep from getting 22 | # warnUndefProc warnings, pretend we've already gotten the warning. 23 | 24 | lappend ::analyzer::unknownCmds a 25 | 26 | foreach xmlServerVer $::protest::supportedVersions(XmlServer) { 27 | resetAnalyzer 28 | 29 | # Pcx extensions work with the current Tcl version 30 | 31 | coreTcl::init $::protest::currentVersion(Tcl) 32 | xmlServer::init $::protest::currentVersion(XmlServer) 33 | testVersion checkXmlServer $::protest::currentVersion(XmlServer) 34 | } 35 | 36 | resetMessageShow 37 | resetAnalyzer 38 | resetUProcData 39 | 40 | # cleanup 41 | cleanupTests 42 | -------------------------------------------------------------------------------- /app/inspector/main.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # Inspector 5 | # -- Specialized main.tcl. Performs license check. 6 | 7 | set self [file dirname [file dirname [file dirname [file normalize [info script]]]]] 8 | 9 | package require starkit 10 | if {"unwrapped" eq [starkit::startup]} { 11 | # Unwrapped call is during build - tap scan/generate. Other 12 | # unwrapped calls are during development from within the local 13 | # perforce depot area. Slightly different location of lib dir. 14 | # Hence we use two stanza's to define an externa lib directory. 15 | # Debug output is allowed, actually sort of wanted to be sure of 16 | # package locations. 17 | 18 | lappend auto_path [file join $self lib] 19 | 20 | puts stderr unwrapped\n[join $auto_path \n\t] 21 | 22 | # External standard actions 23 | source [file join $self app main_std.tcl] 24 | 25 | package require splash 26 | splash::configure -message DEVEL 27 | splash::configure -imagefile [file join $self artwork/splash.png] 28 | } else { 29 | # Wrapped standard actions. 30 | source [file join $starkit::topdir ms.tcl] 31 | } 32 | 33 | go [file join $self lib inspector.tcl] 34 | -------------------------------------------------------------------------------- /lib/gvwidgets/teapot.txt: -------------------------------------------------------------------------------- 1 | Package clabel 0.1 2 | Meta entrysource clabel.tcl 3 | Meta included clabel.tcl 4 | Meta platform tcl 5 | Meta require snit 6 | 7 | Package vlabel 0.1 8 | Meta entrysource vlabel.tcl 9 | Meta included vlabel.tcl 10 | Meta platform tcl 11 | Meta require clabel 12 | Meta require snit 13 | 14 | Package vtable 0.1 15 | Meta entrysource vtable.tcl 16 | Meta included vtable.tcl 17 | Meta platform tcl 18 | Meta require req 19 | Meta require snit 20 | Meta require Tktable 21 | 22 | Package vtree 0.1 23 | Meta entrysource vtree.tcl 24 | Meta included vtree.tcl 25 | Meta platform tcl 26 | Meta require image 27 | Meta require snit 28 | Meta require syscolor 29 | Meta require treectrl 30 | Meta require widget::scrolledwindow 31 | 32 | Package vpage 0.1 33 | Meta entrysource vpage.tcl 34 | Meta included vpage.tcl 35 | Meta platform tcl 36 | Meta require image 37 | Meta require snit 38 | Meta require syscolor 39 | Meta require treectrl 40 | Meta require widget::scrolledwindow 41 | 42 | Package svtable 0.1 43 | Meta entrysource svtable.tcl 44 | Meta included svtable.tcl 45 | Meta platform tcl 46 | Meta require BWidget 47 | Meta require snit 48 | Meta require vtable 49 | 50 | -------------------------------------------------------------------------------- /lib/misc/pkgIndex.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # Package Index generated for Tcl Modules 5 | package ifneeded as::cache::async 0.1 "package provide as::cache::async 0.1;source [list [file join $dir as-cache-async.tm]]" 6 | package ifneeded as::cache::sync 0.1 "package provide as::cache::sync 0.1;source [list [file join $dir as-cache-sync.tm]]" 7 | package ifneeded as::tdk::komodo 0.1 "package provide as::tdk::komodo 0.1;source [list [file join $dir as-tdk-komodo.tm]]" 8 | package ifneeded event::merger 0.1 "package provide event::merger 0.1;source [list [file join $dir event-merger.tm]]" 9 | package ifneeded iter 0.1 "package provide iter 0.1;source [list [file join $dir iter.tm]]" 10 | package ifneeded jobs 0.1 "package provide jobs 0.1;source [list [file join $dir jobs.tm]]" 11 | package ifneeded jobs::async 0.1 "package provide jobs::async 0.1;source [list [file join $dir jobs-async.tm]]" 12 | package ifneeded mafter 0.1 "package provide mafter 0.1;source [list [file join $dir mafter.tm]]" 13 | package ifneeded pkg::mem 0.1 "package provide pkg::mem 0.1;source [list [file join $dir pkg-mem.tm]]" 14 | package ifneeded req 1.0 "package provide req 1.0;source [list [file join $dir req.tm]]" 15 | 16 | -------------------------------------------------------------------------------- /app/inspector/lib/canvas_list.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # 5 | # $Id: canvas_list.tcl,v Exp $ 6 | # 7 | # Handles browsing canvas items. 8 | # 9 | 10 | namespace eval canvas {} 11 | proc canvas::init {w args} { 12 | eval [list inspect_box $w \ 13 | -updatecmd canvas::update \ 14 | -retrievecmd canvas::retrieve \ 15 | -filtercmd {}] $args 16 | return $w 17 | } 18 | 19 | proc canvas::update {path target} { 20 | set output {} 21 | foreach w [$path windows_info get_windows] { 22 | if {[$path windows_info get_class $target $w] eq "Canvas"} { 23 | lappend output $w 24 | } 25 | } 26 | return $output 27 | } 28 | proc canvas::retrieve {path target canvas} { 29 | set items [send $target [list $canvas find all]] 30 | set result "# canvas $canvas has [llength $items] items\n" 31 | foreach item $items { 32 | append result "# item $item is tagged [list [send $target $canvas gettags $item]]\n" 33 | append result "$canvas itemconfigure $item" 34 | foreach spec [send $target [list $canvas itemconfigure $item]] { 35 | append result " \\\n\t[lindex $spec 0] [list [lindex $spec 4]]" 36 | } 37 | append result "\n" 38 | } 39 | return $result 40 | } 41 | -------------------------------------------------------------------------------- /app/vfse/lib/app-vfse/defaults.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | 5 | if {0} { 6 | option add *background #dfdbd7 7 | } 8 | option add *Listbox.background white 9 | option add *Listbox.selectBorderWidth 0 10 | option add *Listbox.selectForeground white 11 | option add *Listbox.selectBackground #4a6984 12 | 13 | option add *Entry.background white 14 | option add *Entry.selectBorderWidth 0 15 | option add *Entry.selectForeground white 16 | option add *Entry.selectBackground #4a6984 17 | 18 | option add *Text.background white 19 | option add *Text.selectBorderWidth 0 20 | option add *Text.selectForeground white 21 | option add *Text.selectBackground #4a6984 22 | 23 | if {0} { 24 | option add *Menu.activeBackground #4a6984 25 | option add *Menu.activeForeground white 26 | option add *Menu.activeBorderWidth 0 27 | option add *Menu.highlightThickness 0 28 | option add *Menu.borderWidth 2 29 | 30 | option add *MenuButton.activeBackground #4a6984 31 | option add *MenuButton.activeForeground white 32 | option add *MenuButton.activeBorderWidth 0 33 | option add *MenuButton.highlightThickness 0 34 | option add *MenuButton.borderWidth 0 35 | } 36 | 37 | option add *highlightThickness 0 38 | option add *troughColor #bdb6ad 39 | -------------------------------------------------------------------------------- /lib/selfile/selfile.tm: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # -- Tcl Module 5 | 6 | # @@ Meta Begin 7 | # Package selfile 0.1 8 | # Meta platform tcl 9 | # Meta require snit 10 | # Meta require Tk 11 | # @@ Meta End 12 | 13 | # -*- tcl -*- 14 | # -*- tcl -*- 15 | # 16 | # selfile - A wrapper around 'tk_getOpenFile'. 17 | # Takes all the arguments for that command 18 | # at the time of its creation. Manages -initialdir 19 | # on its own, remembering the last directory 20 | # we dialog was in. 21 | 22 | package require Tk 23 | package require snit 24 | 25 | snit::type selfile { 26 | 27 | variable lastdir {} 28 | variable cmd {} 29 | 30 | constructor {args} { 31 | set cmd [from args -command tk_getOpenFile] 32 | set lastdir [from args -lastdir] 33 | set cmd [linsert $args 0 $cmd] 34 | return 35 | } 36 | 37 | # ### ######### ########################### 38 | 39 | method choose {} { 40 | set result [eval [linsert $cmd end -initialdir $lastdir]] 41 | if {$result == {}} {return {}} 42 | set lastdir [file dirname $result] 43 | return $result 44 | } 45 | 46 | # ### ######### ########################### 47 | } 48 | 49 | return 50 | -------------------------------------------------------------------------------- /lib/checker/config/ChangeLog: -------------------------------------------------------------------------------- 1 | 2001-03-15 Karl Lehenbauer 2 | 3 | * installFile.tcl: Added updating of the modification time of 4 | the target file whether we overwrote it or decided that it 5 | hadn't changed. This was necessary for us to be able to 6 | determine whether or not a module install touched the file. 7 | 8 | 2001-03-08 Karl Lehenbauer 9 | 10 | * installFile.tcl: Added support for converting new-style (1.1+) 11 | Cygnus drive paths to Tcl-style. 12 | 13 | 2001-01-15 14 | 15 | * tcl.m4: Added FreeBSD clause. 16 | 17 | 2001-01-03 18 | 19 | * tcl.m4: Fixed typo in SC_LIB_SPEC where it is checking 20 | for exec-prefix. 21 | 22 | 2000-12-01 23 | 24 | * tcl.m4: Concatenated most of the Ajuba acsite.m4 file 25 | so we don't need to modify the autoconf installation. 26 | * config.guess: 27 | * config.sub: 28 | * installFile.tcl: 29 | Added files from the itcl config subdirectory, 30 | which should go away. 31 | 32 | 2000-7-29 33 | 34 | * Fixed the use of TCL_SRC_DIR and TK_SRC_DIR within TCL_PRIVATE_INCLUDES 35 | and TK_PRIVATE_INCLUDES to match their recent change from $(srcdir) 36 | to $(srcdir)/.. 37 | -------------------------------------------------------------------------------- /lib/debugger/config/ChangeLog: -------------------------------------------------------------------------------- 1 | 2001-03-15 Karl Lehenbauer 2 | 3 | * installFile.tcl: Added updating of the modification time of 4 | the target file whether we overwrote it or decided that it 5 | hadn't changed. This was necessary for us to be able to 6 | determine whether or not a module install touched the file. 7 | 8 | 2001-03-08 Karl Lehenbauer 9 | 10 | * installFile.tcl: Added support for converting new-style (1.1+) 11 | Cygnus drive paths to Tcl-style. 12 | 13 | 2001-01-15 14 | 15 | * tcl.m4: Added FreeBSD clause. 16 | 17 | 2001-01-03 18 | 19 | * tcl.m4: Fixed typo in SC_LIB_SPEC where it is checking 20 | for exec-prefix. 21 | 22 | 2000-12-01 23 | 24 | * tcl.m4: Concatenated most of the Ajuba acsite.m4 file 25 | so we don't need to modify the autoconf installation. 26 | * config.guess: 27 | * config.sub: 28 | * installFile.tcl: 29 | Added files from the itcl config subdirectory, 30 | which should go away. 31 | 32 | 2000-7-29 33 | 34 | * Fixed the use of TCL_SRC_DIR and TK_SRC_DIR within TCL_PRIVATE_INCLUDES 35 | and TK_PRIVATE_INCLUDES to match their recent change from $(srcdir) 36 | to $(srcdir)/.. 37 | -------------------------------------------------------------------------------- /lib/tclparser/config/ChangeLog: -------------------------------------------------------------------------------- 1 | 2001-03-15 Karl Lehenbauer 2 | 3 | * installFile.tcl: Added updating of the modification time of 4 | the target file whether we overwrote it or decided that it 5 | hadn't changed. This was necessary for us to be able to 6 | determine whether or not a module install touched the file. 7 | 8 | 2001-03-08 Karl Lehenbauer 9 | 10 | * installFile.tcl: Added support for converting new-style (1.1+) 11 | Cygnus drive paths to Tcl-style. 12 | 13 | 2001-01-15 14 | 15 | * tcl.m4: Added FreeBSD clause. 16 | 17 | 2001-01-03 18 | 19 | * tcl.m4: Fixed typo in SC_LIB_SPEC where it is checking 20 | for exec-prefix. 21 | 22 | 2000-12-01 23 | 24 | * tcl.m4: Concatenated most of the Ajuba acsite.m4 file 25 | so we don't need to modify the autoconf installation. 26 | * config.guess: 27 | * config.sub: 28 | * installFile.tcl: 29 | Added files from the itcl config subdirectory, 30 | which should go away. 31 | 32 | 2000-7-29 33 | 34 | * Fixed the use of TCL_SRC_DIR and TK_SRC_DIR within TCL_PRIVATE_INCLUDES 35 | and TK_PRIVATE_INCLUDES to match their recent change from $(srcdir) 36 | to $(srcdir)/.. 37 | -------------------------------------------------------------------------------- /lib/checker/tests/coreTcl.test: -------------------------------------------------------------------------------- 1 | # coreTcl.test -- 2 | # 3 | # This file contains regression tests for the coreTcl checkers. 4 | # 5 | # Copyright (c) 1998-2000 by Ajuba Solutions 6 | # All rights reserved. 7 | # 8 | # RCS: @(#) $Id: coreTcl.test,v 1.3 2000/05/30 22:24:46 wart Exp $ 9 | 10 | if {[string compare test [info procs resetAnalyzer]] == 1} { 11 | source [file join [pwd] [file dirname [info script]] defs.tcl] 12 | } 13 | 14 | analyzer::init 15 | renameMessageShow 16 | resetUProcData 17 | addTestUserProc 18 | 19 | # Many of the tests expect that "a" is understood as a defined 20 | # procedure that takes any number of args. To keep from getting 21 | # warnUndefProc warnings, pretend we've already gotten the warning. 22 | 23 | lappend ::analyzer::unknownCmds a 24 | 25 | foreach ver $::protest::supportedVersions(Tcl) { 26 | resetAnalyzer 27 | coreTcl::init $ver 28 | # This if for the regexp checker tests. 29 | set configure::versions(coreTcl) $ver 30 | testVersion checkCoreTcl $ver 31 | } 32 | 33 | set major 1 34 | set minor 0 35 | foreach {cmd expected} [set ::checkDebugger] { 36 | test checkDebugger-$major.$minor [list $cmd] { 37 | testCmd $cmd 38 | } $expected 39 | incr minor 40 | } 41 | 42 | 43 | resetMessageShow 44 | resetAnalyzer 45 | resetUProcData 46 | 47 | # cleanup 48 | cleanupTests 49 | -------------------------------------------------------------------------------- /lib/tclcompiler/config/ChangeLog: -------------------------------------------------------------------------------- 1 | 2001-03-15 Karl Lehenbauer 2 | 3 | * installFile.tcl: Added updating of the modification time of 4 | the target file whether we overwrote it or decided that it 5 | hadn't changed. This was necessary for us to be able to 6 | determine whether or not a module install touched the file. 7 | 8 | 2001-03-08 Karl Lehenbauer 9 | 10 | * installFile.tcl: Added support for converting new-style (1.1+) 11 | Cygnus drive paths to Tcl-style. 12 | 13 | 2001-01-15 14 | 15 | * tcl.m4: Added FreeBSD clause. 16 | 17 | 2001-01-03 18 | 19 | * tcl.m4: Fixed typo in SC_LIB_SPEC where it is checking 20 | for exec-prefix. 21 | 22 | 2000-12-01 23 | 24 | * tcl.m4: Concatenated most of the Ajuba acsite.m4 file 25 | so we don't need to modify the autoconf installation. 26 | * config.guess: 27 | * config.sub: 28 | * installFile.tcl: 29 | Added files from the itcl config subdirectory, 30 | which should go away. 31 | 32 | 2000-7-29 33 | 34 | * Fixed the use of TCL_SRC_DIR and TK_SRC_DIR within TCL_PRIVATE_INCLUDES 35 | and TK_PRIVATE_INCLUDES to match their recent change from $(srcdir) 36 | to $(srcdir)/.. 37 | -------------------------------------------------------------------------------- /app/vfse/main.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | #!../Tcl-8.4.1/bin/wish84.exe 5 | 6 | # ### ######### ########################### 7 | 8 | set self [file dirname [file dirname [file dirname [file normalize [info script]]]]] 9 | 10 | package require starkit 11 | if {"unwrapped" eq [starkit::startup]} { 12 | # Unwrapped call is during build - tap scan/generate. Other 13 | # unwrapped calls are during development from within the local 14 | # perforce depot area. Slightly different location of lib dir. 15 | # Hence we use two stanza's to define an externa lib directory. 16 | # Debug output is allowed, actually sort of wanted to be sure of 17 | # package locations. 18 | 19 | lappend auto_path [file join $self lib] 20 | 21 | puts stderr unwrapped\n[join $auto_path \n\t] 22 | 23 | # External standard actions 24 | source [file join $self app main_std.tcl] 25 | 26 | package require splash 27 | splash::configure -message DEVEL 28 | splash::configure -imagefile [file join $self artwork/splash.png] 29 | } else { 30 | # Wrapped standard actions. 31 | source [file join $starkit::topdir ms.tcl] 32 | } 33 | 34 | set basepwd [pwd] ;# For vfse.tcl, cmd 'startup' 35 | go [file join $self lib app-vfse vfse.tcl] 36 | -------------------------------------------------------------------------------- /app/xref/lib/xref/arrows.tcl: -------------------------------------------------------------------------------- 1 | # Copyright (c) 2018 ActiveState Software Inc. 2 | # Released under the BSD-3 license. See LICENSE file for details. 3 | # 4 | # -*- tcl -*- 5 | # 6 | # Embedded images ... Up/down Arrows. 7 | 8 | package require Tk 9 | 10 | namespace eval ::arrow { 11 | variable up {} 12 | variable down {} 13 | 14 | variable upimage {} 15 | variable downimage {} 16 | } 17 | 18 | set ::arrow::up { 19 | R0lGODlhEAAMAPAAAAAAAL29vSH5BAEAAAEALAAAAAAQAAwAAAJtTJgwYcKECRMmTJgwYcKE 20 | CRMmTJgwYcCECRMmTJgwYcCECRMmTJgwIUCECRMmTJgwIUCECRMmTJgwIECACRMmTJgwIECA 21 | CRMmTJgQIECACBMmTJgQIECACBMmTJgwYcKECRMmTJgwYcKECRMmBQA7 22 | } 23 | 24 | set ::arrow::down { 25 | R0lGODlhEAAMAPAAAAAAAL29vSH5BAEAAAEALAAAAAAQAAwAAAJtTJgwYcKECRMmTJgwYcKE 26 | CRMmTJgQIECACBMmTJgQIECACBMmTJgwIECACRMmTJgwIECACRMmTJgwIUCECRMmTJgwIUCE 27 | CRMmTJgwYcCECRMmTJgwYcCECRMmTJgwYcKECRMmTJgwYcKECRMmBQA7 28 | } 29 | 30 | 31 | proc ::arrow::up {} { 32 | variable upimage 33 | variable up 34 | if {$upimage == {}} { 35 | set upimage [image create photo -data $up] 36 | } 37 | return $upimage 38 | } 39 | 40 | proc ::arrow::down {} { 41 | variable downimage 42 | variable down 43 | if {$downimage == {}} { 44 | set downimage [image create photo -data $down] 45 | } 46 | return $downimage 47 | } 48 | 49 | 50 | package provide arrow 0.1 51 | --------------------------------------------------------------------------------