From cb381871d518077649be6272af823dabec2fcd28 Mon Sep 17 00:00:00 2001 From: Ibrahim Mkusa Date: Sun, 9 Apr 2017 22:37:50 -0400 Subject: reorganized repo a bit better --- feasibility_analysis/gui/windows.rkt | 9 --------- feasibility_analysis/gui/windows2.rkt | 15 --------------- 2 files changed, 24 deletions(-) delete mode 100644 feasibility_analysis/gui/windows.rkt delete mode 100644 feasibility_analysis/gui/windows2.rkt (limited to 'feasibility_analysis/gui') diff --git a/feasibility_analysis/gui/windows.rkt b/feasibility_analysis/gui/windows.rkt deleted file mode 100644 index 4524673..0000000 --- a/feasibility_analysis/gui/windows.rkt +++ /dev/null @@ -1,9 +0,0 @@ -#lang racket - -(require racket/gui/base) - -;; Create a new window via the frame class -(define frame (new frame% [label "Example"])) - -;; Show frame(window) by calling it show method -(send frame show #t) ;; you call object methods via send diff --git a/feasibility_analysis/gui/windows2.rkt b/feasibility_analysis/gui/windows2.rkt deleted file mode 100644 index 3f60c80..0000000 --- a/feasibility_analysis/gui/windows2.rkt +++ /dev/null @@ -1,15 +0,0 @@ -#lang racket - -(require racket/gui/base) - -(define frame (new frame% - [label "Example"] - [width 300] - [height 300])) -(new canvas% [parent frame] - [paint-callback - (lambda (canvas dc) - (send dc set-scale 3 3) - (send dc set-text-foreground "blue") - (send dc draw-text "Don't Panic!" 0 0))]) -(send frame show #t) -- cgit v1.2.3