Tobias C. Rittweiler and Rene Rebe: added editor search to the gui_* STONE

modules


git-svn-id: http://www.rocklinux.org/svn/rock-linux/trunk@1255 c5f82cb5-29bc-0310-9cd0-bff59a50e3bc

Documentation/Developers/CHANGELOG-RENE

@@ -11,6 +11,8 @@
  - improved Build-Pkg argument parsing further
  - improved create_package_db to not include failed packages into the database
    file
+ - Tobias C. Rittweiler and Rene Rebe: added editor search to the gui_* STONE
+                                       modules
 
 *) 2003-08-29 (2.0.0-rc1 - 2.0.0-rc2)
 

package/base/sysfiles/stone_gui_dialog.sh

@@ -167,7 +167,16 @@ gui_yesno() {
 # Use: gui_edit "Text" "File"
 #
 gui_edit() {
-	eval "${EDITOR:-vi} $2"
+	# find editor
+	for x in $EDITOR vi nvi emacs xemacs pico ; do
+		if which $x > /dev/null
+		then xx=$x ; break ; fi
+	done
+	if [ "$xx" ] ; then
+		eval "$xx $2"
+	else
+		gui_message "Cannot find any editor. Make sure \$EDITOR is set."
+	fi
 }
 
 # Use: gui_cmd "Title" "Command"

package/base/sysfiles/stone_gui_text.sh

@@ -93,7 +93,16 @@ gui_message() {
 # Use: gui_edit "Text" "File"
 #
 gui_edit() {
-	eval "${EDITOR:-vi} $2"
+	# find editor
+	for x in $EDITOR vi nvi emacs xemacs pico ; do
+		if which $x > /dev/null
+		then xx=$x ; break ; fi
+	done
+	if [ "$xx" ] ; then
+		eval "$xx $2"
+	else
+		gui_message "Cannot find any editor. Make sure \$EDITOR is set."
+	fi
 }
 
 # Use: gui_cmd "Title" "Command"

package/base/sysfiles/stone_gui_x11.sh

@@ -36,7 +36,16 @@ gui_dialog() {
 }
 
 gui_edit() {
-	xterm -T "STONE - $1" -n "STONE" -e bash -c "${EDITOR:-vi} $2"
+	# find editor
+	for x in $EDITOR vi nvi emacs xemacs pico ; do
+		if which $x > /dev/null
+		then xx=$x ; break ; fi
+	done
+	if [ "$xx" ] ; then
+		xterm -T "STONE - $1" -n "STONE" -e bash -c "$xx $2"
+	else
+		gui_message "Cannot find any editor. Make sure \$EDITOR is set."
+	fi
 }
 
 gui_cmd() {