Accidentaly copied here

git-svn-id: file:///fltk/svn/fltk/branches/branch-1.3@8219 ea41ed52-d2ee-0310-a9c1-e6b18d33e121

1 files changed, 0 insertions, 643 deletions

diff --git a/branch-3.0-2011/src/Fl_File_Browser.cxx b/branch-3.0-2011/src/Fl_File_Browser.cxx
deleted file mode 100644
index a421b73d2..000000000
--- a/branch-3.0-2011/src/Fl_File_Browser.cxx
+++ /dev/null
@@ -1,643 +0,0 @@
-//
-// "$Id$"
-//
-// Fl_File_Browser routines.
-//
-// Copyright 1999-2010 by Michael Sweet.
-//
-// This library is free software; you can redistribute it and/or
-// modify it under the terms of the GNU Library General Public
-// License as published by the Free Software Foundation; either
-// version 2 of the License, or (at your option) any later version.
-//
-// This library is distributed in the hope that it will be useful,
-// but WITHOUT ANY WARRANTY; without even the implied warranty of
-// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-// Library General Public License for more details.
-//
-// You should have received a copy of the GNU Library General Public
-// License along with this library; if not, write to the Free Software
-// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
-// USA.
-//
-// Please report all bugs and problems on the following page:
-//
-//     http://www.fltk.org/str.php
-//
-// Contents:
-//
-//   Fl_File_Browser::full_height()     - Return the height of the list.
-//   Fl_File_Browser::item_height()     - Return the height of a list item.
-//   Fl_File_Browser::item_width()      - Return the width of a list item.
-//   Fl_File_Browser::item_draw()       - Draw a list item.
-//   Fl_File_Browser::Fl_File_Browser() - Create a Fl_File_Browser widget.
-//   Fl_File_Browser::load()            - Load a directory into the browser.
-//   Fl_File_Browser::filter()          - Set the filename filter.
-//
-
-//
-// Include necessary header files...
-//
-
-#include <FL/Fl_File_Browser.H>
-#include <FL/fl_draw.H>
-#include <FL/filename.H>
-#include <FL/Fl_Image.H>	// icon
-#include <stdio.h>
-#include <stdlib.h>
-#include "flstring.h"
-
-#ifdef __CYGWIN__
-#  include <mntent.h>
-#elif defined(WIN32)
-#  include <windows.h>
-#  include <direct.h>
-// Apparently Borland C++ defines DIRECTORY in <direct.h>, which
-// interfers with the Fl_File_Icon enumeration of the same name.
-#  ifdef DIRECTORY
-#    undef DIRECTORY
-#  endif // DIRECTORY
-#endif // __CYGWIN__
-
-#ifdef __EMX__
-#  define  INCL_DOS
-#  define  INCL_DOSMISC
-#  include <os2.h>
-#endif // __EMX__
-
-#if defined(__APPLE__)
-#  include <sys/param.h>
-#  include <sys/ucred.h>
-#  include <sys/mount.h>
-#endif // __APPLE__
-
-//
-// FL_BLINE definition from "Fl_Browser.cxx"...
-//
-
-#define SELECTED 1
-#define NOTDISPLAYED 2
-
-// TODO -- Warning: The definition of FL_BLINE here is a hack.
-//    Fl_File_Browser should not do this. PLEASE FIX.
-//    FL_BLINE should be private to Fl_Browser, and not re-defined here.
-//    For now, make sure this struct is precisely consistent with Fl_Browser.cxx.
-//
-struct FL_BLINE			// data is in a linked list of these
-{
-  FL_BLINE	*prev;		// Previous item in list
-  FL_BLINE	*next;		// Next item in list
-  void		*data;		// Pointer to data (function)
-  Fl_Image      *icon;		// Pointer to optional icon
-  short		length;		// sizeof(txt)-1, may be longer than string
-  char		flags;		// selected, displayed
-  char		txt[1];		// start of allocated array
-};
-
-
-//
-// 'Fl_File_Browser::full_height()' - Return the height of the list.
-//
-
-int					// O - Height in pixels
-Fl_File_Browser::full_height() const
-{
-  int	i,				// Looping var
-	th;				// Total height of list.
-
-
-  for (i = 0, th = 0; i < size(); i ++)
-    th += item_height(find_line(i));
-
-  return (th);
-}
-
-
-//
-// 'Fl_File_Browser::item_height()' - Return the height of a list item.
-//
-
-int					// O - Height in pixels
-Fl_File_Browser::item_height(void *p) const	// I - List item data
-{
-  FL_BLINE	*line;			// Pointer to line
-  char		*t;			// Pointer into text
-  int		height;			// Width of line
-  int		textheight;		// Height of text
-
-
-  // Figure out the standard text height...
-  fl_font(textfont(), textsize());
-  textheight = fl_height();
-
-  // We always have at least 1 line...
-  height = textheight;
-
-  // Scan for newlines...
-  line = (FL_BLINE *)p;
-
-  if (line != NULL)
-    for (t = line->txt; *t != '\0'; t ++)
-      if (*t == '\n')
-	height += textheight;
-
-  // If we have enabled icons then add space for them...
-  if (Fl_File_Icon::first() != NULL && height < iconsize_)
-    height = iconsize_;
-
-  // Add space for the selection border..
-  height += 2;
-
-  // Return the height
-  return (height);
-}
-
-
-//
-// 'Fl_File_Browser::item_width()' - Return the width of a list item.
-//
-
-int					// O - Width in pixels
-Fl_File_Browser::item_width(void *p) const	// I - List item data
-{
-  int		i;			// Looping var
-  FL_BLINE	*line;			// Pointer to line
-  char		*t,			// Pointer into text
-		*ptr,			// Pointer into fragment
-		fragment[10240];	// Fragment of text
-  int		width,			// Width of line
-		tempwidth;		// Width of fragment
-  int		column;			// Current column
-  const int	*columns;		// Columns
-
-
-  // Scan for newlines...
-  line    = (FL_BLINE *)p;
-  columns = column_widths();
-
-  // Set the font and size...
-  if (line->txt[strlen(line->txt) - 1] == '/')
-    fl_font(textfont() | FL_BOLD, textsize());
-  else
-    fl_font(textfont(), textsize());
-
-  if (strchr(line->txt, '\n') == NULL &&
-      strchr(line->txt, column_char()) == NULL)
-  {
-    // Do a fast width calculation...
-    width = (int)fl_width(line->txt);
-  }
-  else
-  {
-    // More than 1 line or have columns; find the maximum width...
-    width     = 0;
-    tempwidth = 0;
-    column    = 0;
-
-    for (t = line->txt, ptr = fragment; *t != '\0'; t ++)
-      if (*t == '\n')
-      {
-        // Newline - nul terminate this fragment and get the width...
-        *ptr = '\0';
-
-	tempwidth += (int)fl_width(fragment);
-
-        // Update the max width as needed...
-	if (tempwidth > width)
-	  width = tempwidth;
-
-        // Point back to the start of the fragment...
-	ptr       = fragment;
-	tempwidth = 0;
-	column    = 0;
-      }
-      else if (*t == column_char())
-      {
-        // Advance to the next column...
-        column ++;
-	if (columns)
-	{
-	  for (i = 0, tempwidth = 0; i < column && columns[i]; i ++)
-	    tempwidth += columns[i];
-	}
-	else
-          tempwidth = column * (int)(fl_height() * 0.6 * 8.0);
-
-        if (tempwidth > width)
-	  width = tempwidth;
-
-	ptr = fragment;
-      }
-      else
-        *ptr++ = *t;
-
-    if (ptr > fragment)
-    {
-      // Nul terminate this fragment and get the width...
-      *ptr = '\0';
-
-      tempwidth += (int)fl_width(fragment);
-
-      // Update the max width as needed...
-      if (tempwidth > width)
-	width = tempwidth;
-    }
-  }
-
-  // If we have enabled icons then add space for them...
-  if (Fl_File_Icon::first() != NULL)
-    width += iconsize_ + 8;
-
-  // Add space for the selection border..
-  width += 2;
-
-  // Return the width
-  return (width);
-}
-
-
-//
-// 'Fl_File_Browser::item_draw()' - Draw a list item.
-//
-
-void
-Fl_File_Browser::item_draw(void *p,	// I - List item data
-                 	   int  X,	// I - Upper-lefthand X coordinate
-		 	   int  Y,	// I - Upper-lefthand Y coordinate
-		 	   int  W,	// I - Width of item
-			   int) const	// I - Height of item
-{
-  int		i;			// Looping var
-  FL_BLINE	*line;			// Pointer to line
-  Fl_Color	c;			// Text color
-  char		*t,			// Pointer into text
-		*ptr,			// Pointer into fragment
-		fragment[10240];	// Fragment of text
-  int		width,			// Width of line
-		height;			// Height of line
-  int		column;			// Current column
-  const int	*columns;		// Columns
-
-
-  // Draw the list item text...
-  line = (FL_BLINE *)p;
-
-  if (line->txt[strlen(line->txt) - 1] == '/')
-    fl_font(textfont() | FL_BOLD, textsize());
-  else
-    fl_font(textfont(), textsize());
-
-  if (line->flags & SELECTED)
-    c = fl_contrast(textcolor(), selection_color());
-  else
-    c = textcolor();
-
-  if (Fl_File_Icon::first() == NULL)
-  {
-    // No icons, just draw the text...
-    X ++;
-    W -= 2;
-  }
-  else
-  {
-    // Draw the icon if it is set...
-    if (line->data)
-      ((Fl_File_Icon *)line->data)->draw(X, Y, iconsize_, iconsize_,
-                                	(line->flags & SELECTED) ? FL_YELLOW :
-				                                   FL_LIGHT2,
-					active_r());
-
-    // Draw the text offset to the right...
-    X += iconsize_ + 9;
-    W -= iconsize_ - 10;
-
-    // Center the text vertically...
-    height = fl_height();
-
-    for (t = line->txt; *t != '\0'; t ++)
-      if (*t == '\n')
-	height += fl_height();
-
-    if (height < iconsize_)
-      Y += (iconsize_ - height) / 2;
-  }
-
-  // Draw the text...
-  line    = (FL_BLINE *)p;
-  columns = column_widths();
-  width   = 0;
-  column  = 0;
-
-  if (active_r())
-    fl_color(c);
-  else
-    fl_color(fl_inactive(c));
-
-  for (t = line->txt, ptr = fragment; *t != '\0'; t ++)
-    if (*t == '\n')
-    {
-      // Newline - nul terminate this fragment and draw it...
-      *ptr = '\0';
-
-      fl_draw(fragment, X + width, Y, W - width, fl_height(),
-              (Fl_Align)(FL_ALIGN_LEFT | FL_ALIGN_CLIP), 0, 0);
-
-      // Point back to the start of the fragment...
-      ptr    = fragment;
-      width  = 0;
-      Y      += fl_height();
-      column = 0;
-    }
-    else if (*t == column_char())
-    {
-      // Tab - nul terminate this fragment and draw it...
-      *ptr = '\0';
-
-      int cW = W - width; // Clip width...
-
-      if (columns)
-      {
-        // Try clipping inside this column...
-	for (i = 0; i < column && columns[i]; i ++);
-
-        if (columns[i])
-          cW = columns[i];
-      }
-
-      fl_draw(fragment, X + width, Y, cW, fl_height(),
-              (Fl_Align)(FL_ALIGN_LEFT | FL_ALIGN_CLIP), 0, 0);
-
-      // Advance to the next column...
-      column ++;
-      if (columns)
-      {
-	for (i = 0, width = 0; i < column && columns[i]; i ++)
-	  width += columns[i];
-      }
-      else
-        width = column * (int)(fl_height() * 0.6 * 8.0);
-
-      ptr = fragment;
-    }
-    else
-      *ptr++ = *t;
-
-  if (ptr > fragment)
-  {
-    // Nul terminate this fragment and draw it...
-    *ptr = '\0';
-
-    fl_draw(fragment, X + width, Y, W - width, fl_height(),
-            (Fl_Align)(FL_ALIGN_LEFT | FL_ALIGN_CLIP), 0, 0);
-  }
-}
-
-
-//
-// 'Fl_File_Browser::Fl_File_Browser()' - Create a Fl_File_Browser widget.
-//
-
-Fl_File_Browser::Fl_File_Browser(int        X,  // I - Upper-lefthand X coordinate
-                        	 int        Y,  // I - Upper-lefthand Y coordinate
-				 int        W,  // I - Width in pixels
-				 int        H,  // I - Height in pixels
-				 const char *l)	// I - Label text
-    : Fl_Browser(X, Y, W, H, l)
-{
-  // Initialize the filter pattern, current directory, and icon size...
-  pattern_   = "*";
-  directory_ = "";
-  iconsize_  = (uchar)(3 * textsize() / 2);
-  filetype_  = FILES;
-}
-
-
-//
-// 'Fl_File_Browser::load()' - Load a directory into the browser.
-//
-
-int						// O - Number of files loaded
-Fl_File_Browser::load(const char     *directory,// I - Directory to load
-                      Fl_File_Sort_F *sort)	// I - Sort function to use
-{
-  int		i;				// Looping var
-  int		num_files;			// Number of files in directory
-  int		num_dirs;			// Number of directories in list
-  char		filename[4096];			// Current file
-  Fl_File_Icon	*icon;				// Icon to use
-
-
-//  printf("Fl_File_Browser::load(\"%s\")\n", directory);
-
-  clear();
-
-  directory_ = directory;
-
-  if (!directory)
-    return (0);
-
-  if (directory_[0] == '\0')
-  {
-    //
-    // No directory specified; for UNIX list all mount points.  For DOS
-    // list all valid drive letters...
-    //
-
-    num_files = 0;
-    if ((icon = Fl_File_Icon::find("any", Fl_File_Icon::DEVICE)) == NULL)
-      icon = Fl_File_Icon::find("any", Fl_File_Icon::DIRECTORY);
-
-#ifdef WIN32
-#  ifdef __CYGWIN__
-    //
-    // Cygwin provides an implementation of setmntent() to get the list
-    // of available drives...
-    //
-    FILE          *m = setmntent("/-not-used-", "r");
-    struct mntent *p;
-
-    while ((p = getmntent (m)) != NULL) {
-      add(p->mnt_dir, icon);
-      num_files ++;
-    }
-
-    endmntent(m);
-#  else
-    //
-    // Normal WIN32 code uses drive bits...
-    //
-    DWORD	drives;		// Drive available bits
-
-    drives = GetLogicalDrives();
-    for (i = 'A'; i <= 'Z'; i ++, drives >>= 1)
-      if (drives & 1)
-      {
-        sprintf(filename, "%c:/", i);
-
-	if (i < 'C') // see also: GetDriveType and GetVolumeInformation in WIN32
-	  add(filename, icon);
-	else
-	  add(filename, icon);
-
-	num_files ++;
-      }
-#  endif // __CYGWIN__
-#elif defined(__EMX__)
-    //
-    // OS/2 code uses drive bits...
-    //
-    ULONG	curdrive;	// Current drive
-    ULONG	drives;		// Drive available bits
-    int		start = 3;      // 'C' (MRS - dunno if this is correct!)
-
-
-    DosQueryCurrentDisk(&curdrive, &drives);
-    drives >>= start - 1;
-    for (i = 'A'; i <= 'Z'; i ++, drives >>= 1)
-      if (drives & 1)
-      {
-        sprintf(filename, "%c:/", i);
-        add(filename, icon);
-
-	num_files ++;
-      }
-#elif defined(__APPLE__)
-    // MacOS X and Darwin use getfsstat() system call...
-    int			numfs;	// Number of file systems
-    struct statfs	*fs;	// Buffer for file system info
-
-
-    // We always have the root filesystem.
-    add("/", icon);
-
-    // Get the mounted filesystems...
-    numfs = getfsstat(NULL, 0, MNT_NOWAIT);
-    if (numfs > 0) {
-      // We have file systems, get them...
-      fs = new struct statfs[numfs];
-      getfsstat(fs, sizeof(struct statfs) * numfs, MNT_NOWAIT);
-
-      // Add filesystems to the list...
-      for (i = 0; i < numfs; i ++) {
-	// Ignore "/", "/dev", and "/.vol"...
-        if (fs[i].f_mntonname[1] && strcmp(fs[i].f_mntonname, "/dev") &&
-	    strcmp(fs[i].f_mntonname, "/.vol")) {
-          snprintf(filename, sizeof(filename), "%s/", fs[i].f_mntonname);
-          add(filename, icon);
-        }
-        num_files ++;
-      }
-
-      // Free the memory used for the file system info array...
-      delete[] fs;
-    }
-#else
-    //
-    // UNIX code uses /etc/fstab or similar...
-    //
-    FILE	*mtab;		// /etc/mtab or /etc/mnttab file
-    char	line[FL_PATH_MAX];	// Input line
-
-    //
-    // Open the file that contains a list of mounted filesystems...
-    //
-
-    mtab = fl_fopen("/etc/mnttab", "r");	// Fairly standard
-    if (mtab == NULL)
-      mtab = fl_fopen("/etc/mtab", "r");	// More standard
-    if (mtab == NULL)
-      mtab = fl_fopen("/etc/fstab", "r");	// Otherwise fallback to full list
-    if (mtab == NULL)
-      mtab = fl_fopen("/etc/vfstab", "r");	// Alternate full list file
-
-    if (mtab != NULL)
-    {
-      while (fgets(line, sizeof(line), mtab) != NULL)
-      {
-        if (line[0] == '#' || line[0] == '\n')
-	  continue;
-        if (sscanf(line, "%*s%4095s", filename) != 1)
-	  continue;
-
-        strlcat(filename, "/", sizeof(filename));
-
-//        printf("Fl_File_Browser::load() - adding \"%s\" to list...\n", filename);
-        add(filename, icon);
-	num_files ++;
-      }
-
-      fclose(mtab);
-    }
-#endif // WIN32 || __EMX__
-  }
-  else
-  {
-    dirent	**files;	// Files in in directory
-
-
-    //
-    // Build the file list...
-    //
-
-#if (defined(WIN32) && !defined(__CYGWIN__)) || defined(__EMX__)
-    strlcpy(filename, directory_, sizeof(filename));
-    i = strlen(filename) - 1;
-
-    if (i == 2 && filename[1] == ':' &&
-        (filename[2] == '/' || filename[2] == '\\'))
-      filename[2] = '/';
-    else if (filename[i] != '/' && filename[i] != '\\')
-      strlcat(filename, "/", sizeof(filename));
-
-    num_files = fl_filename_list(filename, &files, sort);
-#else
-    num_files = fl_filename_list(directory_, &files, sort);
-#endif /* WIN32 || __EMX__ */
-
-    if (num_files <= 0)
-      return (0);
-
-    for (i = 0, num_dirs = 0; i < num_files; i ++) {
-      if (strcmp(files[i]->d_name, "./")) {
-	snprintf(filename, sizeof(filename), "%s/%s", directory_,
-	         files[i]->d_name);
-
-        icon = Fl_File_Icon::find(filename);
-	if ((icon && icon->type() == Fl_File_Icon::DIRECTORY) ||
-	     _fl_filename_isdir_quick(filename)) {
-          num_dirs ++;
-          insert(num_dirs, files[i]->d_name, icon);
-	} else if (filetype_ == FILES &&
-	           fl_filename_match(files[i]->d_name, pattern_)) {
-          add(files[i]->d_name, icon);
-	}
-      }
-
-      free(files[i]);
-    }
-
-    free(files);
-  }
-
-  return (num_files);
-}
-
-
-//
-// 'Fl_File_Browser::filter()' - Set the filename filter.
-//
-
-void
-Fl_File_Browser::filter(const char *pattern)	// I - Pattern string
-{
-  // If pattern is NULL set the pattern to "*"...
-  if (pattern)
-    pattern_ = pattern;
-  else
-    pattern_ = "*";
-}
-
-
-//
-// End of "$Id$".
-//