Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28123
Modified Files: Tag: impd_0_37 u_main.tk Log Message: more bugfixes some changes to "About"
Index: u_main.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/u_main.tk,v retrieving revision 1.1.1.4.2.7.4.4 retrieving revision 1.1.1.4.2.7.4.5 diff -C2 -d -r1.1.1.4.2.7.4.4 -r1.1.1.4.2.7.4.5 *** u_main.tk 22 Feb 2004 22:37:38 -0000 1.1.1.4.2.7.4.4 --- u_main.tk 23 Feb 2004 02:52:33 -0000 1.1.1.4.2.7.4.5 *************** *** 266,269 **** --- 266,276 ---- set doc_number 1
+ proc menu_about {} { + set dialog [menu_doc_open doc/1.manual 1.introduction.txt] + wm title $dialog "About Pd" + label $dialog.title -text "About Pure Data" -font {helvetica 24} + pack $dialog.title -side top + } + proc menu_opentext {filename} { global doc_number *************** *** 282,287 **** button $name.2.close -text Close -command "destroy $name" pack $name.2.close -side right ! pack $name.1 -fill both -expand 1 ! pack $name.2 -fill x -expand 0
set f [open $filename] --- 289,294 ---- button $name.2.close -text Close -command "destroy $name" pack $name.2.close -side right ! pack $name.2 -side bottom -fill x -expand 0 ! pack $name.1 -side bottom -fill both -expand 1
set f [open $filename] *************** *** 294,298 **** $name.1.text configure -state disabled close $f ! set doc_number [expr $doc_number + 1] }
--- 301,306 ---- $name.1.text configure -state disabled close $f ! set doc_number [expr $doc_number + 1] ! return $name }
*************** *** 340,344 ****
if {[string first .txt $basename] >= 0} { ! menu_opentext $dirname/$basename } else { pd [concat pd open [pdtk_enquote $basename] \ --- 348,352 ----
if {[string first .txt $basename] >= 0} { ! return [menu_opentext $dirname/$basename] } else { pd [concat pd open [pdtk_enquote $basename] \ *************** *** 374,378 **** # the "Help" menu $mbar.help add command -label {About Pd} \ ! -command {menu_doc_open doc/1.manual 1.introduction.txt} $mbar.help add command -label {Pure Documentation...} \ -command {menu_documentation} --- 382,386 ---- # the "Help" menu $mbar.help add command -label {About Pd} \ ! -command {menu_about} $mbar.help add command -label {Pure Documentation...} \ -command {menu_documentation} *************** *** 685,690 **** -orient horizontal
! make_button_bar $name.bbar $name ! pack $name.bbar -side top -fill x -expand no
pack $name.scrollhort -side bottom -fill x --- 693,700 ---- -orient horizontal
! if {[info exists env(pd_look)]} { ! make_button_bar $name.bbar $name ! pack $name.bbar -side top -fill x -expand no ! }
pack $name.scrollhort -side bottom -fill x *************** *** 3391,3395 **** } } ! load_button_bar
proc make_button_bar {self doc} { --- 3401,3405 ---- } } ! if {[info exists env(pd_look)]} {load_button_bar}
proc make_button_bar {self doc} { *************** *** 3497,3499 ****
# rendering: ! source u_object.tk --- 3507,3509 ----
# rendering: ! source $pd_guidir/bin/u_object.tk