#-------------------------------------------------------------------------
# Sample macro file for Tcl TextEdit 0.9.7
#-------------------------------------------------------------------------
macro::manager

#!/bin/sh
#-------------------------------------------------------------------------
# Sample macro file for Tcl TextEdit 0.9.7
#-------------------------------------------------------------------------

#This macro execute the current the file in the currently-
# visible window

#global window current_window
#exec "wish" $window($current_window,name)

ls

{recent4}		  {}
{recent5}		  {}
{recent6}		  {}
{flist}                   {1}
{textshell}		  {0}
{speed}                   {HelloWorld TCL-Exec}
{tearoff}		  {0}
{key-macromgr}          {Control-F11}
{key-paste}		{Shift-Insert}
{key-copy}		{Control-Insert}
{key-copycut}		{Control-Delete}
{key-delline}		{Control-y|Control-Y}
{key-texteval}		{Control-e|Control-E}
{key-deltoeol}		{Control-t|Control-T}
{key-deleow}		{Control-w|Control-W}

$menu add command -label "Replace" -underline 0 -command "Find replace"
$menu add command -label "FindNext" -accelerator [gbn key-searchagain ] -underline 4 -command FindIt
$menu add command -label "Goto line" -underline 0 -accelerator [gbn key-goto ] -command Goto_line_ask

set menu .menu.macromenu
xmenu $menu 
.menu add cascade -label "Macro" -underline 0 -menu $menu 

set menu .menu.windowmenu
xmenu $menu 
.menu add cascade -label "Windows" -underline 0 -menu $menu      

set menu .menu.helpmenu
xmenu $menu 
.menu add cascade -label "Help" -underline 0 -menu $menu 

#? Press INDEX to get to the index page 
#? Press BACK to go to the recently accessed page
#? Press FORWARD to go to the page you were on when you pressed the BACK button
#? To exit help choose anoter window in the Windows menu
#?
#? If you want to send me a message here is my mail address %lAbout%
#?
if { [string first "#?-" $s ] == 0 } {  set result "$result {%i[string range $s 3 end ]%}"  }
if { [string first "#?-" $s ] == 0 } { 
  while {![eof $f] && [string first "#?-" $s ] != 0} {
if { [string first "#?-" $s ] == 0 } { 
#?-Macros
#?
#? Tcltextedit has the ability to record and play macros.
#? Macros are by default stored in $HOME/.tcltextedit/???.mac
#? where ??? stands for the name of the macro.
#? The macro files are plain tcl scripts, that makes it possible
#? for any person with knowledge of tcl to customize your own macros.
#?
#? %2Recording:%
#? You record macros by selecting the menu: Macro->Record Macro.
#? When recording is activatef text appear in the status line telling
#? you that the recording mode is active.
#? 
#? The just use the editor as usual and all your actions will be recorded.
#? 
#? To stop recording shoose: Macro->Stop recording, and a prompt will
#? appear asking you to shoose a name for your macro.
#? When you hit the Ok button your macro will be stored.
#?
#? Related topics: %lSPEEDBUTTONS% %lMACRO_MANAGER% %lMACRO_EDITING%
#? 
#?-Macro_Manager
#?
#? The macro manager is a dialog that will help you to manage your macro
#? files.
#?
#? You can use it to edit/delete/rename and make new macro files.
#?
#? Related topics: %lMACROS% %lMACRO_EDITING%
#?
#?-Macro_Editing
#?
#? There are currently tow ways to create macro files from within the 
#? text editor.
#? 
#? %2 1. Record macro%
#?
#? %2 2. Create macro files with the% %lMACRO_MANAGER% 
#?
#? There are also two different types of macros.
#?
#? %2 1. Tk/Tcl macro files.%
#?     This type is automatically created when a macro is recorded.
#?
#? %2 2. Shell macro files.%
#?     This type of macro files must be created from the %lMACRO_MANAGER%
#?     
#?     These files must contain "#!/bin/sh" as the first line, otherwise
#?     the texteditor won't recognise it as a shell macro.
#?
#?     When a shell macro is executed it will either be executed in the
#?     background, or if the TextShell window is open, it will be executed there. 
#?
#? Related topics: %lMACROS% %lMACRO_MANAGER%
#?-mclistbox.tcl
#? Copyright (c) 1999, Bryan Oakley
#? All Rights Reservered
#?
#? Bryan Oakley
#? oakley@channelpoint.com
#?

#? 
#? The just use the editor as usual and all your actions will be recorded.
#? 
#? To stop recording shoose: Macro->Stop recording, and a prompt will
#? appear asking you to shoose a name for your macro.
#? When you hit the Ok button your macro will be stored.
#?
#? Related topics: %lSPEEDBUTTONS% %lMACRO_MANAGER% %lMACRO_EDITING%
#? 
#?-Macro_Manager
#?
#? The macro manager is a dialog that will help you to manage your macro
#? files.
#?
#? You can use it to edit/delete/rename and make new macro files.
#?
#? Related topics: %lMACROS% %lMACRO_EDITING%
#?
#?-Macro_Editing
#?
#? There are currently tow ways to create macro files from within the 
#? text editor.
#? 
#? %2 1. Record macro%
#?
#? %2 2. Create macro files with the% %lMACRO_MANAGER% 
#?
#? There are also two different types of macros.
#?
#? %2 1. Tk/Tcl macro files.%
#?     This type is automatically created when a macro is recorded.
#?
#? %2 2. Shell macro files.%
#?     This type of macro files must be created from the %lMACRO_MANAGER%
#?     
#?     These files must contain "#!/bin/sh" as the first line, otherwise
#?     the texteditor won't recognise it as a shell macro.
#?
#?     When a shell macro is executed it will either be executed in the
#?     background, or if the TextShell window is open, it will be executed there. 
#?
#? Related topics: %lMACROS% %lMACRO_MANAGER%

namespace eval macro {

namespace export rec play new buttonconf update names files manager realnames


proc realnames {} {
global home installdir
set k [glob -nocomplain "$home/*.mac"]
set n $k

set k [glob -nocomplain "$installdir/*.mac"]
set n "$n $k"
return $n
}

proc names {} {
set n ""
foreach k [macro::realnames] {
set n "$n {[file rootname [file tail $k]]}" 
}

return $n
}

proc update {} {
global c home

.menu.macromenu delete 0 end
.menu.macromenu add command -label "Record macro" -underline 0 -accelerator "($c(key-newmacro))" -command macro::new
.menu.macromenu add command -label "Macro manager" -underline 7 -accelerator "($c(key-macromgr))" -command macro::manager
.menu.macromenu add separator

set k [macro::names]

foreach n $k {
.menu.macromenu add command -label $n -command "macro::play {$n}"
}

puts $f $macro_data nonewline
close $f
macro::update
speed::Update
}


proc play {n} {
global c
set last_macro $n
macro::rec macro::play $n

set file [macro::get_path $n]
if {[macro::get_type $n]=="sh"} {
	c "Macro type SH"
	exec "chmod" "774" "$file"
	if {$c(textshell)} { textsh::runcmd $file } else { exec "$file" }
	} else {
	c "Macro type TCL"
	source $file

	}
}

proc get_path {n} {
global home installdir
if {[file exists "$home/$n.mac"]==1} { 
	return "$home/$n.mac"
	} else {
		if {[file exists "$installdir/$n.mac"]==1} {

			return "$installdir/$n.mac"
			}
	}
return ""
}

proc get_type {n} {
set file [macro::get_path $n]
if {$file!=""} {
	set f [open $file r]
	fconfigure $f -blocking 0
	set s [gets $f]
	close $f

	if {[string first "#!/bin/sh" $s]!=-1} { return "sh" } else { return "tktcl" }
	}
return ""
}

proc store {} {
global url current_window window c current_macro r c
set current_macro ""
set ou .ou
catch {destroy $ou}

grab $ou
powin $ou

vwait r
destroy $ou
return $r
}                                          

proc edit {n} {
c
macro::rec macro::edit $n
set file [macro::get_path $n]
file::Load "file {$file}" -force
}

proc delete {n} {
macro::rec macro::delete $n
c

set file [macro::get_path $n]
if {$file!=""} {file delete -force "$file"}

macro::update
speed::Update
macro::manager_update
}



proc create {} {
global home
set info [get_macrotype]

set typ [lindex $info 0]
set name [lindex $info 1]


if {$typ!="cancel"} {
set f [open "$home/$name.mac" "CREAT WRONLY" ]

if {$typ=="sh"} { 
puts $f "#!/bin/sh"
puts $f "#Shell script macro file\n\n"
} else {
puts $f "#TK/Tcl script macro file\n\n"
}
close $f
macro::update
speed::Update
macro::manager_update
file::Load "file {$home/$name.mac}" -force
}

}


#Get macro type dialog
proc get_macrotype {} {
global c
set w .mseltype
catch {destroy $w}
toplevel $w
wm title $w "Select macro type"
global typ r
set typ "tktcl"

radiobutton $w.b1 -text "Tk/Tcl Macro file" -variable typ -value "tktcl"
radiobutton $w.b2 -text "Shell script" -variable typ -value "sh"
xbutton $w.ok -text "Ok" -width 6 -command "set r ok"
xbutton $w.cancel -width 6 -text "Cancel" -command "set r cancel"
label $w.l -text "Macro name:"
entry $w.e -width 30 -background $c(color-editbg) 

grid $w.l -column 0 -row 0 -sticky w
grid $w.e -column 1 -row 0 -sticky w -columnspan 2
grid $w.b1 -column 0 -row 1 -sticky w -columnspan 2
grid $w.b2 -column 2 -row 1 -sticky w
grid $w.ok -column 2 -row 2 -sticky e
grid $w.cancel -column 0 -row 2 -sticky w

powin $w
focus $w.e
vwait r
set typ "$typ {[$w.e get]}"
destroy $w
if {$r=="ok"} { return $typ } else { return $r}
}


proc manager_update {} {
#BUG! must check if .mgui.l is valid!
c
set w .mgui.l
$w delete 0 end
foreach n [macro::names] {
	$w insert end "{$n} {[macro::get_type $n]}"
	}
}

proc manager {} {
global c
c "Macro manager"
set w .mgui
catch {destroy $w}
toplevel $w
wm title $w "Macro manager"

scrollbar $w.scroll -command "$w.l yview"
mclistbox::mclistbox $w.l -yscrollcommand "$w.scroll set" -width 47  -background $c(color-listbg)
 
frame $w.b
xbutton $w.b.new -text "New"    -width 6 -command "macro::create"
xbutton $w.b.del -text "Delete" -width 6 -command {
set sel [.mgui.l curselection]
if {$sel!=""} { macro::delete "[lindex [macro::names] $sel]" }
}

xbutton $w.b.ren -text "Rename" -width 6
xbutton $w.b.ed  -text "Edit"   -width 6 -command {
set sel [.mgui.l curselection]
if {$sel!=""} { macro::edit "[lindex [macro::names] $sel]" }

}
 
xbutton $w.ok  -text "Ok"     -width 6 -command "destroy $w"

grid $w.l -column 0 -row 0 -rowspan 10 -sticky nsew
grid $w.scroll -column 1 -row 0 -rowspan 10 -sticky ns
grid $w.b.new -column 0 -row 0 
grid $w.b.del -column 0 -row 1  
grid $w.b.ren -column 0 -row 2  
grid $w.b.ed  -column 0 -row 3                              
grid $w.b -column 2 -row 0 -sticky n
grid $w.ok  -column 2 -row 9 -sticky s
grid columnconfigure $w 0 -weight 1
grid rowconfigure $w 0 -weight 1

$w.l column add macro -label "Macro" -width 40
$w.l column add type  -label "Type" -width 7

manager_update

bind $w.l <Double-Button-1> {
macro::edit "[lindex [macro::names] [.mgui.l curselection]]"
}

powin $w
}







}

namespace export Update Button Side Assign Remove Edit


proc Edit {} {
global current_button c home installdir
c $current_button





macro::edit "[lindex $c(speed) [expr $current_button - 1]]"









.mnu unpost
}


proc Remove {} {
global current_button c
c $current_button