diff --git a/clogframe/README.md b/clogframe/README.md index 2bede54..294c3d6 100644 --- a/clogframe/README.md +++ b/clogframe/README.md @@ -1,9 +1,10 @@ ## CLOGFrame CLOG Frame uses the native browser control on your platform to create -a simple app the displays a 640x480 frame ready to recieve your app. +a simple app the displays a frame ready to recieve your app. -clogframe[.exe] "Window Title" port +clogframe[.exe] "Window Title" 8080 640 480 + port w x h in the clogframe directory run: diff --git a/clogframe/clogframe.cpp b/clogframe/clogframe.cpp index a5c8997..33dd384 100644 --- a/clogframe/clogframe.cpp +++ b/clogframe/clogframe.cpp @@ -5,7 +5,7 @@ int main(int argc,char* argv[]) { webview::webview w(true, nullptr); w.set_title(argv[1]); - w.set_size(640, 480, WEBVIEW_HINT_NONE); + w.set_size(std::stoi(argv[3]), std::stoi(argv[4]), WEBVIEW_HINT_NONE); std::ostringstream o; o << "http://127.0.0.1:" << argv[2]; w.navigate(o.str()); diff --git a/clogframe/make-linux b/clogframe/make-linux index 12fb610..c0af29b 100644 --- a/clogframe/make-linux +++ b/clogframe/make-linux @@ -1 +1 @@ -g++ clogframe.cpp -std=c++11 -Ilibs/webview $(pkg-config --cflags --libs gtk+-3.0 webkit2gtk-4.0) -o clogframe \ No newline at end of file +c++ clogframe.cpp `pkg-config --cflags --libs gtk+-3.0 webkit2gtk-4.0` -o clogframe \ No newline at end of file diff --git a/demos/01-demo.lisp b/demos/01-demo.lisp index cb9ade4..5a776c1 100644 --- a/demos/01-demo.lisp +++ b/demos/01-demo.lisp @@ -179,6 +179,7 @@ (start-game body) ;; When *app-mode* set only run the game once and then shutdown the app (when *app-mode* + (sleep 2) ;; let end music play (clog:shutdown) (uiop:quit))) @@ -190,7 +191,10 @@ (when app (setf *app-mode* app)) (when clogframe - (uiop:run-program (list "./clogframe" "CLOG Snake" (format nil "~A" port)))) + (uiop:run-program (list "./clogframe" + "CLOG Snake" + (format nil "~A" port) + (format nil "~A" 640) (format nil "~A" 420)))) (when start-browser (format t "If browser does not start go to http://127.0.0.1:~A" port) (open-browser :url (format nil "http://127.0.0.1:~A" port))))