[xiph-cvs] cvs commit: BlueberryArmageddon blueberry_armageddon

[Monty]

xiphmont    02/05/07 11:02:47

  Modified:    .        blueberry_armageddon
  Log:
  Do window resize correctly (or at least a way that actually works)

Revision  Changes    Path
1.5       +5 -2      BlueberryArmageddon/blueberry_armageddon

Index: blueberry_armageddon
===================================================================
RCS file: /usr/local/cvsroot/BlueberryArmageddon/blueberry_armageddon,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- blueberry_armageddon	2002/04/11 06:29:38	1.4
+++ blueberry_armageddon	2002/05/07 18:02:46	1.5
@@ -189,7 +189,8 @@
 
 $totaly=int(46+$window_quit->reqheight()+10+$y);
 
-$toplevel->geometry($width.'x'.$totaly);
+$toplevel->configure(-width=>$width);
+$toplevel->configure(-height=>$totaly);
 
 $window_scan->configure(-command=>[sub{Rescan();}]);
 $window_check->configure(-command=>[sub{Recheck();}]);
@@ -517,7 +518,8 @@
     my $geometry=$toplevel->geometry();
     $toplevel->minsize(400,$totaly);
     $geometry=~/^(\d+)/;
-    $toplevel->geometry($1."x$totaly");
+    $toplevel->configure(-width=>$1);
+    $toplevel->configure(-height=>$totaly);
 }
 
 sub Shutdown{
@@ -579,6 +581,7 @@
     my$y=$yy+$hh/2-$height/2;
 
     $modal->geometry($width."x".$height."+".int($x)."+".int($y));
+
     $modal->resizable(FALSE,FALSE);
     $modal->transient($window);
     $modal_exit->configure(-command=>[sub{$modal->destroy();undef $modal}]);

<p><p><p>--- >8 ----
List archives:  http://www.xiph.org/archives/
Ogg project homepage: http://www.xiph.org/ogg/
To unsubscribe from this list, send a message to 'cvs-request at xiph.org'
containing only the word 'unsubscribe' in the body.  No subject is needed.
Unsubscribe messages sent to the list will be ignored/filtered.