[PD-cvs] pd/src u_main.tk,1.1.1.4.2.7.4.4,1.1.1.4.2.7.4.5

[matju at users.sourceforge.net]

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