suzanne.soy/whalesong
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

starting to cook up a drag-and-drop example

Browse Source
This commit is contained in:
Danny Yoo 2012-06-24 17:51:52 -04:00
parent 8b45f7f4e0
commit 47f04305fc
3 changed files with 47 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
examples/drag-and-drop/drag-and-drop-1.rkt Normal file
View File

@ -0,0 +1,14 @@
#lang planet dyoo/whalesong
(require (planet dyoo/whalesong/web-world))
;; A small drag-and-drop example using the web-world library.
;;
;; The world consists of a set of boxes.
;;
;; A box has an id and a position.
(define-struct world (boxes))
(define-struct box (id x y))

17
examples/drag-and-drop/style.css Normal file
View File

@ -0,0 +1,17 @@
html {
width: 100%;
height: 100%;
}
body {
width: 100%;
height: 100%;
}
#playground {
background-color: lightgray;
border: 1px solid black;
width: 70%;
height: 70%;
display: block;
}

16
examples/drag-and-drop/view.html Normal file
View File

@ -0,0 +1,16 @@
<!DOCTYPE html>
<html>
<head>
<link rel="stylesheet" href="style.css" type="text/css"/>
</head>
<body>
<h1>Drag and drop example</h1>
<div id="playground">
This is the playground.
</div>
<input type="button" value="Add"/>
</body>
</html>