"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "split.scm" between
scm-5f2.zip and scm-5f3.zip

About: SCM is a Scheme Language Interpreter.

split.scm  (scm-5f2):split.scm  (scm-5f3)
skipping to change at line 22 skipping to change at line 22
;; Lesser General Public License for more details. ;; Lesser General Public License for more details.
;; ;;
;; You should have received a copy of the GNU Lesser General Public ;; You should have received a copy of the GNU Lesser General Public
;; License along with this program. If not, see ;; License along with this program. If not, see
;; <http://www.gnu.org/licenses/>. ;; <http://www.gnu.org/licenses/>.
;;; Author: Aubrey Jaffer. ;;; Author: Aubrey Jaffer.
(require 'curses) (require 'curses)
(define *stdscr* (initscr)) (define *stdscr* (initscr))
(nocbreak) (cbreak)
(echo) (echo)
(nl) (nl)
(define subwindow-height (max 2 (quotient (output-port-height) 5))) (define subwindow-height (max 2 (quotient (output-port-height) 5)))
(define *output-window* (define *output-window*
(newwin (- (output-port-height) (* 2 subwindow-height) 2) (newwin (- (output-port-height) (* 2 subwindow-height) 2)
(output-port-width) (output-port-width)
0 0
0)) 0))
(define *input-window* (define *input-window*
(newwin subwindow-height (newwin subwindow-height
 End of changes. 1 change blocks. 
1 lines changed or deleted 1 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)