Mercurial > hg > octave-max
comparison libinterp/dldfcn/__init_fltk__.cc @ 15509:b9b9795a7cd9
build: Build FLTK-associated DOCSTRINGS even when HAVE_FLTK is 0 (bug #37541).
* libinterp/dldfcn/__init_fltk__.cc(F__init_fltk__, F__fltk_redraw__,
F__fltk_maxtime__, F__have_fltk__): Define docstrings for these functions.
Use '#ifdef HAVE_FLTK' around function bodies.
* libinterp/dldfcn/__fltk_uigetfile__.cc(F__fltk_uigetfile__): Define
docstring for function. Use '#ifdef HAVE_FLTK' around function body..
author | Rik <rik@octave.org> |
---|---|
date | Thu, 11 Oct 2012 19:13:29 -0700 |
parents | b3762b89c3c0 |
children |
comparison
equal
deleted
inserted
replaced
15508:b3762b89c3c0 | 15509:b9b9795a7cd9 |
---|---|
36 #endif | 36 #endif |
37 | 37 |
38 #include "defun-dld.h" | 38 #include "defun-dld.h" |
39 #include "error.h" | 39 #include "error.h" |
40 | 40 |
41 #if defined (HAVE_FLTK) | 41 #ifdef HAVE_FLTK |
42 | 42 |
43 #include <map> | 43 #include <map> |
44 #include <set> | 44 #include <set> |
45 #include <sstream> | 45 #include <sstream> |
46 #include <iostream> | 46 #include <iostream> |
1982 Fl::wait (fltk_maxtime); | 1982 Fl::wait (fltk_maxtime); |
1983 } | 1983 } |
1984 } | 1984 } |
1985 }; | 1985 }; |
1986 | 1986 |
1987 #endif | |
1988 | |
1987 // Initialize the fltk graphics toolkit. | 1989 // Initialize the fltk graphics toolkit. |
1988 | 1990 |
1989 DEFUN_DLD (__init_fltk__, , , "") | 1991 DEFUN_DLD (__init_fltk__, , , |
1992 "-*- texinfo -*-\n\ | |
1993 @deftypefn {Loadable Function} {} __init_fltk__ ()\n\ | |
1994 Undocumented internal function.\n\ | |
1995 @end deftypefn") | |
1990 { | 1996 { |
1997 #ifdef HAVE_FLTK | |
1991 if (! toolkit_loaded) | 1998 if (! toolkit_loaded) |
1992 { | 1999 { |
1993 mlock (); | 2000 mlock (); |
1994 | 2001 |
1995 graphics_toolkit tk (new fltk_graphics_toolkit ()); | 2002 graphics_toolkit tk (new fltk_graphics_toolkit ()); |
1998 | 2005 |
1999 octave_value_list args; | 2006 octave_value_list args; |
2000 args(0) = "__fltk_redraw__"; | 2007 args(0) = "__fltk_redraw__"; |
2001 feval ("add_input_event_hook", args, 0); | 2008 feval ("add_input_event_hook", args, 0); |
2002 } | 2009 } |
2003 | 2010 #else |
2004 octave_value retval; | 2011 error ("__init_fltk__: not available without OpenGL and FLTK libraries"); |
2005 return retval; | 2012 #endif |
2006 } | |
2007 | |
2008 DEFUN_DLD (__fltk_redraw__, , , "") | |
2009 { | |
2010 __fltk_redraw__ (); | |
2011 | 2013 |
2012 return octave_value (); | 2014 return octave_value (); |
2013 } | 2015 } |
2014 | 2016 |
2015 DEFUN_DLD (__fltk_maxtime__, args, ,"") | 2017 DEFUN_DLD (__fltk_redraw__, , , |
2018 "-*- texinfo -*-\n\ | |
2019 @deftypefn {Loadable Function} {} __fltk_redraw__ ()\n\ | |
2020 Undocumented internal function.\n\ | |
2021 @end deftypefn") | |
2016 { | 2022 { |
2023 #ifdef HAVE_FLTK | |
2024 __fltk_redraw__ (); | |
2025 #else | |
2026 error ("__fltk_redraw__: not available without OpenGL and FLTK libraries"); | |
2027 #endif | |
2028 | |
2029 return octave_value (); | |
2030 } | |
2031 | |
2032 DEFUN_DLD (__fltk_maxtime__, args, , | |
2033 "-*- texinfo -*-\n\ | |
2034 @deftypefn {Loadable Function} {@var{maxtime} =} __fltk_maxtime__ ()\n\ | |
2035 @deftypefnx {Loadable Function} {} __fltk_maxtime__ (@var{maxtime})\n\ | |
2036 Undocumented internal function.\n\ | |
2037 @end deftypefn") | |
2038 { | |
2039 #ifdef HAVE_FLTK | |
2017 octave_value retval = fltk_maxtime; | 2040 octave_value retval = fltk_maxtime; |
2018 | 2041 |
2019 if (args.length () == 1) | 2042 if (args.length () == 1) |
2020 { | 2043 { |
2021 if (args(0).is_real_scalar ()) | 2044 if (args(0).is_real_scalar ()) |
2023 else | 2046 else |
2024 error ("argument must be a real scalar"); | 2047 error ("argument must be a real scalar"); |
2025 } | 2048 } |
2026 | 2049 |
2027 return retval; | 2050 return retval; |
2051 #else | |
2052 error ("__fltk_maxtime__: not available without OpenGL and FLTK libraries"); | |
2053 return octave_value (); | |
2054 #endif | |
2028 } | 2055 } |
2029 | 2056 |
2030 #endif | 2057 DEFUN_DLD (__have_fltk__, , , |
2031 | 2058 "-*- texinfo -*-\n\ |
2032 DEFUN_DLD (__have_fltk__, , , "") | 2059 @deftypefn {Loadable Function} {@var{FLTK_available} =} __have_fltk__ ()\n\ |
2060 Undocumented internal function.\n\ | |
2061 @end deftypefn") | |
2033 { | 2062 { |
2034 octave_value retval; | 2063 octave_value retval; |
2035 | 2064 |
2036 #if defined (HAVE_FLTK) | 2065 #ifdef HAVE_FLTK |
2037 retval = true; | 2066 retval = true; |
2038 #else | 2067 #else |
2039 retval = false; | 2068 retval = false; |
2040 #endif | 2069 #endif |
2041 | 2070 |
2057 \n\ | 2086 \n\ |
2058 This function is currently implemented only for the FLTK graphics toolkit.\n\ | 2087 This function is currently implemented only for the FLTK graphics toolkit.\n\ |
2059 @seealso{gui_mode}\n\ | 2088 @seealso{gui_mode}\n\ |
2060 @end deftypefn") | 2089 @end deftypefn") |
2061 { | 2090 { |
2062 #if defined (HAVE_FLTK) | 2091 #ifdef HAVE_FLTK |
2063 octave_value retval = wheel_zoom_speed; | 2092 octave_value retval = wheel_zoom_speed; |
2064 | 2093 |
2065 if (args.length () == 1) | 2094 if (args.length () == 1) |
2066 { | 2095 { |
2067 if (args(0).is_real_scalar ()) | 2096 if (args(0).is_real_scalar ()) |
2097 \n\ | 2126 \n\ |
2098 This function is currently implemented only for the FLTK graphics toolkit.\n\ | 2127 This function is currently implemented only for the FLTK graphics toolkit.\n\ |
2099 @seealso{mouse_wheel_zoom}\n\ | 2128 @seealso{mouse_wheel_zoom}\n\ |
2100 @end deftypefn") | 2129 @end deftypefn") |
2101 { | 2130 { |
2102 #if defined (HAVE_FLTK) | 2131 #ifdef HAVE_FLTK |
2103 caseless_str mode_str; | 2132 caseless_str mode_str; |
2104 | 2133 |
2105 if (gui_mode == pan_zoom) | 2134 if (gui_mode == pan_zoom) |
2106 mode_str = "2d"; | 2135 mode_str = "2d"; |
2107 else if (gui_mode == rotate_zoom) | 2136 else if (gui_mode == rotate_zoom) |